mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
5 lines
281 B
QBasic
5 lines
281 B
QBasic
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)*8:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXTT,Q
|
|
6GOTO6
|