Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

appleiibot: update solaris

This commit is contained in:
Vince Weaver 2022-07-26 18:13:01 -04:00
parent 7f02cdbe3b
commit 96fc0fde29
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basic/appleiibot/solaris.bas
View File

@ -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

6
basic/appleiibot/solaris2.bas
View File

@ -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