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