mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-21 18:25:48 +00:00
9 lines
233 B
QBasic
9 lines
233 B
QBasic
10 HIMEM:8156
|
|
20 POKE 232,220:POKE 233,31
|
|
30 FOR L=8156 TO 8175: READ B:POKE L,B:NEXT L
|
|
35 HGR:ROT=0:SCALE=5
|
|
40 FOR I=1 TO 1: XDRAW I AT 110,100:NEXT I
|
|
90 END
|
|
100 DATA 1,0,4,0,50,63,39,37,53,14
|
|
101 DATA 45,37,39,151,36,63,36,45,54,0
|