mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
8 lines
230 B
QBasic
8 lines
230 B
QBasic
10 GOSUB 100
|
|
20 F=94:D=100:GOSUB 140
|
|
90 END
|
|
100 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L: RETURN
|
|
120 DATA 173,48,192,136,208,5,206,1,3,240,9
|
|
130 DATA 202,208,245,174,0,3,76,2,3,96
|
|
140 POKE 768,F: POKE 769,D: CALL 770: RETURN
|