0 POKE1,55:B=56320:H=1
1 DEFFNA(A)=A*4+(PEEK(B)/HAND3)
3 I=56334:L=16:X=255
4 POKEI,0:R=PEEK(B+2):POKEB+2,L:POKEB,X
5 PRINT"WAITING...";
10 GOSUB80:GOSUB81:S=D
15 GOSUB80:GOSUB81:E=D
20 PRINTS;"TO";E
25 C=0:FORA=STOE:GOSUB80:C=(C+D+1)ANDX:POKEA,D
30 POKEB+2,R:POKEI,1
35 IFC<>DTHENPRINT"?CHK  ERROR":END
40 PRINT"OK":SYSS
80 D=0
81 GOSUB82
82 WAITB,8,8:D=FNA(D):POKEB,X-L
83 WAITB,8,0:D=FNA(D):POKEB,X
84 RETURN
RUN