10 REM EDIT THE NEXT LINES TO DEFINE THE DATA AND STATUS PORTS
20 REM THIS IS SET UP FOR ALTAIR SIO ON PORT 0/1
30 CTL=18
40 DAT=19
50 REM FOLLOWING IS MASK AND VALUE FOR STATUS
60 RCV=1:RV=1
70 REM ANI XMT, CPI XV (RCV/RV)
80 XMT=2:XV=2
90 REM JUMP TO MAIN
100 GOTO 290
110 REM DELAY ROUTINE
120 REM EDIT THE FOLLOWING LINE TO INCREASE OR DECREASE THE DELAY
130 FOR X=1 TO 500:NEXT X
140 RETURN
150 REM INPUT DATA FROM PORT (WAIT FOR DATA AVAILABLE)
160 W=INP(CTL):IF (W AND RCV) <> RV GOTO 160
170 V=INP(DAT)
180 RETURN
190 REM OUTPUT VALUE TO PORT - WAIT FOR DATA READY
200 W=INP(CTL):IF (W AND XMT) <> XV GOTO 200
210 OUT DAT,V
220 RETURN
230 REM ROUTINE TO PROCESS GROUP
240 READ V:IF V = -1 THEN RETURN
250 GOSUB 200:GOTO 240
290 REM MAIN - READ AND OUTPUT GROUP, THEN DELAY
300 READ G
310 FOR J=1 TO G
320 GOSUB 240
330 GOSUB 130
340 NEXT
345 GOTO 30
350 REM FIRST NUMBER IS NUMBER OF GROUPS
360 REM EACH GROUP IS DATA, FOLLOWED BY -1
370 DATA 4
500 DATA 20,96,21,114,22,88,23,5,22,196,8,8,155,2,2,132,132,140,6,132,132,141,6,
22,185,8,132,8,145,22,147,8,191,150,-1
510 DATA 20,96,21,114,22,88,23,5,22,147,157,6,22,175,132,132,140,6,154,128,6,195
,135,140,22,165,198,160,22,131,191,137,148,-1
520 DATA 20,96,21,114,22,88,23,5,22,131,157,140,22,156,6,183,149,132,8,191,128,1
53,22,147,8,6,198,8,145,131,6,22,117,8,167,148,-1
530 DATA 20,96,21,114,22,123,23,5,22,110,8,188,7,164,7,147,145,131,191,187,22,12
3,199,7,145,131,154,22,98,154,128,22,110,8,178,154,140,-1
540 DATA 20,96,21,114,22,88,23,5,22,196,8,8,155,2,2,132,132,140,6,132,132,141,6,
22,185,8,132,8,145,22,147,8,191,150,-1
550 DATA 20,96,21,114,22,88,23,5,22,147,157,6,22,175,132,132,140,6,154,128,6,195
,135,140,22,165,198,160,22,131,191,137,148,-1
560 DATA 20,96,21,114,22,88,23,5,22,131,157,140,22,156,6,183,149,132,8,191,128,1
53,22,147,8,6,198,8,145,131,6,22,117,8,167,148,-1
570 DATA 20,96,21,114,22,88,23,5,22,110,8,188,7,164,7,147,145,131,191,187,22,123
,199,7,145,131,154,22,110,154,128,22,98,8,178,154,140,-1