o53272,21:53281,6:53280,6:646,3: PROGRAMMED WINTER '86 BY V. MESSBARGER (AKA CHUCK THUNDERLIPS, ESQ.)"****************************************""*******************THE******************""*****************ZIMBAZI****************"6"******************BINGO*****************"h"*****************MACHINE****************""****************************************":10TD11000:TD  8:"PLEASE SELECT:":"A BINGO CARD PRINTER" "B BINGO PLAYING PROGRAM"& A$:A$""125 A$"A"16DA$"B"98L12"BINGO CARD GENERATOR/PRINTING SUBROUTINE""PLEASE ENTER NUMBER OF CARDS":"TO BE CREATED AND PRINTED:";NC "PLEASE CHECK THE FOLLOWING:":"(1)....PRINTER IS ON"7"(2)....PRINT HEAD IS AT TOP OF PAPER"\"(3)....YOU HAVE ENOUGH PAPER""(4)....PRINTER RIBBON IS WELL INKED""(5)....AUTO LINE FEED ON PRINTER IS OFF""(6)....AUTO LINE FEED ON INTERFACE IS ":7)"OFF"( " PRESS ANY KEY TO CONTINUE ": A$:A$""25 " CARDS PRINTED":" WORKING"  F$(6,12):R16:C112:F$(R,C):C:R " 111 "," 2222 "," 3333 "," 4 "," 5555 "," 66 ">!" 7777 "," 8888 "," 9999 "," 0000 "," FF "," EE "!" 11 "," 22 "," 33 "," 4 44 "," 55 "," 66 "!" 77 "," 8 88 "," 9 99 "," 0 00 "," F RRR"," E EE "" " 11 "," 22 "," 333 "," 4 44 "," 555 "," 6666 "Z"!" 77 "," 8888 "," 9 99 "," 0 00 "," FF R R"," EE E """" 11 "," 22 "," 333 "," 4444 "," 555 "," 66 6 ""#" 77 "," 8 88 "," 9999 "," 0 00 "," F RR "," E EE "/#$" 11 "," 22 "," 33 "," 44 "," 55 "," 66 6 "v#%" 77 "," 8 88 "," 99 "," 0 00 "," F R R"," EE E "#&" 1111 "," 2222 "," 3333 "," 44 "," 5555 "," 6666 "$'" 77 "," 8888 "," 99 "," 0000 "," R R"," EE "O$(B1$"* BBBBBBB ** IIIIIIII ** NN NN ** GGGGGG *"v$)B2$"* OOOOOO *":L1$B1$B2$$*B1$"* BBBBBBBB ** IIIIIIII ** NNN NN ** GGGGGGGG *"$+B2$"* OOOOOOOO *":L2$B1$B2$3%,B1$"* BB BB ** II ** NNNN NN ** GG GG *"Z%-B2$"* OO OO *":L3$B1$B2$%.B1$"* BBBBBBB ** II ** NN NN NN ** GG *"%/B2$"* OO OO *":L4$B1$B2$&0B1$"* BB BB ** II ** NN NN NN ** GG GGGG *">&1B2$"* OO OO *":L5$B1$B2$&2B1$"* BB BB ** II ** NN NNNN ** GG GG *"&3B2$"* OO OO *":L6$B1$B2$&4B1$"* BBBBBBBB ** IIIIIIII ** NN NNN ** GGGGGGGG *""'5B2$"* OOOOOOOO *":L7$B1$B2$m'6B1$"* BBBBBBB ** IIIIIIII ** NN NN ** GGGGGG *"'7B2$"* OOOOOO *":L8$B1$B2$'8S$"****************************************":S1$S$S$(9S$"* ** ** "@(:SS$" ** ** *":S2$S$SS$H(;62o(<NO(((0)151).01)NH:NO$(NO)(=LN((NO$,3,1)):RN((NO$,4,1)):(> C(5,10): CK(5):CR1NC:B15(?NH0:60:BC1B:NOCK(BC)63)@BC:CK(B)NO:C(B,1)LN:C(B,2)RN:B)AB158)BNH.15:60:BC1B:NOCK(BC)66`)CBC:CK(B)NO:C(B,3)LN:C(B,4)RN:Bk)DB15)ENH.30:60:BC1B:NOCK(BC)69)FBC:CK(B)NO:C(B,5)LN:C(B,6)RN:B)GB15)HNH.45:60:BC1B:NOCK(BC)72*IBC:CK(B)NO:C(B,7)LN:C(B,8)RN:B*JB15@*KNH.60:60:BC1B:NOCK(BC)75i*LBC:CK(B)NO:C(B,9)LN:C(B,10)RN:B*M4,4,1:4,(10)(10)(10)(10)(10)*N4,S1$(10):4,S2$(10):4,L1$(10)*O4,L2$(10):4,L3$(10):4,L4$(10)+P4,L5$(10):4,L6$(10):4,L7$(10)=+Q4,L8$(10):4,S2$(10):4,S1$(10)V+RR115:4,S2$(10)+SR216:CM110:NC(R1,CM):N0N10+TR13CM5N11+UR13CM6N12+VP$P$F$(R2,N):CM+W4,P$:4,S2$(10):P$""+XR2:4,S2$(10):4,S1$(10)&,YR1:CTCT1:4,(10)(10)(10)(10)G,Z4:(19)""(CT)"":CR,[" PRINTING COMPLETE ",\""(CT)" CARDS PRINTED",]8,^" UIT OR ENU "-_A$:A$""95-`A$"Q":!-aA$"M"23-b B$(75):105f-c" BINGO PLAYER "-d" LETTER NUMBER"-e"   "-f"PRESS  TO PICK NUMBER".g"  TO REVIEW CALLED NUMBERS"4.h"  TO END GAME":A.iRN0:99T.jA$:A$""106d.kA$"A"111t.lA$"B"128.mA$"C"150.n106.o115.pRN75(19)9)"ALL NUMBERS CALLED".qRN758:150.r.s112/tBG((1)751)C/u(19)"  "a/vBG0BG16BG$"B"(BG)/wBG15BG31BG$"I"(BG)/xBG30BG46BG$"N"(BG)/yBG45BG61BG$"G"(BG)/zBG60BG76BG$"O"(BG)/{QC1RN:BG$B$(QC)1160|QC:RNRN1:B$(RN)BG$M0}(19)""(BG$,1)" "0~(19)" "(BG)" "010601460"NUMBERS CALLED ARE:"0VN1RN0(B$(VN),1)"B"B$(VN)0VN0(19)"" 1VN1RN+1(B$(VN),1)"I"8)B$(VN)>1VN:(19)""K1VN1RNl1(B$(VN),1)"N"16)B$(VN)1VN:(19)""1VN1RN1(B$(VN),1)"G"24)B$(VN)1VN:(19)""1VN1RN1(B$(VN),1)"O"32)B$(VN)1VN:2129G2(19)" PRESS ANY KEY TO RETURN TO GAME"[2A$: A$""148h299:106q2129|2(19)2"XIT PROGRAM EW GAME AIN MENU "2A$:A$""1532A$"E":2A$"N":98 3A$"M":23153