mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-03 16:29:56 +00:00
10 lines
189 B
QBasic
10 lines
189 B
QBasic
10 HIMEM:8169
|
|
20 POKE 232,233:POKE 233,31
|
|
30 FOR L=8169 TO 8175: READ B:POKE L,B:NEXT L
|
|
35 HGR:ROT=1:SCALE=10
|
|
37 FOR I=1 TO 10
|
|
40 XDRAW 1 AT 100,100
|
|
50 NEXT
|
|
90 END
|
|
100 DATA 1,0,4,0,37,53,0
|