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 1500: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
350 REM FIRST NUMBER IS NUMBER OF GROUPS
360 REM EACH GROUP IS DATA, FOLLOWED BY -1
370 DATA 4
380 DATA 20,96,21,114,22,88,23,5,183,7,159,146,164,2,157,132,132,140,132,132,141,8,132,145,8,191,8,150,6,154,4,191,128,6,154,4,191,184,134,141,176,7,148,131,176,6,194,134,140,7,198,7,160,191,133,148,-1
390 DATA 20,96,21,114,22,88,23,5,140,155,194,8,135,141,8,187,131,198,8,189,135,141,147,134,167,8,129,8,141,141,7,15,155,141,191,128,8,141,8,187,7,131,7,166,131,7,141,191,128,186,7,137,153,-1
400 DATA 20,96,21,114,22,125,23,5,22,135,157,22,120,147,134,167,22,115,171,6,137,148,141,-1
401 DATA 20,96,21,114,22,125,23,5,22,125,6,8,129,8,141,22,135,8,7,191,7,147,131,141,7,191,128,-1
402 DATA 20,96,21,114,22,125,23,5,22,135,8,7,191,7,147,131,141,7,191,128,22,125,147,14,136,8,141,-1
410 DATA 20, 96,21,114,22,88,23,5,184,8,163,194,8,132,141,157,22,90,183,159,199,22,88,8,160,-1