mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-29 08:41:36 +00:00
24 lines
580 B
QBasic
24 lines
580 B
QBasic
5 HGR2:HCOLOR=7
|
|
20 HPLOT 0,78 TO 136,78 TO 0,114
|
|
30 HPLOT 279,78 TO 144,78 TO 279,114
|
|
'40 HPLOT 136,78 TO 136,88 TO 48,191
|
|
'50 HPLOT 144,78 TO 144,88 TO 232,191
|
|
60 FOR X=0 TO 11
|
|
70 Y2=256-(X*16):IF Y2>191 THEN Y2=191
|
|
80 HPLOT 4+X*12,112-X*3 TO 4+X*12,Y2
|
|
90 HPLOT 276-X*12,112-X*3 TO 276-X*12,Y2
|
|
100 NEXT
|
|
'
|
|
'136
|
|
'124
|
|
'60 HPLOT 112,85 TO 112,112
|
|
'70 HPLOT 100,88 TO 100,128
|
|
'80 HPLOT 88,91 TO 88,144
|
|
'90 HPLOT 76,94 TO 76,160
|
|
'64 97 176
|
|
'52 100 192
|
|
'40 103 208
|
|
'28 106 224
|
|
'16 109 240
|
|
'4 112 256
|