mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-26 15:29:55 +00:00
6 lines
286 B
QBasic
6 lines
286 B
QBasic
1HGR2:Z=96:K=279
|
|
2FORJ=0TO7:HCOLOR=2:S=Z+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
|
|
3S=S/2:Y=Z+S:HPLOT0,YTOK,Y:IFS>1THEN3
|
|
4HCOLOR=3:HPLOT0,ZTO140,80TOK,0:Y=101:G=2.5:FORI=1TO8:A=16*I:IFY>191THENY=191
|
|
7X=(A*3-268)*(I>5):HPLOTX,YTO4+A,ZTO272-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2
|