20 REM ------------------------------›22 REM Freddie Tapedeck's›24 REM Alternate Number Generator›26 REM for TV Bingo›28 REM ------------------------------›30 REM ›100 DIM G(75),G2(75),COL(5),CARD(5,10),CL$(16):TR=24:LC=144:RC=192›136 IF PEEK(19)>=1 THEN AUTO=2:POP :GOTO 190›174 E=4:F=3:I=0:L=0›175 FOR X=1 TO 75›176 G(X)=0:G2(X)=0:NEXT X›177 N=INT(RND(0)*75)+1›178 IF I=75 THEN E=4:F=3:L=0:GOTO 183›179 IF N=G(N) THEN 177›180 G(N)=N:I=I+1:G2(I)=N›181 IF I=16+L THEN E=E+3:F=3:L=L+15›182 POSITION E,F:? "":F=F+1:GOTO 177›183 FOR X=1 TO 75›184 POSITION E,F:? " ":F=F+1›186 IF X=15+L THEN E=E+3:F=3:L=L+15›188 G(X)=0:NEXT X:I=0›190 POKE 77,0:IF I=75 THEN 346›192 IF AUTO=1 THEN 222›194 I=I+1:N=G2(I):G(N)=N:GOSUB 122›234 IF CARD(A,B)=0 THEN 190›238 IF N<>CARD(A,B) THEN 190›268 IF T=0 AND CC=0 THEN 190›318 GOTO 190›340 IF CK=0 OR K=5 THEN 190›634 GOTO 190›646 GOTO 190›