mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-07 05:54:25 +00:00
11 lines
296 B
QBasic
11 lines
296 B
QBasic
10 HIMEM:8142
|
|
20 POKE 232,206:POKE 233,31
|
|
30 FOR L=8142 TO 8175: READ B:POKE L,B:NEXT L
|
|
35 HGR:ROT=0:SCALE=10
|
|
40 FOR I=1 TO 1: XDRAW I AT I*10,100:NEXT I
|
|
90 END
|
|
100 DATA 1,0,4,0,39,44,53,142,36,44
|
|
101 DATA 53,190,9,36,44,53,190,9,32,36
|
|
102 DATA 140,18,45,60,55,46,13,37,36,79
|
|
103 DATA 57,54,46,0
|