10 F=ABS(PEEK(65533)=255)
12 MO=191
14 BA=8192
20 IFF=0THENPL=PEEK(43):PH=PEEK(44)
30 IFF=1THENPL=PEEK(45):PH=PEEK(46):(null)0
42 PA=PH*256+PL+MO+2
44 PH=INT(PA/256):PL=PA-PH*256
46 POKE 250,PL:POKE251,PH
50 SYS (PA+6)