53281,1:53280,1OSS54272:V53248:D056323:D156320:D256321:V21,0g(147),(17),(17)14);(18);(31);"MODES OF PLAY":14);(28);"*************":4);(144);"1- AUTO BALL FEED - AUTO COVER" 4);"2- MANUAL BALL FEED - AUTO COVER"> 4);"3- MANUAL BALL FEED - MANUAL COVER"l 4);"4- AUTO BALL FEED - MANUAL COVER" 4);"Q- QUIT!!!" :" ENTER MODE SELECTED:" A$:A$""250 A$"Q"59999 AU(A$)1:AU0AU3170 M1$"-CHIME RINGS FOR NUMBER ON CARD"? M2$"-GONG RINGS FOR NUMBER ON NO CARD"d "M3$"-HIT ANY KEY FOR BALL FEED" ,M4$"-USE JOYSTICK (PORT 2)-FIRE TO COVER" 6(147),(17),(17) @2);M1$:2);M2$ JAU1AU22);M3$ TAU2AU32);M4$ ^:10);"HIT ANY KEY TO START"( h A$:A$""3604 r(147)l | *** READ THE ML CODE TO SET A BLOCK OF MEMORY *** I011: X%:28672I,X%:I  *** SET THE COLOR MEMORY TO BLACK *** I03:HB216I 251,0:252,HB:253,0:254,0: 28672:; SD(4,62),CO(5),X(5),Y(5),FL(21),FH(21),DU(21),C(3,4,4),N(4,14)p CO(0)0:CO(1)14:CO(2)4:CO(3)2:CO(4)7:CO(5)0 L(0)130:L(1)137:L(2)142:L(3)135:L(4)143 S(0)1104:S(1)1127:S(2)1624:S(3)1647 F(0)1271SS:F(1)1294SS:F(2)1791SS:F(3)1814SS% 640: *** MAKE THE BOX ***L 1470: *** MAKE BINGO SPRITES ***s  *** BLANK OUT THE FREE-BOXES *** I03:F(I),1:F(I)1,1: 840: *** CHOOSE THE NUMBERS FOR THE CARDS ***  *** PUT RED COVER-TOKEN ON FREE-BOXES ***1I03:F(I)SS,160:F(I)1SS,160:F(I),8:F(I)1,8:x&CD03:C(CD,2,2)0:: SET CENTER BOX TO ILLEGAL VALUE (FREE BOX)0 *** DRAW THE PASS LINE ***:LI06:(1520LI),64:LID *** START OF PLAY ***N1100: *** GET THE NEXT NUMBER ***+X1170: *** CHECK THE CARDS FOR A MATCH ***abAU0AU3590: *** CHECK FOR AUTO BALL-FEED ***lA$:A$""620: *** WAIT FOR NEXT BALL ***v590 *** BOX MAKER ***T0$" B I N G O "A1176:A296:A3178:A4174:710:T1$A$A198:A232:A398:A498:710:T2$A$JA1171:A296:A3123:A4179:710:T3$A$uA1173:A296:A3177:A4189:710:T4$A$~750A$(A2)(A3)(A2)A$(A1)(A2)A$A$A$A$(A2)(A4)A$A$" "A$(18)(31)T0$(146)8)(18)(31)T0$(146)(144);T1$5I14:T2$:T3$:E T2$:T4$:t(18)(31)T0$(146)8)(18)(31)T0$(146) (144);T1$*I14:T2$:T3$:4T2$:T4$;>H *** CHOOSE THE CARD NUMBERS ***R *** FIRST ZERO THE CALLED NUMBER ARRAY ***+\CL04:NN014:N(CL,NN)0::HfCD0: *** CARD LOOP ***gpCL0: *** COLUMN LOOP ***zI04:C(CD,CL,I)0:: *** ZERO COL OF NUMBERS ON CARD ***RN0: *** ROW LOOP ***Z((0)15)115CL *** TEST FOR THE NUMBER IN USE *** J0BC(CD,CL,J)Z910: *** NUMBER HAS BEEN USED ***WJRNJJ1:940iC(CD,CL,RN)Z *** PRINT NUMBER IN THE BOX ***N$(Z)LN(N$)Q1LN1SNS(CD)CL3RN80Q(3LN)PN((N$,Q1,1))SN,PNQRN4RNRN1:910-$CL4CLCL1:890D.CD3CDCD1:880J8tB *** SELECT THE NEXT BALL NUMBER ***L1730: *** FIRST CHOOSE THE LETTER ***V *** NEXT THE NUMBER ***`NU((0)15):NMNU1NC15j *** HAS IT ALREADY BEEN USED? ***5tN(NC,NU)11110: *** YES-GET ANOTHER ***D~N(NC,NU)1Jy *** PRINT THE NUMBER ON THE BIG BALL ***N1(NM10):N2NMN110N10N1161282,L(NC):1283,N1176:1284,N2176V44,CO(NC)  *** CHECK FOR NUMBER ON THE CARDS ***NN0BO0<CD0: *** CARD LOOP ***XCR0: *** ROW LOOP ***rC(CD,NC,CR)NM1390AU12270 NN1: *** FOUND A MATCH *** *** PUT THE RED COVER-TOKEN ON THE NUMBER ***P1S(CD)CR80NC31(P1SS,8 2P11SS,8<P11,N2176,FP1,N1176OP1890: *** RING THE CHIME ***vZ2000: *** CHECK FOR A WINNER ***d1400nCR4CRCR1:1270xCD3CDCD1:1260NN01950: *** NO MATCH-SOUND THE GONG ***Y(NC)230V1NC2,Y(NC): *** SET INITIAL Y ***JBO0: *** NO WINNER-GET NEXT BALL ***A$:A$""1450: *** WINNER-WAIT FOR A RESTART ***V21,0:::150 *** MAKE THE BINGO SPRITES *** *** ZERO THE SPRITES MEMORY ***I03251,I64:252,57:253,63:254,00:28672:IH251,00:252,58:253,63:254,00:28672k *** SET UP TO ZERO SOUND ***251,00:252,212:253,24:254,00 *** READ IN THE BIG BALL SPRITE ***I04:J2246:SD(14592I64J),SD:: "I063:SD:14912I,SD:5,V21,63: *** ENABLE THE SPRITES ***@6I05R@2040I,228IsJ *** SET UP THE SPRITES ***TV39I,CO(I): *** SET THE SPRITE COLOR ***^X(I)145I12hY(I)230rX(5)156:Y(5)83: *** LARGE SPRITE LOCATION ***)|VI2,X(I): *** SET INITIAL X-POSITION ***SV1I2,Y(I): *** SET INITIAL Y ***ZIpV23,32:V29,32 *** READ IN THE BINGO SONG ***I021:FL(I),FH(I),DU(I):NC((1)5): *** SELECT THE BALL LETTER ***,YM((0)13):YM5YM5: *** GET THE MAXIMUM HEIGHT ***4J0IYJ22YMJ230n(VNC2),X(NC):(V1NC2),(Y)Y132: *** BALL WENT OVER PASS LINE ***J2YMJJ1:17601830: *** MAKE THE BALL PLOP SOUND ***1730: *** GET NEXT BALL ***+ *** SOUND OF THE BALL PLOP ***6&28672S0SS,255:SS1,93:SS5,2:SS22,104:SS23,1:SS24,79:SS4,129DSS24,0NX *** CHIME SOUND ***b28672lSS1,255:SS5,9:SS15,225:SS24,15vSS4,21TT1300::SS4,20, *** SOUR BONG SOUND ***728672`SS1,55:SS5,9:SS15,25:SS24,15mSS4,21TT1300::SS4,20:SS24,0 *** ROUTINE TO LOOK FOR A WINNER ***A13:A280:A30:A40WINC:2120: *** CHECK ROWS ***A180:A23:A30:A40<WICR:2120: *** CHECK COLS ***oNCCR2080: *** IS # ON MAJOR DIAGONAL? *** A10:A23:A30:A4802120 NCCR(4CR): *** IS # ON MINOR DIAGONAL? ****A10:A23:A30:A48042120>HWJ0% RWMS(CD)WIA1WJA2WJA3(4WJ)A412 \WP(WM)@ fWP128P pW(WJ)WMSSh zWJWJ1:WJ42130  *** CHANGE WINNERS COLOR *** WJ04:Q01:W(WJ)Q,7:::BO1  *** PLAY THE BINGO SONG ***!54296,15:54277,10:54278,10: *** SET VOL,ATT/DEC,SUS/REL ***H!I021:54272,FL(I):54273,FH(I):54276,33f!T0DU(I)4::54276,0:! *** CHANGE WINNERS COLOR ***!WJ04:Q01:W(WJ)Q,6:::BO1!! *** JOYSTICK TOKEN ROUTINE ***!CMF(CD) "OC(CM): *** OC=OLD COLOR ***7"CM,5:CM1,5: *** COLOR IT GREEN ***l" KB(D0): *** READ THE KEYBOARD CONTROL REG ***" D0,255:PD(D1)" J0((PD8)0)"$ J1((PD2)0)". J2((PD4)0)"8 J3((PD1)0)"B FB((PD16)0)#L D0,KB: *** RESTORE KEYBOARD ***$#V (J0J1J2J3FB)025603#` FB12490q#j CCCM(J0J2)3(J1J3)80: *** COMPUTE NEW POSITION ***#t FR((CCS(CD)SS)40)#~ X0S(CD)SSFR40:X1X014: *** COMPUTE NEW POSITION ***$ CCX1CCX0FR8FR02560: *** TEST IF OUTSIDE BOX ***9$ *** VALID NEW POSITION-MOVE THE CURSOR ***M$ CM,OC:CM1,OCq$ CMCC: *** MOVE THE CURSOR ***{$ 2290$ *** ACT ON FIREBUTTON-WE MUST CHECK IF THE CURSOR IS WITHIN A BOX AND$ IF IT IS, IS NUMBER THE COREECT ONE ***% B0(CMSS)48:B1(CMSS1)48D% B0N1B1N2B0N1128B1N11281290v% *** FIRE BUTTON PRESSED WHEN NOT ON BOX ***% CM,OC:CM1,OC:1950: *** SOUR GONG SOUND ***% NN1:1390: *** GET NEXT CARD ***% *** LOOP TILL JOYSTICK IS ACTIVE *** & I020:& CM,OC:CM1,OC,& I020:6&( 2300v&2 160,00,165,254,145,251,200,196,253,208,249,96,252,0,3,255&< 0,3,3,128,7,57,128,7,35,128,7,57,128,3,3,128,3,255,0,0,252,252,0'F 3,255,0,3,3,128,7,207,128,7,207,128,7,207,128,3,3,128,3,255,0,0,252N'P 252,0,3,255,0,3,25,128,7,25,128,7,41,128,7,49,128,3,57,128,3,255,0'Z 0,252,252,0,1,131,0,3,49,128,6,121,128,6,127,128,6,113,128,3,57'd 128,3,131,0,0,252'n 252,0,1,131,0,3,57,128,6,124,128,6,124,128,6,124,128,3,57,128,3,131(x 0,0,252J( 0,126,0,1,255,128,7,255,224,31,255,248,63,255,252,63,255,252,127,255( 254,120,0,30,248,0,31,248,0,31,248,0,31,120,0,30,127,255,254,63,255( 252,63,255,252,31,255,248,7,255,224,1,255,128,0,126,0,0,0,0,0,0,0,0%) 38,43,39,38,43,39,183,45,39,183,45,44,183,45,64,113,38,46,113,38,42k) 38,43,32,38,43,36,38,43,47,64,34,50,64,34,54,113,38,37,113,38,39) 113,38,51,64,34,57,83,32,53,168,25,72,204,28,54,83,32,51,64,34,62) 64,34,75)_)`15,8,15,"S0:BINGO":15:"0:BINGO",8