16 lines
276 B
QBasic
16 lines
276 B
QBasic
|
10 print "initializing driver"
|
||
|
|
20 poke 238, asc("h")
|
||
|
|
30 sys 28672
|
||
|
|
120 end
|
||
|
|
200 print "sending data"
|
||
|
|
210 poke 238, asc("a")
|
||
|
|
220 sys 28681
|
||
|
|
230 s = peek(239)
|
||
|
|
240 if s = 0 then goto 40
|
||
|
|
250 print "status "; s
|
||
|
|
260 goto 40
|
||
|
|
300 print
|
||
|
|
310 print "disabling driver"
|
||
|
|
320 sys 28675
|
||
|
|
430 end
|