8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L **********************; * BEACH.HEAD *X * BY GRAHAM FRAME *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC INC. *< * CONCORD, MA. 01742 *F ********************** P(104)64Ĺ103,1:104,64:16384,0:(4);"RUN BE հ6' $HAL7հ6հ6*BEACH.HEADL/հ- BEACH.SHAPESհհ/ATLANTIC.CONVOYհհ/ATLANTIC.SHAPESwհ հCARDSհ `հ SUITSհ bհ $IDOLf*հհ'QUINTICհ5 *QUINTIC.MLհ5`հ5.QUINTIC.SHAPESհ5հ5/QUINTIC.TEACHER)Oհ7 )WORD.FINDV$а7 * -CONCENTRATIONi հհ(M.SHAPES+հ@հ)BLACKJACKu#հ  /BLACKJACK.SHAPEoհ  հ -BRIDGE.BIDDER7հ  NIBBLE.YAGG) ' &QUASAR.BASIC Yа9 6 QUASAR.SHAPESEа9 а9 *QUASAR.OBJа9 @а9 &TRIVIA а6 а6 ,TRIVIA.FILER# а6 а6 -MATHEMAGICIAN- >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RACH.HEAD"K Z ACTUAL START OF PROGRAM AFTER LOADING ABOVE HI-RES SCREEN] d232,1:233,8 n(4);"BLOAD BEACH.SHAPES,A$801" x:10:15:"BEACH HEAD": 23:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":12 :12)"BY GRAHAM FRAME "6 A(12,2 STRUCTIONS?";:A$:1:868,A$"N"ė:63:1" DEEP IN THE ANDROMEDA NEBULA, A QUASAR HAS EXPLODED, SPREADING DEBRIS INALL DIRECTIONS."#:" YOUR MISSION IS TO ENTER THE NEBULA,CLEARING AS MANY QUADRANTS OF DEBRIS AS YOU CAN WITH20607,NUM |16368,0+ 23:1:8681 E ---INIT,PART 1f 20600,0:20601,0:Q1:S3:1w :::216,0 ::16:"QUASAR ]"(91): 3:12:"BY BRENT IVERSON":5:"** COPYRIGHT 1982 BY MICROSPARC, INC. **"7:6:"WOULD YOU LIKE INX:20496I,Y0 "X(1)SPD1:(1).5X256X? ,20512I,Xa 6Y(1)SPD1:(1).5Y256Yp @20528I,Y JX((1)61):X44170 T20544I,X:20560I,1 ^ h20584,127:20585,80:20586,0:20587,0 r20590,0:20599,0:20605,NUM:20606,0:S; NUM3Q:NUM15NUM158 SPDQ4:SPD4SPD4E I0NUMj ((1)41)4080,4090,4100,4110 X(1)24010:Y(1)55:4120 X(1)55:Y(1)14010:4120 X(1)24010:Y155(1)5:4120 X250(1)5:Y(1)14010 20480I,ADVANCING TO QUADRANT "Q;y (Q4)Q4TNE20604:SOUND17565:Z1200230:Z2110:TNE,255Z1:SOUND:::SS2:2000 ---INIT,PART 2 :22:1 "SCORE:";6);"QUADRANT:";6);"SHIPS LEFT:"; 7:(20600)(20601)256; 22:Q;:39: " 5000 4000" 16384: ((20606)2000,3000B 224Y ---SHIP DESTROYEDo SS1:22:39:S;z S0ı ::23:4:"WOULD YOU LIKE TO PLAY AGAIN?";:16368,0:A$ A$"N"ė: 22 ---QUADRANT CLEARED QQ1 23:8:" **********************; * QUASAR.BASIC *X * BY BRENT IVERSON *u * COPYRIGHT (C) 1982 * * BY MICROSPARC INC * * CONCORD, MA 01742 * ********************** (4)"BLOAD QUASAR.SHAPES":(4)"BLOAD QUASAR.OBJ:ZZ(16336):: SOUND9 FL1ĕ2XC,YC: EXPLOSIONST FL2ĕ2A(X,1),A(X,2)d Z1500:Zw FL1ĕ2XC,YC FL2ĕ2A(X,1),A(X,2) 0:1A(X,1),A(X,2) &3:A(X,1)0:A(X,2)0 0ST$(X)"KILLED" ::23 DFL1ĺ"MAN #";X;" KILLED BY:10# |"LEVEL OF DIFFICULTY:"> :"1) VERY DIFFICULT"Z "2) ALMOST IMPOSSIBLE" :"PLEASE ENTER YOUR CHOICE (1 OR 2) ";ZZ$ ZZ$"1"ZZ$"2"370 VV(ZZ$) 960 :  ** SUB-ROUTINES ** : ZZ(16336):ZZ(16336)((1)20)27)5:M(X,2)110$ X1 X1620X "M(X,1)(((1)8)47)5:M(X,2)110_ ,Xk 6X112 @ST$(X)"OK":PO$(X)"R":SH(X)1:G(X)2:FF(X)0:EE(X)0 JX TMG(1)((1)277)1: MACHINE GUN ^MG(2)40 hFL0:RG30:LL1:RR1:GG1 r),M(20,2),PO$(12),ST$(12),SH(12),G(12),FF(12),EE(12)] 20:10:"INSTRUCTIONS? (Y/N) ";X$n X$"Y"3080 X$"N"160 : ** SET VARIABLES ** : X15: MINES M(X,1)(((1)9)12)5:M(X,2)110 X X615 M(X,1)( THE THREE SHIPS ALLOTTED TOYOU."C:8)"TO MOVE"8)"TO FIRE"a8)"-------"8)"-------"u 11)"W"14)"I"11)"."14)"."9)"A...D"10)"J...L"(11)"."14)"."211)"X"14)","<:" EACH PARTICLE OF DEBRIS THAT YOU HITIS WORTH ONE POINT."6F:7)""PP16368,0:16384,128XZ: $ [ .nP oPpP W`PaP  `~P PP hPiP   1@ @ A DP|P D΁PPiĩP 1@ @ A DPP@LCP|P0PP`P 1@ @ A A D DPPP `8P}P 8LD`P`PPaP8oP`PL@C8pPaP gPLC gPLCzPzPPLB`zPzPP`PPaPPPgP8hP`PLC8iPaP gPL9D gPL9DzPzPPLTC`wP uPvP - `PuPaPvP wPzPPP}PxPixPyPiyPxPyP{P rPqPLvB{P rPqPLvB{PLBqPrPLvBjP0 BjPLB6jPLBkP0 %kPLBkPLBhPoPiPpPnPhPmjPhPiPmkPiP mkPiPLBɚ mkPiP lPmP   hPiP  `nP`zPzPPPgP- wPI|P D`nP`oPsPpPtPoPmqPoPpPmrPpPpP mrPpPL]Aɚ mrPpP sPtP WnPnP oPpP WnP|P D`hPlPiPmPɀLB{P{PkPLYB{PjPL>''%g-.'M '6>-5n$e,%8 " gL1 `P:(Q$,I,1)" "İ10303I::::J1150:J:ZK01:S(16336):K:J120:J:n <<< END >>> ERASE CLOCK,FLASH SCORE$12.N$"ILLITERATE"8TT399N$"DISADVANTAGED"BTT449N$"UNDER-ACHIEVER"LTT499N$"ALMOST 5 POINTS."LD$"TIME IS IMPORTANT, SO ANSWER QUICKLY, BUT CORRECTLY."tE$"YOU WILL HAVE SEVEN QUESTIONS."Q$A$:1000:Q$B$:1000:Q$C$:1000:Q$D$:1000:Q$E$:1000"PRESS TO CONTINUE:";:"";Y$::I1(Q$)(Q$,I,1);BA$"THE COMPUTER WILL ASK YOU A VARIETY OF QUESTIONS."B$"PRESS THE APPROPRIATE KEY TO SELECT THE CORRECT ANSWER (DO NOT PRESS )." C$"EACH QUESTION IS WORTH UP TO 100 POINTS,WHILE EACH INCORRECT RESPONSE WILL PENALIZE YOU 2>CH%(Q1,Q2)1RCRC1::RCRN1430:820<HCH%(Q1,Q2)1SR:F$"TRIVIA.QUES"\DOS$;"OPEN"F$",L800":DOS$;"READ"F$",R";Q1fI14:A$(I)::I14:Q$(I)::I14:C$(I):pDOS$;"CLOSE"F$zA(C$(Q21)) <<< INSTRUCTIONS >>> <<< CLOCK >>>1:22:9:" ";=TMTM1P22:TM10Ė11eTM100TM9Ė10tTM100Ė9TM0TM0TM;I01:S(16336): I1175: * <<< SELECT QUES >>>4Q1((1)(RN1)):Q2((1)4)+TTTM# :22:(32((TT))):TT) D> N <<< LOGO >>>D XJ b| l6:10:" ";:=>21 SPACES v10:10:" ";:=>21 SPACES 6:I610:10:" ":I 6:I610:31:" ":I 8:18:"TRIVIA"27440 390* (16384)A1765008 16368,0_ I145:BUZZ(16336)(16336):w TMTM25:TM0TM0 TM1400 :8:22:" 0 ";: (11A):5::A$(A) 550 :I12000:I QN 1040 & <<< SCORE >>> 0TT ,810% 64:14:"QUESTION #";QN> @22:8::" 100 ";:O JI13000:I] T16368,0q ^8:1:Q$(Q21) h12:I14:" ";I;". ";A$(I): rTM100:I0100:(16384)127440 |I:420 16368,0:690 690 TM0460 (16384)1 8:"-----";:28:"-----"< 8:" ";:28:" "B N QN17q 34,7:35,16:7::34,0:35,23w  6:" ";:=>40 SPACES 17:" ";:=>40 SPACES "  !:DOS$;"READ";F$:SN$:RN:DOS$;"CLOSE";F$A xRN1ER5:1400P CH%(RN,3) 590:20:"** COPYRIGHT 1985 BY MICROSPARC, INC. **":17:14:"INSTRUCTIONS?";:"";Y$ (Y$,1)"Y"170 910 TT0 20: 8:"CLOCK";:28:"SCORE"**********************9* TRIVIA *U* BY SCOTT JACKSON *q* COPYRIGHT (C) 1985 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************d:DOS$(4):1390, nF$"TRIVIA.INDEX":DOS$;"OPEN";F$INTELLIGENT"+VTT549N$"INTELLIGENT"M`TT599N$"VERY INTELLIGENT"ijTT649N$"BRILLIANT!"tTT674N$"GENIUS!!!"~35,18:1::22:8:" "::35,23:22:29:TT;:7:1A$"YOUR SCORE INDICATES AN INTELLIGENCE":B$"LEVEL OF :"?I1(A$):(A$,I,1);:(A$,I,1)" "1220YK01:S(16336):KhJ020:JoI::I1(B$):(B$,I,1);:(B$,I,1)" "1260K01:S(16336):KJ020:JII0500:I: I1(N$):(N$,I,1);:Y$"X"TTRN:RNI:1150::RNTT:8(Y$,1)"Y"820A 840J*730P4V>\HsR16368,0:34,21:\::" CHANGE: NSWER UESTION OK ":f"SELECT: ";Y1$p(Y1$,1)"A"İ480z(Y1$,1)"Q"İ550Y1$""ĉ:1010 RNY$(RN)Y$""Y$"0"3J(Y$):IJRNBRII:1210QRN1820m::15:"RECORD #";I::K14:K;"-> ";A$(K)::K14:"QUESTION #";K;" (ANSWER = ";C$(K);")"Q$(K)::"EDIT THIS GROUP? ( TO EXIT): ";Y$" :"NEW QUESTION #";Y$;":":"";Q$((Y$)):Q$((Y$))(Q$((Y$)),159)kb"NEW CORRECT ANSWER =";C$((Y$))l(C$((Y$)))1(C$((Y$)))4ĺ(7):610v:"INPUT STARTING RECORD NUMBER FOR REVIEW:""";Y$(Y$)0Y$"0" (Y$)16368,0& :"CHANGE ANSWER #";Y$3 Y$""ıS (Y$)1(Y$)4ĺ(7):500 :"NEW ANSWER #";Y$;":":"";A$((Y$)):A$((Y$))(A$((Y$)),35)  & 016368,0 ::"CHANGE QUESTION #";Y$ DY$""ı N(Y$)1(Y$)4ĺ(7):570EX368,0:34,21:F r::" CHANGE: NSWER UESTION OK ":Z |"SELECT: ";Y1$q (Y1$,1)"A"İ480 (Y1$,1)"Q"İ550 Y1$""ĉ:440 (7); 330 RNRN1::"SAVING THIS QUESTION GROUP:" 1150 1180    34,16:L "I14:"QUESTION #";I;":":"";Q$(I):Q$(I)(Q$(I),159)j ,"CORRECT ANSWER =";C$(I) 6(C$(I))1(C$(I))4ĺ(7);:300 @ J: TI14:I;"-> ";A$(I): ^I14:"QUESTION #";I;": (ANSWER = ";C$(I);")":Q$(I): h16$"3"ė: 130 | RN99ė:(7);(7):"QUESTION FILE HAS BEEN FILLED."::"PRESS TO CONTINUE: ";Y$: :"THIS WILL BE RECORD #";RN1;" OUT OF 99." I140:"-";: 4:I14:1:"ANSWER #";I;":":"";A$(I):A$(I)(A$(I),35):"$%&'()*0((SL$)2)):SL$:4:10:"--- TRIVIA FILER ---"W 7:" :1: INPUT QUESTION GROUP"y :" :2: EDIT QUESTION GROUP" :" :3: END" 20:"** COPYRIGHT 1985 BY MICROSPARC, INC. **":15:"SELECT OPTION: ";Y$ Y$"1"İ230 Y$"2"İ640 Y**********************9* TRIVIA.FILER *U* BY SCOTT JACKSON *q* COPYRIGHT (C) 1985 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************dDOS$(4)n1050x1120:1270:3 1:(2Q11RC0:840:12:16368,0:"ALL "(RN1)4" QUESTIONS HAVE BEEN ASKED.":"DO YOU WISH TO RESTART OR QUIT? (R/Q)";:K$:K$"R"ĺ:K$"Q"Ā1500TRIVIA.FILER' TO CREATE":"AT LEAST TWO QUESTION GROUPS BEFORE":"PLAYING 'TRIVIA'.":"ERROR #"ER" IN LINE "(218)(219)256:ROUTINE TO FIND UNUSED QUESTIONSQ11J10RNJ203CH%(J1,J2)1Q1J1:Q2J2:J1RN:J23(N$,I,1)" "13108K010:S(16336)(16336):KGJ020:JN(I^2:16368,0n<I0500:IF1:13:"ANOTHER TRY?";Y$P(Y$,1)"N"170Z:22:d ERROR TRAPnER(222)::12:ER22ĺ(4)"CLOSE"XxER5ĺ"YOU MUST USE '(7);,::15:"RECORD #";I:J:K14:K;"-> ";A$(K)::K14:"QUESTION #";K;" (ANSWER =";C$(K);")"Q$(K)::"EDIT THIS GROUP? ( TO EXIT): ";Y$(Y$,1)"X"ı(Y$,1)"Y"1010840:"SAVING THIS QUESTION GROUP:"-TTRN:RNI:1150:RNTT3IINDEX ERROR TRAPkER(222):ER22ĺDOS$"CLOSE"{$ER51320.(7):(7)8:"THERE ARE CURRENTLY NO QUESTIONS SAVED":"ON THIS DISK. PLEASE ENTER THE NAME":"TO BE USED TO LABEL THIS FIL IS 0 UNLESS YOU TAKE YOURTREASURES WITH YOU TO A SAFE PLACE."F u :"YOUR ANSWER--> ";Z$:Z(Z$):Z0200: MAIN PROGRAM GOES FROM 210 TO 990. THIS IS THE COMMAND ANALYZER. LINE 220 SENDS PROGRAM TO EDUCATIONAL SUBROUTINES THE FIRST TIME THE P(A$,(A$)L):100 S INV$"":I1I%:LOC%(I)100INV$INV$LDESC$(I)". [ : SC%0:I1I%:SC%SC%(TREASURE%(I)(LOC%(I)ROOM%LOC%(I)100))::"YOU HAVE "SC%" TREASURE";:SC%1ĺ"S";@ " OUT OF "TN%".":SC%0ROOM%3ĺ"BUT YOUR SCOREROOM%,I)0GO%(ROOM%,I)100ĺDIR$(I)" ";2 F: P"<-------------------------------------->";:35,24:34,(37):CL%CL%0::38 -'S Z24: d(A$)40B$A$:A$"":130 nJ4021:(A$,J,1)" "B$(A$,J1):LJ:J2 x B$:(A$)L0A$,./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST 34,0:35,10::A$"YOU ARE "ROOM$(ROOM%)".":100:A$"":I1I%:LOC%(I)ROOM%A$A$LDESC$(I)". " (:A$""ĺ"HERE YOU SEE-":100 2OK%0:I05:OK%OK%GO%(ROOM%,I)::OK%0ĺ"THERE ARE NO OBVIOUS EXITS.":80* <"OBVIOUS EXITS-":I05:GO%( *******11.28.84*******= * MATHEMAGICIAN *[ * BY DONALD NUTE *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC * * CONCORN, MA. 01742 * ********************** 3510 SUBROUTINES GO FROM 20 TO 200iE"::3410-,> R(W$(K)):C(W$(K)):33006,H 710v,R D$"CLOSE":8:"PRESS RETURN TO CONTINUE ";:SE$:::3300,\ EZ350,1140,710,f 350ER22ĺDOS$"CLOSE"<ER4ĺ"DISK WRITE PROTECTED":1330^ ER8ĺ"DISK I/O ERROR":1330{ER9ĺ"DISK FULL":1330ER10ĺ"FILE LOCKED":1330("ERROR #";ER" IN LINE ";(218)(219)2562:"PRESS ANY KEY TO RESTART":K$::110ė:"NO QUESTIONS ON THIS DISK."::"PRESS TO CONTINUE:";:"";Y$:DOS$;"OPEN TRIVIA.QUES,L800":DOS$;"READ TRIVIA.QUES,R";RIK14:A$(K)::K14:Q$(K)::K14:C$(K):DOS$;"CLOSE TRIVIA.QUES": ERROR TRAPER(222):"OPEN TRIVIA.QUES,L800":DOS$;"WRITE TRIVIA.QUES,R";RN:K14:A$(K)::K14:Q$(K)::K14:C$(K)::DOS$;"CLOSE TRIVIA.QUES"DOS$;"OPEN TRIVIA.INDEX":DOS$;"WRITE TRIVIA.INDEX":SL$:RN:DOS$;"CLOSE TRIVIA.INDEX"MRN1E:"B:"";Y$:Y$(Y$,38)LRN1:DOS$;"OPEN TRIVIA.INDEX":DOS$;"WRITE TRIVIA.INDEX":Y$:RN:DOS$;"CLOSE TRIVIA.INDEX"V110`jDOS$;"OPEN TRIVIA.INDEX":DOS$;"READ TRIVIA.INDEX":SL$:RN:DOS$;"CLOSE TRIVIA.INDEX"t~DOS$;LAYER ENTERS A LOCATION. CL%1:30:AGAIN%(ROOM%)ĴROOM%1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400AGAIN%(ROOM%)1:TURN%TURN%1:"-->COMMAND: ";A$::A$""ĺ"HUH? I DIDN'T HEAR THAT.":960PSPECIAL COMMANDS ARE ANALYZED IN LINES 240-640.lA$"BRIDGE CHASM"310ROOM%6(ROOM%5BD2)ĺ"THERE IS ALREADY A BRIDGE THERE.":230ROOM%5ĺ"WHAT CHASM?":230BD0ĺ"WITH WHAT? THE BOARD IS TOO SHORT.. ":LOC%(ITEM%)100:30:"OK":960= (A$,4)"DROP"860_*A$"DROP"ĺ"DROP WHAT?":9604((A$,5)"DROP ")950:B$(A$,(A$)5):I1I%:B$SDESC$(I)ITEM%I:II%>:ITEM%0950HLOC%(ITEM%)100ĺ"YOU CAN'T DROP WHAT YOU DON'T HAVE.":96I:II%:ITEM%0950[LOC%(ITEM%)ROOM%ĺ"I DON'T SEE WHAT YOU WANT HERE.":960LOC%(NEED%(ITEM%))0ĭLOC%(NEED%(ITEM%))100ĺ"YOU CAN'T.":960 (INV$)(LDESC$(ITEM%))250ĺ"YOU CAN'T CARRY ANY MORE.":960$INV$INV$LDESC$(ITEM%)"I)A$(DIR$(I),1)T%GO%(ROOM%,I):GO%1:I5b:GO%(T%0T%100)ĺ"YOU CAN'T GO "A$".":960yGO%ROOM%T%:220ITEM%0:(A$,3)"GET"800A$"GET"ĺ"GET WHAT?":960((A$,4)"GET ")950:B$(A$,(A$)4):I1I%:B$SDESC$(I)ITEM%A$,3)"INV")680:INV$""ĺ"YOU HAVE NOTHING WORTH MENTIONING.":960x"YOU HAVE THE FOLLOWING.":A$INV$:100:960GO%0:(A$,2)"GO"GO%1:T%0:(A$,3,1)" "(A$)4ĺ"GO WHICH DIRECTION?":960.A$(A$,(A$)3(GO%1)):T%0:I05:A$DIR$(8XLOC%(5)100ĺ"YOU HAVE NOTHING TO HOLD IT.":230tbLDESC$(5)"VASE WITH MAGIC WATER IN IT":"OK":150:230zlv COMMANDS COMMON TO MOST ADVENTURES ARE ANALYZED IN LINES 650-950. LINES 210 AND 220 ARE ALSO COMMON.G(A$"I"(O TOUGH!":230b:(A$"GO CAVE"ROOM%3)(A$"GO DOOR"ROOM%17DR)ROOM%412(ROOM%17):220D(A$"GO ROPE"ROOM%17RP)(A$"GO GATE"ROOM%19GT)ROOM%119(ROOM%19)(ROOM%20):220NA$"GET WATER"660:LOC%(13)ROOM%ĺ"WHAT WATER?":230G(A$,4)"SWIM"ROOM%9ĺ"YOU DIDN'T BRING YOUR SWIM SUIT.":230&(A$,4)"JUMP"(A$,5)"CLIMB"ĺ"YOU'LL FALL.":2300(A$"BREAK CHEST"ROOM%15)(A$"BREAK CASE"ROOM%18)(A$"BREAK DOOR"ROOM%17)(A$"BREAK GATE"ROOM%20)ĺ"OUCH! IT'S TO:230?LOC%(9)100ĺ"YOU DON'T HAVE THE RIGHT KEY.":230wGO%(20,2)21:30:"OK. THE GATE IS OPEN.":GT1:230GM$""A$GM$530:ROOM%1:220((A$,10)"UNTIE ROPE"(A$,10)"UNTIE KNOT")ROOM%18ĺ"YOU CAN'T. THE KNOTS ARE MAGICAL.":230230)DRĺ"IT'S ALREADY OPEN.":230cLOC%(12)100ĺ"YOU DON'T HAVE THE RIGHT KEYS.":230GO%(17,3)16:30:"OK. THE DOOR IS OPEN.":DR1:230A$"OPEN GATE"A$"UNLOCK GATE"520:ROOM%20ĺ"WHAT GATE?":230GTĺ"IT'S ALREADY OPEN.""CUT ROPE"440:ROOM%18ĺ"WHAT ROPE?":230ULOC%(15)100ĺ"WITH WHAT?":230}KNĺ"THE KNIFE IS TOO DULL.":230"OK":LDESC$(14)"A SMALL JADE STATUE":30:NEED%(14)0:230A$"OPEN DOOR"A$"UNLOCK DOOR"480:ROOM%17ĺ"WHAT DOOR?":LIFF ABOVE.":30:230|(A$,11)"PUSH BUTTON"(A$,12)"PUNCH BUTTON"(A$,10)"HIT BUTTON"(A$,12)"PRESS BUTTON"400:PUSHSET:SETĺ"NOTHING HAPPENS.":230LOC%(10)15:30:"THE CHEST OPENS. INSIDE IS A BLUE SAP- PHIRE.":230/(A$,8)"WAVE WAND"380:LOC%(2)100ĺ"WHAT WAND?":230^hROOM%17RPĺ"NOTHING HAPPENS.":230rRP1:GO%(1,5)17:GO%(17,4)1:ROOM$(17)ROOM$(17)". A ROPE HANGS OUTSIDE THE CAVE":ROOM$(1)ROOM$(1)". A ROPE HANGS TO A CAVE BELOW":"A ROPE DROPS FROM THE C WATER.":230JROOM%18ROOM%19ĺ"THAT WAS DELICIOUS, BUT I FEEL DIZZY ANDI CAN'T SEE CLEARLY. PRESS RETURN AND SEE IF THAT HELPS. ";:A$:ROOM%18:220T"AHHH! HERE WE GO AGAIN! PRESS RETURN.";:A$:ROOM%R(17)(R(10)5)(2R(6)):2203^A$":230-"LOC%(3)100ĺ"WITH WHAT?":230,BD2:GO%(5,2)6:LOC%(3)0:"OK. YOU PLACE THE BOARD ACROSS THE CHASMAND IT BECOMES A WIDE, SAFE BRIDGE.":30:150:2306A$"DRINK WATER"350@(LOC%(5)100(LDESC$(5),1)"T")ROOM%9ĺ"YOU HAVE NO0-RLOC%(ITEM%)ROOM%:150:30:"OK":960\(A$"L"(A$,6)"SEARCH"(A$,4)"LOOK")920:OK%0:I05:GO%(ROOM%,I)100GO%(ROOM%,I)GO%(ROOM%,I)100:OK%1f:OK%İ30:"YOU FOUND ANOTHER EXIT!"pKO%0:I1I%:LOC%(I)100ROOM%LOC%(I)ROOM%:KO%1:z:KO%İ30:"YOU FOUND A HIDDEN OBJECT!":960GOK%960q"I DON'T SEE ANYTHING UNUSUAL.":960A$"HELP"ĺHELP$(ROOM%):960A$"SCORE"İ170:960A$"QUIT"İ170:"DO YOU REALLY WANT TO QUIT? ";:B$:B$:B$"Y"960::A$SSAGEON THE PEDESTAL SAYS THE VASE WAS "X:"YEARS OLD WHEN THE LAST UNICORN DIED. THE LAST UNICORN DIED "Y" YEARS AGO. HOW":"OLD IS THE VASE?":200,TZXYĺ"YES, IT'S "XY" YEARS OLD.":-^"NO, TO GET THE AGE OF THE VASE YOU MUST ADD "X" AND "Y",AMONG "X:"GNOMES IS "Y" EMERALDS EACH.":LOC%(4)0:30:"THE GNOMES TAKE THEIR EMERALDS TO LOOK FOR SOMEONE ELSE TO HELP THEM WITH THEIRPROBLEM.":++++"+,+6+@X200R(50):Y350R(50),J"THE VASE IS ON A PEDESTAL, AND A ME(20)*"HERE YOU FIND "X" GNOMES TRYING TO DIVIDE":XY" EMERALDS BETWEEN THEM. THEY ASK YOU":"HOW MANY EMERALDS EACH SHOULD HAVE.":200*ZYĺ"THAT'S RIGHT. THE GNOMES LEAVE ONE EMER-ALD EACH FOR YOU AND LEAVE.":+"NO, "XY" EMERALDS DIVIDED X" MINUS "Y" FEET PLUS TWO FEET":"IS "XY2" FEET TOO SHORT.":)BD1:LDESC$(3)"A LONG BOARD":30:"VERY GOOD, MATHEMAGICIAN! THE BOARD GROWS AND IS NOW LONG ENOUGH TO BRIDGE THE CHASM.":))))))*X5R(4):Y20RASM, THE BOARD WOULD HAVE TO BE TWO FEET LONGER THAN THE CHASM IS WIDE. HOW MUCH TOO SHORT IS THE BOARD?":200B)ZXY2ĺ"NO, YOU NEED TO SUBTRACT THE LENGTH OF THE BOARD FROM THE WIDTH OF THE CHASM AND THEN ADD TWO FEET TO REST ON EACH SIDE. "Y. THE LITTLE FAIRY THANKS YOU, LAYS HER WAND DOWN IN FRONT OF YOU, AND FLIES AWAY.":LOC%(2)4:30:l'<r'Fx'P~'Z'd'n'xX30R(10):Y1R(10)r("THE CHASM IS "X" FEET WIDE AND THE BOARD":"IS ONLY "Y" FEET LONG. TO BRIDGE THE":"CHHER?":200&(ZXYĺ"NO, "X" RATS PLUS "Y" BATS MAKES "XY:"MEAN LITTLE CRITTERS. THE FAIRY FLIES AWAY DOWN THE TUNNEL TO THE WEST WITH ALL THE BATS AND RATS IN PURSUIT. SOME HELP YOU ARE!":f'2"THAT'S RIGHT. YOU SCARE THE BATS AND RATS AWA%I%: NO EDUCATIONAL SUBROUTINE FOR ROOM OR LOCATION NUMBER 3.O%U%[%a%g%m%s%y%% %X20R(20):Y30R(20) &"A LOVELY LITTLE FAIRY IS BEING ATTACKED BY "X" RATS AND "Y" BATS. HOW MANY":"NASTIES ARE AFTER ARE FRIGHTENED WHEN THEY SEE YOU AND RUN AWAY, LEAVING THEIR GOLD BEHIND.":$j"NO, "X" PIECES OF GOLD PLUS "Y" PIECES":"MAKES "XY" PIECES OF GOLD. THE LEPRE-":"CHAUNS RUN AWAY WITH THEIR GOLD.":LOC%(1)0:30:$t$~$$%#B$#LX50R(20):Y30R(20)#V"YOU MEET TWO LEPRECHAUNS, EACH WITH A POT OF GOLD. THE FIRST HAS "X" PIECES OF":"GOLD AND THE SECOND HAS "Y" PIECES. HOW":"MANY PIECES DO THEY HAVE BETWEEN THEM?":200W$`ZXYĺ"THAT'S RIGHT. THE LEPRECHAUNS FEET MINUS "Y" FEET, OR "XY" FEET.":""THAT'S RIGHT. YOU DISCOVER A ROPE HANG- ING FROM THE TOP OF THE CLIFF TO THE CAVE BELOW.":RP1:GO%(1,5)17:ROOM$(17)ROOM$(17)". A ROPE HANGS OUTSIDE THE CAVE":GO%(17,4)1:30:"""$".#8 A CAVE IN THE SIDE OF THE CLIFF "Y" FEET FROM THE TOP. HOW FAR":"IS THE CAVE FROM THE BOTTOM OF THE CLIFF?":200("ZXYĺ"NO, THE HEIGHT OF THE CAVE IS THE HEIGHTOF THE CLIFF MINUS THE DISTANCE FROM THECAVE TO THE TOP OF THE CLIFF. THAT'S "X"LVING NUMBER OF TURNS (TURN%) BEFORE RETURNING TO LINE 230B  SPECIAL EDUCATIONAL SUBROUTINE FOR LOCTION N IS LOCATED IN LINES N*100+900 TO N*100+990 230 X100R(50):Y30R(40){!"IT IS "X" FEET TO THE BOTTOM OF THE":"CLIFF. THERE IS"I DON'T UNDERSTAND '"A$"'.":100:"SOME WORDS I KNOW ARE:":"VERBS:","NOUNS:":"GO","WAND":"GET","WATER":"DROP","VASE":"SEARCH","LADDER":"HELP","CHEST":"OPEN","RING":"BRIDGE","CHASM":"DRINK","GATE"::990< USE LINES 960-980 FOR ROUTINES INVO SO THE VASE IS "XY:"YEARS OLD. OOPS! YOU KNOCKED IT OFF THE PEDESTAL AND IT BROKE INTO AT LEAST "XY:"PIECES!":LOC%(5)0:30:-h-r-|----X13R(8):Y55R(10)."THIS IS A VERY LARGE ROOM WITH AN ENOR- MOUS STATUE IN IT. THE STATUE IS OF A GIRL HOLDING A DIAMOND OVER HER HEAD. THE BASE OF THE STATUE IS "X" FEET HIGH":"AND THE DIAMOND IS "Y" FEET ABOVE THE"$/"BASE. ON THE FLOOR IS A TINY LADDER. HOWLONG WOULD THE LADDER HAVE TO BE TO REACH FROM THE FLOOR OF ROPE. THERE ARE "XY" KNOTS.":*< 0< 6< << B< H< b< X10R(5):Y25R(7)< "THE HILT OF THE KNIFE IS "X" CENTIMETERS":"LONG AND THE BLADE IS "Y" CENTIMETERS.":"HOW MANY CENTIMETERS LONG IS THE KNIFE?":200= ZXYĺ"GOOD.": JADE STATUE. THE CASE IS BOUND SHUT WITH "X" MAGIC ROPES":"AND EACH ROPE IS TIED WITH "Y" KNOTS.":"HOW MANY MAGIC KNOTS ARE THERE?":200; ZXYĺ"THAT'S VERY GOOD.":KN1:$< "YOU NEED TO MULTIPLY THE NUMBER OF ROPESBY THE NUMBER OF KNOTS IN EACH S RIGHT. THE SMURFS ALL RUN AWAY LAUGHING AND LEAVE THE KEYS BEHIND.":NEED%(12)0::F "NO, "XY" SMURFS DIVIDED INTO "X" TEAMS":"PUTS "Y" SMURFS ON EACH TEAM."::P :Z :d :n :x : : X4R(5):Y4R(5); "IN A CRYSTAL CASE IS A 9( X5R(4):Y11R(8)92 "THERE ARE "XY" SMURFS HERE PLAYING A":"GAME WITH A SET OF KEYS. THE SMURFS ARE DIVIDED INTO "X" TEAMS AND ARE THROWING":"THE KEYS FROM ONE TEAM TO ANOTHER. HOW MANY SMURFS ARE ON EACH TEAM?":200W:< ZYĺ"YES, THAT' DO ALL THE":"RUBIES WEIGH TOGETHER?":200H8 ZXYĺ"VERY GOOD.":8 "NO, "Y" RUBIES TIMES "X" OUNCES EACH IS":XY" OUNCES. OH, NO! A DWARF RAN INTO":"THE ROOM, GRABBED THE RUBIES, AND RAN AWAY!":LOC%(11)0:30:8 8 8 8 8 9"X" ROWS IS":Y" BUTTONS IN EACH ROW.":07 67 <7 B7 H7 N7 g7 X11R(8):Y6R(6)-8 "THERE ARE "Y" LARGE RUBIES HERE, ALL THE":"SAME SIZE. THERE IS A SCALE AND ONE OF THE RUBIES IS ON THE SCALE. IT WEIGHS "X"OUNCES. HOW MANY OUNCES.":LOC%(9)0:30:6$ 6. &68 ,6B 26L 86V R6` X11R(8):Y40R(9)6j "ON THE CHEST ARE "XY" BUTTONS DIVIDED":"INTO "X" ROWS. HOW MANY BUTTONS ARE IN":"EACH ROW?":2006t ZYĺ"THAT'S RIGHT.":SET1:*7~ "NO, "XY" BUTTONS DIVIDED BY ARE IN THE COLUMN?":200t5 ZXYĺ"YES, THAT'S CORRECT. THE ANTS PUT DOWN THE KEY AND MARCH OFF.":NEED%(9)0:6 "NO, YOU NEED TO MULTIPLY "X" COLUMNS BY":Y" ANTS IN EACH COLUMN. THE CORRECT AN-":"SWER IS "XY" ANTS.":"THE ANTS CARRY THE KEY AWAYER IS "X" FEET MINUS "Y:"FEET, OR "XY" FEET.":94?4E4K4Q4W4q4X5R(4):Y15R(10)5 "A COLUMN OF ANTS MARCHES BY CARRYING A LARGE KEY. THERE ARE "X" ROWS OF ANTS IN":"THE COLUMN AND "Y" ANTS IN EACH ROW.":"HOW MANY ANTS 4 3>3H3R3\#3f)3p/3z53;3W3X50R(50):Y30R(20)3"YOU GO UP "X" FEET AND DOWN "Y" FEET.":"HOW MANY FEET HIGHER ARE YOU THAN WHEN YOU STARTED?":2003ZXYĺ"THAT'S RIGHT.":LOC%(8)113:34"THE CORRECT ANSWDOWN TO THE POOL. "X" FEET PLUS "Y:"FEET IS "XY" FEET.":"THE SPRING STOPS FLOWING.":LOC%(13)0:30:o2:u2D{2N2X2b2l2v222222222222222 22 2*3"POOL. A MAGIC SPRING OF WATER FALLS FROM";r1"THE CEILING TO THE POOL. HOW FAR DOES THE WATER FALL?":2001&ZXYĺ"THAT IS EXACTLY RIGHT.":NEED%(13)5:i20"TO GET THE ANSWER, YOU NEED TO ADD THE DISTANCE UP TO THE CEILING TO THE DIS- TANCE SE, AND THAT'S "XY" FEET.":%0+01070=0Y0X40R(10):Y30R(20).1"THE CEILING OF THIS CAVERN IS "X" FEET":"OVER YOUR HEAD, AND THERE IS A HOLE IN THE FLOOR OF THE CAVERN WITH A POOL AT THE BOTTOM. IT IS "Y" FEET DOWN TO THE":THE CAVERN TO THE DIAMOND?":200/ZXYĺ"BEFORE YOU CAN SAY LONG DIVISION, THE LADDER GROWS TO EXACTLY "XY" FEET!":LDESC$(7)"A LONG LADDER":30:NEED%(6)7:0"NO, YOU MUST ADD THE HEIGHT OF THE BASE TO THE HEIGHT OF THE DIAMOND ABOVE THE BA}= "YOU MUST ADD THE LENGTH OF THE HILT AND THE LENGTH OF THE BLADE TO GET THE TOTALLENGTH OF "XY" CENTIMETERS.":KN0:= =" =, =6 =@ =J =T X20R(9):Y10R(5)^>^ "THE GATE IS IN THE SOUTH WALL OF THE ROOM. IT HAS "X" BARS IN IT, AND "Y" OF":"THESE HAVE SHARPENED EDGES. HOW MANY OF THE BARS ARE NOT SHARPENED?":200>h ZXYĺ"THAT'S RIGHT, SO BE CAREFUL NOT TO CUT YOURSELF.":KEY1:J?r "NOT SO. YOU NEED TO SUBTRACT "Y", THE":"NUMBER OF SHARPENED BARS, FROM "X",":"THE TN. YOUHAVE LEARNED THAT NUMBERS HAVE MAGICAL POWERS AND CAN BE USED TO CONTROL THE WORLD AROUND YOU. NOW YOU WILL PUT YOUR POWERS TO THE TEST.":fM8"YOU HAVE COME TO THE CAVE OF THE WEE CREATURES. INSIDE THE CAVE ARE TREASURESGUARDED BY MAGICAL SPSTION.":K$"WHEN ASKED FOR A COMMAND, YOU CAN CHANGELOCATION BY ENTERING JUST THE FIRST LET-TER OF THE DIRECTION YOU WISH TO GO - SAY D FOR DOWN. THIS SAVES TYPING.":24:6:"PRESS RETURN TO CONTINUE. ";:A$:L."YOU ARE AN APPRENTICE MATHEMAGICIAETURN TO CONTINUE. ";:A$: K"SOMETIMES WHEN YOU ENTER A NEW LOCATION YOU MAY BE ASKED A QUESTION. WATCH FOR THESE QUESTIONS AND ANSWER THEM CAREFUL-LY. RIGHT ANSWERS WILL HELP YOU FIND THETREASURES. YOU CAN'T GIVE A COMMAND UN- TIL YOU ANSWER THE QUEETIMES UNCOVER HIDDEN OBJECTS OR GIVEVALUABLE CLUES."lI I1RM%:ROOM$(I),HELP$(I):J05:GO%(I,J)::I I%0āI1I%:LDESC$(I),SDESC$(I),LOC%(I),NEED%(I),TREASURE%(I):II1RM%:HELP$(I)"0"HELP$(I)"OK - HOW?"J:ROOM%1:24:6:"PRESS R YOU WILL ENCOUNTER AND WHICH YOU MAY BE ABLE TO MANIPULATE BY GIVING ME THE RIGHT COMMANDS. BUT MY VOCABULARY ISLIMITED. IF ONE WORD DOESN'T WORK, TRY ANOTHER.":7I "DON'T FORGET TO TRY THE SEARCH AND HELP COMMANDS FROM TIME TO TIME. THEY WILL SOMG "YOU ARE ABOUT TO BEGIN A GREAT ADVEN- TURE. TO PARTICIPATE IN THIS ADVENTURE, YOU MUST GIVE ME COMMANDS OF ONE OR TWO ENGLISH WORDS. I UNDERSTAND GO, HELP, SEARCH, GET, DROP, AND OTHER VERBS. I"H "ALSO KNOW THE NAMES OF SEVERAL OBJECTS WHICHDIR$(I)::NORTH,EAST,SOUTH,WEST,UP,DOWNF A$,RM%,I%,TN%:ROOM$(RM%),GO%(RM%,5),HELP$(RM%),AGAIN%(RM%),LDESC$(I%),SDESC$(I%),LOC%(I%),NEED%(I%),TREASURE%(I%)G ::20((A$)2):A$:13)"BY DONALD NUTE"::"** COPYRIGHT 1984 BY MICROSPARC, INC. **" MINUTE IS 60 SECONDS, DIVIDED BY "X:"SWINGS PER MINUTE IS "60X" SECONDS PER":"SWING. SOMEONE IS PULLING THE CORD UP THROUGH THE HOLE IN THE CEILING! IT'S GONE!":LOC%(18)0:30:Ep Ez E E E E E PROGRAM START-UP*F I05: HANGS FROM A HOLE IN THE CEILING. IT IS SWINGING BACK AND FORTH "X" TIMES EACH":"MINUTE. HOW MANY SECONDS DOES IT TAKE FOR THE RING TO SWING BACK AND FORTH ONCE?":200D\ Z60Xĺ"YES. THE CORD BREAKS AND THE RING FALLS TO THE FLOOR.":Ef "A" FEET.":LDESC$(16)"A WORTHLESS PICTURE":3CD 9CN ?CX ECb KCl QCv WC ]C cC iC oC uC {C C C C C C C C C C C C* C4 C> CH X2R(4)DR "THE RING IS ATTACHED TO A CORD WHICHE NORTH WALL?":200gB0 ZXYTREASURE%(16)1:"YES, YOU'RE RIGHT. THE PICTURE LOOKS VALUABLE.":-C: "THE LENGTH OF THE NORTH WALL EQUALS THE DISTANCE FROM THE EAST WALL TO THE PIC- TURE PLUS THE DISTANCE FROM THE WEST WALL TO THE PICTURE, OR "XYEARS HE":"LIVED AFTER HE MARRIED. THE GOLDEN MEAN IS "XY".":GA MA SA YA _A eA A X20R(9):Y15R(9)B& "THE PICTURE IS ON THE NORTH WALL, "X:"FEET FROM THE EAST WALL AND "Y" FEET":"FROM THE WEST WALL. HOW MANY FEET LONG IS THTH NO WIFE AND "Y" YEARS WITH A WIFE.":"WHAT IS THE GOLDEN MEAN?":200@ ZXYĺ"THAT'S RIGHT. REMEMBER THE GOLDEN MEAN.":GM$(XY):AA "NO. TO DISCOVER THE GOLDEN MEAN, YOU MUST ADD THE "X" YEARS BILDAR LIVED BE-":"FORE HE MARRIED TO THE "Y" YOTAL NUMBER OF BARS, TO GET "XY", THE":"NUMBER OF UNSHARPENED BARS.":P?| V? \? b? h? n? ? X20R(9):Y40R(9)I@ "THE PLAQUE ON THE WALL SAYS-":"BILDAR THE WISE, WHOSE LIFE REACHED THE GOLDEN MEAN IN YEARS, LIVED "X" YEARS":"WIELLS AND SMALL MAG-ICAL CREATURES. YOU WILL USE YOUR POWERSTO TRY TO WIN THE TREASURES OF THE CAVE."}MBR(X)((1)X)1ML23:4:"PRESS RETURN TO BEGIN ADVENTURE.":16368,0MVX(16384):Y(1):X128āI120::3670M`16368,0:220NjLINE 3700 CONTAINS NAME OF ADVENTURE, NUMBER OF ROOMS OR LOCATIONS, NUMBER OF OBJECTS, AND NUMBER OF TREASURES. DATA FOR LOCATION N IS FOUND IN LINE 3700+10*N IN THE ORDER: DESCRIPTION; HELP MESSAGE; NEXT ROOM N, E, S, W, U, D NtMATHEMAGICIAN,25,18,10GO~ X V S Z B L E G" 8 12)"H U Q W O R D G T V"> ] 12)"H P L A S Q I W L N"c  12)"T O Z F I N D B I T"  "12)"B R Y I S G W J O P" , 612)"G J R I M X Q Z S C" @XX1 JH11000::X3ī100 T24:"PRESS UWXYZ[\]^_`abcdefg+P:3300 ZD$(4)L d::"** COPYRIGHT 1983 BY MICROSPARC, INC. **"T n11g x18:"W O R D"o 15 18:"F I N D" 15 22:6:"-- BE SURE CAPS LOCK IS DOWN --" H11000: 7 12)"S T D J W B O V S P"  12)"R B% **************************I * WORD.FIND *m * BY DAVID E. FAHNESTOCK *( * COPYRIGHT (C) 1983 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 * F ************************** ROPES,STATUE,18,14,16W6A SMALL KNIFE,KNIFE,19,0,0ZW@A SMALL PICTURE,PICTURE,22,0,0uWJA TOPAZ,TOPAZ,124,0,1WTAN ELECTRUM RING,RING,25,0,1W^PUT DATA FOR ADDITIONAL INITIALIZATION ROUTINES HERE. TINY LADDER,LADDER,8,0,0:VA SILVER BAR,SILVER,0,0,1VVA LARGE KEY,KEY,14,9,0zVA BLUE SAPPHIRE,SAPPHIRE,0,0,1VSOME RUBIES,RUBIES,16,0,1VA SET OF KEYS,KEYS,17,12,0V"MAGIC WATER,WATER,9,13,0W,JADE STATUE IN CASE BOUND WITH MAGIC ED TO GET, AND IDENTIFICATION AS TREASURE (1 IF YES, 0 IF NO)`UTWO POTS OF GOLD,GOLD,2,0,1}UA FAIRY WAND,WAND,0,0,0UA SHORT BOARD,BOARD,5,0,0UEMERALDS,EMERALDS,6,0,1UA PLAIN POTTERY VASE,VASE,7,0,0UA DIAMOND,DIAMOND,8,6,1VA,0,0,0)TdIN THE RING,0,25,0,0,23,0,0JTnIN THE RING,0,0,0,24,21,0,0PTxVT\TbT?UDATA FOR OBJECT N IS IN LINE 4000+N*10 AND IS IN THE ORDER: LONG DESCRIPTION, SHORT DESCRIPTION, INITIAL LOCATION, NUMBER OF OBJECT, NUMBER OF OBJECT NEED,0YS2IN THE SOUTH END OF A SMALL UNDERGROUND MUSEUM,THE VASE IS THE KEY,18,0,0,0,0,0S<IN THE GATE ROOM,YOU'RE THIRSTY,11,0,0,0,0,0SFIN THE PLAQUE ROOM,0,20,25,0,22,0,0SPIN THE RING,0,0,21,23,0,0,0TZIN THE RING,TRY THE GOLDEN MEAN,22,24,0ID THERE ARE BUTTONS ON THE CHEST,0,0,0,14,0,0WRIN THE SCALE ROOM,0,0,17,14,0,0,0RIN A SMALL CAVE WITH A DOOR IN THE WEST END,SOMETIMES WANDS WORK,0,0,0,0,0,0S(IN THE NORTH END OF A SMALL UNDERGROUND MUSEUM,THE WAY OUT IS THE WAY IN,0,0,19,0,0,8,11,0,04QIN A TWISTY MAZE,0,11,10,120,12,0,0\QIN A TWISTY MAZE,0,12,11,12,13,0,0QIN AN UP-AND-DOWN TUNNEL,0,12,14,0,0,0,0QIN A GIANT ANT HILL,YOU'RE THIRSTY,16,15,0,13,0,00R IN A ROOM WITH A CHEST. THERE ARE BUTTONS ON THE CHEST,I SANG CAVERN,0,4,0,0,0,0,0ZPIN A SMALL GROTTO BESIDE A CHASM,YOU'RE THIRSTY,5,0,0,0,0,0~PIN THE VASE ROOM,0,0,4,8,0,0,0PIN THE STATUE ROOM,0,7,9,10,0,0,0PIN THE SPRING ROOM,THE WATER LOOKS DELICIOUS,0,0,0,8,0,0 QIN A TWISTY MAZE,0,10,120AT THE EDGE OF A CLIFF WITH DENSE FOREST ON THREE SIDES,0,2,2,2,0,0,0lOIN A DENSE FOREST,0,2,3,2,1,0,0OIN A DENSE FOREST. THERE IS A CAVE TO THE SOUTH,0,2,2,4,2,0,0OAT THE NORTH END OF A LONG CAVERN,0,3,0,5,7,0,0PAT THE SOUTH END OF A LORETURN TO CONTINUE ";:SE$:7 ^:2400:SE$"P"860= h^ r"ENTER TITLE OF PUZZLE ";T$ |3:"ENTER THE NUMBER OF COLUMNS IN PUZZLE":"(5-40)"; B$:C(B$) C5C40380 6:"ENTER THE NUMBER OF ROWS IN PUZZLE":"(5-40)"; B$:R(B$) R5R40410 N 9:"ENTER THE NUMBER OF WORDS TO FIND (1-40)"l B$:N(B$):N1N40450  ******DATA INITIATION****** CL$(34): QUOTATION MARK CL$(N),W$(N),LL$(40,40),L$(40,40),A$(26):SE$"P"3150  *** INITIALIZE I vT0I1L01<L$(X2IQ0,X1)(W$(K),I1,1)CI^L$(X2,X1)(W$(K),1,1)h2060tI1L0L$(X2,X1(I1)Q)"."2000L$(X2,X1(I1)Q)(W$(K),I,1)1360IT0I1L01L$(X2,X1IQ)(W$(K),I1,1)06L$(X2(I1)Q0,X1(I1)Q)(W$(K),I,1)1360=IET0SI1L01y&L$(X2IQ0,X1IQ)(W$(K),I1,1)0I:L$(X2,X1)(W$(K),1,1)D2060NI1L0XL$(X2(I1)Q0,X1)"."1900bL$(X2(I1)Q0,X1)(W$(K),I,1)1360l00R0R1700P0?Z1((1)R0100.01)100PL0bZ2((1)C0100.01)100P0L0rX1((Z1))X2((Z2)) ****** ENTRY OF WORD IN THE PUZZLE ******D11970D01870I1L0L$(X2(I1)Q0,X1(I1)Q)"."18011520P00&(1).751540.D1A(1).251560ID0} ****** RANDOM SELECTION OF START POINT ******"C0C,R0R6D11610@R0RL0JD01630TC0CL0^D11660hR0RL0rC0CL0|C0C1680PM SELECTION OF DIRECTION ******1ZT1001390zd2330:720: *** WORD WILL NOT FIT--EXPAND MATRIX AND START OVER ***nTT1:P1xP01Q1(1).51440Q1Q01(1).51470Q01D2Q11500P0 Q0E!";:216,0:8 ****** PUZZLE PRINT ROUTINE ******CJ1RNI1C_L$(I,J)" ";tLL$(I,J)L$(I,J){ IJ(FF1ĺ(12);: *** FORM FEED ***2< ****** WORD BREAKDOWN ROUTINE ******FL0(W$(K))!P ****** RANDO)(NA46)(NA47NA58NC1))NF1:y(DS$)15NF0ĺ(7):"INVALID NAME! PRESS RETURN TO CONTINUE ";:DS$::1130277012:"WOULD YOU LIKE TO CREATE ANOTHER PUZZLE? (Y/N) ";SE$SE$"Y"ĬSE$"N"1200:12:17:"GOOD BYSE$"N"1190!`SE$"Y"1100+j:12tEF2::"ENTER NAME OF PUZZLE --- OR ---":"'?' FOR CATALOG ";:"";DS$:DS$(13)1130~DS$(63)ĺD$("CATALOG",74((48896)76))::1140&NF1:(DS$)0āNC1(DS$):NA((DS$,NC,1)):NF((NA64NA91 **** TURN OFF EMPHASIZED MODE ****RPZ$"1"ĺ(27);(34):(12): FORM FEED|$PZ$"2"ĺ(27)"F":(12): FORM FEED. **** TURN OFF PRINTER ****8::D$;"PR#0"B:SE$"P"1200L12:"WOULD YOU LIKE TO SAVE THIS PUZZLE?(Y/N)";SE$V34,0::12:13)"TURN ON PRINTER":D$;"PR#1":(9)"80N"g ****TURN ON EMPHASIZE MODE ****PZ$"1"ĺ(27)"!"::1250PZ$"2"ĺ(27)"E"::12502080J1RI1CLL$(I,J)" ";IJ% THESE WORDS"/>:12:"MATRIX SIZE "C" X "RDH:16:K2)W$(K)NR1340X\KK1ffKN800p *** TURN ON PRINTER ***z::12:"WHAT PRINTER ARE YOU USING:":::"1. IMAGEWRITER/PROWRITER":"2. EPSON"::PZ$:PZ$"1"PZ$"2"ī890>S MATRIX WITH PERIODS ***,EF3:I1:J1<L$(I,J)"."FJJ1TJR720bII1:J1pIC720xT0 K1 *** CLEAR SCREEN AND SET TOP MARGIN TO 16 *** :34,16*12:13:"PLEASE STAND-BY"4:4:"WHILE I TRY TO INSERT XI1LW:((W$(K),I))64((W$(K),I))91620[b" ILLEGAL CHARACTER!":IL:I:570blIpvCL0680"ENTER CLUE""___________________________________[";36,0:2670CL$(34): *** QUOTATION MARK ***K *** FILLALPHABET *** L6590% II14 A$(I)(L); L &:"WORDS CAN BE UP TO 15 CHARACTERS LONG":"AND MUST CONTAIN ONLY LETTERS." 0K1N :"ENTER WORD # "K DW$(K):LW(W$(K)):LW0ĺ(7);:580NLW15ĺ(7):" WORD TOO LONG!":5703IL$(X2,X1)(W$(K),1,1)' 860W ****** FILL OF REMAINING POSITIONS ******b I1Cm*J1R4LL$(I,J)"."2130: *** IF PERIOD IS FOUND, REPLACE WITH RANDOM LETTER ***>Z1(26(1))1HLL$(I,J)A$(Z1)RJ\I3f *** CENTER TITLE ON PAGE AND PRINT IN EXPANDED MODE ***Wp2:35(T$)2:(14);T$:(15)zz *** PRINT WORDS OR CLUES ***:NU0:I20CC0CL1CL0:2210CL1I40K1NCL0ĺ"("K") "W$(K);:2260SE$"P"N1(CL$(K)):2250\ * J* I126 * A$(I)'* I:* D$;"CLOSE"DS$@* \* *** ERROR ROUTINE **** 216,0:ER(222):EL(218)256(219):EZEF:EF0:3288* ER43360* ER6ER53370* ER10EZ23380* ER53EZ33390.+ 34,0::12:"ERROR "ER") *** PUZZLE READ ***/) D$;"VERIFY";DS$B) D$;"OPEN";DS$U) D$;"READ";DS$\) Rc) Cj) Kr) CL|)& NK1)0 N): T$)D 490: *** DIM ARRAYS ***)N I1N)X W$(I))b CL1ĄCL$(I))l I)v J1R) I1C) L$(I,J)* IE";DS$( D$;"OPEN";DS$/( D$;"WRITE";DS$6( R=( CD( KL(" CLV(, NK1](6 Ne(@ T$p(J I1N{(T W$(I)(^ CL1ĺCL$(I)(h I(r J1R(| I1C( L$(I,J)( I( J( I126( A$(I)( I( D$;"CLOSE"DS$) 1190ING ROUTINE ***0' O' h' C$:C$;:C$(13)ı' C$(8)CL$(CL$,(CL$)1):2720' CL$CL$C$' CL$(K)CL$' 2720' *** PUZZLE SAVE ***' D$;"OPEN";DS$:D$"CLOSE";DS$( D$;"DELET2600>&P DS$(63)ĺD$("CATALOG",74((48896)76)):2630H&Z 3030N&d m&n &x *** THE FOLLOWING ROUTINE CONCATENATES A QUOTATION MARK ONTO CL$ ALLOWING COMMAS AND COLONS TO BE USED IN YOUR CLUES ***' *** INPUT ANYTH"Y"FF1:2600)% (SE$,1)"N"25602% FF0%( 21:958:"WOULD YOU LIKE TO CREATE A NEW PUZZLE ORUSE A PREVIOUS ONE? (N/P) ";SE$%2 SE$"N"2660%< SE$"P"2600&F EF1::"ENTER NAME OF PUZZLE --- OR ---":"'?' FOR CATALOG ";:"";DS$:DS$"" FIRST CLOTHES.":"(GEN. 3:7)"S$ 16:"WOULD YOU LIKE TO USE CLUES? (Y/N) ";SE$u$ (SE$,1)"N"CL0:CC0:2560$ (SE$,1)"Y"2520$ CL1:CC1$ 18:"WOULD YOU LIKE THE SOLUTION TO BE ":"PRINTED ON A SEPARATE SHEET? (Y/N) ";SE$% (SE$,1)FIRST":"PUZZLE WILL PRINT A LIST OF THE WORDS":"THAT ARE TO BE LOCATED IN THE PUZZLE.":"THE SECOND PUZZLE WILL PRINT ONLY A LIST";# "OF THE CLUES FOR EACH HIDDEN WORD." $ :4)"(EXAMPLE) THE HIDDEN WORD IS FIG, THE";:"CLUE COULD BE----";:"ADAMSOWS AND COLUMNS UNTIL THE WORDS FIT."N" :7)"PRESS RETURN TO CONTINUE ";W" SE$`" :1" 4)"ONCE A PUZZLE HAS BEEN CREATED IT CAN";:"BE SAVED ON DISK FOR LATER USE.":# 4)"YOU HAVE THE CHOICE OF CREATING":"EITHER ONE OF TWO PUZZLES. THE !~ 4)"START WITH A MATRIX SIZE THAT IS":"SLIGHTLY TOO SMALL FOR THE NUMBER OF":"WORDS CHOSEN. FOR EXAMPLE, YOU WANT TO":"USE FIFTEEN (15) WORDS. START OUT WITH":"TEN (10) COLUMNS AND TEN (10) ROWS. THE'" "PROGRAM WILL AUTOMATICALLY EXPAND THE":"RHE":"ORIGINAL PROGRAM TO MAKE IT MORE USEFUL":"AND EASIER TO USE.":!t 4)"ONE OF THE IMPROVEMENTS CAUSES THE":"COMPUTER TO AUTOMATICALLY ENLARGE THE":"SIZE OF THE MATRIX, TO ACCOMMODATE THE":"NUMBER AND THE SIZE OF THE WORDS TO BE":"HIDDEN.":*` 4)"WORD FIND IS AN ADAPTION OF A":"PROGRAM CALLED ";:(34);:"WORD GAME";:(34);:" THAT APPEARED";:"IN THE BOOK ";:(34);:"BASIC COMPUTER PROGRAMS FOR";H j "THE HOME";:(34);:" BY CHARLES D. STERNBERG.":"IMPROVEMENTS HAVE BEEN MADE IN TI40:NUNU1:2300: *** HORIZ. TAB FOR CLUES ***JNU4NU0:I15:T2310jNU2NU0:I40:q Kw } $ ****PUZZLE EXPANSION****. RR1:CC18 16:12:"MATRIX SIZE "R" X "CB I1:J1L V ****** INSTRUCTIONS *****N1(CL$(K))1: PREVENTS FIRST LETTER OF CLUE FROM BEING CHOPPED WHEN READING FROM DISK"("K") "(CL$(K),N11);:2270: CHOPS OFF QUOTATION MARK BEFORE PRINTING36,I:NUNU1::II20:2280: *** HORIZ. TAB FOR LIST OF WORDS ***436,I:I HAS BEEN ENCOUNTERED":"IN LINE "EL::3410+ 34,0::12:6:"WRITE PROTECT TAB ON DISKETTE!"::15)"PLEASE REMOVE"::3410+* 34,0::12:10:"NO PUZZLE BY THAT NAME!"::3410 ,4 34,0::12:15:"FILE LOCKED!"::5)"CHOOSE ANOTHER NAME FOR PUZZL **********************; * CONCENTRATION *X * BY STEVEN WONG *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PZ24576:760d nIIII1:TT(II15):1931@ 7:12:"MATH CONCENTRATION"::14:"BY STEVEN WONG"}1013,76:1014,0:1015,64:230,32:232,48:233,64:62450 I12:A(I),B(I),DX(I),DY(I),SC(I):KB16384:KR16368:S1100:S2100:BS$(8)$*VA(1)10:VB(1)2:VA(2)25:VB(2)5:VA(3)50:VB(3L(M3,M4)İ500:AM1:BM2:410:AM3:BM4:410:370A470:580y340:PN1::P1$;::670:NUNU1:(NU12)1740,530340:PN2:P2$;:670:NUNU1:(NU12)1750,530::(16384)32ĺ(4)"BLOAD M.SHAPES"48,170:9,308:9,3020:9,198:9,L(M1,M2)1:L(M3,M4)1:CS0:8"'S TURN":CSİ440hCS1:22:1:"MOVE 1: ";:160:OFİ510:370260:M1A:M2B:EFİ520:37023:1:"MOVE 2: ";:160:OFİ510:AM1:BM2:410:370260:M3A:M4B:EFİ520:AM1:BM2:410:3703L(M1,M2)UBTRACTION:":N2N1IN2:N2N1:N1I<bN3N1N2:I45:640lN1(N12):N2(N22):I3ĺ"MULTIPLICATION:":N3N2N1:I42:640v"DIVISION":N3N1:N1N1N2:I47:640N1(I)N2"=";:160:OFİ510:360(I$)N3Ģ23:HP::N3::490:360 480:S1S2Ğ:P1$;::" DEFEATS":P2$", "S1" TO "S2:560b&P2$" DEFEATS"::P1$;::", "S2" TO "S1024:"PLAY AGAIN? ";:A$:A$:A$"N"Ĭ:::D350:N1I(LE):N2I(LE):I((1)4)1:I590,600,620,620N"ADDITION:":N3N1N2:I43:640%X"SO MATCHES!";:I15:100,20I:150,20I::330:TS10:38024:1:"TIME'S UP";:I20010010:I,10:50,5:330:TS15:38024:1:"ILLEGAL MOVE!";:I15:17010I,60I::330:TS20:38021:1:350:S1S2ğ:" TIE GAME "::56050,100:320:16304,0:100,40:c24:1:"A MATCH!";:I1023010:I,3:I20,3:I,10::33024:1:"CORRECT!";:I10150:I,2::330:TS25TT5:38024:1:"WRONG ANSWER!";:I1015010:I,10:1,15::330:TS5:380>24:1:"SORRY, NT130:T222T IY1Y115:4:X1,IX136,I:X1,IT1X136,IT1:T1T12:IK10Ă 5:X2,IX228,I:X2,IT2X228,IT2:T2T22:: KR,0:12:20:"09":16303,0:330:I100 (KB)128II1:Iį150I,3:1468,(I10)176:450!KR,0:320:5I:1:18)::21:1:9 hAM1:BM2:410:AM3:BM4:410P r54915:PN750,740y |23:PN1S1S1TS:S1S1(S10):IS1 PN2ĺ:S2S2TS:S2S2(S20):IS2 36:("000"(I),4);: 150,10:200,10:250,10:JX(B):KY(A):X1J18:X2J14:Y1K14:I10200,10::JX(B):KY(A):T114Y ,4:X1J18:Y1K14:IY115Y130:X1,IX136,I 6X1,I14T1X136,I14T1:T1T12::SC(C):CJDX(C),KDY(C): @J1250:: JJ1500:: TEF0:FF176:II299:M10:M20:OF0:23:20:"20" ^I2124:6I33)I8170/ I8ĺA$;:I$I$A$:170A TFİ110:110b (I$)2ĖHP:" ";:HP:160 BS$" "BS$BS$;:I$(I$,(I$)1):170 A((I$,1))64:B((I$,1)) A1A4B1B6(I$)2EF1: CL(A,B):M1AM2BC1EF1:% "I15:hjklmnopqrsII15TTı, x75,2:JTT9:TT5FF112S 1892,TT10JFF:TT20Ĺ1891,FFJ] TTıj OF1:: I(0):HP(0)1:I$"" :" ";::BS$; I(KB)128:TFİ110 I0180 KR,0:I50,2:A$(I):I13(I$)ĺ" ";:I(0): ((I$))10:I(LE)((1)VA(LE)VB(LE))R4I13:X(I)22(I1)42:X(I3)150X(I):>I14:Y(I)19(I1)33::I112:SC(I),DX(I),DY(I):H3,8,6,3,9,9,3,9,3,7,7,8,3,9,2,7,9,4,3,7,8,3,14,4,3,9,9,7,8,6,3,10,9,7,10,2RI112:A(I)I:B(I)I::I112:J((1)121)U\K((1)121):TA(I):A(I)A(J):A(J)T:TB(I):B(I)B(K):B(K)T:fJ13:K14:IK(J1)4:L(K,J)A(I):L(K,J3)B(I):::KR,0p22:4:"-> PRESS ANY KEY TO BEGIN <-";zI13:100I,2:3I:"->";:(KB)128930"37ɢ23:1:"YOUR NET GAIN = ";LOOT;" COINS.":v T24:1:"HIT ANY KEY TO CONTINUE (ESC=QUIT) ";:W$:(W$)27ġ:1980| ^ h - FIND SUIT FOR DRAW ROUTINE rSUIT4:DECK(A)40SUIT3:DECK(A)27SUIT2:DECK(A)14SUIT1 |  - CLEAR HI-RES SCRU LOSE ";W;" COINS.":6 W1ĺ"YOU WIN 1 COIN.":T "YOU WIN ";W;" COINS.":~ "W1ĺ"YOUR 2ND HAND LOSES 1 COIN.": ,"YOUR 2ND HAND LOSES ";W;" COINS.": 6W1ĺ"YOUR 2ND HAND WINS 1 COIN.": @"YOUR SECOND HAND WINS ";W;" COINS.":- JTINES F2230 270* F22103 250] W1ĺ"YOUR 1ST HAND LOSES 1 COIN.": "YOUR 1ST HAND LOSES ";W;" COINS.": W1ĺ"YOUR 1ST HAND WINS 1 COIN.": "YOUR 1ST HAND WINS ";W;" COINS.";: W1ĺ"YOU LOSE 1 COIN.": "YOtvwxyz{|}~ Z - RANDOMIZE3 dJ(78):JJ1:J255J255Q nI1J:NUM(1):I:202,Jx x(4)"BLOAD BLACKJACK.SHAPE,A$900" - POKE SHAPE TABLE ADDR ::232,0:233,9:DECK(52),T(2):LOOT0 2:15:"WELCOME TO":I11000::1780 - PRINT SUBROU ******07/17/85********9* BLACKJACK *U* BY JIM FEEHAN *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F********************** P(104)64Ĺ16384,0:104,64:103,1:(4)"RUN BLACKJACK"28,KL:LL2:::QL21:19:"TIME";:26:"PLAYER'S SCORES":20:"20";:26:VP1$;::34:"-";:36:"0100":26:P2$;:34:"-";`36:"0100";:8:7:"PRESS ANY KEY TO RESUME PLAY":48,173:6,3316:34,20:740;$I01:0,152I129,152I:150,152I279,152I::5.I1322:J,K:IJ,K::137,17,137,50,137,83,137,116,21,141,62,141,104,141,170,141,212,141,254,141 8I14:J16:X1X(J)14:Y1Y(I)10:L22:200,5BKY1Y111:X1,KX128,K:X1,KLX1EVEL (1-3)? ";:160:LE(I$):LE1LE31010q330:81,32:77,128:81,128:102,64:121,128:91,64:320TF1:::1:0:6I313533:J01:0,IJ129,IJ:150,IJ279,IJ::I012642:J02:IJ,3IJ,153:IJ150,3IJ150,153::THE TWO TASKS MUST BE COMPLETED."|:"ENTER YOUR NAMES AND WE'LL BEGIN...":19:1:"PLAYER 1'S NAME? ";:160:P1$I$21:1:868:"PLAYER 2'S NAME? ";:160:P2$I$:P1$P2$99023:1::"1=EASY 2=MODERATE 3=HARD":.24:1:868:"WHAT LGAME OF CONCENTRATION WITH AN ADDED TWIST.":"THE OBJECT OF THE GAME IS STILL TO MATCHSHAPES, BUT A MATH PROBLEM MUST ALSO BE""CORRECTLY ANSWERED TO WIN POINTS."::"TO ADD TO THE EXCITEMENT, THERE IS A"%"TWENTY SECOND TIME LIMIT IN WHICH I:"<-";:320::4:4):34:4)`I13:100I,2:7I:"<-";:(KB)128ĹKR,0:54915:93033I:"->";:320:J(1)::880::11)"MATH CONCENTRATION"12)"COPYRIGHT (C) 1984 BY MICROSPARC, INC ":-5:"MATH CONCENTRATION IS THE TIMELESS EEN 230,32:0:0,0:624545  - SHUFFLE DECKM I152:DECK(I)I:h J152:I((1)521) KDECK(J):DECK(J)DECK(I):DECK(I)K:  - DRAW 1ST 4 CARDS ::0:1:7:0,0:62454:0DECK(51)DECK(1):DECK(52)DECK(2):DECK(50)DECK(3)A1:C1:370:2010:A2,I1250:C370:C2:2010:A3RI1250:v370:SUIT2DECK(3)DECK(3)13SUIT3DECK(3)DECK(3)26SUIT4DECK(3)DECK(3)39&1,051,051,711,711,00I2505:I,0I,71::I1705:1,I51,ET DEALER'S TOTAL`T(0)DECK(21)DECK(22)DECK(23)DECK(24)DECK(25)DECK(26):T(0)211660C5T(0)22ė:21:"DEALER HAS FIVE CARDS UNDER 22.":190:LOOTLOOTW:330:340:F1ė:1900C5T(0)22F2ė:22:1:290:LOOTLOOTW:330:340::1900I,71::0:DECK(3)DECK(50)KDECK(29)A:A3:370:2100:ADECK(29):C2DECK(21)DECK(3):DECK(22)DECK(4):DECK(23)0:DECK(24)0:DECK(25)0:DECK(26)0I2126:DECK(I)10DECK(I)10II2126:DECK(I)1DECK(0)DECK(0)1 - G;" COINS !!":<PC6ĺ"YOU HAVE WON ";W10;" COINS!!":EZ330ddT(F)0:T(0)0:340::1080n - ADD 10 IF THERE IS AN ACExT(0)1T(F)1022T(F)T(F)10F$"N"14401120 - DEALER PLAYS - DRAW DOWN CARDC1:7:I051:I,RD7 CC1:AA1:370:2010:DECK(20C)DECK(A):780_ - CHECK FOR 5 OR 6 CARDS UNDER 21sC6C51400(:C6LOOTLOOT(W10)2C5LOOTLOOT(W5)<21::"YOU HAVE ";C;" CARDS AND ONLY ";T(F);" POINTS."FC5ĺ"YOU HAVE WON ";W5 7806 - COME HERE AFTER EACH CARD IS DRAWNT(F)21Ģ21:1:"YOUR TOTAL IS 21, YOU MUST STAND"::OW13000::1310W$"S":C6Ģ24:1::"DO YOU WANT TO HIT OR STAND (H/S)? ";:W$:W$"S"1310W$"H"1250 - DRAW HIT CASUIT4DECK(3)DECK(3)396I1250::C2:2010U - CLEAR 1ST HAND'S TOTALDECK(21)DECK(52):DECK(22)DECK(A):DECK(23)0:DECK(24)0:DECK(25)0:DECK(26)0 - TOTAL FOR 2ND HANDT(F)DECK(21)DECK(22)DECK(23)DECK(24)DECK(25)DECK(26)1T(2)1ė:1900)LF2T(1)01440IV - ERASE 1ST HAND OF SPLITj`7:I80151:0,I275,I::0j - DRAW 2ND HANDtC1:DECK(29)A:A52:F2:F$"N":370:2010:ADECK(29)1~370:SUIT2DECK(3)DECK(3)13SUIT3DECK(3)DECK(3)26AL IS ";T(F);@T(0)0T(F)1022T(F)T(F)10:" OR ";T(F)I330[T(F)221240kLOOTLOOTW:21::"BUSTED !!!";::14:T(F);::20:"BUSTED !!!":190:330$T(F)1:340:. - CHECK FOR SPLIT8F1F$"N"1900BT(1)T(F)1:T(0)0::1080N - BEGIN MAIN ROUTINE - TOTAL CARDS DEALT SO FART(F)DECK(21)DECK(22)DECK(23)DECK(24)DECK(25)DECK(26):T(F)211030 - CHECK FOR ACEST(0)0:I2126:DECK(I)1T(0)T(0)1IT(F)22ė:21:"YOUR TOT21::13:"BLACKJACK !!!"::930?p - 1ST 2 CARDS TOTAL 11zF1F$"N"Ģ22:1:"DO YOU WANT TO DOUBLE DOWN (Y/N)? ";:W$:W$"Y"W$"N"890W$"Y"2300950 - PAYOFF BLACKJACK"YOU WIN ";W4;" COINS.":LOOTLOOT(W4):330:340:K(22)10' DECK(23)10DECK(23)10D*DECK(24)10DECK(24)10a4DECK(25)10DECK(25)10~>DECK(26)10DECK(26)10HDECK(52)992310R - CHECK FOR PLAYER'S BLACKJACK\DECK(21)DECK(22)11DECK(23)0950"fDECK(21)1DECK(22)1ė::950F$"Y"700/ - ERASE 2ND CARDN7:I57107:I,80I,151:]I1250:w - DRAW NEW 2ND CARDC2:A5:0:370:2010:DECK(21)DECK(1):DECK(22)DECK(5) - SET FACE CARDS TO 10 DECK(21)10DECK(21)10 DECK(22)10DEC)DECK(3)DECK(4)11DECK(4)12230J - CHECK FOR POSSIBLE SPLITDECK(1)DECK(2)DECK(21)DECK(1):DECK(22)DECK(2):F$"N":780DECK(1)DECK(2)Ģ23:"DO YOU WANT TO SPLIT THESE CARDS (Y/N)? ";:F$:F$"N"DECK(21)DECK(1):DECK(22)DECK(2)I:"D5:I5505:I,0I,71:?NI5705:1,I51,I::0NXI1250:ibA4:370:C2:2100:A5l - CHECK FOR DEALER BLACKJACKvI2126:DECK(I)0:DECK(3)10DECK(3)10DECK(4)10DECK(4)10DECK(3)DECK(4)11DECK(3)1223002T(0)22ė:21:"DEALER'S TOTAL IS ";T(0);fDECK(0)0T(0)1022T(0)T(0)10:" OR ";T(0)"F2T(2)1Ģ22:1:"YOUR 1ST HAND'S TOTAL WAS ";T(1):330:340:1600,22:1:"YOUR TOTAL IS ";T(F):330:3406 - HIT DEALER-@T(0)17CC1:AA1:370:2100:DECK(20C)DECK(A):1470KTT(0)T(1)T(0)T(2)1680^(T(0)T(1)T(1)1)(T(0)T(2)T(2)0)1680hT(0)T(1)T(0)15:1600|:21:"DEALER HAS ";T(0);". HE IS BUSTED !!!" - PAYOFF ROUTINES5T(0)21T(1)0T(1) CONTINUE.";:Z$:R'S DOUBLE DOWN ROUTINER+C3:A5:370:2010:DECK(23)DECK(5):DECK(52)99:780|+ T(1)DECK(21)DECK(22)DECK(23):WW2+ :21:"YOU HAVE DOUBLED DOWN AND MUST STAND ON THESE THREE CARDS - YOUR TOTAL IS ";T(1):330:340::1440DECK(A)DECK(A)39:32:DECK(A)X21,Y44:0:DECK(A)X21,Y23:f* - DEALER'S BLACKJACK ROUTINE*7:I051:I,0I,71:*0:C1:A50*370:2100*21::"DEALER HAS BLACKJACK !!"::LOOTLOOTW*190:330*340:::1900+ - PLAYE190,2200,2210S)32:5:14X,Y20:DECK(A)X21,Y44:0:DECK(A)X21,Y23:0:)15X,Y:DECK(A)DECK(A)13:32:DECK(A)X21,Y44:0:DECK(A)X21,Y23:)5:16X,Y:DECK(A)DECK(A)26:32:DECK(A)X21,Y44:0:DECK(A)X21,Y23:0:C*17X,Y:169,71169,0:X194:Y25F(RC1ē1,051,051,711,711,0:X26:Y25{(\C5ē225,0275,0275,71225,71225,0:X250:Y25(fC6ē225,80275,80275,151225,151225,80:X250:Y105(p - DRAW SUIT AND VALUE - X,Y DETERMINE CENTER OF CARD)zSUIT2180,251225,80:X250:Y105L'C6ē225,0275,0275,71225,71225,0:X250:Y25V' 2170'* - DRAW ROUTINES FOR DEALER'S CARDS'4C2ē57,0107,0107,7157,7157,0:X82:Y25'>C3ē113,0163,0163,71113,71113,0:X138:Y25(HC4ē169,0219,0219,71C1ē1,8051,8051,1511,1511,80:X26:Y105f&C2ē57,80107,80107,15157,15157,80:X83:Y105&C3ē113,80163,80163,151113,151113,80:X138:Y105&C4ē169,80219,80219,151169,151169,80:X194:Y105' C5ē225,80275,80275,151225,1HUFFLING":400%C5T(0)22ė:22:"DEALER HAS FIVE CARDS UNDER 22.":190:LOOTLOOTW:20:"YOUR NET GAIN = ";LOOT:340:1900%::4:"ARE YOU SURE YOU WANT TO QUIT?";:Z$:::Z$"Y"1900%% - DRAW ROUTINES FOR PLAYER'S CARDS%0/& MANY COINS WILL YOU BET (1-5)?":24:"(ESC=QUIT) ";:23:36:W$U$v(W$)271980p$ - RESET ALL COUNTERS$A0:C0:F$"":SUIT0:T(0)0:T(1)0:T(2)0:W0:DECK(0)0$ - CHECK FOR BET 1 TO 5$W(W$):W49W531900%:F1:WW48:12:15:"STALING LESS THAN == 22 PAY 10 TO 1. ="T#:18:"=";:40:"="k#D19:"=";:40:"="#N20:"= BLACKJACK PAYS 4 TO 1. ="#X21:"========================================"#b - EACH HAND STARTS HEREB$l23:1:"HOW AUTOMATICALLY.":""DEALER WINS ALL PUSHES (TIES)"n"12:"========================================""13:"= SPECIALS: =""&14:"=";:40:"="=#015:"= FIVE CARDS TOTALING LESS THAN 22 PAY == 5 TO 1. SIX CARDS TOR 2ND HAND BEATS THE DEALER.":270:330>>.---5????I)--???7mI57??.-757---???II 5?-5m)>;---->???wI 575? ---5???757mI:??w--->.>.---???I)--???7mI7mI:??7---57mI57--1RS3Y153# RS2RS4Y1402 Y7411B X71311` X7QY7RĒ1:O1:1920: S(X7,Y7)OS(X7,Y7)1XX20   &O0: INITIALIZE DIM'S 01:0 :N(13,4):S(13,4):E(13,4):W(13,4) DUBO:OBO:G(1,2) NMS0:DN1X90:Y81:1830:4 ^QQE:RRE:X170:Y81:1830:= hX12Q rRN1RN3Y25e |RN2RN4Y12t Y7411 X71311 X7QY7RĒ1:O1:1920: N(X7,Y7)ON(X7,Y7)1XX20   CWO:CSO:CNO:CEO:HCO: X12 RS X130:Y59:O1:19203 X170:Y81:O1:1920M X130:Y105:O1:1920S ` 3:1920s 6:15X2,Y4 O:X1,YX16,YX16,Y24X1,Y24X1,Y " ,X71311 6(TP1S(X7,PT)0)(TP0N(X7,PT)0)Y71: @ J TQQW:RRW:" <550 F680 P23505 Z7670:1600:1780[ d(NBSB)1RS(NBSB)İ7090:120e n3620o x7150 70:MAIN LOGIC SECTION ENDS HERE 4420 QEQNW2:HCO 4190 QWQSW4:HCO 1:AX$ X90:Y81:O1:1920" * BRIDGE.BIDDER 8.6.84 *C * BY DALE SEDIVEC *d * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * CONCORD, MA 01742 * MAIN LOGIC SECTION 25400D$(4)(D$;"BLOAD CARDS" 2D$;"BLOAD SUITS?--???----?????.----??N ?I ?--???----???--?I -:?.-----5????7) m7??I ->w575757?7--?.--5????--???----?????------???????--------?????????--------???????------?????----???--? ?--???---->???7----???*m-- -?????--- ---?????????.--------5?????????--- ---????-Mi -ۻ->?I ?--???----?????.-m--?;?I I ;.M 7m)??.-;.M)7mI)?--???----?????------???????--------?????????.--------5?????????.---m---->???;???--mI)--????--???----?????------???????--------?????????.--------5?????????.--------5??????w--mi)--?;??7I --??-???I---5???7mI5wI)75757-I)-???mI)>7mI)???.--;.MI5;---??I---:???.M 57mI5???w--->.>7---???I-M)--???;wm)M 5;.MmI5;.MmI5;.MmI5;-m---??;?I)--->???N)>.>.>m)>7--??I)-???-M)5;.MI5;.MI5;.Mi5?;w---?? m X620 b lX01& vY023 G(X,Y)O9 ? E r Q113: INITIALIZE VARIABLES AND DEAL} R04 N(Q,R)O:S(Q,R)O:E(Q,R)O:W(Q,R)O   S81:QE100:QW100 MS1840::22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":1@"ENTER MONTH,DAY,YEAR AND WAIT FOR DEAL:"P"MO ? ";M8` "DA ? ";D8p"YR ? ";T8 T8(M8D8)760*:10604T8T8D8M8>T81760HM81T8RD8(1)\f16304,0:16297,0:16299,0:3560pT815217 TPOTP52 (QTP10)SBQZZ29208" G, TP5TPO[6 3:1920:NBO:f@ Q17uJ TPOTP5T (QTP10)SB2920^ h NBQTP10:TP5TPOr TTP:RTP:1690:| D8O R14 Q13121# (N(Q,R)ON(Q1,R)O) (NB)1(ST$"N"(SB)3)İ2940:2880X (ST$"N"NB1)((SB)2NB1NP5)2880| (SBONP13)(SBONP6)2870 SBONP19NB1Q2:2920 NBOBN2BN5İ2940 D81D8O:2820 NBOBN2BN7İ3080 D81D8O:2820 Qd <n XQE:Y59:TPPT:QEQE20:SBOİ3130: NO'S BIDhx NB1SBONP19XX4Q1:TP0:2920 R5O:TM8T(PT)SBOİ6900 R51R5O:2880 XX7(NPSP)20SB2NB1Q3:2920 XX6(SB)1NB1Q3:2920 XX6SB72880+N(X,Y):D8D81& S(X,Y)OT8T81, A D83NPNP3D8V T83SPSP3T8| NTTND83TNNT:TPY:PTY:6830  Y14 X1013 N(X,Y)ONPNPX9( S(X,Y)OSPSPX92 < F Q17P (NPSP)(163Q)ZZQZ DDING SECTION8 2470(B DN22420=L NBOSBOW4:NV SBONBOıX` 3200bj 1740wt SBONBOW2:~ SBONBOı 2670 1740 2380 Y14: DETERMINE PTS OF NO AND SO D8O:T8O:NTO X113 N(X,Y)ONTNT\11X10,Y3f(p12X8,Y9.z>13X6,Y3DT14X6,Y9ZqX8,Y3X8,Y9:xO7X4,Y1954X2,Y1755X2,Y13  O 6X3,Y17$ . 1060:1510:3430: BI336):AX(16336):AX(16336): SOUND OF CARD WHEN PLAYEDBQ2X6,Y3Wf3X6,Y3l{4X6,Y35X10,Y36X6,Y3 7X6,Y3 8X6,Y5*49X9,Y6>H10X6,Y3R& DRAW CARDS03:1920&:0sDQ1960,1980,2000,2020,2040,2060,2080,2100,2120,2140,2160,2180,2200,2220N232,0:233,98XR2230,2260,2290,2320b1:X2,Y10X2,Y20lXX20v232,0:233,96:1X,YO1O0:<AX(16R411TR4R2Y12/^R3R1Y25>hQ1311VrN(Q,R)OO1:1830\|bhnxQQ1QOQ141830BCBC1BNBN1BC2BC11:CH0Y5913180,Y279,Y3:CH3:CE1W3:4460:(QN1311:N(QN,RN)0ı@KQN0:[QS1311mS(QS,RS)0ıs~QS0:X12R411R4R2Y140R3R1Y153Q1311S(Q,R)OO1:1830",6@X12 J,RS)QWQNCW1:W1:'53507CW1W1:A4190MCW1ı\ RWT:4190lCW1W1:x4130:(14702QE113<E(QE,RE)N(QN,RN)QEQSCE1:W3:FP4830ZCE1W3:d4420nCE1ıxRET:4420 Y019180,Y279,YB$L+V3=`X2,YX15,YUjX2,Y23X15,Y23[ti~XX8:YY8X8221Y851İ260:X8X88:Y8Y812:T27X8191:Y855XX8:YY8:260X8X88:Y8Y8121430QW113W(QW,RW)S(QS(1)60):260:960KS(Q,R)Q:S81:X(74(1)90):Y(37(1)120):260QZMS1ZZO:ST$"O":NB1:SB1:NTO:TNO:NPO:SPODNDN1:BC1DN3DN1T2OX8221:Y851BN1:PTO450$1:BACKGROUND COLOR .zR(4(1)1)'Q(13(1)1)P(N(Q,R)S(Q,R)E(Q,R)W(Q,R))0890S81W(Q,R)Q:S82:X(74(1)1):Y(37(1)60):260:960S82N(Q,R)Q:S83:X(74(1)90):Y(37(1)):260:960S83E(Q,R)Q:S84:X(74(1)180):Y(37(N(Q,R)ON(Q2,R)O)RPTİ6980/ D81ı5 ; F R14V Q13121p N(Q,R)ORPTİ6980| D81ı    D8O SBOTOM8Oı T8ZD81:TPM8& DET8DEZD81:TPT0 : M8OSBOTOıD T8O:DEON Q113,X T8T8S(Q,M8)N(Q,M8)Db DEDES(Q,T)N(Q,T)Jl Pv _ SO'S BIDw XQW:Y105:QWQW20 O:O1:1920:3490 Q$ Q$(27)İ3410:Y105:3230 Q$"P"SBO:3:1920: ST$ Q(Q$) Q1Č198:3230@ ,,W2:TP0:X70:4870:1830:360:PTRN<,RERN:1320e,(RERNQE12S(13,RN)O(1).5İ140n,2350,<TP1:4900:1830:460,FW2İ5000:5210,P4970,ZW2İ5270:340:,dW4RSTİ5330:340:,nW4RSRNRSTİ5330:340:-xW+RSRNRSTW4:HCO +:+QNQWRNRWW2:HCOT+RNRWRNTW2:HCOZ+t+QNQSRNRSW2:HCO+RNRSRNTW2:HCO++QNQERNREW2:HCO+RNRERNTW2:HCO++X130:Y59:1110: NO LEADS, AX$"A"İ7040:056*.QS1QS13RS1RS4S(QS,RS)OČ198:4900<*8r*BS(QS,RS)1:N(QN,RN)1:E(QE,RE)1:W(QW,RW)1:*LQSQWRSRWW4:HCO*VRSRWRSTW4:HCO*`*jQSQERSREW4:HCO*tRSRERSTW4:HCO*~+QSQNRSRNW4:HCO20)CE1ı)RET:4830/)CE1W3:9)4460E)CE1ıV)RET:4420:c)QE113)E(QE,RE)N(QN,RN)CE1:)))4230:QNQ:RNR:X130:Y59)QN1QN13RN1RN4N(QN,RN)OČ198:4870)*$4230:QSQ:RSR:X130:Y110(CE1QEQWW3$(4720:4(QE1311K( E(QE,RE)OCE1:Q(W( g(*QE1311(4E(QE,RE)N(QN,RN)CE1:(>(H(R4650(\CE1W3:(f4420:4720:(pCE1ı(zRET:4420(CE1W3:(4460:)RERW:44'0R(PT)X70İ300':+'DQE113B'NE(QE,RE)OCE1:H'XN'b['lQE113j'vRE411'E(QE,RE)ORETCE1:''''RERW:4420'CE1QEQWW3'CE1ı'4460'CE1ı'W3:RET:4420:(RERW:46&Q$:R$&Q(Q$)(&Q0QQ17&QOİ4290S&4350:Y71Č198:4230Y&j&Q$"A"Q13{&Q$"K"Q12&Q$"Q"Q11&Q$"J"Q10&Q$"T"Q9&&RO:Y7O&R$"C"R1&R$"D"R2&R$"H"R3'&R$"S"R411%RW14)%W(QW,RW)Oİ40905%CW1ı;%A%G%U%QNQW13r%N(QN,RW)OS(QN,RW)Oıx%%CW1:HC1:%"QW113%,RW14%6W(QW,RW)ORWTCW1:%@%J%T%^QW113%hW(QW,RW)OCW1:%r&| 0#$FPTRW:TP0:4870:1830:360-$P5030L$ZHC1W1İ4520:350:3970f$dW1İ4580:350:3970$nRNRWRERN:RSRE:1320:350:3970$x4760:350$TP1:4900:1830:460$HC1RSTı$W1İ4940:$W3İ4970:$5000:%QW13#AX$"A"ı#2007#W2W4T2T21:1150=#W#W1:FLO: WEST LEADSa#4020v#CW1İ340:3910#5770# CE1CE0:HC0:RWRE:4190#CW1İ340:3910#FLOFL1:5880:3850#(4130#2CW1İ340:3910$<RWT:4190:34 "%"$6790: TRICK SECTION>".PTM8W2TM8W4W"8PTM8W4TPTW2r"BW5120,5560,6280,3810|"L4930"V200"`W2W4T2T21:1150"j450"tW3810,5120,5560,6280"~4930"Q113"R14"S(Q,R)03670"#0 ! ! DRAW BID.! 3:232,0:233,98>! 1X10,Y3M! 2X7,Y9]! 3X6,Y17c! ! X10,Y9X14,Y9X14,Y15X10,Y15X10,Y9:! 1:X130:Y59:1920:Y105:1920! X12:Y81:1920:X32:1920! Y145501!279,Y190,Y" R R ::7670:7480:::"PROJECTED BID OF EAST/WEST: "(RS);" ";EW$:::AX$v \ 16304,0:16297,0:16299,0: f DRAW NO & SO p O:O1:X80:Y59:1920 z 3:X2,Y15X2,Y9X6,Y15X6,Y9:3550 O:O1:Y105:1920! 3:5X6,Y9:355Q7(ST$"S"ST$"H"ST$"D"ST$"C"ST$"N")Č198:3230U ST$"C"R1:T1j ST$"D"R2:T2 ST$"H"R3:T3 ST$"S"R4:T4 ST$"N"RO:TO SB1M8T TOT5* SBQT10:T5TO4 SBNBČ198:3230> 1690 H4İ6570:340:(-RERNİ6040:340:9-6640:340:I-RWRN:5290U-5390:b-QW113-W(QW,RW)N(QN,RN)CW1:---RWRS:5350-5390:-QW113-W(QW,RW)S(QS,RS)CW1:---CW1W1:.4190:5410: ."CW1ı.,RWT:4190,.6CW1W1:8.@4130:H.JRWRE:4190Z.TCW1QWQEıj.^CW1W1:t.h4130.rCW1ı.|RWT:W1:4190:.RET:4830.CE1W3:.4420.CE1ı.4460:.FLO: EAST LEADS.W3:5770/CG(0,0)100G(0,1)100UBUB750:ZZ1:7450c<G(1,0)100G(1,1)100OBOB750:ZZ1:7450<G(0,2)100UBUB500:ZZ1:7450<G(1,2)100OBOB500:ZZ1<QEQEUB<$QWQWOB<.7480:7590<8=B" NORTH/SOUTH";20);"EAST/WEST ":30R(EW2)RS20R(EW3)5;UBUBQ(T26QN)QSi;G(0,0)100G(0,1)100OBOB100RE(QN6T2);G(0,0)100G(0,1)100OBOB50RE(QN6T2);Y02;QEQEG(0,Y);QWQWG(1,Y);;Q1QN5UBUB500;R1RS5OBOB5000<NTRACT !!!":7250A:>QO:RO:RE1:"YOUR BID WAS UNSUCCESSFUL"n:HQNZZRE2:"EAST/WEST DOUBLED THE BID"v:R::\Y02:fG(0,Y)100G(1,Y)1007290:p:zG(0,Y)G(0,Y)QNQSQ:TOQNRSQN(T26)G(0,Y)G(0,Y)10;G(1,Y)G(1,Y)RS:QWO:QN(SBNB)&9 T1T2QS20,9|9 (P$"P"QN1)RS1RO:QO:REO:"NO BID - HIT ANY KEY FOR NEW DEAL":72509*RS(QNT10)RS(RS):"EAST/WEST WINS HAND WITH ";RS;" ";EW$:Q0:R1:RE0:7250:4QN(T26)Q1:RO:REO:"YOU MADE THE CO8lZ54D8O:$8vD81:TPR:/8R14;8Q113`8S(Q,R)OS(Q,R)O:T2T21:1150f8l8s818DE125080,DE279,DE80,DE127279,DE127883:8AX$::: SCORE SHEET SECTION876709QS30:QEOX1137N(X,Y)OXXXX1-7ZZS(X,Y)37>7ZZTND7L7ROZ7TO6950f7Q113|7RRN(Q,T)S(Q,T)77&(RT8RZ)(SB)ZZZZ(SB)1:NP6NP670RT8RZR51:TPT7:7DZ5O7ND81137XN(D8,R)OZ5Z518b1ı6RWT:4190#6"QWQEW1)6,666QE113X6@E(QE,RE)S(QS,RS)CE1:W3:^6Jh6T4420t6^CE1ı6hRET:44206rCE1W3:6|4460:6Q(SBNB)16Q0Q146RT:X12:Y81:18306O:O1:1920:3490:6XXO:ZO7605PCE1ı!5ZRET:4420:15dRERS:4420=5nCE1ıG5x4460S5CE1ıb5RET:4420q5QEQWW3w55RWRN:41905CW1ı5RWT:53505CW1W1:541305CW1ı5RWT:4190:5RWRN5CW1ı541306CW4W4İ5060:6370!45030=4W4RERS:6710:350:_4W2RNTRERN:4690:350:4W2RSRNRSTİ5510:350:4W2İ6430:350:4 RWRSİ4520:350:46500:350:4RERS:44204(CE1ı42RET:48304<CE1W3:5F443VRWT:5350 3`CW1W1:*3j413063tCW1ıG3~RWT:4190:h3X130:Y105:1110: SO LEADS}3AX$"A"İ7040:3W4:TP1:X70:4900:1830:460:PTRS3RWRS:12103RWRSQW12N(13,RS)O(1).5İ17033404TP0:4870:1830:360W1QWQEW1:2CW1ı'2413032CW1ıH2W1:RWT:4190:X2RWRE:6130l2CW1QWQEW1x25410:2QW13112W(QW,RW)OCW1:222QW13112$W(QW,RW)S(QS,RS)CW1:2.282BRWRE:41903LCW1ıS(QN,RE)Oı1%1CE1:HC1:11RE14>1QE113Q1 CECEE(QE,RE)W1s1 CEORETCE1:HC1:|1*CEO141>1HRW141RQW1131\CWCWW(QW,RW)1f1pCWORWTCW1:HC1:1zCWO111RWRE:41902C0DRSRERWRS:RNRW:1210:340:572070N6210:340Q0XTP0:4870:1830:360c0bHC1RNTıt0lW1İ5030:0vW3İ5090:05060:0QE13110RE4110E(QE,RE)Oİ58400CE1ı0000QNQE131N(QN,RE)OE1İ350:5660/4020:/CW1CW0:HC0:RERW:4420O/CE1İ350:5660j/FLOFL1:5960:5600t/4460/CE1İ350:5660/RET:4420:350/PTRE:TP1:4900:1830:460/&4970/0HC1W3İ6040:340:57200:W3İ6100:340:5720(=L:6);UB;23);OB>=V"-----------------------------"I=`Y02|=j6);G(0,Y);12);"";23);G(1,Y)=t:=~" "=:===6);QE;12);="";23);QW:>:" ":>I>ZZ1Č198::"GAME OVER";::620:UBO:OBOg>" PLAY AGAIN ? (Y/N) ";{>AX$:AX$"N"Ā>>RS0>XZ17> (43NPSP)(163XZ)RSXZ>>ET0:WT0>(J814>2TE0:TW0><K8113?FTETEE(K8,J .-J--.-SI- -޻M?7M1s-?ߛIM mmIM۟i - - M;;3MM)m-Mi1??niIIIIMJiIIIIMSIiII MIII-MII???SI M JI M M13--n -3M?7M13-)3Mns--3M13M13-;W-)sI M.-5--IJ -I;??MI)mI W)M--MI ;?ߛI m mI ;SImI)MI;;ߛI m mI ??J-MI -MIiIIISI MIISI MISI MSI MSI IiIII:???????N)----mIIiIiIM MIIiInIM)m M ??NMI--MI?SII -MIIMI nMIMI Ii MJIIMIۛII MIIII -MIIII??JI -M MII)m1?;J)mIIMI)mI ??---M ---mIII?nI MMIiIIIM M M MIII;?;?IIIIII?ۛII)mIIJI)-mIISIIiII ?????JM---MM -???W--M -???)-------?????????. 57m 5wMi Mi IIII M-MI -m????W)m ---m??????S ----m--;????S)m --m-??;-MII)-MIiiMMߟiM MMi - M?I M M ߟiiiMMJIIMIۛMI ni- mii?. MMmiI3MMMmII3MIImIISII mIISII mIISII mIII mIIIۛIIImIIJIII mI;;?-mIII -7--MII m????????IMIIJiIIi)MIsmiIIIIIIJiI ??)-mI ;?)-mIi???W--M  Ȅ,0 `.0{%,-jzI MI MJI MIߛI MM MJI MIJ MiM??jI)-mI??J MiMSI MiI MIIiIIIIII1SIIIIMMۛIIMIii5?MMMI- M?#0V?76-u?'$-766>--6?$$$-&,46.&$$,4666.&$$$$45666&%$$456&%4-65$$5665$$45665$$4566,$$,466,$$,466,$$.6-???--?65$$5665$$45665$$,466,$$,466,$$.665$$%66&%$$%66.6&$$$$.66.&$$.66.$$.65%-6$-.,/56??6.-%$666??6.-56??666--$?76--8):TWTWW(K8,J8)?P1?ZTEETESJ8:ETTEI?dTWWTWSJ8:WTTWO?n`?xWTETEWWSr?ETWTEWES?RSRSEW10?EW1EW$"CLUBS"?EW2EW$"DIAMONDS"?EW3EW$"HEARTS"?EW4EW$"SPADES"?RS1EW$" "? **********************9* IDOL *U* BY GLEN ARCHER *q(* COPYRIGHT (C) 1985 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P::2010Z** TELL PLAYER TO WAIT **f d:K7:17:(1).7ĺ" YOUR STRENGTH POINTS":8)"JUST DOUBLED!":HPHP2:2430:450gf** STRENGTH POTION ? **pA9ĺ" YOU GAINED 300 STRENGTH POINTS!":HPHP300:450zA7840** A TREASURE CHEST **" DO YOU WANT TO OPEN IT ? ";16368,0:" THERE'S NOTHING HERE."::450A** FOUND A TREASURE **T A(10(1))1h*FL1FL0:9804:" YOU FOUND ";TR$(A)"!":>A4A7A9860H" YOU GAIN "TV(A)" TREASURE POINTS.":TRTRTV(A):450R*** MAGIC POWDER ? ***J\A4U TO A NEW SPOT!":24106MP(PY,PX)X:PY:PX:"X"sJ((1)14)1:K((1)31)1:MP(J,K)1(JPYKPX)730PYJ:PXK:TXPX:TYPY:XMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260(1).75800(1).51000*** NOTHING THERE ***% ::"YOU FELL INTO A PIT!":2350gLS((20(1))1)10:HPHPLS::" YOU LOSE "LS" STRENGTH POINTS.":HP0HP0:DL0:TR0:10)"YOU ARE DEAD!":2390:2200:1660450*** GIANT CONDOR ***:"A GIANT CONDOR GRABBED YOU"::"AND MOVED YOFXMP(TY,TX)1İ2330::10::"YOU HIT A TREE!"::TYPY:TXPX:450ybMP(PY,PX)50:PY:PX:"X":A$"N"A$"S"PYTYlA$"E"A$"W"PXTXvXMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260(1).5710*** PLAYER FELL INTO A PIT *** :6 DIRECTION (";::"Q";::" TO QUIT) ? ";q16368,0:A$:A$"N"A$"W"A$"E"A$"S"A$"Q"İ2310:520A$:A$"N"TYPY1:580A$"S"TYPY1:580&A$"W"TXPX1:5800A$"Q"1960:TXPX1D2240N*** HIT A TREE ? ***TINES **4A10:J13:A$("FBR",J,1)A1J:J3;JVA$:A11150,1240,1350s**IS PLAYER BOXED IN?**}2560** IS PLAYER DEAD ? **HP11640HP10000HP10000CV(37):2270:37,CV** GET A DIRECTION **+:"WHICHILLED THE DRAGON!"::2370:KM(8)KM(8)1:810L r** PRINT THE OPTIONS ** |19:"YOU MAY DO ONE OF THE FOLLOWING:";:"F) FIGHT B) BRIBE R) RUN"::"WHAT DO YOU WANT TO DO ? "; 16368,0:A$:A$"F"A$"B"A$"R"İ2310:390 ** GOTO THE ROU "X3640 ,X4750) 6X507809 @X1001890W J*PLAYER FINDS A MONSTER* TME$(((1)5)1)" THERE'S A "MN$(X4)" HERE":"GUARDING ";:A((1)10)1:TR$(A)"!" ^** IF PLAYER HAS SWORD, KILL THE DRAGON **/ hX48MR1Ğ:"YOUR SWORD KJ,K)1200N DYJ:DXK:MP(J,K)100:PY8:PX16:TXPX:TYPY:PY:PX::"^":m **SET UP SCREEN DISPLAY** 1:35:"HIGH":34:"SCORE:" 4::HI$(HI):39(HI$):HI$::2270:2290:34,15  ST1ST0:17:450 *GOTO VARIOUS ROUTINES*35L3:170 L((1)10)5C MP(J,K)L:J:K:L1ĺ"I":190L "X" ::MP(8,16)2:ST1:HP3000:TR0:MR0:TT0:SC0:J110:KM(J)0::DL0:FL0 ** SET X/Y CO-ORDINATES OF IDOL'S POSITION ** J((1)14)1:K((1)31)1:(J8K16)MP(K::" ":J15:17J:K:" ";:K18:" "::K:" "::19 SPACES n19:K2:"CREATING FOREST":21:K4:"PLEASE WAIT" x* CREATE RANDOM FOREST * J114:K131:X(1):X.7L1:170 X.5L4:170 X.A$:A$"Y"A$"N"920/A$::A$"N"840(1).75ė:17:"THE CHEST CONTAINS A SWORD. IT"::"WILL KILL ANY DRAGON YOU MEET!"::MR1:2430:450(1).85ė:17:" THE CHEST WAS TRAPPED!"::"YOU DIED WHEN YOU OPENED IT.":2390:2200:HP0:DL0:TR0:16608403** PLAYER WON IDOL **Y:" CONGRATULATIONS! YOU JUST":9)"WON THE IDOL!!!"::DL1:2470:450DL1780**GIVE PLAYER A CLUE**75:::"YOU HEAR THE WIND WHISPER..."PYDY1110PYDY1080 HIGH SCORE! "::H120:H24:INC1?$17:H1:A$:21:H2:A$k$&J15:X(16384):X217X206ĝ:1770$0:S$"Y"āJ(H1INC)5H15INC:768,J:769,4:770::1860$:J110:$DH1H1INC:H2H2INC:H14H120INCINC$N1820 %X** PLAYER FO::=#19:9:"YOUR FINAL SCORE = ";::SCTTTRDL:SC:m#23:" WOULD YOU LIKE TO PLAY AGAIN ? ";#SCHIHISC::" ";::1810#A$:A$"N"Ģ23:1:958:17:"SO LONG!";:#A$"Y"1770#100#*** HIGH SCORE!!! ***#$A$" NEW ::_":7)"TOTAL = ";:J110:TTTTKM(J)::TT;" X 10 = ";:TTTT10::TT;::" BONUS!"":10)"TREASURE POINTS = ";::TR:":5)"BONUS FOR FINDING IDOL = ";::DL:#::4:J133:" ";:::J13:4:" ";:36:" "::4:J133:" ";::"FINAL STATISTICS";::" ***"R!3:14)"MONSTERS KILLED":J139:"-";::!J13:1:MN$(J)9)" = ";::KM(J);::15);MN$(J3)23)" = ";::KM(J3);::29);MN$(J6)35)" = ";::KM(J6)"::15);MN$(10)23)" = ";::KM(10)::J139:"-"; THE DWARVES":"DECLARE YOU THEIR HERO AND AWARD":"YOU 1000 TREASURE POINTS!":2200:1660u ^*** PLAYER DIES *** h::" YOU RAN OUT OF STRENGTH!"::8)"YOU ARE DEAD.":HP0:TR0:DL0:2390:2200:1660 r** FINAL STATISTICS **"!|::9:"*** ";:"::"OUT OF THE FOREST ALIVE!!!":2490:2200K6** DIDN'T FIND IDOL **@:DL0ĺ"UNFORTUNATELY, YOU DIDN'T FIND"::"THE IDOL SO YOU WERE SENT TO"::"THE MINES OF MONTEREY.":2200:1660J** BONUS FOR IDOL **\ T:DL1000:"YOU FOUND THE IDOL! PX1:1530%MP(PY1,PX)114407TYPY1:1530OMP(PY1,PX)11440[TYPY1e2240RN3RN4PYTY:1560PXTXXMP(PY,PX):MP(PY,PX)2:PY:PX::"^"::260"** YOU MADE IT OUT! **/,::"CONGRATULATIONS!!! YOU MADE IT2200:HP0:DL0:TR0:16608*** PLAYER MAKES IT ***\11)"YOU MADE IT!":J11500:u*** MOVE PLAYER ***MP(PY,PX)X:PY:PX:"X":RN(4(1)1):RN1450,1470,1490,1510MP(PY,PX1)11440TXPX1:1530MP(PY,PX1)11440 TX1400$Z** MUST FIGHT ANYWAY **d::(1).4ĺ7)"YOU DIDN'T MAKE IT."::7)"NOW YOU MUST "::7);::"FIGHT THE "MN$(X4)"!"::1150n*** PLAYER DIES ***x(1).8ĺ" THE "MN$(X4)" KILLED YOU WHILE"::6)"YOU WERE RUNNING AWAY.":2390:*** PLAYER DIES ***n(BANB.75ĺ::5:"THE "MN$(X4)" KILLED YOU."::TR0:DL0:HP0:2390:2200:16602:6:"NOW YOU MUST ";::"FIGHT!"::1150<*** PLAYER RUNS! ***F:::7:"RUN FOR YOUR LIFE!!!"::J11500:P2560:FL1FL0::310:12406NB((MS(X4)2)200(1)1):TRTRBAS*** MONSTER ACCEPTS ***BANBĺ:"IT ACCEPTS YOUR BRIBE.":450 ** MUST FIGHT ANYWAY **2270::"THE "MN$(X4)" TOOK YOUR MONEY BUT"::" YOU DID NOT GIVE IT ENOUGH.":J11500::2200:TR0:DL0:16602*** MONSTER DIES ***4::"YOU KILLED THE "MN$(X4)"!":2370::KM(X4)KM(X4)1:HPHPPN:810*** BRIBE MONSTER ***::"HOW MUCH TREASURE WILL YOU"::"GIVE THE "MN$(X4);:" ? ";BA$:BA(BA$) BA0BATRİ2"HOW MANY POINTS TO USE ? ";PN$:PN(PN$)HPNHPPN1İ2310:1150MPMS(X4)((MS(X4)10)(1)1):DF((1)25)1:PNDFMP1220*** PLAYER DIES ***HP0:::4:"THE "MN$(X4)" KILLED YOU.":::" YOU LOSE EVERYTHING!":2390W$"NORTH":PXDXW$W$"EAST"8$PXDXW$W$"WEST"B.1130e8W$"SOUTH":PXDXW$W$"EAST"}BPXDXW$W$"WEST"L1130VPXDXW$"EAST":1130`W$"WEST"j:"THE IDOL IS TO THE "W$"."::255:450t** FIGHT THE MONSTER **,~:UND IDOL **>%b::5:"YOU FOUND THE IDOL!!!"::FL1:2450%l:"UNFORTUNATELY, THERE IS A LARGE"::"DRAGON HERE WHO IS GUARDING IT."::"DO YOU WANT TO ";::"F";::"IGHT OR ";::"R";::"UN ? ";%v*** FIGHT OR RUN ? ***&16368,0:A$:A$"F"A$"R"İ2310:19203&A$:A$"F"X12:1150=&1350W&*** PLAYER QUITS ***&::10)"ARE YOU SURE"::6)"YOU WANT TO QUIT ? ";&16368,0:A$:A$"Y"A$"N"İ2310:1970&A$"N"ĺ:450&TR0:DL0:HP0:1660'*** INIT. VARIABL **********************9* QUINTIC *U* BY J. GESCHWENDER *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P INITIALIZE Z16128:CX(7),CY(7),P(2),NAME$(2),W$(4)" YOU BOXED YOURSELF IN!"::" YOU DIED FROM STARVATION.":HP0:DL0:TR0:2390:2200:1660e2 TO PLAY TUNES ***\1 J0N:T((D$,J61,3)):D((D$,J64,3)):768,T:769,D:770::1 * DID PLAYER WANT ANY SOUND ? *1 S$"N"āJ11000::1 1 ** PLAYER BOXED IN? **_2 MP(PY,PX1)1MP(PY,PX1)1MP(PY1,PX)1MP(PY1,PX)1ġ:::LAYER WINS THE IDOL **e0 2530:D$"064128064128071032077064077128081040077040077128":N7:2510:0 **EXIT FOREST SOUND**0 2530:J25555:768,J:769,3:770:768,J2:769,3:770:768,J4:769,3:770:768,255J:769,3:770::1 *** SUBROUTINEJ2553015:768,J:769,25:770::A/t *** "BONUS" SOUND ***/~ 2530:J115:768,175:769,8:770:768,100:769,8:770::/ *** IDOL SOUND ***/ 2530:J14:K2030:768,K:769,2:770::K30201:768,K:769,2:770:::0 *** TUNE WHEN P5:770:::=.8 **** TUNE WHEN PLAYER KILLS A MONSTER ***}.B 2530:D$"255045235045220040148110185035148110":N5:2510:.L *** DEATH SOUND ***.V 2530:J1752555:768,J:769,20:770:768,J10:769,10:770::.` *** CONDOR SOUND ***&/j 2530:" S ":33,32:.-** RASPBERRY SOUND **n- 2530:J112:768,200:769,2:770:768,150:769,2:770::- ** HIT A TREE SOUND **- 2530:J1703030:768,J:769,3:770::-$ *** PIT SOUND ***.. 2530:J10024015:KJ10J1:768,K:769,580 ,;,*** PRINT STRENGTH AND TREASURE POINTS ***y,33,40:6:34:"STREN.":34:"POINTS:"::34:HP;::" ",11:34:"TREAS.":34:"POINTS:"::34:TR;::" ":33,32:-33,40:18:35:" N ":35:" ! ":35:"W-+-E":35:" ! ":35:**PLAYER WANT SOUND?**@+z16368,0:S$:S$"Y"S$"N"2170F+b+* WAIT FOR SPACE BAR *+23:"PRESS THE SPACE BAR TO CONTINUE":16368,0+KB(16384):KB1602210+16368,0:+*PLAYER EXIT FOREST ?*,TY1TY14TX1TX31ġ:1A*RJ218:9:J:" O";:38J:"F ":S(16336)::J11000:*\A$"MONTEREY":B$" ":J22111:J:16:A$:768,J10:769,5:770:J1:16:B$::8 SPACES*fJ1800::100:15:12:"BY GLENN ARCHER":255:20:10:"DO YOU WANT SOUND ? ";+pINE** )*J770790:K:J,K:f)4173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96)>*** DISPLAY TITLE ****HA$"IDOL":J27:J:18:A$:768,J25:769,5:770:J1:18:" "::1:"** COPYRIGHT 1985 MICROSPARC, INC. **":J11000:PS!,EEEK!,OH NO!.( J110:TR$(J),TV(J):(10 GOLD PIECES,10,A GOLD SCEPTRE,55,A JEWELED CROWN,150,MAGIC POWDER,100,AN AMULET,75,A DIAMOND RING,100,A TREASURE CHEST,200,A PEARL NECKLACE,50,A STRENGTH POTION,100,A GOLD CROSS,65) **POKE SOUND ROUTES ***C'MN$(10),MS(10),ME$(5),TR$(10),TV(10),KM(10),MP(15,32)_'J110:MN$(J),MS(J):'CYCLOPS,50,WYVERN,300,BASILISK,350,SKELETON,200,MINOTAUR,100,GRIFFIN,150,HARPY,75,DRAGON,500,TROLL,125,GOBLIN,175'J15:ME$(J):(UH-OH!,OOPS!,WHOO:D$(4)A d::17:"QUINTIC"::9:"BY JAMES R. GESCHWENDER"t n6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" xUP24576:IN25423:CL25447:EV25526:PI25597:CO25920:AD25941:WH25991:DU26043:SO26078 CAP33275:NS34816:AC34808:AB32768:AP266:::210^.CC12(C2):CX0:CY191:A$"TO PLAY AGAIN PRESS P TO QUIT PRESS Q":1660816368,0:B$:B$"P"B$"Q"1080B0:Y185191:0,Y279,Y:LB$"Q"1150VY8196:207,Y267,Y:207,Y81267,Y81:`3213,59:4213,1402jXCX(N):YYCY(N):C2CX,CY:960:CYCY9:PCC1:XX2CX(N):YY2CY(N):b PROCESS WINC2P(1)P(2)1ČAD: ADOPT NEW STRATEGY N07:Q2092587:SO,278Q,9:49Q,81C39:: $V4CX32:CY191:A$"RETURN TO CONTINUE":1660:678::Q(AC): CONVERT VQ116Q244Q252Z(CAP2C):1000:CAP2C,Z1:Z11040a:430s RECORD MOVEC14X8,11Y8UP,X,Y,C15: UPDATE BOARD  PROCESS CAPTURESC1C:CC12(C2):CX27513Z:CY81C13-Q01:X16AP*N02:Q03*4V(AQ4N)G>CO,V:V(AC): CONVERT eHW(NSN256V):WW(W1)yRNSN256V,W1\:f CHECK FOR WINpQ(PR112C):Z(PA34304512C):960zQ1271040Z0430N07:Q(PRN)C1ČCO,QOF HUMAN STRATEGY.PI,15: PREDICT MOVE BA256(9)(8)TN02:Q03fV(PRQ4N)CO,V:V(AC): CONVERTW(NSN256V):WW(W255)NSN256V,W1 :AAAW:PY(A19):PX(A19PY)19 PYPY1:PX(PX1.4):AA7:bA13N0ġ:6400lN3A48A90ıKvW$(N)A$:1660:NN1:lA$"":Q0N1:A$A$W$(Q):X(A$)64:Y((A$,2)):X19Y19X1Y11700PA(Y1)19X1(PAAB)01700PRPA16APP(1)0880 COMPUTER ANALYSIS )$&CX226:CY81C19:1660:88060 PLAYER MOVE:CX226:CY81C19:A$"???":1660:N0:CX226:V4ćA$:1660:N0999::650DSO,4040C,80: TONE FOR NEXT MOVEN50CX,CY:A$:600:590XA(A$):50CX,CY:A8N0NN1:CXCX7:1660:CXCXCY191:A$"PAUSE":16608A$:CX78:A$"?????":1660HP(C)0570^ COMPUTER MOVE EV,112C: EVALUATE OPTIONS (13 IS WHITE)N256(9)(8)PANAW:Y(PA19):X(PA19Y)19:YY1:X(X1.4)PRPA16APA$(X64)(Y)(32K)DU: DUPLICATE COMPUTER STRATEGY@CL: CLEAR BOARD rX10:Y10:M1:CAP2,5:CAP4,5:A$"J10":550MM1:CC12(C2):3213,59:4213,140L(16384):(P(2)0V4)L155480CX226:CY81C19:A$"???":166016368,0:CX78:,201,3,272,17,204,4,269,16,207,5,266,15Y T 202,34,271,44,195,49,278,99,220,54,253,64 ^ 202,115,271,125,195,130,278,181,220,135,253,145 hY14168:17,Y171,Y:(Y3)8((Y3)8)ĕ4817,Y r |P(2)1410WH: COPY WHITE STRATEGY TO BLAC2373.5(A$):1660:CY123:A$NAME$(2):CX2373.5(A$):1660s "N6:Y221738:N9,Y:N181,Y:NN1:N15N5 ,:Y941738:63,Y:6175,Y: 6N012:X1,Y1,X2,Y2:1620::3213,59 @ 16,13,172,169,1,1,187,181) J 195,1,278,19,198,2,275,18) DRAW DISPLAYJ N22::X221738:NX2,10:NX2,178:NN1:n CX213:CY13:A$"QUINTIC":1660 CX219:CY29:A$"WHITE":1660:CX219:CY110:A$"BLACK":1660 CX210:CY157:A$"CAPTURES":1660:CX210:CY76:1660? CY42:A$NAME$(1):CX24:AW34304 EF1:2180C D$;"BLOAD QUINTIC.SHAPES,A$9200"N 216,0k 232,0:233,146:1:0:3{ EF2:2180 D$;"BLOAD QUINTIC.ML" 216,0 N07:CX(N),CY(N)::0,-1,0,1,-1,0,1,0,1,-1,-1,1,-1,-1,1,1 1220:NAME$(2)(NAME$(2),8CX226:CY62:A$"???":1660:CX226:CY143:1660;t360K~EF6:1200P(1)P(2)1ĺ:D$;"BSAVE";NAME$(1)",A$8E00,L$300"216,0::12:13:"SEE YOU LATER.":23:2180 CHOOSE MODE1:17:"QUINTIC":12:34,20C1:"DO YOU WISH TO PLAY;":8:"1) HUMAN VS. HUMAN"r8:"2) HUMAN VS. COMPUTER":8:"3) COMPUTER VS. COMPUTER ":"OR DO YOU WANT;":8:"4) INSTRUCTIONS"::7:A$V(A$):V4V11220N((78))::V1280,1430,1310,1740P(1)0:P(2)0A  COMPUTER VS. HUMAN OPTION":"TO CREATE A NEW COMPUTER PLAYER":2150l&z21:1:"ENTER '?' FOR CATALOG":'3288:216,0:D$"CLOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):24:"PRESS TO CONTINUE";:Z$::EF140,180,1420,1450,1570,1NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::NFNF%H(F$,1)"?"ė:D$("CATALOG",74((48896)76)):F$"?"%R%\23:"NAME MUST BE 8 OR FEWER LETTERS."%f24:1:"PRESS TO CONTINUE";:Z$:F&p21:1:"USENAME$(1)"HERBERT":NAME$(2)"JOE")$ T$ I9,K9,I11,L8,I10,I8,G11,J8,K8,H8,L10}$  J7,I7,J8,J9,H11,J6,K5,K9,H9,H10,J8$* H7,H9,H8,I8,J8,G10,H10,J7,K6,F11$424:10:"";:16368,0:678::S%>NF1:LF(F$):LF9LFāNC1LF:2#"IT, AND WHEN IT IS FINISHED, YOU SHOULD":_#"KNOW EVERYTHING YOU NEED TO KNOW TO":#"BEGIN PLAYING. PRESSING ESCAPE DURING":#"THE DEMONSTRATION WILL TEMPORARILY HALT":#"PLAY UNTIL YOU PRESS ANOTHER KEY.":2100#$P(1)0:P(2)0:TO":6""FORM A PAIR BETWEEN TWO ENEMY STONES.":f""WHEN THE FLASHING 'O' STONE IS PLAYED,":"18:"XO X":1339,79:""NO CAPTURE IS SCORED.":2100""A DEMONSTRATION IS PRESENTED HERE TO":#"ILLUSTRATE WHAT HAS BEEN SAID. WATCH":. HERE IS AN EXAMPLE;":5!X18:"XOO":1596,88:e!b"THE TWO 'O' STONES WOULD BE REMOVED FROM"!l"BOARD WHEN THE FLASHING 'X' STONE IS":!v"PLAYED.":2100!"NOTE THAT IT IS NOT POSSIBLE TO 'CAPTURE"""YOURSELF' BY PLAYING A STONE SO AS IRS OF". "YOUR OPPONENT'S STONES.":2100^ &"A CAPTURE OCCURS WHEN YOU FLANK A PAIR": 0"OF YOUR OPPONENT'S STONES. THAT IS,": :"YOU MUST PLACE STONES SO THAT YOU HAVE": D"ONE ON EITHER SIDE OF AN ADJACENT PAIR":!N"OF ENEMY STONESNTIL ONE OF THEM WINS. THERE"O"ARE TWO WAYS TO WIN. THE FIRST IS TO":"GET AN UNBROKEN ROW OF AT LEAST FIVE OF":"YOUR STONES EITHER HORIZONTALLY,":"VERTICALLY OR DIAGONALLY. THE SECOND": "WAY IS TO CAPTURE AT LEAST FIVE PA54:CY191:A$"INVALID MOVE":1660@SO,250,250: ERROR TONEgCX54:A$"???? ?? ????":1660:570CX54:A$"???? ?? ????":1660:580:"PLAYING QUINTIC IS AS SIMPLE AS THIS.":"TWO PLAYERS ALTERNATE PLACING STONES ON": "THE BOARD UTX1,Y1X1,Y2X2,Y2X2,Y1X1,Y1P^X11,Y11X21,Y11:X21,Y11X21,Y21hX11,Y21X21,Y21:X11,Y11X11,Y21:r SCREEN PRINT|0:W1(A$):A((A$,W,1))49CX,CY:A43ĕA43CX,CYCXCX7::3: INVALID MOVE#CX2170:8:"WHAT NAME WOULD YOU LIKE? ";F$m2110:NFĴ(F$"?")12140,2150:86(F$"?"):1:958:1530}NAME$(1)F$IN: INITIALIZE COMPUTER STRATEGY "EF5:2180,D$;"BSAVE"NAME$(1)",A$8E00,L$300"6216,0@J BOX PLOTTER"NAME OF HUMAN PLAYER? ";NAME$(2)o2170:6:" FOR NEW PARTNER.":4:"NAME OF COMPUTER PLAYER? ";F$F$""15302110:NFĴ(F$"?")12140,2150:4:1:958:1450NAME$(1)F$EF4:2180D$;"BLOAD"NAME$(1)216,0,ER #2? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,1340_FNAME$(2)F$oPEF3:2180ZD$;"BLOAD"NAME$(2)dWH: COPY WHITE STRATEGY TO BLACKnD$;"BLOAD"NAME$(1)x216,02160::1220P(1)1:P(2)0"""NAME OF PLAYER #1? ";NAME$(1):"NAME OF PLAYER #2? ";NAME$(2)GYP(1)1:P(2)1(2170:10:"NAME OF COMPUTER PLAYER #1? ";F$:2110:NFĴ(F$"?")12160,2150:2:1:958:(F$"?")11220,13202NAME$(1)F$O<2170:12:"NAME OF COMPUTER PLAY160 L L L a a a a a a a a a a a  a a  a a  a a  a a a a a a a a a a a a " ***************************C* QUINTIC.TEACHER *d* BY JAMES R. GESCHWENDER *(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***************************P INITIALIZE Z348?d- $$d9?7 $$M166?$$M16 $$M166 $d l > $l -- 7--? ?6-  - ?$--)e?$$ - $ $?? - ?d-6- $$?v-$-!$6$$$--? $d-?$$$-66?$M8?$,-5??$M8?$,-5 $d-*?$$$M1-56--$$,; - $$<$$$M--$$,$$$f`666$$$V$$$ $d-66?$$$-? $d-6?$$$-?- ? !-9DQ[fs|&3>GS$ - c 6 ,D>$5?,6I?6- $ ?-)??.m->??w--?)e$$$$ ---$$<--d- ?- g!?I$,$6.-dN 寧-   L.e` L)jjjjM`  Lwei ` H Ceh `  ` L L 0Le`8 f i L?e ߩh <!i(  iLNd P  ɇޥiة  ɇiLeLȭh 􇩎La`*.mm``h ` c`hHiih` L d08)i 8 M d0 ` L燍HHhLchH V Ce)wt8 =~>LbLcȱɀLc  0Lb !ʝLb  ,c ,c a  a a a a$ a  a a a``Laimi&&ihELaE 􇩑16:24576:ES%(100),MS%(100) d::13:"QUINTIC.TEACHER"::9:"BY JAMES R. GESCHWENDER":6:"** COPYRIGHT 1986 BY MICROSPARC, INC. **" nEF3:1410 x(4);"BLOAD QUINTIC.SHAPES,A$9200" 216,0 232,0:233,146:1:3:0 740 MAIN MDD36864,MS%(N):::/"SAVING ";F$T(4);"BSAVE";F$;",A$8E00,L$300"_216,0N$;" IS SAVED AND READY TO PLAY.": SCREEN PRINT0:W1(A$):A((A$,W,1))49AX,AY:A43ĕA43AX,AYAXAX7::3: INSTRUCTIONS THE NEWLY TAUGHT PLAYER? ";F$:1380:NFĴ(F$"?")11440,1430::880c:"FINALIZING CHANGES"N0:N11517:N21517:N31517:N41517:NN1ADDN1(N115)N2(N215)2N3(N315)4N4(N415)8ADD36352,ES%(N):ADD36608,ES%(N)A1=*ADDN1(N115)N2(N215)2N3(N315)4N4(N415)8f4ES%(N)((ADD36352)(ADD36608))2~>MS%(N)(ADD36864)H:::R170\ SAVE STUDENTfEF2:1410p:"ORIGINAL PLAYER NAME - ";NAME$:Gz"WHAT NAME DO YOU WANT":"FOR10x12:"WHAT IS YOUR PUPIL'S NAME? ";NAME$:F$NAME$:1380:NFĴ(F$"?")11440,1430:1210(F$"?"):1:958:750:"LOADING ";NAME$(4);"BLOAD";NAME$ 216,0:"EXAMINING ";NAME$ N0:N11517:N21517:N31517:N41517:NN1ES%(N)S:690MS%(N)SRA$"00"(S):A$(A$,3):AXCX5:AYCY40:10100:CX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32223,166256,166256,178223,178223,166:3A21:D1560,100,100,500 LOAD STUDENTEF1:14S0)b50AX,AY:A$:A(A$):620:610^l50AX,AY:A8D0DD1:AXAX7:1010:AXAX7:vA13(D3D0)ġ:D1700,100,100,660A48A57D3ıS(D)A48:1010:DD1:SS(2)10S(1)100S(0):AX229:A$"???":1010:S255S1600MCX0CX118CY(NNCX.1)48112:CX(CX2513.9)J&A13D3580w0CX,CYCX8,CYCX8,CY32CX,CY32CX,CY:440DCX7,CY32CX15,CY32CX15,CY42CX7,CY42CX7,CY32N223,166256,166256,178223,178223,166XAX229:AY175:D0:CY32CX,CY32CX,CY:3UD0:A49A50Ĺ16349A,0:230,(A48)32:N141(A50)cA27170A32NN11:N41N53N1A8NN1:N41N81A21NN1:N42N1N1N41N81N42 NNN41(N41):CX((NN11)(NN11))11:X,Y12:N236X,Y6:N336X,Y24:N436X,Y30:3:54X,Y18u|A$"00"(MS%(C)):A$(A$,3):AXX9:AYY42:1010XX25:X275X15:YY48ADD33504,P::: TEACH STUDENTN1:A49:460A$:A(A$)0:CX,CYCX8,CYCX8,:YY48' ,ADD32992,P:ADD33248,P3 6:::< @430R J CENTER STRATEGY T:X15:Y0:C0:16302,0:AX220:AY157:A$"PAGE 1":1010 ^N11517:N21517:N31517:N41517 hCC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010?rN1360101 N11517:N21517:N31517:N41517l CC1:C42Đ:Y0:X15:AX220:AY157:A$"PAGE 2":1010 N136X,24Y:N236X,18Y:N336X,Y12:N436X,Y6:3:54X,Y30 A$"00"(ES%(C)):A$(A$,3):AXX9:AYY42:1010 "XX25:X275X15SPLAY SCREENS: USE <--, -->":" AND SPACE TO MOVE CURSOR, TO":" CHANGE ITEM, FOR MENU." 17:10:"WHICH? ";A$:M(A$):M5M1170 M240,340,870,1050,1420 END STRATEGY :X15:Y0:C0:16302,0:AX220:AY157:A$"PAGE 1":1ENUi ::13:"QUINTIC.TEACHER"::"** COPYRIGHT 1986 BY MICROSPARC, INC **":6:16:"MAIN MENU":10 8:"1) DISPLAY END STRATEGY":8:"2) DISPLAY CENTER STRATEGY":8:"3) SAVE COMPUTER PLAYER" 8:"4) INSTRUCTIONS":8:"5) QUIT"i 20:"ON DI>6:34,5::"THE QUINTIC.TEACHER PROGRAM IS DESIGNED":n$"TO ALLOW YOU TO 'COACH' COMPUTER QUINTIC"."PLAYERS. COACHING CONSISTS OF ALTERING":8"THE STRATEGIC PRIORITIES THAT THE PLAYER"B"USES WHEN IT MAKES ITS CHOICE OF MOVES.":/L"A STRATEGIC PRIORITY IS A RATING FROM":_V"ONE TO TWO HUNDRED AND FIFTY FIVE THAT":`"REPRESENTS THE VALUE OF PLACING A WHITE":j"STONE AT THE INDICATED POSITION."t1360~"THERE ARE TWO TYPES OF PRIORITIES;":"END PRIORITIE"C$"T"FL2:450:490:PO$(X)C$:nC$"P"G(X)0ė:23:"NO GRENADES LEFT.":E11000:E::23:FL3:C$"T"G(X)0ė:23:"NO GRENADES LEFT.":E11000:E::23:FL3:GC$"T"PO$(X)"P"ė:23:"NICE THROW":E11000:E:" - BUT YOU FORGO"F"SH(X)0PO$(X)"A"ė:23:"YOU JUST SHOT YOURSELF IN THE FOOT.":"YOU DIDN'T AIM FIRST.":E11500:E:SH(X)SH(X)1:PO$(X)C$:C$"F"SH(X)0ė:23:"CLICK - RIFLE NOT LOADED!":E11000:E:PO$(X)C$:C$"F"PO$(X)C$:2730&PO$(X)"P MINE."3NFL2ĺ"MAN #";X;" BLOWS HIMSELF UP!"DXZ11000:ZPb:23:blE1200:E:vvC$"D"FF(X)1C$"U"FF(X)0C$"L"SH(X)1:760C$"A"PO$(X)"R"ė:23:"YOU CAN'T AIM WHILE RUNNING.":E11000:E::23:FL3:C$QbSXTdS$baOz"!f`^W\ t1^bMVSgU]YYTRXxTmkZ|eRf[![nK2ujQX`dcmcRKvMFXiwSLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRKˠRKLYVPTrSJtSNfRa^XSU[QKՙPKကPP`W_TTRSSsRK|nSL~QNQPh[cYaUai^RSOKRXSQK͠QKbiRKˠRKnNFF$(F$,1)x|216,0:(4)"CLOSE"::12:"ERROR "(222):"IN LINE "(218)256(219):1360::EF740,870,110:2:1:958:2:(4)("CATALOG",74((48896)76)):1360:23:"NAME MUST BE 8 OR FEWER LETTERS":"PRESS TOWILL BE READY TO TEST":O<"CHANGES YOU HAVE MADE. NOW TRY IT OUT.":1360XF170P24:8:"";:678Z:dNF1:LF(F$):LF9LFāNC1LF:NA((F$,NC,1)):NF((NA64NA91)(NA46NC1)(NA47NA58NC1))NF1::NFNFHAVE MADE ALL THE":C"CHANGES YOU WISH TO MAKE, PRESS THE":t "ESCAPE KEY, AS THIS RETURNS YOU TO THE";:"MAIN MENU.":1360"THAT IS ALL THERE IS TO IT. FROM THE":("MAIN MENU YOU CAN SELECT THE SAVE OPTION"2"AFTER WHICH YOU NGE A PRIORITY, MOVE THE 'CURSOR'":W"TO THE ITEM YOU WISH TO CHANGE BY USING":"THE ARROW KEYS AND THE SPACE BAR. ONCE":"THERE, PRESS THE RETURN KEY. THEN JUST":"ENTER THE NEW PRIORITY AND PRESS RETURN":"TWICE. WHEN YOU S AND CENTER PRIORITIES.":F"A COMPLETE SET OF END OR CENTER":v"PRIORITIES REQUIRES TWO HIGH-RES SCREENS""TO DISPLAY. PRESSING THE '1' KEY BRINGS""UP PAGE 1, AND THE '2' KEY PREDICTABLY":"GIVES YOU PAGE 2.":1360&"TO CHAT TO PULL THE PIN":E11000:E:G(X)G(X)1:EE(X)1::23:PO$(X)C$:C$"P"A(X,2)85A(X,1)1ė:23:"CAN'T SEE THE MACHINE GUN FROM HERE,SIR.":E11500:E:FL3::23:C$"T"PO$(X)C$:2960PO$(X)C$: 0:1XO,YO:3:1XC,YC:PO$(X)"STUCK":A(X,1)XC:A(X,2)YC:Z A(X,2)60A(X,2)70A(X,1)225A(X,1)235AA1:A(X,2)115A(X,2)125A(X,1)190A(X,1)200AA1: A(X,2)80A(X,2)90A(X,1)130A(X,1)140AA1: *A(X,2)95A(X,2)105A(X,1)50A(X,1)65XC5' XC5FL1:450:490:2030; K$"K"XCXC5] XC275FL1:450:490:2030q K$"M"YCYC5!(((YCYO)2(XCXO)2))STĒ0:1XO,YO:3:1XC,YC:A(X,1)XC:A(X,2)YC::23:"YOU ARE ONLY ALLOWED ";ST5;" PACES":E11000:E::203015:770:2030: BARBED WIREGbYC95XC235XC265YC95:770:2030plYC105XC2XC60YC105:770:2030vYC40ė:23:"FELL OFF THE CLIFF - TOUGH LUCK.":E12000:E:0:1XO,YO:1XC,YC:3:ST$(X)"KILLED":A(X,1)0:A(X,2)0:2030 K$"J"XC20:PO$(X)C$/K(16384):K127Ĺ16368,0<1XC,YCSK128K$"":1830cK$(K128)w&K$"I"YCYC50YC1101880:U120DXCM(U,1)FL1:450:490:M(U,1)0:M(U,2)0:2030: MINE EXPLOSIONNUXYC115XC110XC135YC1$"C"2030]C$"R"FF(X)1ė:23:"YOU MUST STANDUP BEFORE RUNNING":E11000:E:1490C$"C"FF(X)0ė:23:"YOU MUST LIE DOWN BEFORE CRAWLING":E11000:E:1490XCA(X,1):YCA(X,2)XOXC:YOYCC$"C"ST5:PO$(X)C$C$"R"ST POSITION A-AIM":"F-FIRE L-LOAD D-LIE DOWN U-STANDUP":"P-PULL PIN T-THROW GRENADE Q-QUIT":"PRESS RETURN TO CONTINUE..";Z$:Z$""ė:23:1490PO$(X)"P"C$"T"FL2:450:490:2030C$"R"C$"C"İ630:FL3FL0:1490 C$"R"CX,1),A(X,2)hY5rI(16384):I127Ĺ16368,0e|"COMMAND? (ENTER '?' TO SEE LEGEND )";:C$C$"R"C$"C"C$"D"C$"U"C$"A"C$"F"C$"L"C$"P"C$"T"C$"?"C$"Q"1490C$"Q"3820C$"?"ė:21:"C-CRAWL R-RUN S-SET:22:"MAN #";"7)"STATUS";714)"POSITION";I23)"SHOTS";]30)"GRENADES"h3)X;x8)PO$(X);FF(X)0ĺ16)"UP";"FF(X)1ĺ16)"DOWN";,25)SH(X);632)G(X)@Y110J1A(X,1),A(X,2)TE110:E ^1A(1I,140:A(11,1)I:A(11,2)140:620Sd1I10,140:A(12,1)I10:A(12,2)140:620n:23:"LANDING COMPLETED.":Z11000:Zx135,351260,352040: ** MOVEMENT PHASE **:X112FL0ST$(X)"KILLED"20301I,130:A(5,1)I:A(5,2)130:620Q(1I10,130:A(6,1)I10:A(6,2)130:620}21I10,135:A(7,1)I10:A(7,2)135:620<1I,135:A(8,1)I:A(8,2)135:620F1I10,135:A(9,1)I10:A(9,2)135:620P1I10,140:A(10,1)I10:A(10,2)140:620%Z2,43278,43: CLIFFS:5 ** SHOW MEN **;:U3:I(((1)46)5)51I10,125:A(1,1)I10:A(1,2)125:6201I,125:A(2,1)I:A(2,2)125:620 1I10,125:A(3,1)I10:A(3,2)125:6201I10,130:A(4,1)I10:A(4,2)130:620%9458,9550,9550,9660,9662,9750,97/`2Cj2:X1071354ctY117:950:X: BARBED WIREt~X2342654Y97:950:XX1604Y108:950:X3:2,150278,150: WAVES6:2,153278,1532,156278,1565:2,41278,41:228,61231,61231,62227,62227,63232,63233,64226,64B190,108192,108193,109189,110193,110194,111188,111187,112195,112186,114196,114L132,75133,75134,76132,76131,77134,77135,78131,78130,79136,79(V52,9254,9255,9351,9457,1,Y10"X,YX4,Y3:(:K ** DISPLAY MAP OF AREA **Q:Wd1:1:0}X1025020: TREESY5:890:XX2026020Y20:890:XX1025020$Y30:890:X.5: ROCKS98228,59229,59230,60228,60AA1:4?>::23:"NICE THROW":E11000:E:2D1,D2HH450rR::24:"NOT WITHIN OUR RANGE, SIR."\E11000:Ef2D1,D2pzX1,YX1,Y: TREE SHAPEX2,Y2X2,Y2X4,Y4X4,Y4X6,Y6X6,Y6 X1,Y6XJ!K$"S"Ē0:1XO,YO:3:1XC,YC:PO$(X)C$:A(X,1)XC:A(X,2)YC:2030!YC150ė:23:"MAN #";X;" DROWNED IN THE SEA":E11000:E:0:1XO,YO:1XC,YC:3:ST$(X)"KILLED":A(X,1)0:A(X,2)0:2030!1XC,YC!1790!PO$(X)C$!X!:" ** MORTAR SHELL PHASE **%" :@":23::TT0:TX0:TY0Y" "ENEMY MORTAR FIRE"e"*X112"4ST$(X)"KILLED"2130">TXTXA(X,1):TYTYA(X,2): AVG. OF POSITIONS"HTTTT1"RX"\TT03820"fHH(TXTT):SS(TYTT)"pE127#zMXTHE BEACH AND HAS"40 "THE FOLLOWING DEFENSES:-"`0 ::"PRESS TO CONTINUE...";Z$p0 Z$""32700 ::10:"1) A MACHINE GUN"0 10)"2) SNIPERS"0 10)"3) MORTAR SHELLS"0 10)"4) BARBED WIRE"0 10)"5) MINEFIELDS"$1 :5:"TNE GUN NEST LOCATED THERE."J/l :5:"THIS WILL BE A FORMIDABLE IF NOT"b/v "IMPOSSIBLE TASK."/ :5:"YOUR SOLDIERS ARE EQUIPPED ONLY"/ "WITH RIFLES AND 2 GRENADES EACH.":/ 5:"HOWEVER, THE ENEMY IS LOCATED ON A"0 "CLIFF TOP OVERLOOKING INSTRUCTIONS **. :6.& :15:"INSTRUCTIONS":c.0 5)"YOUR MISSION IS TO LAND AND SECURE".: "THE BEACH HEAD WITH MINIMAL LOSS".D "OF LIFE.".N :5:"YOU WILL LAND 12 MEN ON THE".X "BEACH AND PROCEED TO LOCATE AND DESTROY"/b "THE MACHI23:"NICE THROW":E11000:E:450:2MG(1),MG(2)::23::"MACHINE GUN DESTROYED!!!":E11000:E:2MG(1),MG(2):GG0:3670- D1A(X,1)((RGDMG)(A(X,1)MG(1)))- D2A(X,2)((RGDMG)(A(X,2)MG(2)))- G(X)G(X)1- 830- 760- :. **0:1260,35:RR0:760>, :23:"MISSED":E11000:E:760D, :`, * GRENADE EXPLOSION *f, :w, EE(X)1760, GG0ė::23:"MACHINE GUN ALREADY DESTROYED, SIR?":E11000:E:760, DMG(((A(X,1)MG(1))2(A(X,2)MG(2))2))- DMGRGė:(X)1+@ LDD100DRDR3[+J DR7ė:23:"GOT HIM":E11000:E:0:135,35:LL0:760+T :23:"MISSED":E11000:E:760+^ RDD(((A(X,1)260)2(A(X,2)35)2))+h 450:SH(X)SH(X)1+r RDD100DRDR3,| DR7ė:23:"GOT HIM":E11000:E:R THERE, SIR?":E11000:E:2760g* ZZ$"R"RR0ė:23:"NO SNIPER THERE, SIR?":E11000:E:2760* DR((1)10)1: DIE ROLL* ZZ$"L"2860* ZZ$"R"2910*" ZZ$"R"ZZ$"L"2760*, LDD(((A(X,1)20)2(A(X,2)35)2))+6 450:SH(X)SH X ) ) 1430) :8) ** ATTACKER FIRING **>) :J) ::23) LL0RR0ĺ"BOTH SNIPERS ARE ALREADY KILLED, SIR?":E11000:E:760) "ENTER TARGET FOR MAN #";X) "L)EFT SNIPER OR R)IGHT SNIPER? ";ZZ$#* ZZ$"L"LL0ė:23:"NO SNIPE10027002(P AA0:780:AA12700: ROCK COVERP(Z DR((1)6)1: DIE ROLLg(d A(X,2)80DRDR1{(n A(X,2)60DR1(x 450( DR2ĝ:24:"MAN #";X;" KILLED BY SNIPER FIRE":Z11500:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0)BY MACHINE GUN FIRE":Z11000:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0c' Xi' o' :' * DEFENDER FIRING *' :' LL0RR02710'( :22::"ENEMY SNIPER FIRE":E1500:E'2 X112'< ST$(X)"KILLED"2700 (F A(X,2)(X,2)5025406& AA0:780:AA12540: ROCK COVER[& VV1DR((1)15)1: DIE ROLL& VV2DR((1)9)1: DIE ROLL& FF(X)1DRDR2& A(X,2)100DRDR1& A(X,2)100DRDR2& A(X,2)80DRDR2\' DR3ĝ:24:"MAN #";X;" KILLED X,1)1DF1: CAN SEE MACHINE GUN,%8 4503%B XB%L DF02430l%V :24:"WE CAN SEE MACHINE GUN, SIR!"x%` Y130%j 3:MG(1),MG(2)MG(1),MG(2)2:E110:E:0:MG(1),MG(2)MG(1),MG(2)2:E110:E%t Y%~ X112% ST$(X)"KILLED"2540& AĢ24::"MAN #";X;" KILLED BY MORTAR FIRE":Z11000:Z:0:1A(X,1),A(X,2):3:ST$(X)"KILLED":A(X,1)0:A(X,2)0y$X$E:$:$ * ENEMY MACHINE GUN *$ :$ DF0:GG03670$ :23::"ENEMY MACHINE GUN FIRE"$$ X112#%. A(X,2)85A(HH((1)50)((1)50):MYSS((1)50)((1)50)Z#MX275MX5MY150MY602170g#2MX,MYp#450#Z1500:Z#2MX,MY#X112#PO$(X)"KILLED"2270#DMS(((A(X,1)MX)2(A(X,2)MY)2)): DISTANCE FROM EXPLOSIONr$DMS6HERE ARE A FEW ROCKS ON THE BEACH"J1 "WHICH WILL PROVIDE SOME COVER."w1 :5:"YOU MAY RUN A MAXIMUM OF 4 STEPS"1 "EACH TURN OR CRAWL A MAXIMUM OF 1 STEP."1 "YOU ARE LESS LIKELY TO BE HIT BY "1* "MACHINE GUN FIRE IF YOU LIE DOWN AND" 24 "CRAWL."S2> :5:"YOUR GRENADES ARE TO BE USED ONLY TO DESTROY THE MACHINE GUN."2H ::"PRESS TO CONTINUE...";Z$2R Z$""34202\ ::5:"THE COMMANDS TO MOVE YOUR MEN"2f "ARE AS FOLLOWS:-"2p ::10:"R-RUN"2z 10)"C-CRAWL"&3 :,9,2,9,9,3,11,9,6,7,10,8,5,10 P2:S113:X,Y,D:MM%(X,Y)D:SH%(P,S,5)X:SH%(P,S,6)Y:: 12,11,1, 9,9,1,12,9,2,12,7,2,12,10,3,12,8,3,12,3,3,13,5,4,12,5,4,13,4,4,12,2,4,9,6,5,7,8,5Z S113:I14:D:DI%(S,I)D:::3,1,5,40,3,1,5,40,2,1,3,30,2,1,MM%(13,Y)1:MM%(14,Y)1:Y MM%(7,7)1:MM%(8,6)1:Y79:MM%(1,Y)0:MM%(14,Y3)0:MM%(2,Y)0:MM%(13,Y3)0::PF%(1)100:PF%(2)100 P1:S113:X,Y,D:MM%(X,Y)D:SH%(P,S,5)X:SH%(P,S,6)Y:: 3,2,6,6,4, 6,3,4,7,3,6,7,3, 3,8,3,5,8,3,10,8,2,8,9,3,8AN#2| H$(5),H%(25):I15:A$:H$(I)A$::I125:A:H%(I)A:: QUANTITY-,ATT.RNG.-,MOBILITY-,"ENDUR.- ",FUEL.CAP- 2,2,3,4,2,3,2,1,1,0,1,1,2,3,1,5,3,2,1,1,40,30,30,15,200 X114:MM%(X,1)1:MM%(X,12)1::Y112:MM%(1,Y)1:MM%(2,Y)1: 790:D:I,D:: 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96a MAP INIT PM%(40,2),MM%(14,12),SH%(2,13,6),DI%(13,4),PF%(2),T$(13):I113:D$:T$(I)D$:: CAR#1,CAR#2,DES#1,DES#2,SUB#1,SUB#2,SUB#3,ADV#1,ADV#2,ADV#3,ADV#4,TAN#1,T*******8.6.86*********9* ATLANTIC.CONVOY *U* BY BRIAN PARRY *q* COPYRIGHT (C) 1985 ** BY MICROSPARC, INC ** CONCORD, MA 01742 ***********************x170023:1:958:"ONE MOMENT, PLEASE"R I770 ZZ$"Y"ė:160/7ZZ$"Y"ZZ$"N"3820J7:10:10:"BYE BYE":X112&6ST$(X)"KILLED"NKNK1-6XM6:"NO. OF MEN KILLED=";NK"}6::"CARE TO TRY AGAIN, CHAMP? (Y/N) ";ZZ$6ZZ$"Y"ė:1606ZZ$"Y"ZZ$"N"378066::610:10:"GAME OVER."6:"CARE TO PLAY AGAIN? (Y/N) ";ZZ$77)"Q-QUIT PROGRAM"D5816:7)"GOOD LUCK!-- YOU'LL NEED IT!!!"o5B20::"PRESS TO BEGIN...";Z$x5L200~5V:5` ** END **5j:5t:::10:105~"CONGRATULATIONS!!":5"YOU HAVE COMPLETED YOUR MISSION"5"SUCCESSFULLY." 63:7)"OTHER COMMANDS ARE:-"64 :7)"D-LIE DOWN"K4 7)"U-STAND UP"a4 7)"A-AIM RIFLE"x4 7)"F-FIRE RIFLE"47)"L-LOAD RIFLE"47)"P-PULL PIN (OF GRENADE)"47)"T-THROW GRENADE (AT MACHINE GUN)"4$7)"?-REFER TO COMMAND LIST"5."THEN PRESS THE FOLLOWING KEYS:-":@3 10)"'I'-TO MOVE UP"\3 10)"'J'-TO MOVE LEFT"y3 10)"'K'-TO MOVE RIGHT"3 10)"'M'-TO MOVE DOWN"3 10)"'S'-TO SET MAN IN NEW POSITION"3 ::"PRESS TO CONTINUE...";Z$3 Z$""35404 :3,30,1,2,2,30,1,2,2,30,1,2,2,30,1,3 ,1,15,1,3,1,15,1,3,1,15,1,3,1,15,0,1,1,200,0,1,1,200 P12:S113:I14:SH%(P,S,I)DI%(S,I):I,S,P SCREEN SETUP :0:1:1:X013:14X20,13:14X20,156::12119,91:12141,780Y26:140,Y13:14260,(Y5)13:1420,Y13:14240,(Y5)13:vY23:14240,Y13:14260,Y13:140,(Y8)13:1420,(Y8)13:"5:32:13278,40:13278,53:13278,66,6:0:131,91:131,104:131,117:7!6P12:S113:MM%(SH%(P,S,5),SH%(P,S,6))SH%(P, SS1!S12F$"F"10100S141010JSH%(P,S,5)20ī1070T$1020~.XSH%(P,S,5):YSH%(P,S,6):1190:11808W$:W$"H"İ1190:1590::F$"F"400:650B(W$)27İ1190::340L(W$)13İ1190:V(W$)21(W$)8(W$)11600ePH12:SR1213:SH%(PH,SR,5)XMSH%(PH,SR,6)YMSH%(PH,SR,4)100SR13:PH2:::990m:v600:T$(S);" AT ";XM;",";YM;" IS FILLING UP ":Q11000::SH%(P,S,4)200:Q200010:768,Q:769,10:770::600 FIND SHIPS0SH%(P,S,5)XM:SH%(P,S,6)YM:MM%(X,Y)X2018,Y133:MM%(XM,YM)MM%(X,Y):MM%(X,Y)0:MM%(XM,YM)XM2018,YM13315(XM1)20,YM13REFILL TANKER?STMM%(XM,YM):ST5ST10ī600(XM7YM6)(XM8YM5)(XM7YM8)(XM8YM7)960(W$)21860:15(PM%(K,1)1)20,PM%(K,2)13:KK1:K0KL1:810NR810\15(PM%(K,1)1)20,PM%(K,2)13:KK1:KL1ī800f810p MOVE SHIP IN ARRAYzXMPM%(K,1):YMPM%(K,2):DF(SH%(P,S,5)XM)(SH%(P,S,6)YM):SH%(P,S,4)SH%(P,S,4)DFu(L,1)XM:PM%(L,2)YM:LL1$:, K1*:15(PM%(K,1)1)20,PM%(K,2)13:"'<-->'=SELECT =ACCEPT =ABORT";:W$4(W$)27(W$)13(W$)8(W$)21İ1430:W$:820>(W$)13880:(W$)27ĕ15(PM%(K,1)1)20,PM%(K,2)13:340EH::2:"THIS SHIP IS BLOCKED AND CANNOT MOVE":1440:Q12500::340[ SHIP CAN MOVEoYM20:XM20::DSSH%(P,S,4)DSSH%(P,S,4)L1:XMXDSXDS:YMYDSYDS:DF(XMX)(YMY)XM1XM14YM1YM12DFDS790 MM%(XM,YM)0PM%LLSH%(P,S,4)0ė:10:"THIS SHIP HAS NO FUEL":1440:Q12500::340e CHECK FOR BLOCKADEXSH%(P,S,5):YSH%(P,S,6):DSSH%(P,S,2):XMXDSXDS:YMYDSYDS:DF(XMX)(YMY)XM1XM14YM1YM12DFDS720MM%(XM,YM)0740G:Z1620:ZXM2018,YM133:768,Z10:769,10:770:U1200::ZXM2018,YM133::1430:SH%(P2,S1,5)20:MM%(XM,YM)0: MOVE SHIPF$"M":34,20::14:"<<>>":"'<-->'=SELECT 'H'=HELP,":"=ACCEPT =ABORT";:1010 CHECK FOR FUE111:SH%(PW,SW,5)20580::1450bDSW13:SW:R1:PW2:SW111:SH%(PW,SW,5)20590::1450pNSW13:SWXT:1210:P:1480:330b SINK SHIPlZ120:MM%(XM,YM)XM2018,YM133:768,105Z:769,10:770::MM%(XM,YM)XM2018,YM133zv13:(W$)27S113::3405(W$)8(W$)21490O(W$)13İ1430:500^ HIT SHIP&SH%(P2,S1,3)SH%(P2,S1,3)1:Q15:768,200:769,10:770:11XM2020,YM13::11XM2020,YM13:SH%(P2,S1,3)0İ6200 CHECK FOR WINNER$:PW1:R2:SW00::340! SELECT OR SHOOTaS1113:XMSH%(P2,S1,5):YMSH%(P2,S1,6):DF(XMX)(YMY)DFABSH%(P2,S1,5)20500:47015XM2020,YM13::"'<-->'=SELECT ANOTHER TARGET =FIRE":13:" TO ABORT'";:W$15XM2020,YMP21:ABSH%(P,S,1):XSH%(P,S,5):YSH%(P,S,6):P1P22S PRECHECK FOR ENEMIESS1113:XMSH%(P2,S1,5):YMSH%(P2,S1,6):DF(XMX)(YMY):DFABS113::470 ::"THERE ARE NO ENEMY SHIPS IN ATTACK RANGE":Z13:768,20:769,10:770::Q125 SURE (Y/N)";:W$:W$"Y"340::::?rW$"H"İ1590:340f|W$"F"400:W$"M"650:1430:340y FIRE ROUTINEF$"F":34,20::14:"<<>>":"'<-->'=SELECT 'H'=HELP":"=ACCEPT =ABORT";1010:P21:ABSH%(P,S,1):P1P228S,5)2018,SH%(P,S,6)133:S,P2@ TURNS LOOPDJP12:T12T34,20::"* ATLANTIC CONVOY *":"'Q'=QUIT 'H'=HELP":"'F'=FIRE 'M'=MOVE"^21:25:"PLAYER #";P:22:25:"TASK #";T;" OF 2":23:25:"ENTER:>";:W$(hW$"Q"ė:"QUIT:-ARE YOU(W$)10İ1430:10809`(W$)21(W$)10İ1190:1020Cj1190^tSS1:S0F$"F"S11l~S0S13SH%(P,S,5)20ī10701140:22:29:868:23:29:868:22:29:"SHIP:>";T$(S):23:29:"AT ";X;",";Y;:15(X1)20,Y13: SHIP REPAIRS3:12:"REPAIRING SHIPS":34,21MTN10:PP1:X1:Y79tMM%(X,Y)TN1380:MM%(X,Y)51290:"PLAYER #";PP;" PORT FUEL =";PF%(PP);" UNITS":PP2:X14:TN5:Y46MM%(X,Y)TN1380:MM%(X,Y)0MM%(X,Y)6İ1290,:"PLAYER $$6666$$$$$566666%$$$$,66666 $$$,666%$$56. d2&---------%?????????,<,<,<,<,,.66 ,6 @ 5%5%5%5%5%5%5%5&$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$f666666%$$$$$,666666%$$$$$,666666%$$$$$,666666%$$$$$,666666$-,>>.----)$$ .)-----8??????,-------8??($$@-------%??????g -$,6.--%(------8??????gI$<(2--- oV-%)-----%??????'-------.>.>.>.>.@ $$266%$$$5666v$$$$,06666.$$$$$,66666%$$*Ry 0Kk2r&<Tep ------8??????(------%?''$?????I------8??????(------'$??'@-------;?????? ----#<6H------%???????(-----$$, ------8??????(------%???????(mII - TO RESUME GAME...";:W$X&:16304,0:16301,0:16300,0:16297,0:l&(104)641720&103,1:104,64:16384,0:(4)"RUN ATLANTIC.CONVOY"&::5:13:"ATLANTIC CONVOY":::12:"BY BRIAN J. PARRY"::'"COPYRIGHT (C) 1985 B SHOOT AND HIT A TARGET."`%r:"2)MOBILITY--THE MAXIMUM DISTANCE A SHIP CAN MOVE IN A TASK."%|:"3)ENDURANCE--THE NUMBER OF TIMES THAT A SHIP CAN BE HIT BEFORE SINKING."%:"4)FUEL--THE NUMBER OF SQUARES A SHIP CANMOVE BEFORE REFUELING."(&:"AN J. PARRY **"<$@:10:"CARR. DEST. SUBM. ADV. TANK."e$J10:" SUPT. "$TI14:1:H$(I);2);:J15:H%((I1)5J);5);::$^1:H$(5);2);:J15:H%(20J);4);:%h:"1)ATTACK RANGE--DISTANCE, IN SQUARES, A SHIP CAN:: # DEPLETE PORT FUEL2#R1:PZ1R2B#PF%(R)0ı`#PF%(R)50PF%(R)0:1570u#PF%(R)PF%(R)50#"Q15:1430:::"PORT #";R;" LOSES FUEL UNITS DUE TO ENEMY":Q12500::34,20:#, HELP SCREEN$6::"** ATLANTIC CONVOY BY BRI #";R;" YOU HAVE":"CONQUERED THE ATLANTIC TERRITORY!!":I14:Q120010:768,Q:769,10:770:"Q200010:768,Q:769,10:770:::" ENEMIES IN PORT"PZ12:SP17:LXSH%(PZ,SP,5):LYSH%(PZ,SP,6):LX14PZ1İ1520"LX1PZ2İ1520#TANKS9!nS21213:SH%(PP,S2,5)XSH%(PP,S2,6)Y1410A!x:!PF%(PP)PF%(PP)SH%(PP,S2,4):DI%(S2,4)25:SH%(PP,S2,4)0:1400!ERROR SOUNDS!768,10:769,10:770:!768,20:769,10:770:! WINNER NOISEb"23::"CONGRATULATIONS PLAYER)0:"PLAYER #";PP;" PORT IS OUT OF FUEL!":Q15:1440::Q12500::a < NORMALIZE FACTORS FI14:SH%(PP,S,I)DI%(S,I)ĺ"REPAIR:> PLAYER #";PP;" SHIP ";T$(S);" FACTOR #";I P:PF%(PP)PF%(PP)Z:SH%(PP,S,4)SH%(PP,S,4)Z: Z!dFILL PORT #";PP;" PORT FUEL =";PF%(PP);" UNITS":255V"PRESS TO CONTINUE...";:W$\ S113:SH%(PP,S,5)XSH%(PP,S,6)Yİ1320:100: CHECK PORT FUEL(100:ZDI%(S,4)SH%(PP,S,4):VPF%(PP)I 2VZSH%(PP,S,4)SH%(PP,S,4)V:PF%(PP----%<><, $$$<7'%-