mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-04 08:29:30 +00:00
13 lines
276 B
QBasic
13 lines
276 B
QBasic
10 HGR:HGR2:C=2
|
|
12 FOR I=0 TO 8
|
|
14 X=0:Y=96+I*11:V=279:W=Y:GOSUB200
|
|
16 NEXT
|
|
22 A=-220:W=96:FORI=1TO8
|
|
24 READ B:Y=B
|
|
26 X=A*(A>0):V=I*16:GOSUB200
|
|
30 X=279-X:V=(17-I)*16:GOSUB200
|
|
32 A=A+48:NEXT
|
|
70 GOTO 22
|
|
138 DATA 101,112,123,139,166,191,191,191
|
|
200HCOLOR=C:HPLOTX,YTOV,W:RETURN
|