mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-11 05:29:38 +00:00
11 lines
357 B
QBasic
11 lines
357 B
QBasic
5 HGR:HCOLOR=7:GOSUB 120:HGR2:O=1:GOSUB 120:P=1
|
|
10 POKE230,32+32*P:P=NOTP:POKE49236+P,0:?CHR$(7):GOTO10
|
|
99 END
|
|
'100 HPLOT 0,78 TO 136,78 TO 0,114
|
|
'110 HPLOT 279,78 TO 144,78 TO 279,114
|
|
120 FOR X=0 TO 40
|
|
130 Y2=2*O+256-(X*4):IF Y2>191 THEN Y2=191
|
|
140 HPLOT 2*O+4+X*4,O+112-X*2 TO 2*O+4+X*4,Y2
|
|
'150 HPLOT 276-X*12,1.5*O+112-X*3 TO 276-X*12,Y2
|
|
160 NEXT:RETURN
|