dos33fsprogs/basic/appleiibot/solaris.bas

5 lines
269 B
QBasic
Raw Normal View History

2022-07-26 21:11:40 +00:00
0HGR2:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE16384+RND(1)*4096,1:NEXT
2022-07-26 22:13:01 +00:00
2A$="*-4:DVz":FORY=83TO191:HCOLOR=6:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=0
2022-07-26 21:11:40 +00:00
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