50 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 100 RANDOMIZE 120 PRINT "YOU ARE NOW GOING TO PLAY A COMPUTERIZED VERSION OF BINGO--" 180 LET F=1 185 V=0\W=0 190 DIM B(10,10) 200 DIM L(75) 210 A$(1)="B"\A$(2)="I"\A$(3)="N"\A$(4)="G"\A$(5)="O" 235 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430) 240 FOR K1=1 TO 75 250 LET L(K1)=0 260 NEXT K1 270 PRINT " "," HERE'S "; 280 IF F>1 THEN 310 290 PRINT "YOUR CARD" 300 GOTO 320 310 PRINT "MY CARD" 320 LET M=16 330 LET G=F+4 340 FOR Y=F TO G 350 FOR X=F TO G 360 LET R=INT(M*RND(0)) 370 IF R0 THEN 360 390 LET B(X,Y)=R 400 LET L(R)=1 410 NEXT X 420 LET M=M+15 430 NEXT Y 435 REM THIS SEQUENCE PRINTS THE CARD (LINES 440-670) 440 PRINT 450 PRINT"--B--","--I--","--N--","--G--","--O--" 460 FOR X=F TO G 470 PRINT 480 PRINT 490 PRINT 500 FOR Y=F TO G 510 IF B(X,Y)=B(F+2,F+2) THEN 540 520 PRINT B(X,Y), 530 GOTO 550 540 PRINT "FREE", 550 NEXT Y 560 NEXT X 570 PRINT 580 PRINT 590 PRINT 600 PRINT"---------------------------------------------------------------" 610 PRINT" (TEAR OFF AFTER MACHINE AUTOMATICALLY ADVANCES PAPER)" 620 FOR K9=1 TO 9 630 PRINT 640 NEXT K9 650 IF F=6 THEN 680 660 LET F=6 670 GOTO 240 680 PRINT 690 PRINT"NOW WE'RE ALL SET TO PLAY THE GAME. USE A PENCIL TO MARK OFF" 700 PRINT"THE NUMBERS ON YOUR CARD AS THEY ARE CALLED." 710 PRINT" (PLEASE PLAY MY CARD AS WELL AS YOUR OWN)" 720 PRINT"***DON'T GET SMART. I'LL BE PLAYING BOTH YOUR CARD AND MINE" 730 PRINT" UP HERE IN BOSTON. (SO THERE--)" 740 PRINT 750 PRINT"ARE YOU READY"; 760 INPUT R$ 770 IF R$<>"NO" THEN 820 780 PRINT 790 PRINT"*********:HURRY UP:*********" 800 GOTO 740 810 REM 820 FOR K1=1 TO 75 830 LET L(K1)=0 840 NEXT K1 850 PRINT 860 LET B(3,3)=0 870 LET B(8,8)=0 875 REM THIS SEQUENCE GENERATES THE BINGO NUMBERS (LINES 880-1100) 880 LET U=INT(75*RND(0))+1 910 IF L(U)<>0 THEN 880 920 LET L(U)=1 930 PRINT 949 IF RND(0) > .5 THEN 970 950 PRINT"THE NUMBER COMES UP:", 960 GOTO 980 970 PRINT "THE NEXT ONE IS:", 980 PRINT A$(INT((U-1)/15)+1);U 1105 REM THIS IS THE "NUMBER ON CARD?" SEQUENCE (LINES 1110-1260) 1110 FOR Y=1 TO 10 1120 FOR X=1 TO 10 1130 IF B(X,Y)=U THEN 1250 1140 NEXT X 1150 NEXT Y 1160 LET F=1 1170 GOSUB 1270 1180 LET F=6 1190 GOSUB 1270 1200 IF V=0 THEN 1230 1210 IF W=1 THEN 1980 1220 GOTO 2050 1230 IF W=0 THEN 880 1240 GOTO 2120 1250 LET B(X,Y)=0 1260 GOTO 1140 1265 REM THIS IS THE BINGO DETERMINING SEQUENCE (LINES 1270-1950) 1267 REM THIS IS THE VERTICAL CHECK FOR BINGO*** (LINES 1270-1430) 1270 LET G=F+4 1280 FOR Y=F TO G 1290 FOR X=F TO G 1300 IF B(X,Y)<>0 THEN 1430 1310 IF X0 THEN 1610 1490 IF Y0 THEN 1780 1650 LET X=X+1 1660 LET Y=Y+1 1670 IF Y0 THEN 1950 1810 LET X=X-1 1820 LET Y=Y+1 1830 IF Y