mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-13 22:29:14 +00:00
9 lines
312 B
QBasic
9 lines
312 B
QBasic
1HGR:HGR2:HCOLOR=2
|
|
2FORJ=1TO8:A=192+25*J:POKE230,(1+NOTP)*32:POKE49236+P,0:CALL-3086
|
|
3A=A/2:Y=96+A:Y=Y*(Y<192):HPLOT0,YTO279,Y:IFA>1THEN3
|
|
4B=101:K=2.5:A=-220
|
|
5FORI=1TO8:W=96:Y=B:IFY>191THENY=191
|
|
7X=A*(A>0):V=I*16:GOSUB9:HPLOT279-X,YTO(17-I)*16,96
|
|
8A=A+48:K=K+K:B=B+K:NEXT:P=NOTP:NEXT:GOTO2
|
|
9HPLOTX,YTOV,W:RETURN
|