P :::::ZAP:::::BY J. D. ROSS:::::(C)-1984.07.27:::::DOCUMENTATION AVAILABLE:::::::::::::15 TEPEE COURT::::ALL RIGHTS TO COPY ARE RESERVED:::::::::::::WILLOWDALE, ONT:::SEE ALSO WORD GAMES: 1. LINK(::::::::::::: M 2 J 3 A 8 ::: 2. STACK<2:::::::::::::::::::::::::::::::dWD$(460),CW$(20),CR$(20),PW$(20),PR$(20),HI(41),LO(41):CL$"":XL$""iH(41),L(41):PL$"":AL$"AOETIPGNRUDYBSWLMHCFXKJVZ":BK$"":UP$""nCL0:XL0:7010:6010:CO$(9)""25)"BYJ. D. ROSS"4x17)" (C) - 1984.07.27 "VI1460:WD$(I)::"":3010pK0:X$"":(TL$)0KK1:K$(TL$,K,1):K(TL$)TL$X$:LK1(TL$):L$(TL$,L,1):K$L$1010:X$X$K$:1010 K0:X$"":(TL$)0!KK1:K$(TL$,K,1):K(TL$)TL$X$:?LK1(TL$):K$L$1040T:X$X$K$:1040u)K0:X$"":(TL$)0TL$L$:.KK1:K$(TL$,K,1):K(TL$)TL$L$X$:3LK1(TL$):K$L$10708:X$X$K$:1070LC0:K0:FL0:(TL$)0QKK1:K$(TL$,K,1):K39VL13:YL$(W$,L,1):K$YL$CC1E[:1105kjFL1:X1T1:CW$(T)CW$(X)FL0xo:T3tX1T1:Y13:W$(CW$(X),Y,1):Z13:X$(CW$(T),Z,1)yW$X$FL0~::: TL$W$:I1(LL$):L$(LL$,I,1):1035::W$TL$:- I1(W$):L$(W$,I,1):1035::S I1(W$):L$(W$,I,1):1065::o s" I'M HAVING A REST! " xLL$CL$:TL$W$:1165:W$TL$ TL$PL$:1190:PL$TL$ TL$AL$:1190:AL$TL$  TL$PL$:1215:PL$TL$: TL$XL$:1215:XL$TL$: I0' T7"JUST A MOMENT..."F T6T9"TRICKY HUMAN!"f T8"I'M GETTING CLOSE." II1:I(L$TL$)1540: FL0:P((L$TL$,I,1)):P881480 2010:JBE:W$WD$(J) K13:(W$,K,1)L$1520 FLCW$(T)W$:1130:FL K:J:1480; C0:FL0:M1(TL$):M$(TL$,M,1)l L13:X$(W$,L,1):M$X$CC1:C2FL1:v :: L$(PL$,1) X(PL$):X1X$PL$:PL$(X$,2,X1)(X$,1)  P65B1:E33 P66B34:E60 P67B61:E84 P68B85:E104' P69B105:E114= P70B115:E137S P71B138:E159i P72B160:E188 *P73B189:E198 4P74B199:E213 >P75B214:E219 HP76B220:E241 RP77B242:E256 \P78B257:E275 fP79B276:E293 pP80B294:E323/ zP82B324:E349E P83B350:E387[ P84B388:E414q P85B415:E418 P86B419:E426 P87B427:E444 P89B445:E456 P90B457:E460  FL0:P((W$,1)):P81P88"THERE IS NO SUCH WORD.":FL1:4 2010:MBE:WD$(M)W$FL1:< :ej PW$CW$(T)PW$(T)CW$P$" R":2420wo 1100:P$(C)t CO$(1)"# OF CORRECT LETTERS ="P$""G$:R$(P$,1): CO$(1)""N1$"'S WORD WAS "PW$"."  ""N2$"'S WORD WAS "CW$"."G$:8 2590:H$"":I$CO$(3)H$:H$CO$(1)H$ G$(1)" "H$""I$"  "H$" ":MS$" I'M YOUR REFEREE! " G$(2)" "H$" "I$"  "H$" ̭":B0 G$(3)" "H$" "I$"< "H$"":DW$""B G$(4)" "H$" "I$"  "H$" ":R(1)2:R(3)2w G$" "H$" "I$" < >"H$""CO$(3) I1324:G14:DW$IG)G$(G):CP0SO3,H(GB) CPT1,L(BG):T11,H(BG):T14,33 D130:D:R(G)2BB1! G:2560:I:DW$I)G$:2570:DW$4)MS$:Z JGIG3:Q(12(1)23):H(J)HI(Q):CPL(J)LO(Q)c J:w CP0SO3,0: 8210:8420: CP0SO3,0:SO,16:SO1,85:SO3,0:( SO23,21622 AD41610:SR81610< T16,SR:T15,ADd T13,27n T12,4#x SO24,51615) M CP6453280,8:53281,8:(31)t "";:11)" Z A P III " FT1:J110:S$: 12)" O P T I O N S " "1. PLAY A GAME WITH ME" "2. A GAME FOR TWO PLAYERS"" "3. (GET RULES FIRST!)":8310M "WHAT IS YOUR WISH? (1, 2 OR 3)";a S$:S$""3045~ AN(S$):AN1AN33045 AN:AN33710:3010 "PLEASE TYPE YOUR NAME & PRESS ." AN3070,3110 "YOUR NAME ..... ";N1$ N$N1$:3155:N1$N$I "I'M PLEASED TO MEET YOU, ";N1$;".":3310:PW$W$u "DO YOU WANT TO GO FIRST? (Y/N) "; R$:R$""3090 R$"Y""Y":3185:3410 R$"N":"N":3215:3460& "PLAYER ON THE LEFT";N1$+ N$N1$:3155:N1$N$:3310:PW$W$-0 "PLAYER ON THE RIGHT";N2$q5 N$N2$:3155:N2$N$:3310:CW$W$:"HI, ";N2$;" AND ";N1$;".": "WILL ";N1$;" TAKE FIRST TURN?Y/N ";? R$:R$""3135D R$"Y""Y":3185:3410I R$"N":"N":3215:3460S NA$N$"":LN(NA$)X J1LN6] (NA$,J,1)" "N$(N$,J1):3175<b Ng N$(N$,14):gq BL$" "v N3$N1$BL$:N3$(N3$,14){ AN2N4$BL$N2$:N4$(N4$,14):3205 N4$" ZAP":N2$"ZAP"  BL$" " N3$BL$N1$:N3$(N3$,14)9 AN2N4$N2$BL$:N4$(N4$,14):3235\ N4$"ZAP ":N2$"ZAP"b  2510:AN1" I NOW KNOW THE COMPUTER'S WORD. ":3340 AN2" YOUR OPPONENT MUST NOT PEEK! " W$"":" WHAT IS YOUR SECRET WORD ";W$V (W$)3"PLEASE USE 3 LETTERS! ":3350:3320 2310:FLDW$;:I15:" ":: " YOUR WORD IS NOT IN MY MEMORY. ":3350:3320 P(1):P(26(1)65):P81P883340. 2010:N((EB1)(1)B):CW$WD$(N):@ I12500::fR T120:3510:R$"R"2440:3910W AN14020:R$"R"2440:3910\ AN23610:R$"R"2440:3910a 6350::"IT'S A TIE!!!!!":2440:T20:3910  T120:AN14020:R$"R"2440:3960. AN23610:R$"R"2440:3960L 3510:R$"R"2440:3960| 6440::"IT'S A TIE!!!!!":2440:T20:3960 "YOUR GUESS, "N1$;:PW$(T) (PW$(T))3"PLEASE USE 3 LETTERS!":3510 W$PW$(T):2310:FLW$PW$(T):TL$CW$:2410:3530B "YOUR WORD IS NOT IN MY MEMORY.":"TRY ANOTHER.":3510Z R$"0"PR$(T)" 0"r R$"1"PR$(T)" 1" R$"2"PR$(T)" 2" R$"3"PR$(T)" 3" PW$(T)CW$R$"R":"CONGRATULATIONS, "N1$"!":"YOU TOOK"T"TURNS." R$"R"PR$(T)" R":CW$(T)" ":CR$(T)" "  B"YOUR GUESS, ";N2$;:CW$(T)t(CW$(T))3"PLEASE USE 3 LETTERS!":3610$W$CW$(T):2310:FLW$CW$(T):TL$PW$:2410:3630)"YOUR WORD IS NOT IN MY MEMORY.":"TRY ANOTHER.":3610.R$"0"CR$(T)" 0"3R$"1"CR$(T)" 1"/8R$"2"CR$(T)" 2"G=R$"3"CR$(T)" 3"BCW$(T)PW$R$"R":"CONGRATULATIONS, "N2$"!":"YOU TOOK"T"TURNS."GR$"R"CR$(T)" R":PW$(T)" ":PR$(T)" "L~CP6453280,7:53281,7:(0) ""11)" R U L E S "5"A.  ZAP IS A GUESSING GAME."a"B. WORDS WITH 3 LETTERS ARE USED.""C. LETTERS MAY NOT BE REPEATED.""D. ONLY COMMON WORDS ARE ALLOWED.""E. A  REFEREE WILL CHECK ALL WORDS"" AND REPORT RESULTS OF GUESSES."8" 0 = NO CORRECT LETTERS"\" 1 = 1 CORRECT LETTER"" 2 = 2 CORRECT LETTERS"" 3 = 3 CORRECT LETTERS"" R = CORRECT WORD""F. THE  REFEREE IS HONEST." " PRESS FOR GAME ". R$:R$""3840F R(R$):R133840L V F8310 G"  PLEASE CHOOSE 1, 2 OR 3: " H"1. SUMMARY 2. ANOTHER GAME 3. QUIT" KR$:R$""3915 LR(R$):R1R33915 MR16350:3911!OR2,!P"GOODBYE FOR NOW...":D1500::PR6!x8310g!y"  PLEASE CHOOSE 1, 2 OR 3: "!z"1. SUMMARY 2. ANOTHER GAME 3. QUIT"!}R$:R$""3965!~R(R$):R1R33965!R16440:3961!R2 ""GOODBYE FOR NOW...":D1500::PR")"T4(CL$)24055F"(CL$)34810:FL4890e"(CL$)24610:FL14710"PL(CL$)1L$CL$:TL$PL$AL$:1460:PL0:FL4410"(PL$)2W$(AL$,2):TL$AL$:1190:AL$TL$:PL$PL$W$#(XL$)2PL1:L$(PL$,1):TL$XL$:1460:FL4310@#P(1):T1"HMMM. LET'S SEE NOW...":4070X#"I'M THINKING..."|#P(26(1)65):P73P804070#2010:N((EB1)(1)B):CW$(T)WD$(N):T14120#1130:FL4120#4070$I110:R$::"MY WORD IS ..... "CW$(T):W$CW$(T):$""HOW GOOD WAS I? (0,1,2,3 OR R)":TL$PW$:2410d$@R$"0"CR$(T)" 0":1395:1440:4010$JR$"1"CR$(T)" 1":1395:1430:4010$TR$"2"CR$(T)" 2":1395:1430:4010$^R$"3"CR$(T)" 3":CL$CW$(T):4010#%hR$"R""THANKS FOR PLAYING.":PW$(T)" ":PR$(T)" ":4960Z%I110:R$::"MY WORD IS ..... "CW$(T):W$CW$(T)%"HOW GOOD WAS I? (0,1,2,3 OR R)":TL$PW$:2410%TL$PL$:1035:PL$TL$%R$"0"CR$(T)" 0":TL$XL$:1065:XL$TL$:PL0:4010+&R$"1"CR$(T)" 1":TL$CL$:1065:CL$TL$:PL1:"I THOUGHT SO.":4010b&:I110:R$::"MY WORD IS ..... "CW$(T):W$CW$(T)&?"HOW GOOD WAS I? (0,1,2,3 OR R)":TL$PW$:2410&XR$"1"CR$(T)" 1":1395:1440:4010&bR$"2"CR$(T)" 2":1395:1430:4010'lR$"3"CR$(T)" 3":CL$CW$(T):4010H'vR$"R"CR$(T)" R":"THANKS FOR PLAYING.":4960'FL0:FE0:PL$PL$AL$:AL$"":"I'M ALMOST THERE."' (PL$)0FL1:FE1:"ERROR!":'I0:FL0:L$(PL$,1):W$CL$L$'II1:I3XL$XL$L$:TL$PL$:1035:PL$TL$:4620( P((W$,I,1)):P8846359(*2010:LBE:X$WD$(L):C0Q(4M13:M$(W$,M,1)p(>N13:(X$,N,1)M$CC1(HN:M:C3CW$(T)X$:1130:FL(RL:4635(fFE6340(kI110:R$::"MY WORD IS ..... "CW$(T):W$CW$(T))p"HOW GOOD WAS I? (0,1,2,3 OR R)":TL$PW$:2410D)R$"2"CR$(T)" 2":1395:1440:4010m)R$"3"CR$(T)" 3":CL$CW$(T):4010)R$"R"CR$(T)" R":"THANKS FOR PLAYING.":4960)FE0:FL0:K0:X$"":"I'LL TRY AGAIN ....."*KK1:K3"SOMETHING IS WRONG.":FL1:FE1:%*L$(CL$,K,1):P(L$):2010>*LBE:X$WD$(L):C0V*M13:L$(X$,M,1)v*N13:(CL$,N,1)L$CC1*N:C3CW$(T)X$:1130:FL*M:L:4820*FE6340*I110:R$::"MY WORD IS ..... "CW$(T):W$CW$(T) +$"HOW GOOD WAS I? (0,1,2,3 OR R)":TL$PW$:2410>+BR$"R"CR$(T)" R":4960\+LR$"3"CR$(T)" 3":4010y+`"BOY, THAT FEELS GOOD!"+j"IT TOOK ME"T"TURNS."+tPW$(T)""PW$(T)" ":PR$(T)" "+~, ACE,ACT,ADE,ADO,ADS,AFT,AGE,AGO,AID,AIL,AIM,AIR,ALE,ALP>, AND,ANT,ANY,APE,APT,ARC,ARE,ARK,ARM,ART,ASH,ASK,ASP,ATEX, AUK,AWE,AWL,AXE,AYE, BAD,BAG,BAN,BAR,BAT,BAY,BED,BEG,BET,BID,BIG,BIN,BIT,BOA, BOG,BOW,BOX,BOY,BRA,BUD,BUG,BUM,BUN,BUS,BUT,BUY,BYE- CAB,CAD,CAM,CAN,CAP,CAR,CAT,CAW,CAY,COB,COD,COG,CON,COP<- COT,COW,COY,CRY,CUB,CUD,CUE,CUP,CUR,CUTz- DAB,DAM,DAY,DEN,DEW,DIE,DIG,DIM,DIN,DIP,DOE,DOG,DON,DOT- DRY,DUB,DUE,DUG,DYE,DUO- EAR,EAT,EGO,ELF,ELK,ELM,EMU,END,EON,ERA. FAD,FAG,FAN,FAR,FAT,FED,FEW,FIB,FIG,FIN,FIR,FIT,FIX,FLY.. FOB,FOE,FOG,FOP,FOR,FOX,FRY,FUN,FURl.  GAB,GAD,GAL,GAM,GAP,GAS,GAY,GEL,GEM,GET,GIB,GIN,GNU,GOB. GOD,GOT,GUM,GUN,GUT,GUY,GYM,GYP. HAD,HAG,HAM,HAS,HAT,HAY,HEM,HEN,HER,HEW,HEX,HID,HIM,HIP/( HIS,HIT,HEY,HIE,HOB,HOE,HOG,HOP,HOT,HOW,HUB,HUE,HUG,HUM/2 HUTF/< ICE,ICY,ILK,INK,IMP,ION,IRE,IRK,ITS,IVY/F JAB,JAG,JAM,JAR,JAW,JAY,JET,JIB,JIG,JOB,JOG,JOT,JOY,JUG/P JUT/Z KEG,KEY,KID,KIN,KIP,KIT/d LAB,LAD,LAG,LAP,LAY,LAW,LAX,LED,LEG,LET,LID,LIE,LIP,LIT0n LOB,LOG,LOP,LOT,LOW,LOX,LUG,LYEN0x MAD,MAN,MAP,MAR,MAT,MAY,MEN,MET,MID,MIX,MOB,MOP,MOW,MUDX0 MUG0 NAB,NAG,NAP,NAY,NET,NEW,NIB,NIL,NIP,NIT,NIX,NOB,NOD,NOG0 NOR,NOT,NOW,NUB,NUT0 OAF,OAK,OAR,OAT,ODE,OFT,OIL,OLD,ONE,OPT,ORB,ORE,OUR,OUT1 OVA,OWE,OWL,OWNB1 PAD,PAL,PAN,PAR,PAT,PAW,PAY,PEA,PEG,PEN,PER,PET,PEW,PIE1 PIG,PIN,PIT,PIX,PLY,POD,POT,POW,POX,PRO,PRY,PUB,PUG,PUN1 PUS,PUT1 RAG,RAM,RAN,RAP,RAT,RAW,RAY,RED,REV,RIB,RID,RIG,RIM,RIP2 ROB,ROD,ROE,ROT,ROW,RUB,RUE,RUG,RUM,RUN,RUT,RYE@2 SAC,SAD,SAG,SAP,SAT,SAW,SAX,SAY,SEA,SET,SEW,SEX,SHE,SHY~2 SIC,SIN,SIP,SIR,SIT,SIX,SKI,SKY,SLY,SOB,SOD,SON,SOP,SOT2 SOW,SOY,SOX,SPA,SPY,STY,SUE,SUM,SUN,SUP2 TAB,TAD,TAG,TAM,TAN,TAP,TAR,TAX,TEA,TEN,THE,THY,TIC,TIE$3 TIN,TIP,TOE,TOG,TON,TOP,TOW,TOY,TRY,TUB,TUG,TUX,TWO:3 UKE,URN,USE,UPS`3" VAN,VAT,VET,VEX,VIA,VIE,VIM,VOW3, WAD,WAG,WAN,WAR,WAS,WAX,WAY,WEB,WED,WET,WHO,WHY,WIG,WIN36 WIT,WOE,WON,WRY3@ YAK,YAM,YAP,YAW,YEA,YEN,YES,YET,YEW,YIP,YON,YOU4J ZAG,ZAP,ZIG,ZIP>4z6210:Z1$"    "4Z2$"      "4Z3$"     "4Z$(1)Z1$BK$Z2$BK$Z2$BK$Z3$45Z$(2)"ߒ ߒ ߒ ߒ ߒ ߒ ߒ ߒ"5P1$"  ߒ ߒ ߒ ߒ ߒ ߒ "5Z$(3)P1$" ߒ   "5CO$(6)"";:Z13:Z$(Z);:8020::58410:6110:C6GL$"ΣΣΣ"6GM$"ͤͤͤ"6BL$"            "7BM$"          ".7""20)CO$(1);\7I1(GL$GM$):(GL$GM$,I,1);:8210::|7""20)BL$BM$:D1500::7$I16:D1I150::""20)GL$GM$:D1150::7.""20)BL$BM$::7B"";7LN138:" ";:N7V"ߒ";8`N120:" ";:N8j"";68tN138:" ";:NB8~"";[8N120:" ";:Na8q8CP(158)8"  "8"  ";N3$;" TRY #";N4$;"  "8"  "9J1T:"  ";4);PW$(J);PR$(J);L9J108);J;7);CW$(J);CR$(J);4);" "x9J97);J;7);CW$(J);CR$(J);4);" "9 :"  ":83109CP(31)9N130J::9(CP(158):-"  "9:2"  ";N4$;" TRY #";N3$;"  "j:<"  ":FJ1T:"  ";4);CW$(J);CR$(J);:PJ108);J;7);PW$(J);PR$(J);4);" ":ZJ97);J;7);PW$(J);PR$(J);4);" "";d:"  ":83101;iCP(31)C;nN130J::|;b"":RR(213)1:X(50003):50003,0:Y(50003):CP0;v(142):Y160HP32768:SO59467:PR64790:SO1,12:7310;Y050003,X:CP64:53272,21:7090;Y0:X0:*<HP1024:PR64738:C153280:C253281:C1,0:C2,0:(158)e<SO53HP:"WORKING.....":T107SO:T217SO:T327SOq<NT1517<N141:FRNT(2(112)):HI(N)(FR256):LO(N)FRHI(N)256:NTFR:<I028:SOI,0:: =! WHT/GRN/BLU/LT.GRN/ORG--RED/LT.BLU/PURPLE/YEL/CYAN6=*C(1)5:C(2)30:C(3)31:C(4)153:C(5)129g=4C(6)28:C(7)154:C(8)156:C(9)158:C(10)159=>I110:CO$(I)(C(I))::="WORKING.....":A$"":B$BK$:C$BK$:D$BK$=SO3,0:NT188:N2335:FRNT2(112):HI(N)(FR):NTFR::>I110:CO$(I)""::>TCP80808>^SO1,0:SO,16:SO1,65o>hFZ202:SZ2Z24:SO3,255SF:N1SZ:::{>r:SO,0>|>Z1FQ2145>SO2,700255:SO3,700256>SO24,51615>SO23,15167>SO22,20016:SO21,20015?AD1161:UR6161&?T16,UR:T15,AD8?NSFQ:F110w?FRNS(2(124)):HI(FR256):LOFRHI256:H(F)HI:L(F)LO?N14:N3FQFR?T11,H(F):T1,L(F)?T14,641:Q1F::T14,64:NSFR:::? CP8240? SO,16:K(25(1)90)@ SO1,K:SO3,K:SO,0:7@0 F((226I)15):T15,1161d@5 SO24,F:T1,200I:T14,129:T14,128:q@v CP8360@ SO,16:SO1,51@ K1100:SO3,(255(1)1)::@ SO,0:@ T3,20:T34,128:SO24,143@ T16,240:T14,17:N5728*A K150:FQN(SO27)100:HF%FQ256:LFFQHF%256BA T1,LF:T11,HF%::NA CP0fA I028:SOI,0::