mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-02 01:29:06 +00:00
12 lines
331 B
QBasic
12 lines
331 B
QBasic
|
10 HIMEM:8132
|
||
|
20 POKE 232,196:POKE 233,31
|
||
|
30 FOR L=8132 TO 8175: READ B:POKE L,B:NEXT L
|
||
|
35 HGR:ROT=0:SCALE=1
|
||
|
40 FOR I=1 TO 2: XDRAW I AT I*10,100:NEXT I
|
||
|
90 END
|
||
|
100 DATA 2,0,6,0,33,0,45,37,60,36
|
||
|
101 DATA 44,44,53,55,47,41,52,58,63,46
|
||
|
102 DATA 45,30,55,45,45,21,63,63,63,63
|
||
|
103 DATA 63,63,0,73,73,73,36,36,36,172
|
||
|
104 DATA 54,54,54,0
|