From 96fc0fde299d9c871772ec1d06c81f6bbd803ab4 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Tue, 26 Jul 2022 18:13:01 -0400 Subject: [PATCH] appleiibot: update solaris --- basic/appleiibot/solaris.bas | 2 +- basic/appleiibot/solaris2.bas | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basic/appleiibot/solaris.bas b/basic/appleiibot/solaris.bas index ee1d2a99..7708e89e 100644 --- a/basic/appleiibot/solaris.bas +++ b/basic/appleiibot/solaris.bas @@ -1,4 +1,4 @@ 0HGR2:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE16384+RND(1)*4096,1:NEXT -2A$="*-4:DXz":FORY=83TO191:HCOLOR=6:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=0 +2A$="*-4:DVz":FORY=83TO191:HCOLOR=6:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=0 6HPLOT0,YTOX,Y:NEXT 7Q=Q+0.75:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXT:GOTO7 diff --git a/basic/appleiibot/solaris2.bas b/basic/appleiibot/solaris2.bas index c8968819..8ae1cfb5 100644 --- a/basic/appleiibot/solaris2.bas +++ b/basic/appleiibot/solaris2.bas @@ -1,4 +1,4 @@ -0HGR:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE8192+RND(1)*4096,1:NEXT -2A$="*-4:Dz":FORY=83TO160:HCOLOR=0:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=6 +0HGR:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE8E3+RND(1)*4E3,1:NEXT:A$="*-4:Dz":FORY=83TO160:HCOLOR=0:IFY=2*ASC(MID$(A$,Z+1))THENZ=Z+1:HCOLOR=6 3HPLOT0,YTOX,Y:NEXT -5VTAB21:?,"/\":FORQ=1TO20:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXTT,Q +5VTAB21:?,"/\":FORQ=1TO20:Y=SQR(400-Q*Q):HCOLOR=RND(1)*8:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXTT,Q +6GOTO6