2IMGCdrP@@@ 8L xC)pJJJJ IH(ȱH:=IH[H`@H^H 2 9 @   I/H`JLNGȄBȄF aK ' faaFF  RJm# KKJ qJ )J ۈJJm  JFȱJGJKaȄM ' 5aaNNJFLGJ`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RONE  ' +@STARTUPr#! .ARITHMETIC.TAC O L 'KINGDOM ! /MARKET.EVALUATI& ! .METRIC.TEMP.OR7  ! .RECIPE.CALORIE? )  (DEFLECTOU }  /MY.SPELLING.TES^( J1 (CINQUAINt   %HAIKU|  L 'HANGMAN[. ! (CALENDAR   /SYLLABLE.PUZZLE  !1 /GRAMMAR.MAD.LIBp 9 +TIC.TAC.TOE 3 ! /WORD.MASTERMIND   /CHECK.BOOK.BALA   -LABEL.PRINTER   %MENU2 ! .HORSE.RACE.III &  /OTHELLO.WITH.DO3 !k $MENU`  ,FOOTBALL.NFL. L/ -MONSTER.CHASE/] ! (HOCKEY.I@ L4 /FRACTION.PRACTIP ! %TITLE` ! .CRYPTOLOGIC...c   /PETALS.ROUND.THn  /CORRECTIVE.ADDItB  L; /CORRECTIVE.SUBT|%  ! )GOLD.MINE   /PET.PIT.PAT.POT  ! /CORRECTIVE.MULT  L /LIFE.EXPECTANCY  ! -CHECKBOOK.TWO  /IDEAL.BODY.WEIG#  -MAKING.CHANGE r ! &PRODOS }< ! ,BASIC.SYSTEM( ! ʮ CHECK2  )CHECKBOOK  PARAMS     (4)"run menu" 2000:10'(42(A$))2:A$:/ :dW(2,2),N$(2),R$(2),T(2),LX(2),SX(2),LY(2),SY(2)m390:::A$"ARITHMETIC TAC DOUGH":54:"ARITHMETIC TAC DOUGH IS A GAME FOR TWO ""PLAYERS.YOU WILL CHOOSE ONE OF THE NINE "' "SQUARES IN THE TIC TAC TOE BOARD.THE "W ""COMPUTER WILL ASK YOU AN ARITHMETIC " ,"PROBLEM.IF YOU ANSWER IT CORRECTLY,THE " 6"SQUARE YOU PICKED WILL DISPLAY AN X OR " @"AN O.EACH GAME IS WORTH $1600.BUT,WHEN " J"SOMEONE TRIES TO ANSWER A PROBLEM,THIS "G T"VALUE IS REDUCED BY $100.WHEN SOMEONE "w ^"GETS THREE IN A ROW,THEY WIN ALL OF THE " h"MONEY LEFT." mFL1ı r23:A$"PRESS A KEY"::5::49152,128:49168,0:FLı 16368,0:DO0:DX0:DL1600::2:"PLAYER 1, WHAT IS YOUR NAME?";N$(1)H 4:"PLAYER 2,WHAT IS YOUR NAME?";N$(2)e U12:: HANDICAPPING} 7:6:"A=ADDITION" 9:6:"S=SUBTRACTION" 11:6:"M=MULTIPLICATION" 13:N$(U);", WHICH OPERATION":"DO YOU WANT? ";R$(U) R$(U)"A"R$(U)"S"R$(U)"M"410O 15:"HOW MUCH TIME,IN SECONDS, DO YOU WANT TO"w 17:"ALLOW FOR EACH PROBLEM?";T(U) 19:"SMALLEST VALUE OF FIRST NUMBER";SX(U) " LARGEST VALUE OF FIRST NUMBER";LX(U) :"SMALLEST VALUE OF SECOND NUMBER";SY(U)/ " LARGEST VALUE OF SECOND NUMBER";LY(U)H R$(U)"A"R$(U)"+"a R$(U)"S"R$(U)"-"z R$(U)"M"R$(U)"*" U:U01(2(2)) Q02:Q202:W(Q,Q2)0:Q2:Q &R0:UU0:DL1600 0:15 :0,3913:0,3927:0,3913:0,3927D1N5,116:(1)!XR11080/bR215806l2wv5,821:8,1118:18,215:18,218:18,2111: (2) R11080R2158045,1135:32,355:32,3511:33,358:(3)R11080R21580619,224:21,256:4,722:(4)R11080*R2158018l19,2218:22,2521:18,2119:18,2122:18,2125:(5)zR11080R21580 919,2532:22,2535:32,3519:32,3522:32,3525:(6) R11080*R21580411 >32,387:4,732: (7) HR11080&RR21580.\12if32,3818:32,3821:18,2132:18,2135:18,2138:(8)wpR11080zR215801332,3532:32,3835:32,3532:32,3535:32,3538:(9)R11080R21580:22$N$(U);", WHICH SQUARE DO YOU WANT";:16368,0:ZCQ2Z1:Q(Q23):Q2Q23QW(Q,Q2)0ė:22:"THIS SQUARE IS OCCUPIED!":S11000:S:940R1:0Z590,630,670,710,750,790,830,870,9108X((1)(LX(U)SX(U)1))SX(U)=Y((1)(LY(U)SY(U)1))SY(U)$BR$(U)"-"XYSY:YX:XS5L:22:TT(U)aVN$(U)", WHAT DOES "X" "R$(U)" "Y" = ";`A40:A11T:A2144:(49152)1281160jA3(16384)176:16368,0:A31A310A410A4A3:(8);A3;::" ";::1160)tA340A4(A310):(8);" ";(8);(8);::" ";::1160F~A335ĺ(8);" ";:1190NA2\"";:A1:22:"SORRY,OUT OF TIME":A41R$(U)"+"1220R$(U)"-"1230R$(U)"*"1240A3XY:1250A3XY:1250A3XYA3A41280 A401275*:22:"SORRY, WRONG ANSWER"ZX" "R$(U)" "Y" = ";A3:A312500:A3:1410:22:"YOU'RE RIGHT":A311000:A3: Z1X14:Y14Z2X118:Y14Z3X131:Y14(Z4X14:Y1182Z5X118:Y118<Z6X131:Y118FZ7X14:Y131&PZ8X118:Y131;ZZ9X131:Y131Ld((1)15)1nU1čX1,Y1:X15,Y1:X11,Y11:X14,Y11:X12,Y12:X13,Y12:X12,Y13:X13,Y13:X11,Y14:X14,Y14:X1,Y15:X15,Y15:1510NxU2ďY12,Y13X1:Y12,Y13X15:X12,X13Y1:X12,X13Y15:X11,Y11:X14,Y11:X11,Y14:X14,Y14:1510VR2Z580,620,660,700,740,780,820,860,900V2(U1)1:W(Q,Q2)V:PLUS OR MINUS ONEQ02:Q30:Q40:Q202:Q3Q3W(Q,Q2):Q4Q4W(Q2,Q):Q2:Q33VQ43V1560QNQ30:Q40:Q02:Q3Q3W(Q,Q):Q4Q4W(2Q,Q):Q:Q33VQ43V1560X1580:22:N$(U);", YOU WON!":S11000:S:U2DODODL:1730"DXDXDL:1730,C$A$6A$B$@B$C$JUU12(U2):TOGGLE BETWEEN 1 AND 2FTDLDL100:DL0ĺ"VALUE OF GAME IS $0.00. NO WINNER.":S11000:S:1730h^Q02:Q202:W(Q,Q2)0940shQ2:Qr:((1)15)1|A,B:A1čA,B:1670q24,19,25,19,34,19,24,20,26,20,33,20,34,20,35,20,23,21,27,21,28,21,29,21,30,21,31,21,32,21,36,21,22,22,23,22,37,22,22,23,27,23,32,23,38,23,22,24,38,24,13,25,14,25,15,25,21,25,29,25,30,25,31,25,38,25Q12,26,13,26,15,26,21,26,30,26,38,26,11,27,14,27,15,27,21,27,22,27,28,27,29,27,31,27,32,27,35,27,36,27,37,27,38,27,10,28,13,28,22,28,35,28,9,29,12,29,22,29,35,29, 8,30,11,30,22,30,35,30,7,31,8,31,10,31,11,31,22,31,35,31+ 7,32,10,32,14,32,15,32,16,32,17,32,18,32,19,32,20,32,21,32,35,32,7,33, 9,33,10,33, 11,33,12,33,13,33,35,33,7,34,9,34,10,34,35,34,7,35,8,35,9,35,35,35,7,36,8,36,35,36,7,37,8,37,35,37,8,38,35,38,36,38,37,38,38,38 @8,39,39,39,-1,0r:22:"HA-HA ,I WON THIS TIME!":S11000:SxN$(1)", YOU HAVE $"DXN$(2)", YOU HAVE $"DO"PRESS SPACE BAR TO CONTINUE":"PRESS ANY OTHER KEY FOR NEW SETUP";:16368,0:P$+P$" "UU012(U02):U0U:540S:"DO YOU WANT TO PLAY AGAIN";:N$hN$"Y"ĉ::405~:(4)"RUN MENU":::SP$" ":X139:SP$;::X222:X:1:SP$;:39:SP$::23:X139:SP$;::4:A$"ADVANTAGE COMPUTING'S":5:6:A$"PUBLIC DOMAIN SOFTWARE":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"8:A$"ARITHMETIC TAC DOUGH":549152,128:K(49152)128:49168,0:K48K522010A((K))A1FL1A3ı1A250,2050,0,2030@FL0:2000T(4)"RUN MENU"w32,2:33,33:34,11:35,22:11:11"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO QUIT." 49152,128:K(49152)128:49168,0:K80K812060 K81ıNFL1:(4)"PR#1":250:FL0:(4)"PR#0": !"#$% 3000 21005R(Z1)((Z1)(8))LL(Z2)R(100)Z2TdY0`iL0106inL13zsN0R(75)75xL2R(250)250}N1R(3000)2000L30N20180"<*> <*> <*> <*> <*> <*> <*> <*> <*> <*>" 12)"REPORT FOR YEAR ";Y 5 "POPULATION IS ";N0; Z "ACRES OF LAND OWNED ";L2x "BUSHELS IN STORAGE ";N1 "PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" 7):"HOW MANY ACRES TO BUY ?";B B(B) B02020 B0270 AN1BL1 A0260C "YOUR STORAGE IS 0NLY ";N1;" BUSHELS !"L 215U N1Aa L2L2By 7):"TO SELL ?";C C(C) C02020 "C0325 'AL2C ,A0315 1"YOU ONLY OWN ";L2;" ACRES !" 6270 ;L2A @N1N1CL1 E(BC)0335; J"TRANSACTION RESULTS: LAND= ";L2" ACRES.\ L10)"GRAIN= ";N1;" BUSHELS.t O(L2N1L0)02010 TN10490 ^6):"HOW MANY BUSHELS FOR FOOD ?";N2 hN2(N2) mN202020 rAN1N2 wA0390 |"YOUR STORAGE IS ONLY ";N1;" BUSHELS !" 350" N1A0 N10490^ 5):"HOW MANY ACRES TO BE PLANTED ?";L3k L3(L3)z L302020 L30500 (L2L3)0440 "YOU ONLY OWN ";L2;" ACRES !" 400 (2N0L3)0455 "YOUR POPULATION IS ONLY ";N0;" PEOPLE !" 400$ AN13L32 A0475_ "YOUR STORAGE IS ONLY ";N1;" BUSHELS !"h 400q N1A N10500  :"YOUR STORAGE IS NOW EMPTY...GOOD LUCK !": YY1 N3R(N033) N4R(N042) N5N0(N210) N50560 N50590)AR(3N52)/T9)::">>> FOOD SURPLUS <<<":6)"POPULATION INCREASE= "A;" PEOPLE"!N50&N3N3A+5900(L(5(N52)))05905AR((N5N1)(2N0)):?:">>> FOOD RIOTS <<<";::22)A;" BUSHELS LOST !"DN1N1A,NL(10)0620ESA(N03)R(N022)KX~]:">>>>>>>>>>>>> P L A G U E <<<<<<<<<<<<<":^17)A;" DIED !"bN4N4AlL(10)0670qAR(N05)(N05)vBR(N120)(N120){CR(L250)*:">>>>>>>>>>> THE HUNS ATTACK <<<<<<<<<<<":H12)A;" PEOPLE KILLED !"f12)B;" BUSHELS TAKEN !"12)C;" ACRES DESTROYED !"N4N4AN1N1BL2L2CL(15)0705AR(20)10BR(N0250)508)::">>> BORDER EXPANSION <<<":410)"YOU GAINED ";A;" PEOPLE !"J16)B;" ACRES !"VN3N3AbL2L2BuN0N0N3N4N5N00201512)N3;" ARRIVED"12)N5;" DIED OF STARVATION"12)N4;" DIED OF NATURAL CAUSES"L(10)0760AR(N120)(N120):13)::">>> THEFT <<<":Y11)A;" BUSHELS STOLEN !"eN1N1AwL(10)0785AR(L210)(L220):">>>>>>>>>>>>> EARTHQUAKE <<<<<<<<<<<<<<": 11)A;" ACRES DESTROYED !" L2L2AL(15)0810#AR(100(L2100))500)X 6)::">>> GRAIN SHIPMENT ARRIVES <<<":p$14)A;" BUSHELS !"|%N1N1A*L(15)0835/L1R(2)14912)::">>> DROUGHT <<<":>860CL(15)0852HL1R(3)7MR13)::"*** RAIN ***":S860*TL1R(4)36\AL1L3DaBR(A2)NfCAB[uA0910z" HARVEST WAS ";L1;" BUSHELS PER ACRE."|5)"FOR A TOTAL OF= ";A;" BUSHELS."5)"LOSS TO RATS ";B;" BUSHELS."5)"NET HARVEST WAS= ";C;" BUSHELS."N1N1C130F5)"HARVEST WAS ";L1;" BUSHELS PER ACRE"n5)"FOR A TOTAL OF ";A;" BUSHELS."w900(42(A$))2:A$:::"*********** CONGRATULATIONS ***********"">>>>>>>> YOU NOW RULE THE WORLD <<<<<<<"2020E:">>>>>>>>>>> D I S T A S T E R <<<<<<<<<<":s:" THERE ARE NO MORE PEOPLE LEFT !"{:"<*> YOUR REIGN LASTED FOR ";Y;" YEARS <*>"::"<*> <*> <*> <*> <*> <*> <*> <*> <*> <*>"255:(4)"RUN MENU"4:I10731093:I,32:I768,32:IE>I12021843128:I,32:I18,32:IvH1335,65:1337,80:1339,80:1341,76:1343,69R1589,139:1591,137:1593,142:1595,135:1597,132:1599,143:1601,141\I20122026:I,32:IfI18851897:I,32:IpI19741758128:I,32:I2,32:I@zI11181758128:I,32:I2,32:IfI11261766128:I,32:I2,32:I|1982,32:1984,32I11191756128:I,170:I8,170:II19361942:I,58:II18081814:I,158:I1683,1291555,107N14000:N:(:10)"OFFICIAL RULES FOR"K 3:9)"<*> K I N G D O M <*>"U :: "THE GAME OF APPLE KINGDOM IS BASED UPON":"THE PREMISE THAT THE PLAYER IS TO ACT":"AS THE RULER OF A MYTHICAL, MEDIEVAL"X "COUNTRY. THE RULER MUST MAKE DECISIONS":"WHICH MAINTAIN THE KINGDOM AND ADVANCE":"THE PLAYER TOWARD THE GOAL; THAT BEING"$ "TO RULE THE WORLD! THIS IS ACCOM-":"PLISHED BY COLLECTING A TOTAL WEALTH":"EQUAL TO, OR EXCEEDING, ONE MILLION"M. "UNITS. WEALTH IS MEASURED IN TERMS OF":"TWO QUANTITIES:":"ACRES OF LAND OWNED AND BUSHELS OF":"GRAIN IN STORAGE."^ 23:PF2470 " TO CONTINUE HIT ANY KEY !":K$:2470 (4)"RUN MENU" :8)"<*> GAME CONSTANTS <*>"  "*FOOD-EACH SUBJECT REQUIRES A MINIMUM"# "OF 10 BUSHELS OF GRAIN PER YEAR AS FOOD") S "*SEED-EACH ACRE PLANTED REQUIRES 3"~ "BUSHELS OF GRAIN PER YEAR FOR SEED."  "*LABOR-EACH SUBJECT MAY PLANT A MAXIMUM" "OF 2 ACRES PER YEAR."  "*LAND PRICE-VARIES BETWEEN 3 AND 6" "BUSHELS PER ACRE.  K "*POPULATION-VARIES BETWEEN 20 AND 40%"Q } "*GRAIN LOSS-VARIES BETWEEN 0 AND 50%" PF2588 23:" TO CONTINUE HIT ANY KEY !":K$:2588  :4 "*OVERFEEDING-A FOOD SURPLUS OCCURS WHEN"#( "MORE GRAIN IS ALLOTTED FOR THAN THE"N2 "MINIMAL REQUIREMENT. THERE IS ABOUT"z< "A 50% CHANCE OF GAINING 1 PERSON FOR"F "EACH 20 BUSHELS OVER THE MINIMUM."K :P "*UNDERFEEDING-THE RULER MAY STARVE OFF"Z "2 PERSONS PER YEAR WITHOUT ILL EFFECT."3d "EACH STARVATION OVER 2 INCREASES THE"\n "CHANCES OF FOOD RIOTS BY 5% EACH."x "A FOOD RIOT MAT RESULT IN A LOSS OF UP" "50% OF THE GRAIN IN STORAGE!" PF2699 23:" TO CONTINUE HIT ANY KEY!":K$:2699 :(4)"RUN MENU" :9)"<*> RANDOM FACTORS <*>"O :"*PLAGUE-(10%)-MAY REDUCE POPULATION"a "UP TO 80%!"g "*THEFT-(10%)-MAY REDUCE GRAIN STORAGE" "UP TO 10%!" "*EARTHQUAKE-(10%)-MAY REDUCE ACREAGE" "UP TO 15%!" ! :"*ATTACK BY HUNS-(10%)-MAY REDUCE"I! "POPULATION UP TO 40%, STORAGE UP TO 10%"c! "AND LAND UP TO 2%!"i! ! "*RAIN-(15%)-INCREASES HARVEST TO 7, 8"! "OR 9 BUSHELS PER ACRE !"! ! "*DROUGHT-(15%)-DECREASES HARVEST TO 1"" "OR 2 BUSHELS PER ACRE !"" PF2840B" 23:"TO CONTINUE HIT ANY KEY!":K$:2840H" z" :8:"*GRAIN SHIPMENT-(15%)-INCREASES GRAIN""" "STORAGE, DEPENDS ON THE SIZE OF THE"", "KINGDOM (ACRES OF LAND)!""1 :"6 "*BORDER EXPANSION-(15%)-INCREASES"%#@ "POPULATION AND LAND, DEPENDS ON PRESENT"C#J "POPULATION OF KINGDOM!"M#O PFı#T 23:A$"PRESS A KEY"::1000::49152,128:49168,0:#h A$#r A$"Y"20#| # ::49168,0 $ SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::s$ 4:A$"ADVANTAGE COMPUTING'S":1000:6:A$"PUBLIC DOMAIN SOFTWARE":1000:8:A$"APPLE KINGDOM":1000$ 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" % 23:39:A:A1A43020&% A2300,3050,3035,26969% FLFLFL:10C% 3000N% FL1:o% 32,2:33,33:34,11:35,22:% 11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR PRESS":"PRESS 'Q' TO ABORT."& 49152,128:(49152)128("Q")(49152)128("P")Ĺ49168,0:30608& (49152)128("Q")ı@& :`& (4)"PR#1":PF1:2300:PF0r& (4)"PR#0":&:TITLE DESIGN BY ALEX AND CHRIS MASSIMO.&:THIS PROGRAM WAS ADAPTED FOR THE APPLE"&:BY ALEX AND CHRIS MASSIMO.':DONATED TO THE APPLECORPS OF SAN DIEGO.V' :IF YOU WISH TO CHANGE THE SPEED, REDO LINE # 139.':IF YOU WISH DIFFERENT RANDOM FIGURES.':YOU MAY WISH TO CHANGE LINE # 25.'()*+,-./0123456 40002000-(42(A$))2:A$:[ :" TREASURY BILL VALUATION"::"ENTER FACE AMOUNT ";F:"ENTER DAYS TO MATURITY ";D:"ENTER BID QUOTATION (%) ";B"ENTER ASK QUOTATION (%) ";A:H100(BA)2(D360):TFH100:B 2"FACE AMOUNT = $";F:"DAYS TO MATURITY = ";D:"BID QUOTATION = ";B;"%" <"ASK QUOTATION = ";A;"%":::"PRICE PER $100 = $";H:"TOTAL VALUE = $";T F::"HIT ANY KEY TO CONTINUE":A9$:A9$::2000< P" STOCK PORTFOLIO VALUATION ":::::"HOW MANY STOCKS IN THE PORTFOLIO? ";N:A(N),B(N),C(N),D(N),E(N):G ZI1N` d"FOR STOCK ";I;" "; n"ENTER NUMBER OF SHARES ";A(I) x" ENTER ORGINAL PRICE ";B(I) " ENTER CURRENT PRICE ";C(I) " ENTER DIVIDEND ";D(I):T E(I)(C(I)B(I))B(I)100:SSA(I)B(I):S1S1A(I)C(I):TYTYA(I)D(I)[ I| PC(S1S)S100:YDTYS1100 I1N "STOCK NUMBER ";I;" % CHANGE = ";E(I) I$ "HIT ANY KEY TO CONTINUE":A9$:A9$::" VALUATION OF TOTAL PORTFOLIO"::::"ORGNIAL VALUE = $";S "CURRENT VALUE = $";S1:"% CHANGE IN VALUE = ";PC;"%":"TOTAL YEARLY DIVIDEND = $";TY:"YEARLY DIVIDEND YIELD = $";YD :: "HIT ANY KEY TO CONTINUE":A9$:A9$:::20009 :"PUT AND CALL OPTION VALUES"::::"KEY A '1' FOR A PUT OR A '0' FOR A CALL":Z:Z: "ENTER STRIKING PRICE FOR OPTION ";TR:"ENTER PRICE OF UNDERLYING STOCK ";TK:"ENTER DAYS TO EXPIRATION ";DY "ENTER VARIANCE ('-1' IF UNKNOWN) ";V:"ENTER INTEREST RATE (%) ";R1:RR1100:V1İ720:TDY365:D1((TKTR)(R.5V2)T)(VT.5)bD2((TKTR)(R.5V2)T)(VT.5)&Y11(1.3327(D1)):Y21(1.3327(D2))0Q1((D122)(23.14159))(Y1(.4362.12Y1.9371Y12)):Q2((D222)(23.14159))(Y2(.4362.12Y2.9371Y22)) DD10ī600/NG1Q1:610;XG11Q1KbD20ī630ZlG2Q2:640fvG21Q2tZ1ī660COTKG1TRG2(RT)::670POTR(1G2)(RT)TK(1G1):A::"CURRENT STOCK PRICE = $";TK:"STRIKING PRICE = $";TR:"YEARS TO EXPIRATION = ";T:"VARIANCE = ";V:"INTEREST RATE = ";R1;"%"S::Z1ī700x"OPTION CALL VALUE = $";CO:710"OPTION PUT VALUE = $";PO"HEDGE RATIO = ";Q1:750"ENTER STOCK HIGH FOR PAST YEAR ";SH:"ENTER STOCK LOW FOR PAST YEAR ";SL:V(SHSL)(.5(SHSL)):V:::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000" ROI ON OPTIONS":::"NOTE THAT A $27 OPTION COMMISSION RATE":"IS ASSUMED"::' "ENTER UNDERLYING PRICE PER SHARE ";C:"ENTER COMISSION PER SHARE ";B:BB100:"ENTER STRIKING PRICE ";S*"ENTER WEEKS UNTIL OPTION EXPIRES ";W:"ENTER PREMIUM PER SHARE ";P:"ENTER MARGIN INTEREST RATE ";I/R.5((C100B)(P10027)2)0PR((S100B)(P10027))((C100B)(W53I(C100B).5))'4SRPR100R:ARSR(W52):TIW52I(C100B).5U9SR((SR1000))1000:AR((AR1000))1000>:::"REQUIRED CAPITAL = $";R:"PROFIT = $";PR:"ROI = ";SR;"%":"ANNUALIZE ROI = ";AR;"%":"INTEREST PAYMENT = $";TI H:::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000R"OPTION STRADDLES (A STRADDLE IS THE SIMULTANEOUS BUY AND SELL OF AN OPTION":"ON THE SAME UNDERLYING STOCK)":::\"ENTER PRICE OF UNDERLYING STOCK ";N1:"ENTER PRICE OF BOUGHT OPTION ";N2:"ENTER STRIKING PRICE OF BOUGHT OPTION ";N3:::f"ENTER PRICE OF SOLD OPTION ";N4:"ENTER STRIKING PRICE OF SOLD OPTION ";N5::::"HOW MANY OPTIONS SOLD ";N6:"HOW MANY OPTIONS BOUGHT ";N7::kN7N6880l:"THEN NUMBER OF BUYS CANNOT EQUAL THE":"NUMBER OF SELLS. TRY AGAIN.":::860TpU(N7(N2N3)N6(N5N4))(N7N6):PU100((UN1)N1):L(N7(N2N3)N6N4)N7sND100(N6N4N7N2):MT100(N6N7)(1.3N1N5):MT250MT250vMN(N7(N5N3N2)N6N4)100:MPMN(N7N2N6N4MT100):ND0L0y@z"UPSIDE BREAKEVEN POINT = $";U:"% MOVE IN STOCK TO BREAKEVEN = ";((PU1000))1000;"%""LOWSIDE BREAKEVEN POINT = $";L:"NET CREDIT TO ACCOUNT = $";ND:"MAINTENANCE REQUIRMENT = $";MT"MAXIMUM PROFIT = $";MN:"ROI = ";((MP1000))1000;"%":::"HIT ANY KEY TO CONTINUE":A9$:A9$:::2000H" AFTER TAX YIELD OF A BOND":::"FACE VALUE $";FV:"AMOUNT PAID PER BOND $";AP:"DATE BOUGHT (M,D,Y) ";M1,D1,Y1"DATE OF MATURITY (M,D,Y) ";M2,D2,Y2:"PERCENT INTEREST RATE ";IR7"AMOUNT BORROWED $";AB:IRIR100:"INTEREST RATE ON BORROWINGS ";IB:IBIB100j"BOND EXEMPT FROM FEDERAL TAX (Y/N)? ";FE$(1)"BOND EXEMPT FROM STATE TAX (Y/N)? ";FE$(2)"BOND EXEMPT FROM LOCAL TAX (Y/N)? ";FE$(3):"PERCENT FEDERAL TAX BRACKET ";FB(1):FB(1)FB(1)100>"PERCENT STATE TAX BRACKET ";FB(2):FB(2)FB(2)100v"PERCENT LOCAL TAX BRACKET ";FB(3):FB(3)FB(3)100"PERCENT ANNUAL INFLATION ";FI:"COMMISSION/OVERHEAD PER BOND $";C0:"NUMBER BONDS BOUGHT ";QU2100FI((FI100)365)N:IB(IB365)N:IR(IR365)!I13;TSTS((ABIB)FB(I))BI[$"GROSS CASH OUTPUT"." - BOND PURCHASE $";APQU8" - INTEREST PAYMENTS $";(((ABIB)100))100B" - COMMISSION/OHEAD $";C0QULGO(APQU)(ABIB)(C0QU):GO((GO100))1009M" SUBTOTAL $";GOQV"GROSS CASH INPUT"[IR(1)(IRN)(APQU):IR(1)((IR(1)100))100`" - TRUE INTEREST $";IR(1)eTS((TS100))100j" - TAX SAVINGS $";TSt" - SALE AT MATURITY $";FVQU'~GIIR(1)TS(FVQU)L" SUBTOTAL $";GI["OFFSETS"fI13FE$(I)"N"TX(I)FB(I)(((IRN)AP)QU)TX(I)((TX(I)100))100:TTTTTX(I)I" - FEDERAL TAX $";TX(1)" - STATE TAX $";TX(2)8" - STATE TAX $";TX(3)\" SUBTOTAL $";TTd:GP((GIGO.5)100)100"GROSS PROFIT = $";GP"NET PROFIT = $";((GPTT)100)100:NP((GIGO)TT)(((FI365)N)((GIGO)TT))CNPNP(AP((FI365)N)):NP(((NP.5)100)100) "NET PROFIT AFTER INFLATION = $";NP:AR((NP(APQU))N)365:ARAR100 "ANNUALIZED RETURN ON INVESTMENT = ";((AR)100)100;"%" :"HIT ANY KEY TO CONTINUE":A9$:A9$::::2000- :A$"MARKET EVALUTOR":5::: A$"MENU":5::"1) TREASURY BILL EVALUATOR":"2) STOCK PORTFOLIO VALUATION":"3) PUT AND CALL OPTION VALUE" !"4) CALL OPTION ROI":"5) ROI ON AN OPTION STRADDLE":"6) AFTER TAX YIELD ON A BOND":"7) END PROGRAM"3!"CHOOSE ->";MN:MN1MN7Ģ14:2040V!MN10,80,500,799,850,950,3000o!4:DAYS BETWEEN DATES!>MM1:DD1:YY1:2130!HNAK:MM2:DD2:YY2:2130!MNAKN:!RM2160,2180,2160,2240,2160,2240,2160,2160,2240,2160,2240,2160"\"INVALID DATE":0,5000"f("pD31ī21402"z2250I"Y4(Y4)ī2210d"Y400((Y400)ī2220"Y100(Y100)ī2220"D28ī2240"D29ī2140"2250"D30ī2140" 0,31,59,90,120,151,181,212,243,273,304,334""H1M#AK #H7#AKAKY365(Y4)D1(Y100)(Y400)N#(Y4)Y4ī2350h# Y400(Y400)ī2340# Y100(Y100)ī2350# M2ī2350#$ AKAK1#. # :7:5:" ARE YOU SURE? (Y/N)":ANS$# ANS$"N"2000# ANS$"Y"3000$ D$(13)(4)$ :(4)"RUN MENU""$ 3$::49168,0$SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::$4:A$"ADVANTAGE COMPUTING'S":5:6:A$"PUBLIC DOMAIN SOFTWARE":5:8:A$"MARKET EVALUTION PAK":5k%11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"%23:39:A:A1A44010%A4050,4100,4025,3040%FLFLFL:1%4000%FL1:I&::10:"AT THE MAIN SCREEN OF THE PROGRAM,":"SELECT WHICH ASPECT OF YOUR PORTFOLIO":"YOU WANT EVALUATED AND ENTER ALL"&"NECESSARY INFORMATION WHEN PROMPTED.":"ENJOY AND SUCCESS!"&FLı&23:A$"PRESS A KEY"::5:49152,128:49168,0::&32,2:33,33:34,11:35,22:K' 11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."'49152,128:(49152)128("P")(49152)128("Q")Ĺ49168,0:4110'(49152)128("Q")ı'(4)"PR#1":::FL1:4050'FL0:(4)"PR#0":89:;<=> 2000#(42(A$))2:A$:?CɭI777ĺ(4)"RUN MENU"NZ:49168,0W_FL0d::A$"INTRODUCTION":20:A$"------------":20: i"THIS PROGRAM IS ONE IN A SERIES OF":"METRIC CONVERSION PROGRAMS. THIS ONE":"DEALS WITH TEMPERATURE AND WEIGHT CON-":"VERSIONS."V n::A$"PROGRAM OPERATION":20:A$"-----------------":20: :"THE FIRST PAGE IS A GENERAL MENU. FROM":"THERE YOU SELECT WHETHER TO CONVERT":"WEIGHTS OR TEMPERATURES.":"WHEN PROMPTED FOR VALUES, ENTER THE"c "NUMBER TO BE CONVERTED OR '777' IF YOU":"WISH TO END THE PROGRAM OR '888' TO":"RETURN TO THE MAIN INDEX." "TO END THE PROGRAM, AGAIN, TYPE '777' AT ANY INPUT AND YOU WILL END." 23 FL1FL0: :A$"PRESS A KEY":20::49152,128:49168,0 FL1FL0: 7 6:A$"INDEX":20:A$"-----":20:_ ::10:"A) FAHRENHEIT TO CELSIUS" ::10:"B) CELSIUS TO FAHRENHEIT" ::10:"C) WEIGHT" : 5:"SELECT DESIRED MEASUREMENT BY LETTER"  10:"ENTER INDEX LETTER ->";A$= A$"A"A$"B"A$"C"(A$)777(A$)888Ģ22:250\ (A$)777ĺ(4)"RUN MENU"t (A$)888Ģ22:250 A$"A"300 A$"B"345 "A$"C"400 , 1"TO END PROGRAM ENTER '777'" 6"OR '888' TO RETURN TO MAIN INDEX." ;:"ENTER FAHRENHEIT VALUE"; @I8 BI777ĺ(4)"RUN MENU"G DI888190Z ER(I32)(59) J:I" DEGREES FAHRENHEIT="R" DEGREES CELSIUS." T315 Y ^"TO END PROGRAM ENTER '777'" `"OR '888' TO RETURN TO MAIN INDEX."c:"ENTER CELSIUS VALUE"; hI"j:TO END OR INDEX=mI777ĺ(4)"RUN MENU"LrI888190_wR((95)I)32|:I" DEGREES CELIUS="R" DEGREES FAHRENHEIT"355C(18),C$(36)28.35,.0284,2835,64.80,453.59,.45364.5E-4,453,.9072,.0353,.0022,35.2742.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:FN118PC(N)VkN136:C$(N):  OUNCES,GRAMS,OUNCES,KILOGRAMS,OUNCES,MILLIGRAMS,GRAINS,MILLIGRAMS,POUNDS,GRAMS,POUNDS,KILOGRAMS,POUNDS,METRIC TONS,POUNDS,MILLIGRAMS,SHORT TONS,METRIC TONS GRAMS,OUNCES,GRAMS,POUNDS,KILOGRAMS,OUNCES,KILOGRAMS,POUNDS,METRIC TONS,SHORT TONS,METRIC TONS,POUNDS,MILLIGRAMS,OUNCES,MILLIGRAMS,POUNDS,MILLIGRAMS,GRAINS::"WEIGHT-U.S. TO METRIC":X118:X2(X2)ĺC$(X)::465" "(X1)2") "C$(X)"-";::::"WEIGHT-METRIC TO U.S.":aX1936:X2(X2)ĺC$(X)::590}(X1)2") "C$(X)"-";:N23:"ENTER SELECTION ->";N:(N1N18)N777N888590{N777ĺ(4)"RUN MENU"N888190-:"CONVERSION:"C$(N21)"-"C$(N2)::"VALUE TO BE CONVERTED ->";IHI777ĺ(4)"RUN MENU"WI888450dRIC(N):6:I" "C$(N21)"="R" "C$(N2)*49152,128:49168,0:450:(4)"RUN MENU"::49168,0'SP$" ":X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::4:A$"ADVANTAGE COMPUTING'S":20:6:A$"PUBLIC DOMAIN SOFTWARE":20:8:A$"METRIC TEMP AND WEIGHT CONVERSION":2011:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU">23:39:A$:A$"1"A$"4"2020JA(A$)jFL1:A100,2050,2035,1800}FL1FL0:902000FL1:32,2:33,33:34,11:35,22:11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."L 49152,128:K(49152)128:K80K81Ĺ49168,0:2060XK81ır(4)"PR#1":FL1:100(4)"PR#0":@ABCDEFGHIJKLMNOPQRSTA$(200),B(200),C$(200)770,173:771,0:772,3:773,32:774,218:775,253:776,173:777,1:778,3:779,32:780,218:781,253:782,96FL010000 PROGRAM SELECTION PAGE e:Y j10:"OPTIONS AVAILABLE":::10:"1) RECIPE CONVERTER"::10:"2) CALORIE COUNTER"::10:"3) RECIPE COST CALCULATOR"::10:"4) EXIT PROGRAM"_ F x"SELECT OPTION BY NUMBER ->";OO }OO4OO1Ģ12:1400 OO2000,4000,5600,9000 l1400  : "PLEASE ENTER THE NAME OF THIS RECIPE "  "";Z$ :: "HOW MANY INGREDIENTS ARE IN"f "THIS RECIPE ->";N:N200N1Ģ7:2270l y I1N: "INGREDIENT ";I  "PLEASE ENTER THE AMOUNT, AND THE"  "UNIT OF MEASURE ";  B(I),A$(I) $ "WHAT IS THE INGREDIENT ";C$(I) . I 8  B 8 L "HOW MANY PEOPLE DOES YOUR"X V "ORIGINAL RECIPE SERVE ";O^ ` j "HOW MANY PEOPLE DO YOU NEED" t "TO SERVE FOR THIS MEAL ";S y ~ "TO SERVE ";S" PEOPLE WITH THE" Z$;" RECIPE" "PLEASE USE THE FOLLOWING NEW RECIPE" ! I1N+ 2670I R;" ";A$(I);" OF ";C$(I)W I10268^ Id "DO YOU WANT TO CHANGE THE NUMBER" "OF SERVINGS(Y/N) ->";  "";U2$ ( (U2$,1)"Y"2400 < ? F "THANK YOU FOR LETTING ME HELP YOU WITH":"YOUR MEAL PLANNING. CALL ON ME AGAIN":"ANY TIME. GOODBYE."} d 23::A$"PRESS A KEY":11000::49152,128:49168,0:1000 n R(B(I)O)S: x "TO CON'T LIST HIT ANY KEY & RETURN ";U5$ I11N 2670 R;" ";A$(I);" OF ";C$(I) I20275  I 2530A "TO CON'T LIST HIT ANY KEY & RETURN";U5$M I21NV 267t R;" ";A$(I);" OF ";C$(I){ I 2530 1000 CALORIE COUNTING PROGRAM START = FRE(0) 8188 PROGRAM STARTS HEREFL04320::FLA$"CALORIE COUNTER":11000)34,207"THIS PROGRAM ALLOWS YOU TO DETERMINE":"RAPIDLY THE CALORIE VALUE OF ANY FOOD"""OR A LIST OF FOODS SUCH AS A MEAL. IT":"CAN ALSO BE USED TO FIND OUT THE":"CALORIE VALUE OF A SERVING OF FOOD FROM","YOUR FAVORITE RECIPE."6:"IF YOU WANT TO KNOW THE CALORIE VALUE":"OF A SERVING IN A RECIPE THEN TYPE":"'CHECK' WHEN ASKED FOR FOOD ITEM."w"PLEASE ENTER ALL FOOD ITEMS AS SINGULAR"yFL14220z23:A$"PRESS A KEY"::11000::49152,128:49168,0:a|:"IF YOU WANT TO CLEAR THE COUNTERS AND":"SHOW THE LIST, TYPE 'CLEAR'."g"PLEASE TYPE 'STOP' YOU HAVE FINISHED":"USING THE CALORIE COUNTER.":"IF YOU WANT A LISTING OF ALL THE DATA":"IN THE FILE, TYPE 'TOTAL' PLEASE."FL1ĉ::23RA$"PRESS A KEY"::11000::49152,128:49168,0\::::"FOOD ITEM","AMOUNT","CALORIES"34,1516:"WHAT FOOD ARE YOU LOOKING FOR ";F$ & HERE WE CHECK DATA FOR INPUT0 :DF$"STOP"5460BNF$"CLEAR"T0:R0:34,0:4320XXF$"CHECK"ī4790rbF$"TOTAL"Y0:4940lI1150vM$,M1$,MF$M$4620I  HERE WE TELL USER NO " I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK")43501 O RETURN FOR MORE INPUTW ` s PRINT DATA{  34,0 YY1*Y14ė:Y1:"FOOD ITEM","AMOUNT","CALORIES"4Y1>M$,M1$;34)MH34,15R16\-f" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:N8pN1NMCzTTN1NRRN1Ty"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T4350 FIGURE RECIPE SERVING :16"HOW MANY PORTIONS DOES THIS RECIPE " "MAKE ";PR1RP :J"EACH PORTION SERVED BY THIS RECIPE"i"CONTAINS ";R1" CALORIES"q:"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"$"TO THIS RECIPE SERVING Y/N ";:U2$.U2$"Y"47508R0:R10B4750L V TOTAL PRINT OUT SUBJ` TO SET COUNTING LOOP TO SAME VALUE AS 1300Rj \t34,0b~k255"ITEM","AMOUNT","CALORIES"34,2I1150  DATA COUNTER FOR TEST TOTAL IN O MUST BE IN LINES 1300 AND 3100OO1M$,M1$,M%M$,M1$;34)M/KK1fK18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0mIw 34,0:K0("THIS IS ALL THE DATA IN MY MEMORY BANK"2"HIT ANY KEY TO RETURN TO MENU":U2$<F200P4080Z d DATA STARTS HERE`n TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N) ix { BEVERAGES COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17j EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322  FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MILK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 . CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 T FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225 CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,1 EA,73,PINEAPPLE,1 SLICE,39 RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 654 LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167 CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54J  POTATO CHIPS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179  HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,15! SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539" BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 H#" SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19$, LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57$6 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,346,BEAN SOUP,1 CUP,%@ CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,252&J TURKEY,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99>&T34,0:F&^13&h"THANK YOU FOR CHECKING YOUR DIET WITH":"US TODAY."&|49152,128:49168,0:1000&1000&::FL6040'A$"RECIPE COST CALCULATOR":11000:::"THIS PROGRAM CALCULATES THE COST & COST"'F'"PER SERVING OF A SINGLE RECIPE. FOR EACH"'u"INGREDIENT YOU MUST PROVIDE THE PURCHASE":"PRICE, THE AMOUNT PURCHASED, THE AMOUNT"'z:" USED IN THE RECIPE, AND THE NUMBER OF"::"RECIPE UNITS PER PURCHASE UNIT"::(FL1ı@(23:A$"PRESS A KEY"::11000::49152,128:49168,0:F(N(:n("NUMBER OF INGREDIENTS ";Nt(( LOOP TO REQUEST DATA FOR EACH INGREDIENT(I1N("INGREDIENT ";I;":"(" COST FOR BULK UNIT IN STORE ";(C)" NUMBER OF UNITS IN BULK"; )UO)" NUMBER OF RECIPE UNITS PER BULK UNIT";V)F)" NUMBER OF RECIPE UNITS CALLED FOR";)R)$ SUM COST OF EACH INGREDIENT PER AMOUNT USED).PPCUFR)8I)B)L)V" NUMBER OF SERVINGS";*`S *j?*t ROUND OF COST TO NEAREST CENT, PRINT RESULTSr*~"TOTAL COST FOR 1 RECIPE = $";(P100.5)100*"COST PER SERVING = $";(PS100.5)100** CALCULATE ALTERNATIVE PRICE PER SERVING*"CHANGE NUMBER OF SERVINGS Y/N"+B$+B$"Y"6230'+B$"YES"6230-+G+::::::::::M+v+" THANK YOU FOR USING THIS PROGRAM"|++ +1023+(#255:+2#:(4)"RUN MENU"+'::49168,0 ,'SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::,'4:A$"ADVANTAGE COMPUTING'S":11000::A$"PUBLIC DOMAIN SOFTWARE":11000::A$"RECIPE CALORIE COST":11000,'11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"3-$'49152,128:A(49152)128:A49A52Ĺ49168,0:10020G-&'A$(A):A(A$)T-('49168,0r-)'A10050,11050,10035,9000-.'FLFLFL:1000-0'10000-3'FL1:.B'::A$"RECIPE CONVERSION":11000:::::"WHEN ENTERING THE RECIPE, PLEASE TAKE":"NOTE OF THE FOLLOWING:":}.G'"-WHEN ENTERING IN FRACTIONAL AMOUNTS,":"ENTER THEM AS DECIMALS. FOR EXAMPLE":"1 1/2 WOULD BE 1.5":/L'"-ENTER THE AMOUNT FIRST, PRESS ":"AND ";::"THEN";::" ENTER THE UNIT."::"YOUR RECIPE WILL THEN BE CONVERTED FOR"v/Q'"BASED UPON HOW MANY PEOPLE IT ORIGIN-":"ALLY SERVED AND HOW MANY YOU WANT IT":"TO SERVE AS ENTERED BY YOU."/R'FLĢ23::A$"PRESS A KEY":11000::49152,128:49168,0:10070/S'/V'FL1:4000/`'FL1:5600/j'FL0:0*(42(A$))2:A$:"0*+32,2:33,33:34,11:35,22:0/+11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."04+49152,128:K(49152)128:K80K81Ĺ49168,0:1106009+K81FL0: 1>+FL1:(4)"PR#1":10050:4000:5600:FL0:(4)"PR#0":VWXYZ[\]  WRITTEN BY CARLOS COSTA0 879-1708840P(42(A$))2:A$:e( A.B.C. MEMBERk2< HIMEM IS CHANGEDF TO 7680 IN LINE 1020.P2000Z800d AND DRAW SCREENnI030:J017:A%(I,J)0:J,I:HIT0:SC0:TIME%0! xI017:A%(0,I)1:A%(30,I)1:D I129:A%(I,0)1:A%(I,17)1:T DH%1:DV%0_ 34,20 :::(7):"TO TRY YOUR SKILL PRESS RETURN. ";:A$ 0,0275,0275,1580,1580,0 :"HITS: ";HIT,"TIME: ";TIME% N$""ĺ:"LOW SCORER: ";N$:"LOW SCORE: ";HS; 770? 2(30X%)95,(17Y%)95U A%(30X%,17Y%)4x 3X%95,Y%95:XO%X%:YO%Y% X%X%DH%:Y%Y%DV%  GET KEY AND DRAW  APPROPRIATE SLASH,  OR DO 'ESC'. "K(16384):16368,09 ,K155TIME%TIME%50:770:TIME%1000360: CHECK FOR NO TIME LEFT.f 6K127(K174K175)A%(X%,Y%)0360 @K175A%(X%,Y%)2:16::1X%95,Y%95:T%DH%:DH%DV%1:DV%T%1:0:340 JA%(X%,Y%)3:1X%95,Y%95:T%DH%:DH%DV%:DV%T% T7680: SOUND ROUTINE ^X%X%DH%:Y%Y%DV%R hTIME%TIME%1:TIME%1000Ĺ255,255:7684:720e r21:23:TIME%{ |A%(X%,Y%)0410 3X%95,Y%95:3XO%95,YO%95:XO%X%:YO%Y% 250 A%(X%,Y%)1DH%DH%1:DV%DV%1:X%X%DH%:Y%Y%DV%:340, A%(X%,Y%)2T%DH%:DH%DV%1:DV%T%1:340X A%(X%,Y%)3T%DH%:DH%DV%:DV%T%:340f HITHIT1 HIT9SCTIME%:540 I130:T(16336)(16336)(16336): A%(X%,Y%)0 2X%95,Y%95 3XO%95,YO%95:"HIT# ";HIT;", ";10HIT;" TO GO!""I11500:+180A SCORING SECTIONe::"YOUR TIME OF ";SC;" IS ";&HSSCāI140:7680:I:6600HSSC:I1010010:255,I:7684:ID"A NEW LOW SCORE!"N:"WHAT IS YOUR NAME? ";A$X:b24:1FlA$N$ĺ"CONGRATULATIONS ";A$:"ON BEATING YOUR OLD LOW SCORE.":670lv"CONGRATULATIONS ";A$:N$""650"ON BEATING THE LOW SCORE OF ";N$N$A$:670"NOT ";:"A NEW LOW SCORE, SO SORRY.""DOES ANYONE WANT TO TRY ANOTHER GAME? ";:A$:3A$"Y"Ģ23:1:"PLEASE STANDBY.":110XA$"N"ĺ"Y OR N, PLEASE.":670n:(4)"RUN MENU"::"SO SORRY,BUT YOUR TIME HAS RUN OUT."670 FIND AT RANDOM AN EMPTY PART ON SCREEN.X%(1)272:Y%(1)142' A%(X%,Y%)0A%(30X%,17Y%)0770-: 255::G*3:1:0P4940Xf:tkA$"INSTRUCTIONS":30:p:"TO PLAY, TRY TO HIT THE TARGET WITHIN z:"THE TIME LIMIT OF 1000. YOU WILL HAVE:"TEN TARGETS TO HIT. TO DIRECT THE BALL8:"PRESS THE '.' KEY TO DISPLAY A '";(220);"' AND^:"THE '/' KEY TO DISPLAY A '/'.:"IF YOU'RE IN TROUBLE PRESS 'ESC'(BUT"::"THERE IS A TIME PENALTY OF 50).23:FL1ıA$"PRESS A KEY"::30::49152,128:49168,0:23:1:"PLEASE STAND BY."3I76807702: SOUND ROUTINEAK:I,K: 169, 8,133,255,173,48,192,136,208,4,198,255,240,8,202,208,246,166,232,76,4,30,96I79368001: SHAPE TABLESK:I,K:3,0,8,0,20,0,51,0,28,28,28,28,150,82,73,113,14,14,4,0,36,36,53,37,21,46,62,159,45,53,63,14,245,30,39,55,39,23,7,32,39,45,5,56,63,44,60,12,37,53,6,0,60,54,45,36,60,63,54,54,45,45,36,36,4,0232,0:233,319000A%(30,17):HS1000:N$""(::49168,0:SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::23:X139:SP$;::4:A$"ADVANTAGE COMPUTING'S":30::A$"PUBLIC DOMAIN SOFTWARE":30::A$"DEFLECTO":3011:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"749152,128:A(49152)128:49168,0:A48A522015KA$(A):A(A$)dA870,2050,2030,710uFLFL0:902000FL1:32,2:33,33:34,11:35,22::11 "MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."C 49152,128:K(49152)128:49168,0:K80K812060OK81ı|FL1:(4)"PR#1":870:FL0:(4)"PR#0":_`abcdefghijklmnopqrs MODIFIED BY YA YATES'12000.5F(42(A$))2:A$:LT10u 3.5" VERSION BY J. KAMINAR{diSEC4:NW6:SHW2nxD$(4)G$(7): *** BELL *** ***********************I *** DEFAULT VALUES OF RESPONSE TIME, NUMBER OF WRONG GUESSES ALLOWED AND DISPLAY TIME FOR EACH WORD ***T 30000k D$;"CLOSE PARAMS" D$;"OPEN PARAMS" D$;"READ PARAMS" F$:SEC(F$) F$:NW(F$) F$:SHW(F$) F$ NAME$ D$;"CLOSE PARAMS" WRD$(100) TEMP$(100)o *** SKIP TO NEW WORD LIST QUERY IF PROGRAM HAS JUST BEEN SAVED WITH NEW VALUES *** CH111670 500 ;:10h @" INPUT (S)AME SPELLING LIST (P)REVIOUSLY SAVED SPELLING LIST (N)EW SPELLING LIST (Q) TO QUIT ";s A216,0| EAN$ J:AN$"Q"630 OAN$"S"930 TAN$"P"ī4000 ^AN$"N"ī315 h1000?  ******* THIS SUBROUTINE WILL GIVE YOU THE CHANCE TO GET INSTRUCTIONS OR CHANGE PARAMETERS. ******* E R 8:10:o " MY SPELLING TEST ":w 10 "INPUT AN 'I' FOR INSTRUCTIONS 'P' TO CHANGE PARAMETERS 'N' IF YOU WANT NEITHER ? "; AN$ AN$"I"İ11010% AN$"P"İ11210+ I  ***********************R 400f  *** MENU ***l s 8{ 10 & 0" MY SPELLING TEST " : D22N" DO YOU WANT TO USE A PREVIOUSLY SAVED SPELLING LIST? (Y/N) OR PRESS 'ESC' TO QUIT.";XAN$b+l(AN$)276801v910A16Q"GOOD-BYE"e(4)"RUN MENU"yAN$"N"ī400010100100010 " WHAT IS YOUR NAME? ";NAME$NAME$""760 *54" OK, ";NAME$;". WE'LL START NOW.">H,R" FIRST WORD:"@\WRD$(1)""900IfDS3Tp10010]z910g4010q5010wD$;"OPEN";F$D$;"READ ";F$NRN1NRWRD$(N)D$;"CLOSE ";F$800 *** INPUT ROUTINE ***10100`" PRESS 'RETURN' AFTER EACH WORD AND AGAIN AFTER THE LAST WORD."mN1100t$5."WORD NUMBER ";8N;B" ? ";WRD$(N)LWRD$(N)""NRN1:N100V`NR0NRN *** CHECK LIST ***!" FOLLOWING IS THE WORD LIST:"'3N1NR: 5O"WORD NUMBER ";W N;h*" ";WRD$(N)n4t>H" WANT TO CHANGE ANY ? (Y/N) ";RAN$\f(37)p868z34,21AN$(27)ī630AN$"Y"ĉ:300523/" CHANGE WHICH WORD NUMBER ? ";WNEWNNRWN02260c" NO SUCH WORD NUMBER!"m2210" WORD NUMBER ";WN;" ? ";WRD$(WN)WN2868 WN2 5 "WORD NUMBER ";$ WN;. " ";WRD$(WN);8 23B &L " CHANGE ANOTHER ? Y/N) ";0V 21306 c :12:"NAME OF YOUR SPELLING LIST ?";F$s F$""3005 *** SAVE LIST *** D$;"OPEN ";F$ D$;"WRITE ";F$ NR N1NR WRD$(N)  D$;"CLOSE ";F$& 750 *** GET LIST ***!10200O:12:"NAME OF YOUR SPELLING LIST ? ";F$_F$""4022rD$;"OPEN ";F$D$;"READ ";F$NRN1NRWRD$(N)D$;"CLOSE ";F$630750 *** WORD SELECTION ***N1NRTEMP$(N)WRD$(N)'NNR-CWRDNO((1)N)1MWNG0U10m20(TEMP$(WRDNO))G$;TEMP$(WRDNO)DSSHW 100108(" OK, ";NAME$2" WHAT WAS THE WORD I SHOWED YOU? "<10100FP5Z"?"; de7:" ";:6"n-oAN$""7p" ";GxZ170SECgX(16384):X128ĂZ:528016368,0:X1415440ANS$ANS$(X128)11:7:ANS$;:" ";:Z10"OOPS! SORRY, TIME IS UP. "" THE WORD WAS ";)TEMP$(WRDNO)/5@10010J5610RX$Y8b"X$;o,"";ANS$6ANS$X$ANS$@ANS$TEMP$(WRDNO)5510J6010TTEMP$(WRDNO)TEMP$(N)^NN1hN1ır5060| ********************** *** TRY AGAIN ***$WNGWNG15WNGNW5700;AI11a" THE WORD WAS ";gyTEMP$(WRDNO)" LET'S TRY ANOTHER, ";NAME$DS510010506010&0868:10DN XPHRASE((1)5)1b13l958@vPHRASE5760,5770,5790,5810,5830"SQUSHIED APPLES !! ";NAME$:" PLEASE TRY AGAIN ?":5850"ROTTEN APPLES ! ";NAME$;" THAT'S NOT IT !"" TRY AGAIN.":5850"SOUR APPLE CORES !!! ";NAME$:" YOU MISSED IT !"" TRY AGAIN.":5850^"WORMY APPLES !!! ";NAME$;" THAT'S NOT QUITE RIGHT !!"{" TRY AGAIN.":5850G$;"LITTLE CRAB APPLES !! WAS THAT A GUESS, ";NAME$;"?"" TRY AGAIN.":5850118685200"?"; 5250 p*z *** REWARD ***G *** SCORE KEEPING ***YRIGHTRIGHT1lRIGHTNR7000rz23X((1)5)1X6090,6110,6130,6150,6170EX$"GREAT APPLES !!! "6180EX$"SUPER APPLE STEMS !!!"6180#EX$"FANTASTIC GREEN APPLES !!! "-6180MEX$"TASTY APPLE CIDER !!!"W6180vEX$"O K! APPLE CORE !!! "}$2.8EX$;", ";NAME$B10L"THAT'S ";V`RIGHT;jt" RIGHT!!"~d **********************n *** GRAPHICS ***xDS.25$/X15CC1((1)14)1WC2((1)14)1gC2C16560uL0382}C10,39LC20,39LL10010X1233:*** RESET TEXT MODE ***8" OK, ";NAME$;"! NEXT WORD:" "X&b *** FINALE ***,l4v23:V"WHAT DO YOU CALL A ";\j"GREAT";p" APPLE SPELLER ^"L **********************V *** SUPERSTAR ***`j((1)14)1tX4~Y98020XX5 8090XX58140(XX528200<XX5F8260OX11ZYY10d8020nXX5x 8340XX58390(XX528260<XX5F8450PXX5Z8450dXX5nDS5x10000 " WANT TO PLAY AGAIN? (Y/N) "; AN$2 AN$"N"7890E AN$"Y"7810Q RIGHT0\ 1233e 400n 315t  10000 1233 630 @ J *** LETTERS *** T *** S *** ^VY4Y2 hX,X3V r |X,Y3 X3,Y1!! *** U ***!Y,Y4X.!Y,Y4X3=!X1,X2YC!T! *** P ***e!X1,X3Y4v!X1,X3Y2!Y,Y4X!X3,Y3!! *** E ***! X1,X3Y! X1,X2Y2!& X1,X3Y4!0 Y,Y4X!: !D *** R *** "N X1,X3Y2"X X1,X3Y4+"b Y,Y4X6"l X3,YC"v X2,Y1P" X3,Y3V" g" *** T ***v" Y,Y3X2" X,X4Y4" XX1" " *** A ***" X1,X2Y2" X1,X2Y4" Y,Y4X" Y,Y4X3" "! *** ! ***# !XX1#!X,Y# !Y4,Y2X'#*!XX3-#4!3#'H#' *** TIMER ***V#$'T11000]#.'Tc#8'#t' *********************#~' *** EXCESS INPUT ERROR TRAP ***#'X(16384):16368,0#'X128ı#'10120#' *********************$' *** ERROR HANDLING ***$'"$'216,0*$'102$(108$ (S$("NO WORD LIST STORED"Y$(a$((20$2(" WANT TO ENTER A SPELLING LIST? ";$<(AN$$d(AN$"N"630$n(1010$*$+ *** INPUTS ***$ +$+24$ +$*+:%>+A$"MY SPELLING TEST":3 %H+%M+:1%R+" IS A GAME WHICH HELPS"^%\+" CHILDREN TO LEARN VOCABULARY WORDS."d%f+&p+" AFTER AN ADULT HAS STORED A LIST OF WORDS, THEY ARE SHOWN ONE BY ONE TO THE CHILD WHO IS ASKED TO SPELL EACH AFTER IT HAS BEEN ERASED FROM THE SCREEN."&z+&+" YOU WILL BE ASKED HOW MANY CHANCES THE CHILD WILL BE GIVEN TO SPELL EACH WORD, HOW MANY SECONDS WILL BE ALLOWED FOR THE CORRECT RESPONSE AND HOW MANY SECONDS EACH WORD WILL BE DISPLAYED BEFORE ERASURE."'+'+FL1ıU'+FLFLFL::A$"PRESS A KEY":23:3::49152,128:49168,0:13000'+" DEFAULT VALUES ARE ";NW;" CHANCES, ";SEC;" SECONDS FOR A CORRECT ANSWER AND ";SHW;" SECONDS FOR WORD DISPLAY."'+5(+" DO YOU WANT TO USE THE DEFAULT VALUES OR ENTER NEW VALUES? (D/N) ";>(+AN$R(+AN$"N"11670X(+`(+10(+" NUMBER OF TRIES ALLOWED FOR EACH WORD? ";NW(+(+(+" HOW MANY SECONDS FOR A CORRECT RESPONSE? ";SEC(,(,!)," HOW MANY SECONDS FOR DISPLAY? ";SHW=), *********************y), *** CHANGE NW, REPLY AND DISPLAY TIMES THEN SAVE ***),D$;"OPEN PARAMS"),D$;"CLOSE PARAMS")-D$;"DELETE PARAMS") -D$;"OPEN PARAMS")-D$;"WRITE PARAMS")(-(SEC)**-(NW)*,-(SHW)*.-F$!*0-NAME$8*x-D$;"CLOSE PARAMS"F*-CH1:100O*-315W*-10*-" WANT TO STORE A NEW WORD LIST? (Y/N) ";*-AN$*-*-AN$"N"1000*-51,0*-4000+.::49168,0:SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::{+.4:A$"ADVANTAGE COMPUTING'S":3::A$"PUBLIC DOMAIN SOFTWARE":3::A$"MY SPELLING TEST":3+.11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU".,.49152,128:A(49152)128:49168,0:A48A5212015B,.A$(A):A(A$)P,.A1FL1[,.A3ıt,.A11050,12050,0,670,.12000,/32,2:33,33:34,11:35,22::11,/"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."9-/49152,128:K(49152)128:49168,0:K80K8112060E-!/K81ıp-&/FL1:(4)"PR#1":11050:(4)"PR#0":z-2::-2"IF YOU END UP RUNNING OUT OF ROOM ON":"YOUR DISK, BUT YOU WANT TO ADD MORE ":"WORD LISTS, FOLLOW THESE STEPS:":J.2"1) PRESS CONTROL & RESET SIMULTANEOUSLY"::"2) TYPE 'CATALOG' & PRESS RETURN":.2"3) LOOK FOR THE WORD LISTS YOU'VE SAVED":" AND WRITE THEM DOWN IF YOU NEED TO"::"4) TYPE 'DELETE LIST'(FOR EXAMPLE) AND"./2" PRESS RETURN"::"5) REPEAT STEP 4 UNTIL ALL UNWANTED":" LISTS HAVE BEEN DELETED":w/2"6) NOW TYPE 'RUN MENU' AND PRESS RETURN":" TO PROCEED AS USUAL"/2A$"PRESS ANY KEY TO RETURN TO OPTIONS":::3:/349152,128:49168,0/31/0uD$;"OPEN PARAMS"/2uD$;"APPEND PARAMS"04u"Q"06uD$;"CLOSE PARAMS"/08uD$;"OPEN PARAMS"E0:uD$;"READ PARAMS"o0uD$;"CLOSE PARAMS"0@uD$;"OPEN PARAMS"0BuD$;"POSITION PARAMS, F5"0DuD$;"WRITE PARAMS"0Fu(0)0HuD$;"CLOSE PARAMS"0Ju165uvwxyz{ 90!(42(A$))2:A$:> CINQUAIN 12/13/1980Z HELPS MAKE CINQUAINo POEMS( DOREAN BARNES2 ADAPTED FROM THE PET< VERSION F::12Z"WHAT IS YOUR NAME? ";N$ dN$""ĺ"GEE, I THOUGHT EVERYONE HAD A NAME.":12:90) i1000J n250: INTRODUCTION TO GAME^ x340:: TITLE{ 440: 2ND LINE OF POEM :480: 3RD LINE OF POEM :530: 4TH LINE OF POEM :580: 5TH LINE OF POEM :N$", HERE IS YOUR CINQUAIN: "::::(20(S$)2))S$:Y (20(B$)2))B$::(20(D$)2))D$::(20(G$)2))G$: (20(K$)2))K$::"PR#0":"WOULD YOU LIKE TO TRY ANOTHER CINQUAIN? "(Y FOR YES OR N FOR NO)=>"; V$:V$""210:V$"Y"80:V$"N"210B :3:"IS THERE ANYONE ELSE WHO WANTS":"TO TRY? (Y FOR YES OR N FOR NO)=>";T V$:V$"Y"Ĭ V$"N"230:::"GOOD BYE "N$:(4)"RUN MENU" ::3 :"HI, "N$"."::"DO YOU KNOW WHAT A CINQUAIN IS? "(Y, N, OR IF YOU WANT TO QUIT=>"; A$:(A$)27220:A$"Y"ĺ:310\ "A$"N"280::2:"A CINQUAIN (SIN KWANE') IS A POEM THATu ,"HAS ONLY 5 LINES." 6:"I'M GOING TO HELP YOU WRITE A CINQUAIN.":700:330 J T - CHOOSING A TITLE ^:2:" WHAT IS YOUR FAVORITE SEASON? ":" ------":" SUMMER= h" AUTUMN":" WINTER":" SPRING":~ r"TYPE IN YOUR CHOICE AND PRESS .":"WHICH ONE? ";S$ |S$"SUMMER"400:S$"AUTUMN"S$"WINTER"S$"SPRING"400: "ENTER ONLY ONE OF THE WORDS ABOVE. ":350 ::::S$::9"THAT'S THE FIRST LINE OF YOUR CINQUAIN.":?] SECOND LINE OF PROGRAM"THE SECOND LINE YOUR CINQUAIN NEEDS 2":"WORDS THAT DESCRIBE "S$".":"PLEASE TYPE IN A DESCRIPTION USING TWO WORDS."=>";B$:B$""470:::: 3RD LINE OF POEM@"THE 3RD LINE OF YOUR CINQUAIN NEEDS"THREE WORDS THAT DESCRIBE SOMETHING":"THAT HAPPENS IN "S$".":"TYPE IN A HAPPENING USING THREE WORDS."=>";D$:D$""520:::: 4TH LINE OF PROGRAM"THE 4TH LINE OF YOUR CINQUAIN NEEDS FOUR";^&"WORDS THAT DESCRIBE A FEELING YOU GET":"DURING "S$".":0"TYPE IN A FEELING USING FOUR WORDS.:"=>";G$:G$""570::::D 5TH LINE OF POEMN"THE 5TH, AND LAST, LINE OF YOUR CINQUAIN";-X"NEEDS ONE WORD THAT REFERS TO "S$:"TYPE IN ONE WORD.Eb"=>";K$:K$""610l:"DO YOU WANT YOUR POEM TO BE PRINTED ON A PRINTER (Y/N) ";A$vA$"Y"ĺ(4)"PR#1":::23:"PRESS TO CONTINUE.";:IN$:(IN$)13700  ****************' * MODIFIED BY *? * TOM McCORD *W * EDUCATIONAL *o * MEDIA * * SERVICES *  ****************::49168,0:SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::_4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"CINQUAIN MAKER":5:1110:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"Q11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"49152,128:K(49152)128:49168,0:K48K521015A((K)):A3ıA250,1050,0,1030FL0:1000:(4)"RUN MENU"Q32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K811055$K81ı)(4)"PR#1":250::(4)"PR#0":}~5 (42(A$))2:A$:*::0 KI139:1:I:" ";:IgJ123:J:39:" ";:JK3911:23:K:" ";:KJ2311:J:1:" ";:J# (4:A$"ADVANTAGE COMPUTING'S":1::A$"PUBLIC DOMAIN SOFTWARE":1::A$"HAIKU":1| 211:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 749152,128:A(49152)128:49168,0:A48A5255 9A$(A):A(A$) <A1ė:3000 AA2İ3050 FA31100 K(4)"RUN MENU" L8000% V3:17:"HAIKU"V j7:3:"WOULD YOU LIKE INSTRUCTIONS? ";^ I$o I$"Y"1200 I$"N"1530 1130 10:3:"SEND THEM TO THE PRINTER? ";:ANS$ ANS$"N"İ8000:1210 ANS$"Y"PR1:1205 1200, 12:3:"MAKE SURE PRINTER IS ON-LINE AND"= VTB13:9000G 8000N 1b 3:17:"HAIKU"h  6:3:" IN ANCIENT JAPAN, PEOPLE WERE " 3:"DELIGHTED WITH UNDERSTATEMENT," 3:"PREFERRING IT IN THE USE OF WORDS" 3:"AS WELL AS OTHER ASPECTS OF LIFE."E 3:"AS A RESULT, THEY CREATED HAIKU."K x 3:" A HAIKU CONTAINS 17 SYLLABLES" 3:"IN THREE LINES, EACH LINE WITH" 3:"A SET NUMBER OF SYLLABLES: 5,7," (3:"5. OTHER ESSENTIAL ELEMENTS IN" 23:"A HAIKU ARE: 3FL11340& 4 PR#07 7VTB20:9000T 98000:3:17:"HAIKU":6a ;PR1Ċ1 <5:"(1) A REFERENCE TO A SEASON OF" F5:" THE YEAR" P Z5:"(2) AN EMOTION ASSOCIATED WITH" d5:" THAT SEASON" nx5:"(3) AN INSIGHT INTO THE EMOTION"/}FL11430: PR#0KVTB20:9000U8000bPR1Ċ16:5:"HERE IS A HAIKU. WATCH FOR"3:"THE ELEMENTS MENTIONED."5:" RED, GOLD LEAVES FALLING" 5:" DANCING WITH THE JOY OF LIFE"35:" THE SEED IS PLANTED"C(4)"PR#0"PFL1ıaVTB20:9000kFLıu936 A$=NAME STRING B$=SEASON STRING C$=EMOTION STRING" D$=LINE 1 STRING, E$=LINE 2 STRING 6 F$=LINE 3 STRING0@ G$=YES/NO STRING (RUN AGAIN?)YJ I$=YES/NO STRING (INSTRUCTIONS?)rO:3:17:"HAIKU":7T"TYPE IN YOUR NAME: ";A$^h"NOW YOU WILL AUTHOR YOUR OWN HAIKU."r"PLEASE ANSWER THE FOLLOWING QUESTIONS" |"WITH ONE WORD ANSWERS:"5" <1> WHAT SEASON WOULD YOU"[" LIKE TO WRITE ABOUT: ";B$a" <2> WHAT EMOTION DO YOU"" ASSOCIATE ";B$" WITH: ";C$9000:3:17:"HAIKU"7 "NOW FOLLOW MY INSTRUCTIONS CAREFULLY AS"8"YOU WRITE YOUR OWN HAIKU. IF YOU MAKE"f"A MISTAKE AND WOULD LIKE TO CORRECT IT""USE THE LEFT ARROW KEY TO GO BACK AND""SIMPLY TYPE OVER THE INCORRECT WORDS."0:"WRITE A 5 SYLLABLE LINE ABOUT ";B$;"."DN"=> ";D$X9000']:3:17:"HAIKU".`7Vb"NOW WRITE A 7 SYLLABLE LINE THAT"l"ASSOCIATES ";B$;" WITH THE EMOTION"v"OF ";C$;".""=> ";E$9000:3:17:"HAIKU"7"O.K. NO WRITE ME A 5 SYLLABLE LINE"$"THAT WILL GIVE THE READER AN INSIGHT"G"INTO THE EMOTION OF ";C$;"."M["=> ";F$e936"****************************************"" THE ";C$;" OF ";B$;", A HAIKU"" BY ";A$;""  *" "D$4>" "E$H,R" "F$2\bf"****************************************"hpz20:1:"WRITE ANOTHER HAIKU? ";G$G$"Y"1530G$"N"22402170  **** NOTE TO TEACHERS: USE AS A FIRST EXPERIENCE IN WRITING X **** HAIKU. USED IN THIS WAY THIS PROGRAM CAN BE A GOOD **** MOTIVATION FOR THE STUDENT TO GO ON TO THE FINER POINTS  **** OF THIS POETIC FORM. ALSO, DON'T USE THIS PROGRAM AS **** AN ISOLATED EVENT AS THE STUDENT COULD WELL GET THE] **** IMPRESSION THAT THIS IS THE ONLY FORM THAT HAIKU CAN **** TAKE. THERE ARE MANY FINE BOOKS ON THE TOPIC OF HAIKU-- **** CHECK YOUR LOCAL AND SCHOOL LIBRARY.$ :5:1:"RUNNING MENU.". D$(4) 8 D$;"RUN MENU"B * FL1:1210:FL0:5 32,2:33,33:34,11:35,22::11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." 49152,128:K(49152)128:49168,0:K80K813055 K815! FL1:(4)"PR#1":::1210:FL0::(4)"PR#0":5/@VTB422=JHTB238QTVTB:HTB:" ";Z^HTBchVTBir(#49168,0:VTB:7:"PRESS RETURN TO CONTINUE ":VTB:34:ANS$2#4}: <><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF. l2}: <><> REVISED BY: DAVID E. LADEN, TIES (2/8/80). d}: <><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES).10000:5'(42(A$))2:A$:/:J 13:"*** HANGMAN ***"g::14:"FIRST EDITION"::14:"BY BOB CHINN"#9500(93007 2:"WELCOME TO THE WILD WEST PARDNER, WHERE THOSE WHO DON'T SPELL WELL OFTEN FIND THEMSELVES IN A DIFFICULT PREDICTAMENT AT THE FAR END OF A TAUT ROPE." 7:"BY THE WAY, THEY HUNG THE HANDLE WILD BILL APPLE ON ME WHEN I WAS KNEE HIGH TO A SNAKES RATTLER." <:"BEFORE WE GET STARTED TELL ME A LITTLE ABOUT YOURSELF. " F:"WHAT'S YOUR HANDLE (NAME) PARDNER? ";N$B Z:"WHAT YEAR WAS YA BORN IN? ";Y [Y1988ĺ:"YA MEAN YA AIN'T EVEN BORN YET??!!":"COME ON! WHEN WERE YOU REALLY BORN? ";Y:91 \Y1952Y1940ĺ:"MIDDLE AGE IS CREEPING UP ON YA FAST, HUH ";N$;"??!"R ]Y1941Y1880ĺ:"THE YEARS SURE ARE FLYIN'! YOU'RE A REALOLD TIMER, AREN'T YA ";N$;"??!!" ^Y1881ĺ:"YOU'RE WEAVIN' ME A TALL TALE AREN'T YOU ";N$;"??!":"WHEN WERE YOU REALLY BORN? ";Y:91 _8000::9F `:9:"BEIN' ALL ALONE IN THESE RAM MOUNTAINS, I TEND TO LOOSE TRACK OF THINGS. WHAT MONTH IS THIS ";N$;:"? ";MO$P a3090k b:"AND THE DATE? ";DA cDA1DA31ĺ:"THAT CAN'T BE RIGHT ";N$;"!"::"THE DATE MUST BE BETWEEN 1 AND 31. WHAT IS TODAY'S DATE? ";DA:995 d:"WHAT YEAR IS THIS? ";YR:YR1989ĺ:"YOU'RE PULLING MY LEG "N$"!!:GOTO 100> e:9z f:"YA SURE ARE SMART ";N$;".":"THANKS FOR YOUR HELP." i:"HOW DIFFICULT DO YOU WANT THE GAME TO BEON A SCALE OF 1 TO 5";:"? ";D jD1D5105 l:11(n:"BY THE WAY ";N$;", DO YA HAVE ":"ANY LIFE INSURANCE? ";LI$_p(LI$,1)"Y"ĺ:"IT'S A GOOD THING YA DO!!!":130r:"YA SURE ARE TAKIN A MIGHTY BIG CHANCE TANGLIN' WITH ME ";N$;"!"P13500:P:11:"WELL, I GUESS WE BETTER GET STARTED. HITTHE 'RETURN' KEY WHEN YOU'RE READY. ";P$#FRN(20(1)):RD1RN:R$:RD^D1āR120:W$:RvD2āR120:W$:RD3āR120:W$:RD4āR120:W$:R:GA$"":GB$"":GC$"":GD$"":GE$""GF$"":GG$"":GH$"":GI$"":GJ$""*GK$"":GL$"":GM$"":GN$"":GO$"":GP$""2D0L7:X039:0,39X:Xd8:1,399:1,39109,283:9,281:9,2829,1111:8,1012:7,913:6,8145,715:4,616:3,5172,418:1,319! "HAM","ATE","NAIL","STEP","JUMP","GREEN","TEAM","WALL","STORY","ICE"p "SKY","INCH","SHAKE","HOT","GROW","THINK","CLOCK","SING","SUN","RESTORE" "WEST","STAMP","TWIN","SOCKS","PLUM","PAINT","LEAVE","TWICE","SMOKE","DRIVING" "SMART","HORSE","FLOWER","KEY","BRIGHT","SPELL","LUNCH","SHOP","THROW","RESTORE"t "MELT","SHINE","CODE","DRAIN","SWEEP","STREAM","SWALLOW","BOUNCE","CROWD","ENJOY" "COOKIES","SHOOT","HEAVY","WONDERFUL","SCORE","TURKEY","DIRT","COMPARE","FLEW","RESTORE"8 "PLAIN","WHISPER","AWHILE","WRINKLE","MOVIE","SMILING","BANANA","TOMORROW","RELATIVE","HANDLE" "CANDLE","MONSTER","MAGNET","CANYON","HUNGRY","THIRTY","FEBRUARY","BASKETBALL","WASTEBASKET","RESTORE"  "HARVEST","FURNISH","UNIFORM","HAUNT","MACHINE","QUOTATION","SKETCH","STRANGE","DANCE","SURPRISE"| "THOROUGH","GUARANTEE","ALIGN","SANDWICH","JOURNEY","PUZZLE","TRACTOR","IMAGINE","IMPROVEMENT","RESTORE"H0:HA1W$W$"RESTORE"144X(W$) 34,2222::16:" ";:V1X:"-";:V:" ":34,23E23:"WHAT'S YOUR GUESS ";N$;"? ":24:G$S"C1:DD1]'8050n,X$(W$,C,1)6X$G$ī2000@CC1:CXī2090J300805,5T170,45:T170,15:T128,180T170,45:T128,15:T102,180:T170,30:T128,30:T102,60:T170,30:T128,30:T102,60YT170,30:T128,30:T102,180:T128,45:T102,15:T86,180T102,60:T128,60:T170,180:T1,15:805,6:T170,45:T170,15:T128,19034,22:22:C17::X$:34,23(7)HH1HX5000CC1:X$(W$,C,1)!X$G$ī2000/CX203092022z23:"YOU GOT THAT ONE RIGHT!! ":P12000:P24:280*S120:SO(16336):S HA3010,3020,3030,3040,3050,3060,3070,3080 23:"FIRST WE DRAW YOUR HEAD! "; 13:23,259:22,10:26,10u 11:11,1322:10,1423:10,1424:10,1425:11,1326 0:23,11:25,11 5:4,824:23,2515 P12000:P HA2:280 23:"NOW WE ADD YOUR BODY! "" 12:16,2223:16,2224:16,22257 0:23,23:25,23F 13:24,23P 8000^ HA3:280 23:N$;"! THERE'S YOUR RIGHT ARM! " 12:18,2217:18,2216 10,1718 15:18,9 8000 HA4:280 23:"HOLY COW!! THERE GOES YOUR OTHER ARM!!!"3 12:26,3017:26,3016A 10,1730O 15:30,9Y 8000g HA5:280 23:"GEE WHILLICKERS ";N$;"!! " "YOU'RE ALMOST GONE!!!" 2:24,2723:25,3022:28,3321 31,3320 23,2524:23,2525  8000 HA6:280N 23:"BOTH LEGS ARE A HANGIN' NOW!!! "} 2:24,2725:25,3026:28,3327:31,3328 P14000:P HA7:280 23:"I ALMOST GOTCHA ";N$;"!!!!! " 0:17,2135:19,2134 8000 HA8:2807 23:"YOU'RE DONE FOR NOW ";N$;"!!!!! "R 0:27,3135:27,2934k 7:9,1618:9,1630 12:16,2418:16,2430:15:18,25:30,25 HA9:990:7000 MO$"JANUARY"MO$"FEBRUARY"ı MO$"MARCH"MO$"APRIL"ı  MO$"MAY"MO$"JUNE"ı+ MO$"JULY"MO$"AUGUST"ıP MO$"SEPTEMBER"MO$"OCTOBER"ıu MO$"NOVEMBER"MO$"DECEMBER"ı(MO$,2)"JA"MO$"JANUARY"ĺ:"DO YOU MEAN JANUARY? ";P$P$"NO"P$"N"4090P$"YES"P$"Y"MO$"JANUARY:RETURN9(MO$,2)"FE"MO$"FEBRUARY"ĺ:"DO YOU MEAN FEBRUARY? ";P$RP$"NO"P$"N"4090xP$"YES"P$"Y"MO$"FEBRUARY":(MO$,2)"CH"MO$"MARCH"ĺ:"DO YOU MEAN MARCH? ";P$P$"NO"P$"N"4090P$"YES"P$"Y"MO$"MARCH":,(MO$,2)"AP"MO$"APRIL"ĺ:"DO YOU MEAN APRIL? ";P$EP$"NO"P$"N"4090hP$"YES"P$"Y"MO$"APRIL":(MO$,2)"MA"MO$"MAY"ĺ:"DO YOU MEAN MAY? ";P$P$"NO"P$"N"4090P$"YES"P$"Y"MO$"MAY": (MO$,3)"JUN"MO$"JUNE"ĺ:"DO YOU MEAN JUNE? ";P$. P$"NO"P$"N"4090P P$"YES"P$"Y"MO$"JUNE": (MO$,2)"LY"MO$"JULY"ĺ:"DO YOU MEAN JULY? ";P$ P$"NO"P$"N"4090 P$"YES"P$"Y"MO$"JULY":!(MO$,2)"AU"MO$"AUGUST"ĺ:"DO YOU MEAN AUGUST? ";P$!P$"NO"P$"N"4090@!P$"YES"P$"Y"MO$"AUGUST":!(MO$,2)"SE"MO$"SEPTEMBER"ĺ:"DO YOU MEAN SEPTEMBER? ";P$!P$"NO"P$"N"4090!P$"YES"P$"Y"MO$"SEPTEMBER":"(MO$,2)"OC"MO$"OCTOBER"ĺ:"DO YOU MEAN OCTOBER? ";P$"P$"NO"P$"N"4090B"P$"YES"P$"Y"MO$"OCTOBER":"(MO$,2)"NO"MO$"NOVEMBER"ĺ:"DO YOU MEAN NOVEMBER? ";P$"P$"NO"P$"N"4090"P$"YES"P$"Y"MO$"NOVEMBER":#(MO$,2)"DE"MO$"DECEMBER"ĺ:"DO YOU MEAN DECEMBER? ";P$#P$"NO"P$"N"4090D#P$"YES"P$"Y"MO$"DECEMBER":#:"AS I RECOLLECT THE MONTHS ARE: JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, JULY,AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, AND DECEMBER.#:"WHAT MONTH IS THIS? ";MO$:3090%$::9100:"CONGRATULATIONS "N$"!!!!!"R$:"YOU JUST SPELLED ";W$;" CORRECTLY!!"$:"IN RESPECT FOR YOUR ACCOMPLISHMENT, YOU ARE HEREBY AWARDED THE FOLLOWING....."$20:13::" PRESS RETURN ";Y$$P12:C140::"*";:C:P(%P119::"** **";/%PO%P12:C140::"*";:C:q%5:11:"THIS CERTIFICATE OF"%7:10:"SUPERIORITY AT HANGMAN"%9:14:"IS AWARDED TO"%H(N$):HT(40H)21:12:HT:N$&H(MO$):HT(40(H8))21:15:HT:MO$;" ";DA;", ";YR2&20:22:"WILD BILL APPLE"R&I15:P10012:TP,3:Pk&P1882:TP,2:P,I&24:13::" PRESS RETURN ";Y$&GG$"":GH$"":GI$"":GJ$"":GK$"":GL$""'p:13:"ARE YA READY TA TAKE ON ANOTHER OF WILD BILL APPLE'S WORD CHALLENGES ";N$;:A$;'tA$"NO"A$"N"ĺ(4)"RUN MENU"U'uA$"YES"A$"Y"7095_'z6000g'X:r'Y33,40'[:15:"*********":12:"****** ******":10:"**** ****" (]9:"*** ***":8:"** **":N(N$):HT(40N)2=(^6:8:"** **":6:HT:N$i(_P14:8:"** **":P(a8:"** R. I. P. **":P13:8:"** **":P(bP18:8:"** **":P(d15:15:"BORN ";Y)f18:12:"LOST AT HANGMAN"4)gHM(MO$):HT(40(HM8))2T)i21:HT:MO$;" ";DA;", ";YRp)l24:8:C123:"*";:C)n23:8:C123:"*";:C):19:34:"PRESS":20:34:"RETURN";I$):11:"WOULD YOU LIKE TO TRY A DIFFERENT WORD ";N$;:A$*A$"Y"A$"YES"70954*A$"N"A$"NO"ĺ(4)"RUN MENU">*7080*:"WOULD YOU LIKE TO CHANGE THE LEVEL OF DIFFICULTY ";N$;:LD$*LD$"NO"LD$"N"150*:LD$"YES"LD$"Y"Ą"HOW HARD (1 TO 5)? ";D:144*7095*@P12500:P:@+rG$GA$G$GB$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280+sG$GC$G$GD$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280+tG$GE$G$GF$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280*,uG$GG$G$GH$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280x,vG$GI$G$GJ$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280,xG$GK$G$GL$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280-yG$GM$G$GN$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280b-zG$GO$G$GP$Ģ23:"YOU'VE ALREADY USED THAT LETTER. ":8000:280-|D8062,8064,8066,8068,8070,8072,8074,8076,8078,8080,8082,8084,8086,8090,8092-~GA$G$:300-GB$G$:300-GC$G$:300-GD$G$:300.GE$G$:300.GF$G$:300$.GG$G$:3004.GH$G$:300D.GI$G$:300T.GJ$G$:300d.GK$G$:300t.GL$G$:300.GM$G$:300.GN$G$:300.GO$G$:300.GP$G$:300.(#J19:I1100:T255,1:P1J:P,I,J.2#/#I1127:805,4:T128I,1:805,1:T128I,1:I/#2/T$T188,64:T188,64\/^$T188,128:T255,128:T150,64:T150,64/h$T150,128:T188,128:T150,64:T150,64/r$T126,128:T126,128:T142,64:T150,64/|$T168,255:T168,64:T150,64/$T142,128:T142,128:T150,64:T168,64$0$T150,128:T188,128:T188,64:T150,64X0$T168,128:T255,128:T200,64:T168,64:T188,255^0$r0%P1100:X$:P0!% 201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230 10% 104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198d1:% 1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,961D%1013,76:1014,0:1015,31I%I768833:P:I,P:I1N%:1'49168,0:::SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::Y2'4:A$"ADVANTAGE COMPUTING'S":1::A$"PUBLIC DOMAIN SOFTWARE":1::A$"HANG-MAN":12'11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 3'49152,128:A(49152)128:49168,0:A48A5210015 3!'A$(A):A(A$)+3$'A3ıF3)'A10050,11000,0,10035Q3.'10000e33'(4)"RUN MENU"3B'::A$"HANGMAN":1:::"IN THIS GAME, YOU GOTTA BE GOOD OR":"YOU'LL FIND YOURSELF A'DANGLIN'"H4G'"GUESS LETTERS OF A PUZZLE. IF YOU'RE":"RIGHT, THEIR PLACE IN THE PUZZLE WILL":"BE SHOWN. BUT IF YOU'RE WRONG, I'LL"4L'"ADD ANOTHER PART OF YOUR BODY TO THE":"GALLOWS. IF YOU GET THE PUZZLE BEFORE":"I HANG YOU, YOU WIN. YOU MAY NOT USE A"!5Q'"LETTER MORE THAN ONCE, BUT NO PENALTY":"WILL BE INCURRED FOR IT.":"GOOD LUCK!!".5V'FL1ıd5['A$"PRESS A KEY"::23:1::49152,128:49168,0:5*32,2:33,33:34,11:35,22::115*"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."6+49152,128:K(49152)128:49168,0:K80K8111010*6+K81ıZ6 +FL1:(4)"PR#1":10050:FL0:(4)"PR#0": 10001d << CALENDAR >> BY K. JENS^nN12:A$(N),A1(N):C1N:A$(C),A1(C):Cgx420y(I$)9S1:D$(4)A365YEAR:B131MTH31:B1131(MTH1)31:E(YEAR4):F(.75(YEAR100).75)B G((YEAR1)4):H((YEAR1)100):A2(.4MTH2.3):B2(.4(MTH1)2.3):E1YEAR4:K(.75H1)W MTH1MTH2220h XABA2EFz YAB1B2EF 240 XABG:XXK YAB1G:YYK MTH2YYA2 DAYYX T(X7)7X E1EMTH2DAY29 T0T7 "JT54: TAB FUNCTION% ,SC1330. 67105 @3@ J33,35Y T14);SEE$;" ";YEAR:_ ^ h" SUN MON TUE WED THR FRI SAT" r(J) |I1DAY:I$(I):130:4S);I$;:   JANUARY,1,FEBRUARY,2,MARCH,3,APRIL,4,MAY,5,JUNE,6=  JULY,7,AUGUST,8,SEPTEMBER,9,OCTOBER,10,NOVEMBER,11,DECEMBER,12Y D$(4): INPUT DISPLAYa : 4:12);"YEAR AT A GLANCE":10:"COMMANDS -> NEXT MONTH = 'SPACE'":13);"NEW ENTRY = ' ESC '":13);"HARDCOPY = 'CTL P'"0 16:"YEAR (ENTER '0' TO END PROGRAM)":16:8:YEAR:YEAR0670:M YEAR100YEARYEAR1900q YEAR1900YEAR1999ĺ(7):430 "MONTH ";SEE$:U12 C1N:SEE$A$(C)SEEC  SEE0Č198:460 CSEE:MTHA1(C) :4:SC0 150 L1U2 MTH12C1:CC1:MTH1:YEARYEAR1:SEE$A$(1):560N &MTHMTH1:SEE$A$(C1):[ 034,12:c :S0l D160v N34,2 X38:23:A$ bA$(27)S0:420 lA$(16)İ680 vG110:922:G C11C1 CC1 L ::770:34,23:(4)"PR#1"Y1:I02:J07:X(I40)(J128)1024:KXX38:Y(K):Y160Y32(Y);:::::(4)"PR#0":32,1:33,35:34,2:35,22::1:X138:"*";:X123:1:"*";:39:"*":23:1:X139:"*";: 32,1:33,35:34,2:35,22SC1::?5:7:" *** END OF PROGRAM *** "RI11000:I:h :(4)"RUN MENU"p:SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;:0:4:A$"ADVANTAGE COMPUTING'S":2000:6:A$"PUBLIC DOMAIN SOFTWARE":2000:8:A$"CALENDAR MAKER":200011:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"23:39:49168,0:A:A1A41020A3000,3030,1035,780FLFLFL:100 1000 FL1:,(42(A$))2:A$: :6:" THIS PROGRAM ALLOWS YOU TO PRINT A":"CALENDAR FOR ANY MONTH OF ANY YEAR.":"JUST ENTER THE YEAR WHEN ASKED AND THE":"MONTH. IF YOU WISH TO SEE MORE THAN"N "ONE MONTH, PRESS TO SEE THE":"NEXT MONTH. ALLOWS YOU TO":"PRINT A HARDCOPY OF THE MONTH." "OR PRESS TO ENTER NEW VALUES FOR":"YEAR AND MONTH." PF1ı 23:A$"PRESS A KEY"::2000::49152,128:49168,0: 32,2:33,33:34,11:35,22:S 11:"MAKE SURE THE PRINTER IS READY":"AND PRESS 'P' TO PRINT OR PRESS":"'Q' TO ABORT."y 49152,128:(49152)128("Q")ı (49152)128("P")Ĺ49168,0:3040 (4)"PR#1":PF1:::3000 ::(4)"PR#0":PF0:1000:10'(42(A$))2:A$:3 :::FA$(50),B$(50)YD$(20),E$(10)rP$(10),Q$(10),U(10)10::"FINDING WORDS":I150:A$(I),B$(I):I#I110:U(I)0:I(I22022J((1)501)7L1I21:JU(L)50 8L :A%(I2):U(A%)J@ <D$(I1)A$(J):D$(I)B$(J):K(I2)p FP$(K)D$(I1):Q$(K)D$(I):E$(K)P$(K)Q$(K)w PI ZS0 d SORT ROUTINE nI119:JI120 xD$(I)D$(J)T$D$(I):D$(I)D$(J):D$(J)T$ J:I DISPLAYE :"COMBINE THE FOLLOWING SYLLABLES INTO PAIRS TO FORM WORDS":I039:"-";:IS I1165 D$(I);8)D$(I1);16)D$(I2);24)D$(I3);32)D$(I4) I I039:"-";:I 12:1:958:"ENTER A WORD: ";M$ M$""210 17:1 I110 E$(I)M$260E E$(I)"":"GOOD WORK! TRY ANOTHER WORD. ":X11000:XO SS1 X120:D$(X)P$(I)D$(X)"":P$(I)"XXXXX" D$(X)Q$(I)D$(X)"":Q$(I)"XXXXX" X S10150 :"YOU FINISHED THIS PUZZLE.":"DO YOU WANT TO PLAY AGAIN (Y/N)? ";:Z$ Z$"Y"35. :(4)"RUN MENU"5 Ig "THAT'S NOT ONE OF THE WORDS.":"TRY AGAIN."| X1600:X:210  "MA","GIC"  "FIN","ISH"  "KIT","TEN"  "WAN","DER"  "BAY","OU"  "WISH","BONE"  "CAR","RY"  "TA","BLE"  "AP","PLE",  "TO","WEL"@  "DISK","ETTE"T  "ELE","PHANT"j  "TELE","VISION"|  "CAN","NON"  "AIR","PLANE"  "TRI","ANGLE"  "RO","OF"  "TOI","LET"  "COU","SIN"  "CAM","ERA"  "MAGA","ZINE"  "MAIL","BOX""  "SP","OON"8  "CHALK","BOARD"I  "RA","DIO"\  "SNEA","KER"o "BATH","TUB" "CH","AIR" "WILL","ING" "LOVE","LY" "CARE","LESS" "AIR","PORT" "TELE","GRAM" "CAR","PET" "CHOCO","LATE" "LEAD","ER", "HOPE","FUL"@ "MIS","CHIEF"R "OF","FICE"d "RUB","BER"v "STA","PLE" "TRI","CYCLE" "UM","BRELLA" "WALK","ING"  "SIDE","WALK"! "LOB","STER"" "GOLD","MINE"# "ER","ROR"$ "ES","CAPE"!% "DOL","LAR"x:::SP$" ":X139:SP$;::X222:X:1:SP$;:39:SP$::23:X139:SP$;::4:A$"ADVANTAGE COMPUTING'S":5:6:A$"PUBLIC DOMAIN SOFTWARE":5;11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"Z8:A$"SYLLABLE PUZZLE":549152,128:K(49152)128:49168,0:K48K521010A((K)):A3ıA1100,1050,0,1030FL0:1000(4)"RUN MENU"32,2:33,33:34,10:35,22::11a"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."$49152,128:K(49152)128:49168,0:K80K811060)K81ı.(4)"PR#1":FL1:1100:FL0:(4)"PR#0":LL::"IN THIS GAME, YOU WILL BE GIVEN A LIST":"OF SYLLABLES AND YOU HAVE TO COMBINE":"TWO OF THEM TO MAKE WORDS."Q"YOU CONTINUE WITH THIS UNTIL THE LIST":"IS EXHAUSTED AND ARE THEN GIVEN THE":"OPTION OF TRYING AGAIN."V:"GOOD LUCK AND ENJOY!!!"[FLı`23::A$"PRESS A KEY":5::49152,128:49168,0e3000:2:7/(42(A$))2:A$:7:WADJ$(11),AVD$(5),NOUN$(10)::"OK, WE'RE GOING TO WRITE SOME MAD-LIB" "STORIES TOGETHER. YOU SUPPLY THE WORDS,"""AND I'LL SUPPLY THE PLOT."# $"YOU'LL NEED TO ENTER 11 ADJECTIVES, 5 "; %"ADVERBS, 10 NOUNS, A FEW MEN'S NAMES, "e &"A PLACE, A LIQUID, AND LASTLY, AN " '"EXCLAMITORY REMARK." <2100 F K2:12:"*** MAD-LIB *** " P5:"ADJECTIVES ARE WORDS THAT DESCRIBE OR" Q"MODIFY A NOUN. A FEW EXAMPLES ARE RED,". R"PRETTY, OLD, OR STRANGE.": SFL105F UVNUM11T ZNUM111 ]10:1:"ADJ #";NUM;:"==> ";ADJ$(NUM) ^VTB10:2000 _NUM10ĢVNUM:25:NUM;"> ";ADJ$(NUM) `NUM9ĢVNUM:24:NUM;"> ";ADJ$(NUM) aVNUMVNUM1 cNUM dVTB23:2000 i2100 n:= s2:12:"*** MAD-LIB ***"m u5:"ADVERBS MODIFY VERBS, AND USUALLY END" w"IN 'LY'. 'SLOWLY' IS AN ADVERB." xFL155 yVNUM11 NUM15 10:1:"ADV #";NUM;:"==> ";AVD$(NUM) VTB10:2000 VNUM:25:NUM;"> ";AVD$(NUM)( VNUMVNUM11 NUM; 2100[ :2:12:"*** MAD-LIB ***" 5:"NOW I'LL NEED 10 NOUNS. SOME NOUNS ARE" "BAT, COMPUTER, WALL, AND CAR." FL195 VNUM11 NUM110 10:1:"NOUN #";NUM;:"==> ";NOUN$(NUM) VTB10:2000A NUM10ĢVNUM:25:NUM;"> ";NOUN$(NUM)k NUM9ĢVNUM:24:NUM;"> ";NOUN$(NUM){ VNUMVNUM1 NUM 2100 FLı :2:12:"*** MAD-LIB ***" 5:1:"NOW I'LL NEED TWO MEN'S NAMES." VTB6:20006:5:"NAME #1 ==> ";NAME1$%VTB7:2000E7:5:"NAME #2 ==> ";NME2$v9:1:"NOW I'LL NEED THE NAME OF ANY GIRL."10:5:"GIRL'S NAME ==> ";GIRL$12:1:"AND SOMEONE'S LAST NAME..."13:5:"LAST NAME ==> ";LNAME$15:1:"A GEOGRAPHICAL LOCATION (ANYWHERE)..."<16:5:"PLACE ==> ";PLACE$q18:1:"ANY TYPE OF LIQUID (WATER, SODA, ETC.)"19:5:"LIQUID ==> ";LIQ$21:1:"FINALLY, AN EXCLAMATORY REMARK (DARN!) "22:5:"XCLAM ==> ";XCL$2100:2:12:"*** MAD-LIB *** "D7:1:"WHICH OF THE FOLLOWING WOULD YOU LIKE: "c9:5:"[1] NEWSPAPER AD"10:5:"[2] A WESTERN"11:5:"[3] A STORY ABOUT THE ARMY"12:5:"[4] A TALE ABOUT A WATERBED" VTB15:2000:15:1:"YOUR CHOICE <1-4>: ";:ANS2$ANS2(ANS2$)CANS21ANS24ANS2(ANS2)258Y XNUM((1)50)5y936:ANS2300,400,500,600VTB24:200024:1:"ANOTHER STORY? ";:ANS$ANS$"Y"290ANS$"N"2200 282"VTB24:2000$24:1:"SAME WORDS? ";:ANS$.&ANS$"Y"244@(ANS$"N"ī70I*292j,:2:12:"*** MAD-LIB *** ".5:5:"THE HAMMOND DAILY CLASSIFIEDS"176"FOR SALE: 1978 SEDAN. THIS ";ADJ$(1)7"CAR IS IN ";ADJ$(2);" CONDITION. IT "!8"WAS OWNED BY BY A ";ADJ$(3);" SCHOOL"J9"TEACHER WHO DROVE IT ";AVD$(1);"."x:"THERE IS A ";ADJ$(4);" ";NOUN$(1);" IN";"THE BACK SEAT. IT HAS A CHROME ";NOUN$(2)<"ON THE HOOD, A ";ADJ$(5);" PAINT JOB, "=ADJ$(7);" TIRES, AND THE BACK OPENS "&>"INTO A ";ADJ$(8);" ";NOUN$(3)T?:"WILL CONSIDER TAKING A SLIGHTLY USED"o@NOUN$(4);" IN TRADE."yB2100J:2:12:"*** MAD-LIB ***"K5:5:"THE HAMMOND DAILY CLASSIFIEDS"L7M"LOST IN THE VECINITY OF ";PLACE$;":"'N"A ";ADJ$(8);" FRENCH POODLE WITH ";ADJ$(9)SO"HAIR AND A ";ADJ$(10);" TAIL. WILL "~P"ANSWER TO THE NAME ";GIRL$;". LAST"Q"SEEN CARRYING A ";NOUN$(5);" IT ITS "R"MOUTH. A ";ADJ$(11);" REWARD IS OFFERED! ":2:12:"*** MAD-LIB ***"!5:11:"AN ADULT WESTERN"'V"TEX ";LNAME$;", THE MARSHALL OF ";NAME1$"CITY, RODE INTO TOWN. HE SAT ";AVD$(2)"IN THE SADDLE, READY FOR TROUBLE. HE ""KNEW THAT HIS ";ADJ$(1);" ENEMY, ";NME2$ "THE KID WAS IN TOWN. THE KID WAS IN"5"LOVE WITH TEX'S HORSE, ";GIRL$;".";d"SUDDENLY THE KID CAME OUT OF THE "ADJ$(7);" NUGGET SALOON."" 'DRAW, TEX!' HE YELLED ";AVD$(3);".""TEXT REACHED FOR HIS ";NOUN$(4);", BUT""BEFORE HE COULD GET IT OUT OF HIS "5NOUN$(5);", THE KID FIRED, HITTING TEX"b"IN THE ";NOUN$(6);" AND THE ";NOUN$(7)l2100:2:12:"*** MAD-LIB ***":5:11:"AN ADULT WESTERN":7"AS TEX FELL HE PULLED OUT HIS OWN"NOUN$(8);" AND SHOT TH KID ";XNUM"TIMES IN THE ";NOUN$(9);"!"F"THE KID DROPPED IN A POOL OF ";LIQ$t" 'I HATED TO DO IT BUT HE WAS ON THE ""WRONG SIDE OF THE ";NOUN$(10);".' TEX ""SAID.":2:12:"*** MAD-LIB ***"5:8:"A STORY ABOUT THE ARMY","IF YOU PLAN ON JOINING THE ARMY, HERE"X "ARE SOME ";ADJ$(11);" TIPS THAT WILL""HELP YOU BECOME A ";ADJ$(10);" SOLDIER.""THE ARMY IS MADE UP OF OFFICERS, NON-""COMS, AND ";NOUN$(1);"S. YOU CAN""RECOGNIZE AN OFFICER BY THE ";NOUN$(2);"S"<"ON HIS SHOULDERS AND THE FUNNY-LOOKING"eNOUN$(3);"S ON HIS CAP. WHEN YOU ""ADDRESS AN OFFICER, ALWAYS SAY ";NOUN$(4) "AND SAY IT ";AVD$(5);". IF YOU GET A""ADJ$(9);" HAIRCUT, KEEP YOUR ";NOUN$(6);"S"$"SHINED AND SEE THAT YOUR ";NOUN$(6);<&"IS CLEAN AT ALL TIMES."F(2100):2:12:"*** MAD-LIB ***":5:8:"A STORY ABOUT THE ARMY":7*"YOU WILL BE A CREDIT TO THE SLOGAN"+"THE ARMY BUILDS BETTER ";NOUN$(7);"S!!"8"AT ROLL CALL, WHEN THE ";ADJ$(8)9:"SERGEANT CALLS YOUR NAME, SHOUT ";XCL$;"!"P<"LOUD AND CLEAR."V>@"YOU WILL BECOME FAMILIAR WITH WEAPONS"B"LIKE THE .30 CALIBRE ";NOUN$(8);" AND"D"THE AUTOMATIC ";NOUN$(9);". FOLLOW" F"THIS ADVICE AND YOU MAY WIN THE ";ADJ$(7))H"CONDUCT ";NOUN$(10);"!"/WOX:2:12:"*** MAD-LIB ***"gZ5:1:"DEAR SIRS:"m]b"LAST WEEK I PURCHASED A ";ADJ$(2)d"COUNTOUR WATER BED IN YOUR STORE. I "f"GOT IT FOR MY MY ";ADJ$(4);" HUSBAND"h"WHO SLEEPS VERY ";AVD$(1);" AND SAYS"Ij"THAT WATER BEDS THAT HAVE ";NOUN$(1);"S"tl"IN THEM MAKE HIS ";NOUN$(3);" ACHE."n"WHEN THE BED ARRIVED MY HUSBAND TESTED"p"IT ";AVD$(2);" AND SAID THAT THE "rADJ$(8);" ";NOUN$(5);" WAS BENT AND "" t"KEPT PRESSING INTO HIS ";NOUN$(6);"."P v"I WOULD LIKE TO EXCHANGE THIS ";ADJ$(9)~ x"BED FOR ONE THAT WILL ALLOW MY HUSBAND" z"TO SLEEP ";AVD$(4);" AND WON'T MAKE HIS" |NOUN$(10);" SORE." ~10:"YOURS ";AVD$(5);"," 10:GIRL$;" ";LNAME$!!CLR139%!VTB:CLR:" ";.!CLR4!?!423:7`!5"PRESS RETURN TO CONTINUE";k!6ANS1$q!9w!!8:1:"RUNNING MENU."!D$(4)!D$;"RUN MENU,D1"!" ::SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::t" 4:A$"ADVANTAGE COMPUTING'S":3::A$"PUBLIC DOMAIN SOFTWARE":3:8:A$"GRAMMAR MAD LIB":3" 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"&# 49152,128:K(49152)128:49168,0:K48K5230054# A((K))?# A3ıM# A1FL1c# A30,3050,0,3030r# FL0:3000# (4)"RUN MENU"$ 32,2:33,33:34,11:35,22::11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT.";$ 49152,128:K(49152)128:49168,0:K80K813055G$ K81ıo$ FL1:(4)"PR#1":30:(4)"PR#0"::6000:7((42(A$))2:A$:23000<1000\2"DO YOU WANT X OR O ?":C$v3:" 1 2 3":" 4 5 6"4" 7 8 9"532,8:9907C$"X"475<P$"O":Q$"X"dG1:H1:(1)109210eS(5)0103fS(5)1:M5:195 gS(5)1106 hS(1)0110/ iS(1)1:M1:195F jS(2)1S(1)0181] kS(4)1S(1)0181t lS(6)1S(9)0189 mS(8)1S(9)0189 nG1112 o118 pJ3((M1)3)1 q3((M1)3)1MK1 r3((M1)3)2MK2 s3((M1)3)3MK3 t120! vJ173:K132 xS(J)G130E zS(J2)G135X ~S(J1)0150q S(J1)1:MJ1:195 S(J)H150 S(J2)G150 S(J1)G150 S(J)1:MJ:195 S(J2)0150 S(J1)G150 S(J2)1:MJ2:195 S(K)G160 S(K6)G1652 S(K3)0170K S(K3)1:MK3:195[ S(K)H170n S(K6)G170 S(K3)G170 S(K)1:MK:195 S(K6)0170 S(K3)G170 S(K6)1:MK6:195 450 S(3)GS(7)0187 S(9)GS(1)0181# S(7)GS(3)0183: S(9)0S(1)G189R G1G1:H1:110i S(9)1S(3)0182 I29:S(I)0179 S(I)1:MI:195 I S(1)1:M1:195 S(1)1177 S(3)1:M3:195 S(7)1:M7:195 S(9)1:M9 5000# P$"X"İ2150:200- 21007 1095@ 500\ M((1)10)1:M9210m S(M)0210y S(M)1 195 G1465 J7K3465 K,J S(5)G171 175 P$"X":Q$"O" M$:M(M$) M0ĺ"THANKS FOR THE GAME":2000M9506'S(M)0510K"THAT SQUARE IS OCCUPIED":500ZG1:S(M)1q P$"X"İ2100:530{ 21501095:100::9J1525105,35J:5,35JGI173LS(I)S(I1)1115QS(I)S(I2)1115VS(I)11350)XS(I)11200J[I:I13:S(I)S(I3)1150ajS(I)S(I6)1150soS(I)11350qS(I)1ī1200~I:I19:S(I)01155I:1400S(5)G1170S(1)GS(9)G1180S(3)GS(7)G1180G113508"YOU BEAT ME !! GOOD GAME":(7):SHSH1:2000^F"I WIN, TURKEY!!!":SCSC1:2000x"IT'S A DRAW. THANK YOU":STST1:2000:5000"ANOTHER GAME ?"GA$GA$"N"2050X19:S(X)0::8::"COMPUTER ";SC:%"HUMAN "SH:"TIES "ST:(4)"RUN MENU":4 DRAW AN "X" L9XX(M):YY(M)W>J37tHXJ,YJ:XJ,Y(10J):zRf DRAW AN "O" kXX(M):YY(M)pJ46zXJ,Y3:XJ,Y7:X3,YJ:X7,YJ SET UP BOARD TABLE  J19 X(J),Y(J) 6 15,15,25,15,35,15N 15,25,25,25,35,25f 15,35,25,35,35,35l ~Z11000::p::A$" ":X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:::8:A$"TIC TAC TOE":5,q4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5r11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"u49152,128:K(49152)128:49168,0:K48K526005zA((K))A3ıA6100,6050,0,6030FL0:60002(4)"RUN MENU"32,2:33,33:34,11:35,22::11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K816055K81ıFL1:(4)"PR#1":6100:(4)"PR#0":::"WELP, THIS IS JUST STANDARD OLE TIC TAC":"TOE. YOU PICK TO BE X'S OR O'S AND":"PLACE YOUR SYMBOL IN ONE OF THE SQUARES":"WHILE TRYING TO GET THREE IN A ROW.":"IT'S THAT SIMPLE. GOOD LUCK!!!"FLı123::A$"PRESS A KEY":5::49152,128:49168,0:8000:10000*(42(A$))2:A$:0 6<z(24:" ";:8::"PRESS RETURN TO CONTINUE";::A$::4:11:" WORD MASTERMIND ":78 :" WORD MASTERMIND IS A LOGIC AND":"VOCABULARY GAME. THE COMPUTER RANDOMLY":"SELECTS ONE OF OVER 250 FIVE LETTER":"WORDS." :" YOUR PROBLEM IS TO GUESS THE WORD.":"AFTER EACH GUESS THE COMPUTER WILL":"GIVE YOU INFORMATION REGARDING HOW GOOD":"YOUR GUESS WAS." :" YOUR OBJECTIVE IS TO GUESS THE WORD":"IN AS FEW TURNS AS POSSIBLE.") $FL0İ40K .:12::" RULES OF PLAY ":Q 3 8"1. ALL WORDS ARE FIVE LETTER, NON-":" CAPITALIZED, NON-HYPHENATED WORDS":" FROM G.C. MERRIAM'S NEW COLLEGIATE":" DICTIONARY (1975)." =: B"2. YOUR GUESS MUST BE FIVE LETTERS, AND":" SHOULD BE A GENUINE WORD."@ G L"3. AFTER EACH GUESS, THE COMPUTER WILL":" TELL YOU HOW MANY LETTERS ARE IN":" THEIR CORRECT POSITIONS IN THE WORD,":" AND HOW MANY LETTERS ARE CORRECT,":" BUT NOT IN THE CORRECT POSITIONS." Q_ V"4. YOUR LAST 18 GUESSES ARE ALWAYS":" DISPLAYED ON THE SCREEN."e [ `"5. IF YOU GIVE UP, TYPE '?????' AND THE":" COMPUTER WILL REVEAL THE WORD." jFL0İ40   NUNė:12::(7);"ALL WORDS HAVE BEEN USED UP":10999' I((1)(NNU)1)4 W$W$(I)G W$(I)W$(NNU)W W$(NNU)W$u I15:WO$(I)(W$,I,1): NUNU1 NG0 *34,0: 4:4:"GUESS";:20:"CORRECT ";:31:"CORRECT">4:" # ";:12:"GUESS";:20:"POSITION";:31:"LETTER "H:34,3R35,21% + 7 NGNG1B 34,22Z 23:24:" " 23:"ENTER A 5 LETTER WORD ";:G$ (G$)5ĺ(7):3040 I15:G$(I)(G$,I,1): 34,3G$"?????"Ģ22::"THE WORD WAS: ";W$::4230G$W$4210CP0:CL0:I15:M(I)0:S(I)0:aI15:G$(I)WO$(I)M(I)2:S(I)2grI15}J15IJM(J)0S(I)04110G$(I)WO$(J)M(J)1:S(I)1:4120JI"I15:S(I)2CPCP1, 6I15:S(I)1CLCL1@(JVTNG3:VT20VT219TNG18Č912a^VT:6:NG;12);G$;24);CP;34);CL;kh4999r:(7);(7);(7)w"THE WORD WAS ";W$|22:"YOU GOT IT IN ";NG;" GUESSES":23::40:CP5YES0::102"DO YOU WANT TO PLAY AGAIN (Y/N)? ";::A$JA$"Y"YES1:5999cA$"N"ĺ(7):5030A$"N"ĺ:(4)"RUN MENU"opz 251ABYSS,ABOUT,ACTOR,AGING,ALONG,ANGRY,ANVIL,ASPIC,AWFUL,AXIOMBARGE,BEAST,BICEP,BLADE,BLEAK,BOARD,BROWN,BUILD,BUNCH,BUSHY]CEDAR,CHOIR,CHOPS,CIVIL,CLONE,COINS,CRAFT,CREAK,CROWN,CURSEDANDY,DEVIL,DIRGE,DIVOT,DRAFT,DRAIN,DRINK,DOUSE,DOWNY,DYINGEARLY,EASES,EBONY,ECHOS,EDGER,EERIE,ELATE,EMPTY,ERROR,EVENT FACES,FACIT,FAVOR,FEVER,FLASH,FORGE,FRAIL,FREAK,FROND,FURRYaGIVEN,GLIDE,GORGE,GOING,GOOSE,GOUGE,GREET,GRIST,GROUT,GUESTHAPPY,HAREM,HAVEN,HEARD,HINGE,HOIST,HOTEL,HOVER,HUSKY,HYENAICING,IDIOT,IGLOO,IMAGE,INANE,INFER,INGOT,IRATE,ISSUE,ITCHY$JAWED,JEANS,JETTY,JEWEL,JIFFY,JOIST,JOLLY,JOUST,JUDGE,JUICEeKABOB,KAYAK,KEMPT,KHAKI,KINKY,KNACK,KNOCK,KNOWN,KOALA,KUDOSLANKY,LARGE,LEARN,LEAST,LEECH,LEVER,LOOSE,LOVES,LOYAL,LURIDMARKS,MEDAL,MEANS,MILKY,MISTY,MIXER,MOIST,MORON,MOOCH,MUSES(NADIR,NASTY,NEARS,NEVER,NIFTY,NINTH,NOTCH,NOTED,NUDER,NUDGEiOASIS,OCCUR,ODDLY,OFFER,OGIVE,OLDER,OPTIC,OTHER,OUNCE,OVERTPACER,PEACH,PHOTO,PILED,PLANT,PORCH,PRONG,PSYCH,PUFFY,PYLON$QUAFF,QUALM,QUART,QUEER,QUEUE,QUEST,QUICK,QUIET,QUILT,QUOTA,.RABID,RACER,REACH,REBID,RIDER,RIVAL,ROOMY,ROUGH,RULED,RUNGSm8SAVOR,SCARE,SERUM,SHILL,SIEVE,SOOTH,SPARK,STEEP,SURLY,SWELLBTAPER,TENTH,TEPID,THINK,TITLE,TOOTH,TOTEM,TRACE,TUBER,TWINELUDDER,UMBER,UNDER,UNION,UNTIE,UPPER,URBAN,URGES,USING,USUAL0VVALID,VAPOR,VERSE,VESTS,VIDEO,VIGOR,VITAL,VOTER,VOUCH,VYINGq`WATER,WAVER,WEAVE,WHICH,WHILE,WINCE,WITCH,WOMEN,WOOLY,WRISTjXEBEC,XENON,XEROXtYACHT,YEARN,YEAST,YIELD,YODEL,YOUNG,YOURS,YOUTH,YUCCA,YUMMY~ ZEBRA,ZEROS,ZESTY,ZINGY,ZIPPY,ZONAL,ZONES,ZOOMSW Xb:Bl10:"SETTING UP ARRAY OF WORDS TO GUESS."PvN:W$(N)eI1N:W$(I):InNU0t10:"RANDOMIZING RANDOM NUMBER GENERATOR PRESS ANY KEY TO START GAME."RN(1):KB(16384):16368,0:KB12879997080?]@::SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::A4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5:8:A$"WORD MASTERMIND":59E11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"pF49152,128:K(49152)128:49168,0:K48K528006~JA((K))OA3ıQA1000,8050,0,8030YFL0::8000^(4)"RUN MENU"r32,2:33,33:34,10:35,22:Bw"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."{|49152,128:K(49152)128:49168,0:K80K818060K81ı:(4)"PR#1":FL1:1000::(4)"PR#0":FL0:''7000INITIALIZE$'.'2000SELECT WORD 8'3000INPUT GUESS"B'4000SCORE GUESS3L'CP510040JV'5000PLAY AGAIN? Y`'YES10030cj'1016i*o*+ A$: GENERAL ANSWER STRING + CL: CORRECT LETTER+ CP: CORRECT POSITION + G$: GUESS*+ G$():LETTERS OF GUESS4+ I: GENERAL INDEX>+ J: GENERAL INDEX6H+ N: NUMBER OF WORDSUR+ NU: NUMBER OF WORDS USEDq\+ NG: NUMBER OF GUESSESf+ WO$(): LETTERS OF WORD SELECTEDp+ S(): LETTER SCOREz+ VT: VERTICAL TAB+ W$: WORD SELECTED+ W$(): ARRAY OF WORDS1000:20'(42(A$))2:A$:J CHECKBOOK BALANCING PROGRAM m *** DATA INITIALIZATION *** #D(20),C1$(100),C(100),C$(100)(M1202M2100<I1M2:C1$(I)" ":C$(I)"0":IF::5PDD$"" Z:"ENTER DATE OF THE STATEMENT ";DA$> d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$i n:"ENTER BALANCE FROM BANK STAT. $";B :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)" I1M1 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) IJ "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN WHEN DONE."U M1I1a I1M2g "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "II ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORGET OTHER ADDS AND SUBTRACTS " @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC." JM2I1 T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395. "PRESS ANY KEY FOR BALANCE";:A$4 : H 18);DA$N w "BALANCE FROM STATEMENT";30);"$";B}  "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO ( 25);"============="C "TOTAL";30);"$";DOB !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$::: & 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XIb25);"------------"9l" SUBTOTAL CHECKS OUT";30);"$";CO?vn"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1 "***************************************"L" DIFFERENCE ";30);"$";((DOBCOB1.005)100)100{"***************************************"PRT$"Y"ĺ" "PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$ :PRT$"Y"Z$"Y"PRT$"Y"::380H"DO YOU WANT TO RUN THIS PROGRAM AGAIN? (Y/N)":ANS$YANS$"Y"40lANS$"N"700t: D$(4)D$;"RUN MENU"::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::24:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"8:A$"CHECKBOOK BALANCER":549152,128:K(49152)128:49168,0:K48K521010A((K)):A3ı3A1100,1050,0,1030DFL0::1000X(4)"RUN MENU"y32,2:33,33:34,10:35,22:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." $49152,128:K(49152)128:49168,0:K80K811060)K81ıG.FL1:(4)"PR#1":1100:(4)"PR#0":FL0:L::"THIS PROGRAM IS SIMPLE TO USE. MERELY":"ENTER THE REQUESTED INFORMATION ABOUT".Q"YOUR BANK STATEMENT AND RECEIVE YOUR":"CHECK BALANCE.":"YOU ALSO HAVE THE OPTION TO PRINT OUT":"THE INFORMATION FOR YOUR RECORDS."KV:"ENJOY AND PROSPER!!"U[FLı`A$"PRESS A KEY":23::5::49152,128:49168,0:1300:100((42(A$))2:A$:.d4nQqPN$"LABEL PRINTER V1.1"bs(4);"PR#0"|xA768798:B:A,B:A 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96,104,168,104,166,214,154,72,152,72,32,234,3,76,18,21210580 SM$(20),IN$(20) 8000 # ) D START1:UPPER1:LEFT1] :MENU1Q2EDIT1o 7500:51,161 :(VT1):(39CHARS):DASH1CHARS:"-";:DASH (VT1):(39(CHARS2)):"+" LINEUPPERLOWER:(VTLINE1):(38CHARS):"!";:(39):"!":LINE4 $(39CHARS):DASH1CHARS:"-";:DASHF )EDIT1İ3000y .(VT):LINEUPPERLOWER:EDIT1IN$(LINE)" " 8(39):"!";:(38CHARS) BIN$"":662 LI512767 VX(I)128 `X131150 jIN$IN$(X) tIN$(LINE)IN$:I3 ~(VTLINE1):(39CHARS):IN$(LINE);:(39):"!":LINEP RT21:6200:EDIT0:8000 :::A$" ":X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: 4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5d 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 8:A$"LABEL PRINTER":5 49152,128:K(49152)128:49168,0:K48K521310 #A((K)) %A3ı (A1500,1350,0,1330 -FL0:1300 2(4)"RUN MENU"2 F32,2:33,33:34,11:35,22::11 K"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." P49152,128:K(49152)128:49168,0:K80K811360 UK81ı Z(4)"PR#1":FL1:1500:(4)"PR#0":j::A$"LABEL PRINTER":5::"USING THIS PROGRAM YOU CAN PRINT LABELS":"FOR YOUR DISKS AND OTHER THINGS.":"ENTER THE INFORMATION ABOUT SIZE, ETC":"AND THEN ENTER TEXT TO BE PRINTED.":"ENJOY!!FLı23:A$"PRESS A KEY"::5::49152,128:49168,0:!2TEST1:40008 > D N (VT)d LINEUPPERLOWER (39CHARS):IN$(LINE) LINE (21):(11):"ENTER NEW LINE OR"::(6):"PRESS FOR NEXT LINE" YCHARS36:(10):"HOW MANY LABELS ACROSS PAGE? ";A$:ROWS(A$)QTEST1FINISH1:4060:"HOW MANY LABELS WOULD YOU LIKE? ";A$:FINISH(A$)FINISH((FINISHROWS).5)RIGHTROWS6000:7000:6100:TEST0:800010580SM3 SM$(1)"RESTART PROGRAM"?SM$(2)"BOOT ANOTHER DISK"QSM$(3)"QUIT"zMN$" END OF PROGRAM ":X$"X":10500Q8000,9000,30000opqzIDS16040:(10):"WHICH SLOT IS PRINTER CARD IN? ";A$:SLOT(A$)SLOT1SLOT7ĺ(7):6020<:(8):"ALIGN PAPER FOR PRINTOUT":IDS1LRT17:6200a(4);"PR#";SLOTg ************************ *** TURN PRINTER OFF *** ************************ (4);"PR#0"7 ****************************"8 *** PRESS RETURN ROUTINE ***F9 **************************** B16368,0:(RT):958:(8):"PRESS ";::"";::" TO CONTINUE"L(16384)1416220V16368,0:WXYbLABELSTARTFINISHlLINEUPPERLOWERvCOLUMNLEFTRIGHT1IN$(LINE);Y(IN$(LINE)))?COLUMN:KLINE:r(FINISHLABEL)ROWSRIGHTRIGHT1LABEL:KLMQEDIT1ıVMN$"LABEL SIZE"`SM3jSM$(1)"15/16 X 3-1/2"tSM$(2)"1-7/16 X 4" ~SM$(3)"2-7/8 X 3-7/8"1SEL$"WHAT SIZE ARE YOUR LABELS?"CMENU2:10500NSIZEQrSIZE1LOWER5:CHARS34:VT9:SIZE2LOWER8:CHARS37:VT7:SIZE3LOWER17:CHARS36:VT2:?@AJSM5TMN$"LABEL PRINTER"^SM$(1)"ENTER COPY"hSM$(2)"EDIT COPY";rSM$(3)"PRINT TEST LABEL"U|SM$(4)"PRINT LABELS"gSM$(5)"QUIT"rX$"X"SEL$"< ENTER YOUR SELECTION >"MENU110500Q1000,1000,2000,4000,5000'#(#)#2#D$(13)(4):ERR(222)<#9070>F#:(8):(11):"INSERT ANOTHER DISK"::(19):"THEN"NP#RT12:6200dZ#D$;"VERIFY ";PN$d#:(10):(9):"THIS IS THE SAME DISK!!":RT12:6200:216,0:5000n#D$;"PR#6"))))MENU110515)10506)X140:X$;:X:  ):10504. )X221:(X):X$;:(40):X$:X?)(22):10504\)(3):(20(MN$)2):MN$o)MENU110525|):10504)(7):(4):"YOUR SELECTIONS ARE:"")V9:HH11:HT14:I1SM')(VI):(HH):I;". ";SM$(I):I))::(20(SEL$)2):SEL$,)Q(16384):Q12710540J1)16368,0:QQ176:Q1QSMĺ(7);:10540e6)(VQ):(HT)::SM$(Q);):QQ(16384):QQ12710555@)16368,0:QQ14110575E)QQQQ176:QQ1QQSMĺ(7):10550J)(VQ):(HT):SM$(Q):QQQ:10550O)T)6100!X)EN(222):LN(218)(219)256>Y)EN255ĺ(7);:16368,0S^)LN10540ī10540hc)LN10555ī10555| N(4)"RUN MENU"/u0u 1u:u(4)"RUN MENU"쓗:(4)"RUN MENU" Q4:Z18A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"2";::2:2:"2";:39:"2":X222:X:1:"2";:40:"2":F22:2:"2";:39:"2":23:2:X239:"2";::: 60 X1Z:A$(X):( X1Z:B$(X):>  LIFE EXPECTANCYV  FRACTION PRACTICEk  CRYPTOLOGIC ][~  FOOTBALL NFL  IDEAL BODY WEIGHT  MAKING CHANGE  HOCKEY I  HORSE RACE III  MONSTER CHASE  OTHELLO WITH DOC  CORRECTIVE ADDITION0  CORRECTIVE SUBTRACTIONP  CORRECTIVE MULTIPLICATION`  GOLD MINEp  CHECKBOOK  PET PIT PAT POT  PETALS ROUND THE ROSE  MENU :A$"THE APPLE BEST 100 - V2.0":3:50: X1Z:A$A$(X):XQ:50: C10 :A$A$(C):A$A$" ":A$" "A$:CQ:50:N 49152,128:K(49152)128[ 49168,0 K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 CZC1 K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 10332 :(4)"RUN "B$(C)H  LIFE.EXPECTANCY^  FRACTION.PRACTIs  CRYPTOLOGIC...  FOOTBALL.NFL  IDEAL.BODY.WEIG  MAKING.CHANGE  HOCKEY.I  HORSE.RACE.III  MONSTER.CHASE  OTHELLO.WITH.DO  CORRECTIVE.ADDI*  CORRECTIVE.SUBT@  CORRECTIVE.MULTP  GOLD.MINE`  CHECKBOOKv  PET.PIT.PAT.POT  PETALS.ROUND.TH  MENU2000:40'(42(A$))2:A$:9(232,0:233,3Y2768,1:769,0:770,4:771,0k<I18:A$:IFI772820:A,BPA9B9110ZC(B8)A36:I,C:InI,0:I1,0:1:0::255:C$"WPS" N$(1)"WIN":N$(2)"PLACE":N$(3)"SHOW" I18:W(I)500:I5 15)"HORSE RACE":::L "INSTRUCTIONS? ";a A$:A$"Y"1660r A$"N"210 :9)"WELCOME TO THE RACES"::: "HOW MANY PLAYERS(1-8)"; A$:P(A$):P1P8270 P1ĺ:"WHAT IS YOUR NAME";:P$(1):300:410 "300:340+ ,:I18:H$(I):I1 6m @ " ECLIPSE"," MAN O' WAR" ," SLOW GEORGE"," BLACKIE" J " STARBUCK"," CLEMENTINE", " SLAPSHOT" ," STEPHEN" T ^"TYPE NAME FOR " hI1P r"PLAYER # "I;:P$(I):I1400B |J1I1:P$(I)P$(J)ĺ"SOMEONE IS ALREADY USING THAT NAME.":370I JP Ig ::T0:Z0:34,11 I18:O(I)(9(1)2):TTO(I):I I18:H(I)21:I I18:O(I)TO(I):I " HORSE"15)"NUMBER"23)"WINS"30)"ODDS" ( I18:H$(I);18);I;24);WI(I);30);:A$(O(I))E ((A$,2))10A$" "A$f &(A$)((A$))0A$A$".0" 0A$(I)(A$,4):A$(I)":1":I ::I1P bP$(I)": $"(W(I)):"INPUT BET, HORSE #, W,P, OR S"; lM(I),B(I),A$ vDE13:A$(C$,DE,1)DE(I)DE:660! DE:"?NO SUCH BET ";9 (7)"ERROR"::610j M(I)0M(I)10000ĺ"?CAN'T BET THAT ";:650 B(I)1B(I)8ĺ"?NO SUCH HORSE ";:650 W(I)W(I)M(I) W(I)0ĺ"?NOT ENOUGH MONEY ";:W(I)W(I)M(I):650 I I18:T(I)18:I7IP11:H$(B(I))(I)H$(B(I)):T(B(I))T(B(I))1:IZ:3:I2415216:0,I265,I:d:21265,24265,152:0,240,152:25,2425,152 I18:121,13I16:I5,295,35:4,30:4,356,35 3,46:4,456,45:7,467,47:5,486,48:4,49:3,50:3,517,51Q*3,617,617,62:6,63:5,646,64:7,657,66:4,676,67:3,66}46,776,83:3,817,81:3,80:4,79:5,78>7,933,933,956,95:7,967,98:6,994,99:3,98H7,1095,109:4,110:3,1113,114:3,1126,112:7,1137,114:4,1156,1150R3,1257,1257,126:6,127:5,128:4,1294,131\4,1416,141:4,1446,144:4,1476,147:3,1423,143:7,1427,143:3,1453,146:7,1457,146f274,45270,45270,51:270,48273,48:271,61273,61:271,67273,67:272,61272,67p270,77270,83:274,77274,83:271,79:272,80:273,81Pz271,93273,93:271,99273,99:272,93272,99274,110:273,109271,109:270,110270,111:271,112273,112:274,113274,114:273,115271,115:270,114270,125270,131:274,125274,131:270,128274,128I1750:II110:(7):I'I1250:I[I1372516:0:25,I25,I14:1:25,I1535,I0:25,I1535,I:1:25,I1440,I14:II06:C(I1)5I15:I1580:E18:IX(E):D(100(1)1)$H(I)01130.J17:DO(I)C(J)10908J8BKH(I)H(I)J44:0:1K4,13I16:3:1K,13I16XLK265H(I)265:1510:1130_VKq`H(I)H(I)J4xjEtL0~1050::"PLACE"8)"NUMBER";21)"HORSE";33)"ODDS"I18:I;8);Z(I);T(Z(I)));H$(Z(I));33);A$(Z(I))":1"I LL1J1DE(L):B(L)Z(J)ĺP$(L)" WINS "N$(DE(L))" BET FOR $"((M(L)DE(L)O(Z(J)))M(L)):W(L)W(L)M(L)DE(L)O(Z(J))JLP1240I1P:P$(I)" HAS $"(W(I));:Y(I)0ĺ" AND OWES $"(Y(I)); W(I)1İ1460 2Y(I)0W(I)10001470<I)d"ANOTHER RACE?";KnA$:A$"N"ĺ:(4)"RUN MENU"exA$"Y"İ300:::410o1390uP$(I)" IS NOW IN DEBT $";:Y(I)Y(I)500:(Y(I)):W(I)W(I)500: "PAYING OFF SOME OF YOUR DEBT, "P$(I):W(I)W(I)500:Y(I)Y(I)500:13308M18:H(M)265ZZ1:Z(Z)M:H(M)0:1530AM:Z1ĺ"*** FIRST -- "H$(Z(1))" # "Z(1):WI(Z(1))WI(Z(1))1Z2ĺ"*** SECOND -- "H$(Z(2))" # "Z(2)Z3ĺ"*** THIRD -- "H$(Z(3))" # "Z(3);Z8ġ:1180"1520,I18.6X(I)(8(1)1):II0I1:X(I)X(II)1590M@II0I1:X(I)X(II)1590YJII,I:T 2,3,2,3,2,2,1,2,1,2,3,3,0,3,0,3,3,3,2,3,2,3,3,0,1,0,1,0,0,3,2,3,1,0,1,1,1,1,0,1,0,0,1,2,1,1,2,-9,-9,|::"WELCOME TO THE GENZ BRAUN RACE TRACK":"TODAY WE HAVE THE THREE YEAR OLDS 6":"FURLONG RACES.":"YOU CHOOSE A HORSE, HOW MUCH MONEY, AND":"TO WIN, PLACE OR SHOW (W,P, OR S)."::"BETTING TO WIN PAYS FULL ODDS, TO PLACE":"PAYS HALF ODDS ON A 1ST OR 2ND PLACE""HORSE. SHOW PAYS 1/3 ODDS FOR 1ST,2ND,":"OR 3RD PLACE.":"WHEN YOU RUN OUT OF MONEY YOU WILL BE":"LOANED $500. WHEN YOU HAVE ENOUGH MONEY":"YOUR LOANS WILL BE PAID BACK."FL1ı:23:A$"PRESS A KEY":5:49152,128:49168,0::FL1ı2407::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"HORSE RACE":510:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"G49152,128:K(49152)128:49168,0:K48K522005\A((K)):A3ınA1A2FL1A1660,2050,0,2030FL0:2000:(4)"RUN MENU"#32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."\49152,128:K(49152)128:49168,0:K80K812055h K81ı(4)"PR#1":FL1:1660:FL0::(4)"PR#0":' ' *********************' * * ' * HORSE RACE *(' * *D' * BY *`' * *| ' * GEOFFREY GENZ * ' * & * ' * PAUL BRAUN * ' * * ' * AGES 14 & 15 *' * *%' *********************  4000:120((42(A$))2:A$:NxA(20,20),I4(8),J4(8),C$(8),D$(2)Z}X$(10)g:10:5"GREETINGS FROM OTHELLO"::"DO YOU WANT INSTRUCTIONS (Y OR N) ";X$X$"N"420X$"Y"160:T "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER-":"BOARD WITH ROWS NUMBER 1 TO 8, AND ":"COLUMNS MARKED A TO H." :"THE INITIAL CONFIGURATION IS BLANK,":"EXCEPT FOR THE FOUR CENTER SQUARES,":"WHICH FORM THE PATTERN:" :" O X" " X O" FL12758 A$"PRESS A KEY"::23:5::49152,128:49168,0>  "TRY TO PLACE YOUR PIECE SO THAT IT":"'OUTFLANKS' MINE."::"CREATE A HORIZONTAL, VERTICAL OR" ""DIAGONAL RUN OF PIECES BOUNDED ON EACH":"END BY AT LEAST ONE OF YOURS."3 6:"THIS WILL 'FLIP' MY PIECES, TURNING":"THEM INTO YOURS." J:"NOTE--YOU MUST CAPTURE AT LEAST ONE OF":"MY PIECES IN THIS WAY, IF IT IS AT ALL":"POSSIBLE." ^:"IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR":"TURN, AND MUST ENTER '0,0' FOR YOUR":"(ROW,COL) MOVE." `FL1ıF c23:A$"PRESS A KEY"::5::49152,128:49168,0P eFLıV r |::"SHOULD I WAIT BEFORE MAKING MY MOVES?" :"(Y OR N)"; F20 X$ X$"N"460 X$"Y"410 F21 :"SHOULD I PLAY MY BEST STRATEGY?" :"(Y OR N) "; S20# X$3 X$"N"520D X$"Y"480M S22V B1_ W1o D$(B1)"X" &D$(O1)"." 0D$(W1)"O" :K18 DI4(K) NK X 0,-1,-1,-1,0,1,1,1 bK18 lJ4(K) vK  1,1,0,-1,-1,-1,0,1K18C$(K)K/ A,B,C,D,E,F,G,H7I1=HJO9UA(I,J)0\JpII1:I10700}A(4,4)WA(5,5)WA(4,5)B A(5,4)BC12 H12*N144Z0> HUMANS CHOICESH:"DO YOU WANT TO HAVE X OR O"; RCW\HBfX$)pX$"X"920:zX$"O"870BCBJHWl:"DO YOU WANT TO GO FIRST?":"(Y OR N) ";X$X$"N"1020X$"Y"930 PRINT INITIAL BOARD31001690 COMPUTERS MOVEF201020X$B11I30:J30%T1C.T2HJ$ SCAN FOR BLANK SQUARER)I1X.c8J18wBA(I,J)01380L FOUND A BLANK SQUAREV DOES IT HAVE AN OPPONENT AS A NEIGHBOR? `2620jF101380t FOUND AN OPPONENT OR A NEIGHBOR$~ HOW MANY PIECES CAN WE FLIP?< (DON'T DO IT NOW)EU1O2820w EXTRA POINTS FOR BOUNDRY POSITIONS101380(I1)(I8)01230S1S1S2(J1)(J8)01260S1S1S2 IS THIS BETTER THAN THE BEST SO FAR S1B11380S1B113409 A TIE; RANDOM DECISIONl  THE NEXT EXECUTABLE STATEMENT CAN BE DELETEDwR(1)(R.51380<B1S1FI3IPJ3JdJnII1:I91070B101480"I HAVE TO FORFEIT MY MOVE"Z12190Z1 1690" MAKE THE MOVE*Z0B"I WILL MOVE TO ";KI3;V", ";bC$(J3)kII3tJJ3|U12820"C1C1S11,H1H1S16N1N11@"THAT GIVES ME ";JS1;T" OF YOUR PIECES"^ PRINT OUT BOARDh3100!r TEST FOR END OF GAME0|H102190@N1642190T HUMAN'S MOVE]T1HfT2C"YOUR MOVE -- (ROW,COL) ";I,X$I01720I81720I01820"ARE YOU FORFETRING YOUR TURN (Y OR N) ";X$X$"Y"1710Z12190Z1$1000/J18B&C$(J)X$1870I0JS:1720jD CHECK IF BLANK}NA(I,J)01910X"SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN"b1720l CHECK FOR LEGAL NEIGHBORv2620F111970%"SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;"7" TRY AGAIN"A1720] CHECK IF LEGAL RUN fU1p2820S102030"SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN"1720 EVERYTHING LEGAL MAKE HMAN'S MOVEZ0"THAT GIVES YOU ";S1;# " OF MY PIECES"+U15 2820D*H1H1S11Q4C1C1S1]>N1N11tH PRINT OUT BOARD~R3100\ TEST FOR END OF GAMEfC102190pN1642190z1000 END OF GAME WRAPUP"YOU HAVE ";H1;" PIECES AND I HAVE ";"C13" PIECES--"CH1C12290SH1C12310q"SORRY, I WON THAT ONE."{2320"A TIE !!"2500 "YOU WON IT!!!" C1C1H1 C102350 @$ C1C1. C1(64C1)N18 "THAT WAS ";B C1112490L C1252470%V C13924505` C1532430Ij "PERFECT GAME"St 2500e~ "A WALKAWAY"o 2500~ "A FIGHT" 2500 "A HOT GAME !" 2500 "WELL PLAYED!!"  "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) "; X$  X$"Y"ī690 X$"N"25203 (4)"RUN MENU"9 F< I111SF J111mP A(II1,JJ1)T22710uZ J1}d I1n NO T2 FOUND FAILUREx F10  SUCCESS F11  SUBROUTINE SCORE-AND-UPDATE S10 K18 I5I4(K)" J5J4(K), I6II5+6 J6JJ54@ S30KJ A(I6,J6)T23070eT LOOP THRU THE RUN q^ S3S31~h I6I6I5r J6J6J5| A(I6,J6)T12970 A(I6,J6)03070 2910 S1S1S3 U13070 UPDATE BOARD I6I J6J K10S3 A(I6,J6)T1+ I6I6I58 J6J6J5@ K1G KM j SUBROUTINE PRINT-BOARDr :& " A B C D E F G H"0 I18: I;D J18N " ";X D$(A(I,J)1);b Jl v I    DONATED BY KEVIN ARMSTRONG n::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"OTHELLO":5:11N10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"49152,128:A(49152)128:49168,0:A48A524015A$(A):A(A$)A3ıA1FL1A190,4050,0,4030FL0:4000(4)"RUN MENU"32,2:33,33:34,11:35,22::11l"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K814060K81ı(4)"PR#1":FL1:190:(4)"PR#0": ZD XF2S2BWKIJ C1H1@N1@ZCHT1T2I1J1F1US1I5J5I6`J6@S3K1B1I3J3AL@`fYAL@`fYAL@`fIAL``fYAL@`fX  HX  HX  HX L HX LAMA@Y`d`@Y`d`@Y`f @CAI`d`@YA!060&030&030&030&030&F1060&030&030&2030&FAMAAY`d@@Y`d@Y`d@Y`d@@YAX  HX  HX  L L L HX HL``fYL``fYl``fYl``fYL``f Ha LLLf `L00@6&003&00660066003&0p!00000B``` @@@ LdlldH@ H@ H@ H@ H@ L HA@@@AALA@`X`X`X`X`F LddddH16d`2d`2d`2d 2d` @X72d`022d`022d`022d0022d`0r L L L L L XAAAM@@LAAAM@@LAAAM@@L`A@L@@LAAAM@1 l  l  l  l lDa`d`20 f`20 f`200200 f`2Bad``0&``0&`@0&`@0&``CL L L H ffL LXAALL@AXAALL@X@ALL@X@ALL@AXAALL L L L LA    L L@ @l``Al``Al``Al``Al``a 0000C10   000``@d&&&&X10`````F L@@`@`@`@d`@@@ L@ L@ L@ L@LH@L L@L L@L L@ L L@LL@L@L@L`` L@`@0000pef602f602f602f62f60[ d020f020f020f020f020P@`d`A@`d`A@`d`AIA``f`A@`d`H  L H  L H  L H L H LA@MA``L@``L@``f`AIA``L@C16006300630`630`63006B3006d02d02d2202dFMAA A f`@ A f`@ PA f`@ PA f`@ AI3fffff   d@ @HA@@@ HA@@@ H@@@@ H@@@@ HA@Q4:Z18A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"1";::2:2:"1";:39:"1":X222:X:1:"1";:40:"1":F22:2:"1";:39:"1":23:2:X239:"1";::: 60 X1Z:A$(X):( X1Z:B$(X):?  MY SPELLING TESTU  GRAMMAR MAD LIBa  HAIKUw  SYLLABLE.PUZZLE  HANGMAN  ARITHMETIC TAC DOUGH  LABEL PRINTER  TIC TAC TOE  WORD MASTERMIND  CALENDAR  CHECK BOOK BALANCER  KINGDOM/  MARKET EVALUATION PAKK  METRIC TEMP OR WEIGHTe  RECIPE CALORIE COSTt  DEFLECTO  CINQUAIN  MENU2 :A$"THE APPLE BEST 100 - V2.0":3:50: X1Z:A$A$(X):XQ:50: C1 :A$A$(C):A$A$" ":A$" "A$:CQ:50:0 49152,128:K(49152)128= 49168,0z K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 CZC1 K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 1033 :(4)"RUN "B$(C)*  MY.SPELLING.TES@  GRAMMAR.MAD.LIBL  HAIKUb  SYLLABLE.PUZZLEp  HANGMAN  ARITHMETIC.TAC  LABEL.PRINTER  TIC.TAC.TOE  WORD.MASTERMIND  CALENDAR  CHECK.BOOK.BALA  KINGDOM  MARKET.EVALUATI  METRIC.TEMP.OR5  RECIPE.CALORIED  DEFLECTOS  CINQUAIN_  MENU2 !"#$%&'()*+,-.11000:10((42(A$))2:A$:; NFL FOOTBALLV AUTHOR: BRAD SCHAPERt 7266 VOLCLAY DR SAN DIEGO, CA. 92119diA(X)((1)X)1jB(Z)((1)(Y9X9)X91)nM(6,5,7)sS(2) vD(2),E(2),F(2),N(2),P(2)1 xQ(2),R(2),T(2),U(2); 9900D 255O LS160k EVENT OCCURENCE TABLE| OFF TACKLE -3,1,8,0,0,0,0 -2,4,3,0,0,0,0 -3,3,4,0,0,0,0 4,7,2,0,0,2,0 6,9,2,0,0,1,0 END RUN -2,4,3,0,0,0,0 -3,1,8,0,0,0,0/ 4,8,4,0,0,2,0C 3,6,2,0,0,2,0W 6,9,2,0,0,1,0b DRAWw -2,2,2,0,0,0,0 0,4,2,0,0,0,0  0,6,8,0,5,0,0  4,9,2,0,0,6,0  6,12,2,0,0,3,0  SHORT PASS  4,11,2,2,2,2,75  4,11,2,2,2,2,75  5,12,2,6,10,2,503  3,10,6,10,6,0,10I  6,13,2,6,3,1,20Y " LONG PASSp $ 13,24,2,2,3,6,65 & 13,24,2,2,3,6,65 ( 9,20,2,10,20,0,10 * 9,20,2,8,6,1,15 , 9,20,6,15,12,0,5 6 SCREEN 8 5,12,2,2,4,5,65 : 3,7,8,10,10,0,40 < 8,21,2,2,8,3,552 > 4,10,2,2,4,2,50H @ 6,14,2,2,4,2,50Y L10);:384k V"NFL";:380| `15);:384 j"FOOTBALL" t380 ~: "REVISION 2A - ADAPTED FOR APPLE II" :"WHAT TEAM DO YOU WISH TO COACH?" "LIMIT 8 CHARACTERS:"; T$% T$""1152O "DO YOU WANT INSTRUCTIONS?(Y OR N)";W I$h I$"N"1300r 9900 ::A$"FOOTBALL":5:34,1::::"YOU ARE THE COACH OF THE "T$ "YOUR OPPOSITION IS THE COMPUTER""YOU WILL CALL ALL THE OFFENSIVE"+"AND DEFENSIVE PLAYS FOR THE ";T$1\"TYPING '0' GIVES STATISTICS OF GAME"~"TYPING '9' GIVES PLAY MENU""TYPING 10 ENDS GAME"::"GAME LENGTH IS 4-27 PLAY QUARTERS"FL11250A$"PRESS A KEY":23::5:49152,128:49168,0:9250FLı :5 INITIALIZATIONU"INPUT ANY NUMBER 1-1000";\IjJ1I:JuI16J15#K17(M(I,J,K)-K2J7I}S(1)0:S(2)0D51H91Q51P527I123D(I)0:E(I)0:F(I)0:N(I)0:P(I)0:Q(I)0:R(I)0:T(I)0:U(I)0:IHT61:T71X COIN FLIP`LS::"THE COIN IS IN THE AIR, CALL IT""1-HEADS, 2-TAILS";AA(2)II11600I21620"1510@"YOU CALLED HEADS";J1630T"YOU CALLED TAILS AND";+^A21660Mh"-- THE TOSS IS HEADS":1670i|"-- THE TOSS IS TAILS"yI(A)1700:"THE COMPUTER WINS THE TOSS AND""ELECTS TO RECEIVE"980098001800:"THE ";T$;" WINS THE TOSS!"%"DO YOU WISH TO RECEIVE OR KICKOFF?"B"1-RECEIVE, 2-KICKOFF";IIWI11780eI21800o1700}O1:1850O2 H92: KICKOFF;936=D51>LS?::"HERE'S THE KICKOFF";@9800A:DX95:Y915:AB(Z)NX910:Y935:BB(Z))XO1900,20507lA01940EvA01970u"THE BALL IS TAKEN ON THE ";T$;" ";A:1990"THE BALL IS RECEIVED ";(A);" YARDS DEEP"1990"THE BALL IS TAKEN ON THE ";T$;" GOAL LINE"A(100)952170YAB%"AND RETURNED TO THE ";T$;" ";Y/2290=A02090K A02120t"THE BALL GOES TO THE COMPUTERS ";A~ 2130*"IT GOES INTO THE COMPUTERS"/"END ZONE ";(A);" YARDS"42130H"BALL TAKEN BY COMPUTER ON ITS GOAL LINE"RA(100)952170fYAB@p"AND RETURNED TO THE COMPUTERS ";YJu2290z"AND RETURNED ";100A;" YARDS FOR A TOUCHDOWN!!"5640Y1Y10 SELECTION OF PLAY 8000 O12350 "SET DEFENSE, COACH:"; L  L10ĺ:255:(4)"RUN MENU" L52380&$ L123860) 2390T. "CALL OFFENSIVE PLAY, COACH:";[3 K|5 K10ĩ255::(4)"RUN MENU"8 K82380= K12386B 2390L 9250Q 2320R 9000S 2320V LET COMPUTER PICK ITS PLAYX 8400` DETERMINE RESULTS OF PLAY#j K738001t K84800F~ "THE PLAY IS ";k K2450,2460,2470,2480,2490,2500 "AN OFF TACKLE RUN"; 2510 "AN END RUN"; 2510 "A DRAW"; 2510 "A SHORT PASS"; 2510 "A LONG PASS"; 2510 "A SCREEN"; 9800# ; "THE DEFENSE IS ";[ L2530,2540,2550,2560,2570v "STRONG MIDDLE LINE"; 2580 "STRONG WIDE LINE"; 2580 "BLITZING!"; 2580 "IN A SHORT ZONE"; 2580 "IN A DEEP ZONE"; 9800 KL2590 "OH OH";% +( 9- CA(100)U2 X9M(K,L,1):Y9M(K,L,2)a3 GB(Z)w< CM(K,L,4)2750F C(M(K,L,4)M(K,L,5))3000P C(M(K,L,4)M(K,L,5)M(K,L,6))5600Z C(M(K,L,4)M(K,L,5)M(K,L,6)M(K,L,7))3300d K43400 p U(O)U(O)1:R(O)R(O)G.x G04000< G04100S "*** NO GAIN ***"] 4400c  T(O)T(O)1:P(O)P(O)1 O2760,2800 "!!! INTERCEPTED BY THE COMPUTER !!!" O2 D50 YGY Y992791 X91:Y915:GB(Z) Y100Y:Y1Y10G( "RETURNED FOR ";2 4000b "INTERCEPTED IN THE END ZONE - TOUCH BACK"q Y20:Y130{ 4530 "INTERCEPTED BY THE ";T$;"!!!" O1:D50:2770  "THE QUARTERBACK IS SACKED!!" X93:Y910:GB(Z) N(O)N(O)1:Q(O)Q(O)G:4100 2 "PASS COMPLETE!"` E(O)E(O)1:T(O)T(O)1:Q(O)Q(O)G:4000fH }R "INCOMPLETE PASS"T T(O)T(O)1:4530 "SAFETY!! 2 POINTS!"; 9800  "HERE'S THE FREE KICK FROM THE 20"; 9800  O1O2:3550 O2O1/ X925:Y935:AB(Z)F X95:Y915:BB(Z)O D51_ S(O)S(O)2i 1880oD9100Y17"IT'S GOING TO BE AN ATTEMPTED""FIELD GOAL OF ";D9;" YARDS""THE BALL IS SNAPPED";9800CA(100)P9100(D9(.02432)1.43776),C963900D"IT'S IN THE AIR";N9800^CP93880s "IT'S NO GOOD!"Y804630Y80:4630("IT'S GOOD! THREE POINTS"-S(O)S(O)3:5680<A"IT'S BLOCKED!!!"F4630GY1005600#"*** GAIN OF ";G;" ***"-44003O"*** LOSS OF "G;" ***"`"GY03500f0t5CA(100):CM(K,L,3)4500?"OH OH! FUMBLE! ";@9800BAA(2)DA4422,4440F"RECOVERED BY ";T$;"!"HO14500 IF(O)F(O)1 JO1 KYYG LY100Y, NY1Y105 PD51? R2300] X"RECOVERED BY COMPUTER!"k ZO24500 [F(O)F(O)1:O2:4427  YYG P5P51 P515200  YY14600 "FIRST DOWN!" D51:Y1Y10:D(O)D(O)1:2300 !D544630!D5D51:2300"!3! O4650,4700W!*"BALL TURNS OVER TO COMPUTER!"z!4O2:Y100Y:D51:Y1Y10:2300!\"BALL TURNS OVER TO THE ";T$!fO1:Y100Y:D51:Y1Y10:2300!!"THE OFFENSE IS IN PUNT FORMATION"""THE CENTER SNAPS THE BALL";"9800:4"CA(100):C654860V""OH-OH THERE'S A HARD RUSH";b"9800:q"C934850""IT'S BLOCKED!!""YY15"Y04630""THE BALL BOUNCES OUT OF THE END ZONE""3500""HE JUST GETS THE KICK AWAY!" #9800:4865##"THE BALL IS KICKED"-#9800E#X934:Y960:CB(Z)m#"THE PUNT IS GOOD FOR ";C;" YARDS"w#9800# YC1004895#"IT'S IN THE END ZONE - TOUCH BACK"#9800#Y80:4630#X90:Y99:GB(Z) $$"THE BALL IS RETURNED ";G;" YARDS"$&9800%$.YYCG:4630+$PG$UQ55210,5220,5270,5290s$Z"THERE'S THE END OF THE FIRST QUARTER"}$_5275$d"THERE'S THE END OF THE FIRST HALF"$iT$;": ";S(1);" COMPUTER: ";S(2)$n9000$pP527%s"PRESS RETURN TO BEGIN THE SECOND HALF";:I$%xQ53.%}H95250,5260<%O2:1850J%O1:1850u%"THAT'S THE END OF THE THIRD QUARTER"%Q5Q51:P527:4550%"THERE'S THE FINAL GUN"%" FINAL SCORE:"%T$;" ";S(1);" COMPUTER ";S(2)%9000%9920&/&"THE PLAY IS GOOD FOR ";100Y;" YARDS":&12);T&384:"TOUCHDOWN!!!"^&380g&255s&I110&"!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*"&I&LS&K35636&U(O)U(O)1:R(O)R(O)100Y:5640'T(O)T(O)1:E(O)E(O)1:Q(O)Q(O)100Y1'"HERE'S THE EXTRA POINT TRY";A' S(O)S(O)6K' 9800`'A(100)85670t':"IT'S GOOD!"'S(O)S(O)1'!5680'&:"IT'S NO GOOD, OFF TO THE SIDE!"'0O5685,5700'5O2:5710'DO1'N9800'O:9800'Q:9800 (S"PRESS RETURN FOR KICKOFF";((XI$2(]1850;(@255b(A"-------------------------------"(CT$;": ";S(1);" COMPUTER: ";S(2)(E"QUARTER: ";Q5;" PLAYS REMAINING: ";P5(JY508025(OA1(T8030(YA2(^O8035,8060(cA8040,8050")hT$;" BALL ON COMPUTERS ";100Y,)m8080H)rT$;" BALL ON THEIR ";YR)w8080c)|A8065,8075)"COMPUTERS BALL ON ";T$;" ";100Y)8080)"COMPUTERS BALL ON ITS ";Y)Y11008130)Y2Y1Y)D58090,8100,8110,8120*"FIRST AND ";Y2 *8170#*"SECOND AND ";Y2-*8170B*"THIRD AND ";Y2L*8170b*"FOURTH AND ";Y2l*8170*D58135,8145,8155,8165*"FIRST AND GOAL"*8170*"SECOND AND GOAL"*8170*"THIRD AND GOAL"*8170+"FOURTH AND GOAL"'+"-------------------------------"/+LS5+;+A+ R+ O8410,8430^+ LA(5)d+ s+ D548800+ YTGY1Y+ S(2)S(1)38500+ S(2)S(1)108600+!YTG38900+ !YTG8465,8475,8485+!Y308950+!8900,!Y408950 ,!8900,%!Y508950%,'!89005,4!YTG28900H,>!YTG8520,8540j,H!((Y40)(Y80))8950:8900t,J!8900,\!((Y60)(Y80))8950:8900,^!8900,!YTG38900,!YTG8610,8620,8630,!((Y30)(Y80))8950:8900,!8900-!((Y40)(Y80))8950:8900 -!8900B-!((Y50)(Y80))8950:8900L-!8900X-`"KA(6)^-j"m-"Y598920w-"K8:-"K7:-""THE COMPUTER IS GOING TO GO FOR"-""IT ON 4TH DOWN!!!"-#KA(6):K58960- #-(#255-)#-*#P509015 .-#Q529018.0#Q549020?.2#"AND RETURNED TO THE ";T$;" ";Yq.7#"STATISTICS - QUARTER ";Q5;" PLAYS LEFT ";P5{.8#9021.:#"HALF TIME STATISTICS".;#9021.<#"FINAL STATISTICS".=#U(1)0T6U(1).>#U(2)0T7U(2)/A#" ";T$;" COMPUTER"+/B#X9((100R(1)T6))100G/C#Y9((100R(2)T7))100g/D#"SCORE ",S(1),S(2)/F#"FIRST DOWNS ",D(1),D(2)/H#"RUSHES ",U(1),U(2)/J#"YARDS RUSHING ",R(1),R(2)/L#"AVE YDS/RUSH ",X9,Y90N#"FUMBLES LOST ",F(1),F(2)#0P#"PASSES COMP ",E(1),E(2)C0R#"PASSES ATT ",T(1),T(2)c0T#"PASSES INT ",P(1),P(2)0V#"YARDS PASSING ",Q(1),Q(2)0X#"QB SACKS ",N(1),N(2)0Z#"TOTAL NET YDS ",R(1)Q(1),R(2)Q(2)0_#0s#LS0#0"$:255:::1'$"THE OFFENSIVE AND DEFENSIVE PLAYS:"A1,$" OFFENSE DEFENSE"p11$"1 OFF TACKLE RUN 1 STRONG MIDDLE LINE"16$"2 END RUN 2 STRONG WIDE LINE"1;$"3 DRAW 3 BLITZ"1@$"4 SHORT PASS 4 SHORT ZONE" 2E$"5 LONG PASS 5 DEEP ZONE"!2J$"6 SCREEN PASS"52O$"7 FIELD GOAL"C2T$"8 PUNT"P2Y$FL1ı2^$23::A$"PRESS A KEY":5::49152,128:49168,02m$LS2$2H&2L&I132R&J11502W&J2\&".";2a&I2f&2&9362&2&I11000:I3&"WHAT'S YOUR NAME?":ANS$/3&" I HOPE YOU HAD FUN ";ANS$@3&I11000:Im3'255::7:7:" *** END OF THE GAME ***"~3'I11000:I3'D$(13)(4)3$':(4)"RUN MENU2"3.' 4*::SP$(32)::49168,0:X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::m4*4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"FOOTBALL NFL":5:114+10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"5+49152,128:A(49152)128:49168,0:A48A521101505 +A$(A):A(A$);5 +A3ıU5 +A1FL1:T$"TEAM":o5+A1200,11050,0,110305+FL0:255:110005+:(4)"RUN MENU2"5*+32,2:33,33:34,11:35,22::116/+"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."U64+49152,128:K(49152)128:49168,0:K80K8111060a69+K81ı6>+(4)"PR#1":FL1:1200:FL0:(4)"PR#0":0123456789:;<=>?5000:16'(42(A$))2:A$:/:W13)"MONSTER CHASE "::3)"IN THIS SIMULATION YOU'RE TRAPPED IN A""CAGE WITH A HUNGRY GREEN MONSTER WHO HAS"#"A LIFE SPAN OF ONLY A FEW TURNS (YOU" $"OR THE COMPUTER MAY SELECT THE NUMBER)":D (3)"YOUR MOVEMENT AND THAT OF THE MONSTER"p -"TAKES PLACE ON A 5X5 GRID. SOMEWHERE" ."ON EACH GRID THERE IS A PIT FILLED WITH " /"QUICKSAND. IF ANYONE FALLS INTO IT HE'LL" 0"SINK---AND LOSE AUTOMATICALLY!" 1* 23)"YOU MAY MOVE NORTH, EAST, SOUTH, OR"U 7"WEST BY ENTERING N,E,S OR W. IF YOU" <"ENTER ANY OTHER LETTER, YOU WILL STAY IN" A"THE SAME PLACE.": BFL168 CA$"PRESS A KEY"::23:5::49152,128:49168,0 D F3)"THE MONSTER IS PROGRAMMED TO MOVE"D K"TOWARDS YOU (HE CAN MOVE DIAGONALLY TOO)":o L3)"YOU MAY DECIDE HOW DIFFICULT YOU" M"WANT THE GAME TO BE:" N5)"IF YOU CHOOSE 1, THE MONSTER IS" O"SEMI-STUPID AND THE PIT IS VISIBLE." P5)"IF YOU CHOOSE 2, THE MONSTER IS"1 Q"SMARTER AND THE PIT IS VISIBLE."[ R5)"IF YOU CHOOSE 3, THE MONSTER IS" S"SEMI-STUPID AND THE PIT IS HIDDEN." T5)"IF YOU CHOOSE 4, THE MONSTER IS" U"SMARTER AND THE PIT IS HIDDED.":FL1ı VFLĞ:23:A$"PRESS A KEY":5::49152,128:49168,0:X W:"WHICH LEVEL OF DIFFICULTY? (1-4) ->";C:C1C4Ģ15:87 X:3)"DO YOU WANT TO DETERMINE THE NUMBER" Y"OF TURNS?(Y/N)";I$:(I$,1)"Y"Ą"HOW MANY? ";N ZN0N(10(1))5/[:3)"YOUR ONLY HOPE FOR SURVIVAL IS TO":"OUTWIT HIM FOR ";N;" TURNS OR LURE HIM"O\"INTO THE PIT. GOOD LUCK!"s_"HIT RETURN TO START GAME.";I$y`: DISPLAY GRID FOR CAGEX4:Y215: WHITEI035X,X30YII GROUT BETWEEN FLOOR TILES (YELLOW)13"X,X30Y:X,X30Y35YX,X30Y7:X,X30Y14:X,X30Y21:X,X30Y28Y1,Y34X6:Y1,Y34X12:Y1,Y34X18:Y1,Y34X24"Y1,Y34X:Y1,Y34X30, BARS AROUND CAGE110: GREY86X1,Y1:X3,Y1:X7,Y1:X11,Y1:X15,Y1:X19,Y1:X23,Y1:X27,Y1:X31,Y1@X1,Y36:X3,Y36:X7,Y36:X11,Y36:X15,Y36:X19,Y36:X23,Y36:X23,Y36:X27,Y36:X31,Y36JX1,Y3:X1,Y7:X1,Y11:X1,Y15:X1,Y19:X1,Y23:X1,Y27:X1,Y31STX31,Y3:X31,Y7:X31,Y11:X31,Y15:X31,Y19:X31,Y23:X31,Y27:X31,Y31fU15:X11,Y11^ DETERMINE LOCATION OF PITcX4:Y3hPZ(23(1))1rPZ1PZ1|PZ23PZ23PZ1PY1PZ1PX7PZ2PY1PZ2PX13PZ3PY1"PZ3PX191PZ4PY1APZ4PX25PPZ5PY8_PZ5PX1nPZ6PY8}PZ6PX7PZ7PY8PZ7PX13PZ8PY8PZ8PX19PZ9PY8PZ9PX25PZ10PY15PZ10PX1 PZ11PY15PZ11PX7-PZ12PY15>PZ12PX13OPZ13PY15`PZ13PX19qPZ14PY15PZ14PX25PZ15PY22PZ15PX1PZ16PY22PZ16PX7PZ17PY22PZ17PX13PZ18PY22PZ18PX19PZ19PY22*PZ19PX25;PZ20PY29KPZ20PX1\PZ21PY29lPZ21PX7}PZ22PY29PZ22PX13PZ23PY29PZ23PX19C3455C4455C1C1:C4C4 DRAW PITX4:Y2XPXPX:YPYPY0: BLACK:I05:XP,XP4YPI:IWX4:Y2: SET CONDITIONSuXPXPX:YPYPY:MX1:MY1HX25:HY29XMXMX:YMYMYXHXHX:YHYHY PLACE MONSTER2000 PLACE HUMAN2500 BEGIN HUMAN MOVEMENT LOOPT1N5"MOVE NUMBER ";T;" OUT OF ";Np"HUMAN'S TURN- WHICH DIRECTION (N,S,E,W, OR'X')? ";H$z2800H$"N"YHYH7:570H$"E"XHXH6H$"S"YHYH7&H$"W"XHXH6:2500: REPLOT HUMAN<XH0YH0XH29YH31ĺ"OUT OF BOUNDS--YOU LOSE!">=XH0YH0XH29YH31980U>XHXMYHYMİ2100?XHXMYHYMĺ"YOU RAN RIGHT INTO HIS MOUTH! CHOMP"@XHXMYHYMİ2100AXHXMYHYM980 DXHXPYHYPė:"YOU FELL IN THE QUICKSAND-- YOU LOSE!":PAUSE1100:PAUSE GXHXPYHYPİ29005IXHXPYHYP980JX MONSTER'S MOVEeb2700: REMOVE MONSTERrlC1700vC3700XMXH6YMYHXMXH:860XMXH6YMYHXMXH:860YMYH7XMXHYMYH:860YMYH7XMXHYMYH:860 DETERMINE MONSTER'S MOVE+XMXHYMYHD1@XMXHYMYHD2UXMXHYMYHD3jXMXHYMYHD4XMXHYMYHD5XMXHYMYHD6XMXHYMYHD7 XMXHYMYHD8DD(3(1)1) D0D8*D9D14D1D5XMXM6>D5XMXM6'HD3D7YMYM7<RD3D8YMYM7K\XM5XM5\fXM29XM29kpYM3YM3|zYM31YM312000: REPOSITON HUMANXMXHYMYHİ2100XMXHYMYHĺ"YOU'VE BEEN EATEN!"XMXHYMYH980XMXPYMYPİ2900V:XMXPYMYPĺ"THE MONSTER FELL IN QUICKSAND!":PAUSE175:PAUSEXMXPYMYPC3ĺ3)"YOU WERE SAVED BY LUCK & QUICKSAND.":"NOTHING TO TAKE PRIDE IN.":988XMXPYMYP988T:"YOU SURVIVED!!!!"3500H"YOU LASTED ";T1;" OUT OF ";N;" POSSIBLE TURNS.":PAUSE1100:PAUSEjT1Nĺ5)"A PERFECT SCORE!"TN1ĺ"YOU ALMOST MADE IT!"XMXPXMXHT1N3ĺ"YOU DIDN'T DO TOO WELL!"XMXHYMYHĺ"YOU WOUND UP BEING EATEN!":"DO YOU WANT TO PLAY AGAIN? ";I$."Y"(I$,1)1010B(4)"RUN MENU"m"DO YOU WANT INSTRUCTIONS AGAIN? ";I$}I$"YES"Ĭ"DIFFICULTY LEVEL? ";C"DO YOU WISH TO DETERMINE NUMBER OF TURNS? ";I$:I$"YES"Ą" HOW MANY? ";N:20090 MONSTER SUBROUTINE(12: GREEN BODYFI04:XM1,XM3YMI:I^XM,YM2:XM4,YM2xXM1,YM5:XM3,YM515: WHITE MOUTH XM2,YM14 VICTORIOUS MONSTER SUBROUTINE>12HI01:XM1,XM3YMI:I RI24:XM1,XM2YMI:I.\XM,YM2:XM1,YM5:XM3,YM5Af1: RED MOUTHPpXM2,YM1fz10: GREY SHIELDI24:XM3,XM4YMI:I15:XM,YM3: REMOVE HUMAN'S HAND HUMAN SUBROUTINE 9: ORANGE FLESH I01:XH1,XH3YHI:I XH2,YH2. XH,YH3:XH1,YH5:XH3,YH5@ 1: RED SUITT XH1,XH2YH3c  XH2,YH4y  10: GREY SHIELD ( I24:XH3,XH4YHI:I 2 CLEANUP MONSTER SUBROUTINE 15: WHITE I05:XM,XM4YMI:I ! CLEANUP SUBROUTINE FOR HUMAN#! 15: WHITE?! I05:XH,XH4YHI:IE! `!T QUICKSAND SUBROUTINEt!^ XPPXX:YPPYY!h 0: BLACK!r XP,XP4YP5!w PAUSE1100:PAUSE!| XP,XP4YP4! PAUSE1100:PAUSE! XP,XP4YP3" PAUSE1100:PAUSE" XP,XP4YP2+" PAUSE1100:PAUSE=" XP,XP4YP1U" PAUSE1100:PAUSEe" XP,XP4YPk" " DYING MONSTER SUBROUTINE" 15: WHITE" XM1,YM:4000" XM2,YM:4000" XM3,YM:4000" XM1,XM3YM1:4000# XM,XM4YM2:4000# XM1,XM3YM3:40009# XM1,YM4:XM3,YM4L#12:XM2,YM5f#PAUSE1100:PAUSE:l##::49168,0:SP$" "::X139:SP$;::X222:X:1:SP$;:39:SP$::X139:SP$;::,$4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"MONSTER CHASE":5:11$10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"$49152,128:A(49152)128:49168,0:A48A525015$A((A))$A3ı%A1FL1%A16,5050,0,5030&%FL0:5000=%:(4)"RUN MENU2"b%32,2:33,33:34,11:35,22::11%"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."%49152,128:K(49152)128:49168,0:K80K815060&K81ı/&(4)"PR#1":FL1:16:FL0:(4)"PR#0":\&!:"WHICH LEVEL OF DIFFICULTY? (1-4) ";CABCDEFGHIJKLMNO2000:10'(42(A$))2:A$:/ :7X1A(::n2"WOULD YOU LIKE THE INSTRUCTIONS?";:C$t7<C$"N"90AC$"Y"80F"USE 'Y' OR 'N'":50P1720ZA$(10),B$(10),H(25),T(5),T1(5),T2(5),T3(5) d"ENTER THE TWO TEAMS ";:A$(7),B$(7) iI n"ENTER THE NUMBER OF MINUTES IN A GAME ";:T6O s_ xT61110: "WOULD THE ";A$(7);" COACH ENTER HIS TEAM" I16:"PLAYER ";I;:A$(I):I: "WOULD THE ";B$(7);" COACH DO THE SAME"  T16:"PLAYER ";T;:B$(T):T:@ " INPUT THE REFEREE FOR THIS GAME ";:R$e :10);A$(7);" STARTING LINEUP"z T16:A$(T):T :10);B$(7);" STARTING LINEUP" T16:B$(T):T: "WE'RE READY FOR TONIGHTS OPENING FACE-OFF" R$" WILL DROP THE PUCK BETWEEN "A$(2)" AND "B$(2)3 L1T6:L1260[ "AND WE'RE READY FOR THE FACE-OFF"x C(2(1))1:C270,280 A$(7);" HAS CONTROL OF THE PUCK":290 B$(7);" HAS CONTROL" ""PASS ";:P:N13:H(N)0:N ,P0290 1P3290 6J1(P2) @H(J)(5(1))17 JJ:H(J1)H(J2)310F KP23350] OH(J1)H(J3)310t TH(J2)H(J3)310 ^P0360 c490 h770 mS4360 rC380,340 |A$(H(J1)):GH(J1):G10:G20 S400,420,440,460 " LETS A BOOMER GO FROM THE RED LINE!!"$ Z10:890K " FLIPS A WRISTSHOT DOWN THE ICE"v " BACKHANDS ONE IN ON THE GOALTENDER" Z25:890 " SNAPS A LONG FLIP SHOT" Z17:890 B$(H(J1));:G10:G20:GH(J1):390 C500,640 P510,540,5708A$(H(J2));" LEADS ";A$(H(J1));" WITH A PERFECT PASS"YA$(H(J1));" CUTTING IN!!!"GH(J1):G1H(J2):G20:Z13:770A$(H(J2));" GIVES TO A STREAKING ";A$(H(J1))&A$(H(J3));" COMES DOWN ON ";B$(5);" AND ";B$(4)0GH(J3):G1H(J1):G2H(J2):Z12:770<:"OH MY GOD!! A '4 ON 2' SITUATION"aDA$(H(J3));" LEADS ";A$(H(J2))NA$(H(J2));" IS WHEELING THROUGH CENTER"XA$(H(J2));" GIVES AND GOES WITH ";A$(H(J1))b"PRETTY PASSING"lA$(H(J1));" DROPS IT TO ";A$(H(J4)).vGH(J4):G1H(J1):G2H(J2):Z11:770AP650,670,720B$(H(J1));" HITS ";B$(H(J2));" FLYING DOWN THE LEFT SIDE"GH(J2):G1H(J1):G20:Z13:770"IT'S A '3 ON 2'""ONLY ";A$(4);" AND ";A$(5);" ARE BACK"B$(H(J2));"GIVES OFF TO ";B$(H(J1))?B$(H(J1));" DROPS TO ";B$(H(J3))jGH(J3):G1H(J1):G2H(J2):Z12:770"A '3 ON 2' WITH A 'TRAILER'"B$(H(J4));" GIVES TO ";B$(H(J2));" WHO SHUFFLES IT OFF TO"B$(H(J1));" WHO FIRES A WING TO WING PASS TO "-B$(H(J3));" AS HE CUTS IN ALONE!!"XGH(J3):G1H(J1):G2H(J2):Z11:770r"SHOT ";:S:S4770S1770 C790,880A$(G);:S800,820,840,860 " LETS A BIG SLAP SHOT GO!!"*Z4:ZZZ1:8904" RIPS A WRIST SHOT OFF">Z2:ZZZ1:8901H" GETS A BACKHAND OFF"ERZ3:ZZZ1:890c\" SNAPS OFF A SNAP SHOT"wfZ2:ZZZ1:890pB$(G);:S800,820,840,860z"AREA ";:A:A1890A4890C910,920S2S21:930S3S31A1(4(1))1:AA11200 H(20)(100(1))1=(H(20)Z)H(20)Z1160LC970,980p"GOAL ";A$(7):H(9)H(9)1:990"SCORE ";B$(7):H(8)H(8)1B1125:(7);:B1:"SCORE: ";:H(8)H(9)1020A$(7);":";H(9),B$(7);":";H(8):1030B$(7);":";H(8),A$(7);":";H(9)'C1040,1100P"GOAL SCORED BY: ";A$(G):G101070_G201080$" ASSISTED BY:";A$(G1);" AND:";A$(G2):1090." UNASSISTED":10908" ASSISTED BY: ";A$(G1)BT(G)T(G)1:T1(G1)T1(G1)1:T1(G2)T1(G2)1:1540L"GOAL SCORED BY: ";B$(G))VG1011308[G201140k`" ASSISTED BY: ";B$(G1);" AND: ";B$(G2):1150j" UNASSISTED":1150t" ASSISTED BY: ";B$(G1):1150~T2(G)T2(G)1:T3(G1)T3(G1)1:T3(G2)T3(G2)1:1540A2(100(1))1:(A24)A2411701200"C1180,1190E"SAVE ";B$(6);" REBOUND":940j"SAVE ";A$(6);" FOLLOW UP":940}S1(6(1))1C1220,1380S11230,1260,1290,1300,1330,1350"KICK SAVE AND A BEAUTY BY ";B$(6)"CLEARED OUT BY ";B$(3)2600"WHAT A SPECTACULAR GLOVE SAVE BY";B$(6)]"AND ";B$(6);" GOLFS IT INTO THE CROWD"g1540 "SKATE SAVE ON A LOW STEAMER BY ";B$(6):260"PAD SAVE BY ";B$(6);" OFF THE STICK""OF ";A$(G);" AND ";B$(6);" COVERS UP"(1540$2"WHISTLES ON OVER THE HEAD OF";B$(6)-<260^FB$(6);" MAKES A FACE SAVE!! AND HE IS HURT"P"THE DEFENSEMAN ";B$(5);" COVERS UP FOR HIM"Z1540dS11390,1410,1440,1470,1490,1520n"STICK SAVE BY ";A$(6)x"AND CLEARED OUT BY ";A$(4):2607"OH MY GOD!! ";B$(G);" RATTLES ON OFF THE POST"k"TO THE RIGHT OF ";A$(6);" AND "A$(6)" COVERS""ON THE LOOSE PUCK!":1450"SKATE SAVE BY ";A$(6)A$(6)" WHACKS THE LOOSE PUCK INTO THE STANDS"1540 "STICK SAVE BY ";A$(6);" AND HE CLEARS IT OUT HIMSELF")260E"KICKED OUT BY ";A$(6)v"AND IT REBOUNDS ALL THE WAY TO CENTER ICE"260"GLOVE SAVE ";A$(6);" AND HE HANGS ON"1540L:N130:(7);:N:"THAT'S THE SIREN":15);"FINAL SCORE:"H(8)H(9)1580:"A$(7);":";H(9),B$(7);":";H(8):1590],B$(7);":";H(8),A$(7);":";H(9)}6:10);"SCORING SUMMARY":@25);A$(7)J"NAME","GOALS","ASSISTS"T"----","-----","-------"^I15:A$(I),T(I),T1(I)hI:r25);B$(7)|"NAME","GOALS","ASSISTS";"----","-----","-------"YT15:B$(T),T2(T),T3(T)bT:"SHOTS ON NET ":A$(7);":";S2:B$(7);":";S3"PRESS A KEY TO RETURN TO THE MENU":P$:(4)"RUN MENU2"::A$"HOCKEY":5::"THIS IS A SIMULATED HOCKEY GAME."8"QUESTION RESPONSE"V"-------- --------""PASS NUMBER OF PASSES YOU"" WOULD LIKE TO MAKE"" FROM 0 TO 3."SHOT 1 FOR SLAPSHOT"" 2 FOR WRISTSHOT"<" 3 FOR BACKHAND"a" 4 FOR SNAP SHOT"g"AREA WHERE YOU WILL AIM" " ------------------"" 1 FOR UPPER LEFT CORNER" " 2 FOR UPPER RIGHT CORNER"? &" 3 FOR LOWER LEFT CORNER"m 0" 4 FOR LOWER RIGHT CORNER"s 1 2FL11890 523:A$"PRESS A KEY"::5::49152,128:49168,0::\!b"AT THE START OF THE GAME, YOU WILL BE":"ASKED FOR THE NAMES OF YOUR PLAYERS.":"ENTER THEM IN THE FOLLOWING ORDER:"::" LEFT WING, CENTER, RIGHT WING,"!l" LEFT DEFENSE, RIGHT DEFENSE, AND THE":" GOALKEEPER."::"ANY OTHER INPUT WILL HAVE EXPLANATORY":"INSTRUCTIONS."!{FL1ı"|FLĢ23::A$"PRESS A KEY":5::49152,128:49168,0:&"90G" DONATED BY KEVIN ARMSTRONG["(4)"RUN MENU""SP$(32)::49168,0:::X139:SP$;::X222:1:SP$;:39:SP$::X139:SP$;::#4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"HOCKEY":5:11#10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"#49152,128:A(49152)128:49168,0:A48A522015#A((A))#A3ı#A1FL1#A1720,2050,0,2030$FL0:2000"$(4)"RUN MENU"G$32,2:33,33:34,11:35,21::11$"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."$ 49152,128:K(49152)128:49168,0:K80K812060$K81ı%(4)"PR#1":FL1:1720:(4)"PR#0":FL0:QRSTUVWXYZ[\]^_ 3000 1000)RANDOM NUMBERSMN1((1)10)1:N2((1)10)1qD1((1)10)1:D2((1)10)1 :"TYPE IN THE ANSWER AS A SINGLE FRACTION IN LOWEST TERMS."::"USE '/' AS THE LINE BETWEEN THE NUMERATOR AND DENOMINATOR. THEN PRESS 'RETURN'": #, 1REDUCING LOOP7 2J2XN <C1J(C1J)100e FC2J(C2J)100y PC1C1J:C2C2J Z60 dJ nB$(C1)"/"(C2) x ANSWER WRONG Y((1)5)1:Y210,220,230,240,250 "SORRY! INCORRECT":260: "OOPS!! YOU MUST HAVE TYPED THE ANSWER IN WRONG":260O "ERROR!":260a "NOPE!":260s "WRONG, ";N$ :"THE CORRECT ANSWER WAS ";B$: + ANSWER RIGHT ,Y((1)5)1:Y310,320,330,340,350 6"CORRECT!!!":360 @"VERY GOOD!":360C JN$;",":"YOU MUST HAVE BEEN STUDYING THIS STUFF.":360U T"YAY!!":360h ^"GOOD JOB!"n h NUMBER OF PROBLEMS N$;",":"HOW MANY PROBLEMS DO YOU WISH TO DO? ";K$:K(K$):K1400 TKTKK  :"PRESS ANY KEY TO CONTINUE. ";:Z$::' (42(A$))2:A$:R ::"GENERAL MATH PROGRAM: FRACTIONS"k ::"WRITTEN BY:": A$(1)"CAROL SMITH":A$(2)"JOE URADNIK":A$(3)"TONY PACHE" I13 A(I)((1)3)1 XA(I):B(X)11040 $B(X)1:A$(X):I .:"COMPUTER MATH 2"% 8:"4 JUNE 1982"6 BI12500:I< LM V"FRACTIONS" `:"HI! WHAT IS YOUR NAME? TYPE IT IN THEN PRESS 'RETURN' ";N$ j t"HI, ";N$ ~ "WOULD YOU LIKE TO:" "1. ADD FRACTIONS" "2. SUBTRACT FRACTIONS""3. MULTIPLY FRACTIONS"3"4. DIVIDE FRACTIONS"B"5. QUIT":"TYPE IN THE NUMBER OF THE OPERATION THATYOU WANT TO DO (1-5) THEN PRESS 'RETURN' ";X$:N(X$)N1N5ė:1160N52240N31730N41980ADDING AND SUBTRACTING LOOP:400 I1K&20ZN2ĺN1"/"D1" - "N2"/"D2" = ";:" ";A$::1308N1"/"D1" + "N2"/"D2" = ";:" ";A$:N1N1D2:C2D1D2:N2D1N2N2C1N1N2:1330(C1N1N22C1C2X(C1):1350<X(C2)F50A$B$RR1:300:500:1610200]"WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO) ";Q$y(Q$,1)"N"İ500:1610(Q$,1)"Y"1430:N11490N21630ADDING EXPLANATION;"TO ADD FRACTIONS:"::"EXAMPLE: 3/4 + 7/8 ="::"1. MULTIPLY THE FIRST NUMERATOR BY THE SECOND DEMOMINATOR."M"3 * 8 = 24":"2. MULTIPLY THE SECOND NUMERATOR BY THEFIRST DENOMINATOR.""7 * 4 = 28":"3. ADD THE TWO NUMBERS TOGETHER TO GET THE NEW NUMERATOR.""24 + 28 = 52":H"4. MULTIPLY THE DENOMINATORS TOGETHER TO GET THE NEW DENOMINATOR."\"4 * 8 = 32":|"5. REDUCE THE FRACTION.""52/32 = 13/8 (THE ANSWER!!)"@500J:I:1160TSUBTRACT EXPLANATION^"TO SUBTRACT FRACTIONS:"::"EXAMPLE: 3/4 - 1/8 ="::"1. MULTIPLY THE FIRST NUMERATOR BY THE SECOND DENOMINATOR.":"3 * 8 = 24"::"2. MULTIPLY THE SECOND NUMERATOR BY THEFIRST DENOMINATOR."c"1 * 4 = 4": h"3. SUBTRACT THE SECOND ONE FROM THE FIRST TO GET THE NEW NUMERATOR.":"24 - 4 = 20":pr"4. MULTIPLY THE TWO DENOMINATORS TOGETHER TO GET THE NEW DENOMINATOR.":"4 * 8 = 32":|"5. REDUCE THE FRACTION.":"20/32 = 5/8 (THE ANSWER!!)"500:I:1160MULTIPLY LOOP:400I1K20#:N1"/"D1" * "N2"/"D2" = ";:" ";A$:0C1N1N2=C2D1D2SC1C2XC1:1810\XC2d50A$B$RR1:300:500:1960&2000"WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO) ";Q$:(Q$,1)"N"İ500:1960D(Q$,1)"Y"1840NMULTIPLY EXPLANATIONBX:"MULTIPLYING FRACTIONS IS EASY!"a]:"EXAMPLE: 3/4 * 7/8 ="b:"SIMPLY MULTIPLY THE NUMERATORS OF EACH FRACTION TOGETHER TO GET THE NUMERATOR OF THE ANSWER. . ."g"3 * 7 = 21":Ol". . .TO GET THE DENOMINATOR OF THE ANSWER, MULTIPLY THE DENOMINATORS OF THETWO FRACTIONS TOGETHER"aq"4 * 8 = 32"v:"THEN REDUCE THE FRACTION.":"21/32 CAN'T BE REDUCED, SO IT'S THE ANSWER.":500:I:1150DIVISION LOOP:400I1K20: RANDOM NUMBER<N1"/"D1" / "N2"/"D2" = ";:" ";A$:IC1N1D2VC2N2D1pC1C2XC1:50:2070yXC2 50A$B$RR1:300:500:2230 200*"WOULD YOU LIKE TO SEE A SAMPLE PROBLEM? (YES OR NO)";Q$4(Q$,1)"N"İ500:2230>(Q$,1)"Y"20904HDIVIDE EXPLANATION[R::"HOW TO DIVIDE FRACTIONS"::\"DIVIDING FRACTIONS IS ALMOST LIKE MULTIPLYING THEM."a:"EXAMPLE: 3/4 / 7/8 ="Cf:"SIMPLY TURN THE SECOND FRACTION UPSIDE DOWN!":"(PUT THE DENOMINATOR ON TOP AND THE NUMERATOR ON THE BOTTOM)":"3/4 * 8/7"fp:"THEN MULTIPLY AND REDUCE.":"3 * 8 = 24 (NEW NUMERATOR)""4 * 7 = 28 (NEW DENOMIATOR)":"24/28 = 6/7 (THE ANSWER!)"500:I:1150QUIT:TK023308"YOU GOT ";R;" OUT OF ";TK;" RIGHT, WHICH IS ";QPER((RTK100).5)kPER;" PERCENT.":|I11500:IPER94ĺ"EXCELLENT!":2320PER85ĺ"VERY GOOD!":2320PER75ĺ"KEEP UP THE GOOD WORK.":2320. "YOU'D BETTER STUDY THIS A LITTLE MORE AND TRY AGAIN LATER."V :"THANK YOU VERY MUCH."::"BYE!"g I12000:I 23::A$"PRESS ANY KEY TO RETURN TO MAIN MENU":900: 49152,128:49168,0:2696$ E :::" THIS IS A PROGRAM DESIGNED TO GIVE":"YOU PRACTICE IN ADDING, SUBTRACTING,":"MULTIPLYING, & DIVIDING FRACTIONS."O FLı 23::A$"PRESS A KEY":900::49152,128:49168,0: :(4)"RUN MENU2" ::49168,0 SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::n 4:A$"ADVANTAGE COMPUTING'S":900:6:A$"PUBLIC DOMAIN SOFTWARE":900:8:A$"FRACTION PRACTICE":900 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 23:39:A:A1A43020! A2500,3050,3035,26964 FLFLFL:10> 3000I FL1:j 32,2:33,33:34,11:35,22: 11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT":"OR PRESS 'Q' TO QUIT" 49152,128:(49152)128("Q")(49152)128("P")Ĺ49168,0:3060+ (49152)128("Q")ı3 :S (4)"PR#1":PF1:2500:PF0e  (4)"PR#0":k A( F(VARIABLE CLARIFICATION: P(A$(I) = NAMES OF PROGRAMMERS FOR RANDOM BILLING Z(I = VARIOUS LOOPS d(B(X) = RANDOM BILLING!n(N$ = NAME OF USER(!x(N AND X$ = OPERATION NUMBERSK!(K$ AND K = NUMBER OF PROBLEMSe!(N1 = FIRST NUMERATOR!(D1 = FIRST DENOMINATOR!(N2 = SECOND NUMERATOR!(D2 = SECOND DENOMINATOR!(C1 = CORRECT NUMERATOR!(C2 = CORRECT DENOMINATOR"(X = SMALLER OF C1 AND C2("(A$ = INPUT ANSWERA"(B$ = CORRECT ANSWERo"(J = REDUCING LOOP FOR COMMON DENOMINATOR"(Q$ = ANSWER TO SEEING HOW PROBLEM DONE"(Y = RANDOM NUMBER FOR CORRECT/INCORRECT REMARK"(TK = TOTAL PROBLEMS WORKED #(PER = PERCENT CORRECT$#)********************:#)THIS PROGRAM WAS@# )S#)WRITTEN AS A Y#)n#)COMPUTER MATH 2t#)#")ASSIGNMENT AT#')#,)DUNEDIN HIGH SCHOOL#1)#6)DUNEDIN, FLORIDA#;)#@)PLEASE SEND ANY#J)COMMENTS, QUESTIONS, $T)OR IMPROVEMENTS TO:$Y)($^)CAROL SMITH>$h)2052 BRENDLA RD.X$r)CLEARWATER, FL 33515^$w)o$|)THANK YOU!!$)*******************ab ΠϠΠՠ > L נӠ # ŠǧӠ p ԠӠ p àΠŠ  Π͠  defghijklm2000:30'(42(A$))2:A$:11010=(S0:T0]2A$(80),S$(16),V$(15),W(18)e<:nF700PQ$"N"İ790ZQ$"N"140dn"PLEASE ENTER A WORD TO BE SCRAMBLED.":A$x(A$)15ĺ"DO NOT EXCEED 15 LETTERS!":110530 f 1:"+++++++++++++++++++++++++++++++++++++++":23:"+++++++++++++++++++++++++++++++++++++++" X222:X:"+ +": 21:3:"LOW SCORE=";LS:3:11::"<<>>": 560 460 34,10:35,12:33,37:32,1: S0( I1(A$)A 12:(TA2)I:V$(I)a V$(I)(A$,I,1)İ970:240{ V$(I)(A$,I,1)İ980 I "990 ,I14000: 6: @12:"YOU DECIPHERED THE WORD WITH ONLY ";S JS1ĺ"MISTAKE." TS1ĺ"MISTAKES." ^TT1 hT1LSS* rT1SLSLSSQ |:"DO YOU WANT TO TRY AGAIN?":A$a A$"N"450 :"DO YOU WANT TO ENTER A NEW WORD?":A$  A$"Y"110 A$"N"İ790 140 :12:"APPLE //E SAYS BGDOO EY":(4)"RUN MENU"  FORMAT FOR UNDERLINING ) 20(A$)2= TA20(A$)2L I1(A$)Z 13:"-";` f u I1(A$) S$(I)(A$,I,1) &: 0 ROUTINE TO SCRAMBLE WORD :WO(A$) D12 N8 XSC1(A$) bW(SC)(((1)WO)1) lW(2)W(1)610" vSC2āCH1SC17 W(CH)W(SC)610E SC2ĂCHR LEW(SC)_ S$(LE);g SCm  3:"************* CRYPTOLOGIC **************" " BY: RUDY A. GUY": "****************************************"e"THIS IS THE GAME OF CRYPTOLOGIC. YOU CAN EITHER ENTER A WORD OR THE COMPUTER WILL SELECT ONE FOR YOU.":"(MAXIMUM NUMBER OF LETTERS IS 15)":"THE COMPUTER WILL THEN SCRAMBLE THE WORDAND YOU MUST DECIPHER IT." :"DO YOU WANT TO ENTER A WORD? (Y/N)":Q$G  SUBROUTINE FOR COMPUTER SELECTED WORD. SI180^ A$(I)d*w4Z((1)80)1>VZ820HA$A$(Z)RVZ\ f COMPUTER SELECTED WORDS CAN BE INCREASED BY CHANGING DIM(A$) TO DESIRED NUMBER.Ep LINE 790 & 820 MUST BE THE SAME AS DIM(A$) z "CHURCH","TABLE","MOVIE","GRAPEFRUIT","NEW YORK","GREEN","ORANGE","CASSETTE","SUPER BOWL","WORLD SERIES","AIRPLANE"""BASEBALL","FOOTBALL","GARBAGE","ARMY","APPLE COMPUTER","CHICAGO","ROCKET","STAR TREK","FACE""TELEVISION","TELEPHONE","SOCCER","HOCKEY","FARM","STEREO","FARRAH FAWCETT","STEELERS","JETS","LAKE ERIE","ABE LINCOLN""LEGS","PIRATES","YANKEES","COFFEE","PANCAKE","COAST GUARD","DRACULA","MONOPOLY","MONSTER","MONKEY","LION"h"PLANT","TRUCK","TREE","CHRISTMAS","SUGAR","CANDLE","RECORD","TYPEWRITER","FRISBEE""PENNSYLVANIA","TEXAS","SNOW","PALM TREE","SHARK","APPLE II","JIMMY CARTER","DAVE PARKER","CLOCK" "CLOCK","TENNIS","OVEN","SPEAKER","WATERGATE","PASCAL","MONITOR","DARTH VADER","DESK","LONDON","PITTSBURGH","CLEVELAND","NIBBLE","DISKETTE","TAMPA BAY","CIRCUS","STAR WARS","BUCK ROGERS","STAR TREK","MR. SPOCK"SS1:V100110:X9:776,V:777,X:778:V:12:(17(I1))(A$)2:V$(I);:/W10100:Z9:776,W:777,Z:778::R APPLESOFT SOUND ROUTINE 776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:3. N8*********************iB* CRYPTOLOGIC *L* BY:RUDY A. GUY *V* P.O. BOX 1733 *`* ERIE, PA. 16507 *j* PH:(814) 455-1505 *t*********************B::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"CRYPTOLOGIC ][":510:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"V49152,128:K(49152)128:49168,0:K48K522010dA((K))oA3ıA2050,2100,0,2030FL0:2000(4)"RUN MENU"::A$"CRYPTOLOGIC ][":5::" IN THIS GAME YOU WILL EITHER ENTER":"A WORD (UP TO 15 LETTERS LONG)."G"OR LET THE COMPUTER CHOOSE ONE FOR YOU.":" THE COMPUTER WILL THEN SCRAMBLE THE":"WORD, AND YOU MUST TRY AND DECIPHER IT.":"THE SOONER THE BETTER!!!" :A$"GOOD LUCK!!!":5FLı23:A$"PRESS A KEY"::5::49152,128:49168,0:;432,2:33,33:34,11:35,22::119"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT.">49152,128:K(49152)128:49168,0:K80K812110CK81ıHFL1:(4)"PR#1":2050:(4)"PR#0":opqrs2000:140((42(A$))2:A$:4::10U "DO YOU WANT INSTRUCTIONS?"k "(1=YES, 0=NO)";rKK1140(:3" PETALS AROUND THE ROSE"46 <"THE COMPUTER WILL ROLL FIVE DICE AND":"ASK YOU TO GUESS THE SCORE FOR THE ROLL"8 F"THE SCORE WILL ALWAYS BE EVEN NUMBER"c P"GUESS 99 TO STOP PLAYING. GOOD LUCK"m UFLı ZA$"PRESS A KEY":23::5::49152,128:49168,0: ::L(7) H0 G0 F0 K15 A(12(1)) 720 F8FC G8GD HHB K # . K15B L(K)F8(F8)M "ML(K)V ,590c 6F(F8)j @Ku JK15 TMG8(G8) ^590 hG(G8) rK |HH12(H12) K15 (L(K)1)(L(K)4)0420 L(K)5L(K) ML(K) 590 K  . "GUESS THE SCORE";5 KD K991110Q H2(H)^ KH570r " NO, IT'S "H; K2(K2)0550 " (THE SCORE IS ALWAYS EVEN)"; & 0150 :" ..YES.." D150 NN02 XM3630 b" "; l650 vMM4(M4) " O";& M2M- N: K5700E " ";K Q W f B6(1)6n C0v D0 A3890 BB3 A1810 DD2 BB3  *CC1 4BB1 >A2780 HBB11 R790 \CC1 fA2790 p780 zCC4 BB2* A59704 BB2A A5950J 780U BB11^ 790h CC1r BB8 A61030 DD3 BB5 780 A71070 BB5 CC1 $860 .BB7 8A10780 BBB10 L790V" THE SCORE WAS "12(H)'`(4)"RUN MENU"y::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5;11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"a8:A$"PETALS ROUND THE ROSE":549152,128:K(49152)128:49168,0:K48K522010A((K))A3ıA40,2050,0,2030FL0:2000(4)"RUN MENU2"32,2:33,33:34,11:35,22::11k"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." 49152,128:K(49152)128:49168,0:K80K812060K81ı(4)"PR#1":FL1:40:FL0:(4)"PR#0":uvwxyz{2000:10'(42(A$))2:A$:K * * CORRECTIVE ADDITION * *o * ESPADA MATH DRILL PROGRAM * * NANCY DAISHER 9-23-80 *( * SAN DIEGO, CALIFORNIA *2 * * * * * * * * * * * * * * *<Y0: # CORRECT FZ0: # WRONG P! Z4:4:"# CORRECT ";Y: d4:27:"# WRONG ";ZX n7:13:"A D D I T I O N"^ xo A((9)10) B((8)10) C((7)10) D((6)10) E((5)10) F((4)10) G((3)10) H((2)10) I((1)10) J((9)10)* P10000J1000H100F10DBL Q10000I1000G100E10CAV RPQg R99999130x P10000130 Q10000130 "12:16:J;" ";H;" ";F;" ";D;" ";B ,14:14:"+ ";I;" ";G;" ";E;" ";C;" ";A 615:14:"-----------" @20:10:"YOUR ANSWER IS ";U& EU02030E JUR1080: CORRECT ANSWERO T1130Y ^KABt h16:27:"<-- CORRECT" r17:31:"ANSWER" |1130 K10L0 K9L1 K10480 L1440 16:23:K 1130 L1470 16:23:" ";K10 1130 L15001 11:22:"1"; 1130I L0530X 16:24:Kd MDCLq M9L1 &M10L0 0M10660 :1130 DL1600 N16:21:M X1130 bL1630 l16:21:" ";M10 v1130 L1660 11:20:"1" 1130# L06902 16:22:M> NEFLK N9L1Y N10L0g N10750u L1750 16:19:N 1130 L1780 16:19:" ";N10 1130 L1810 11:18:"1" *1130 4L0840>16:20:NHOGHLRO9L1)\O10L07fP10970Ap1130OzL1910^16:17:Oh1130vL194016:17:" ";O101130L197011:16:"1"1130L0100016:18:OSJIL113016:16:S 11301130 ZZ1N$22:10:"PRESS 'RETURN' TO CONTINUE ";B$V.80q8 'CORRECT' SUBROUTINE}B:YY1L12:14:"C O R R E C T"VW12000:W`80jW11000:Wt::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::c4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"8:A$"CORRECTIVE ADDITION":5949152,128:K(49152)128:49168,0:K48K522010GA((K))RA3ılA2050,2100,130,2030{FL0:2000(4)"RUN MENU2"(::A$"CORRECTIVE ADDITION":5::"ALL OF YOU BUDDING MATHEMATICIANS OUT":"THERE, THIS PROGRAM IS FOR YOU.":"NO HELPS, NO CHEATS, JUST PURE AND""SIMPLE HEAD ADDITION. AND THESE ARE":"BIG NUMBERS. 3124, 9325, ETC. SO GIVE":"IT A WHIRL AND HELP IMPROVE YOUR" "SPEED AND ACCURACY AT ADDING BIG":"NUMBERS!! GOOD LUCK!!":"BTW: ENTER 0 AS YOUR ANSWER TO QUIT."FLıS23::A$"PRESS A KEY":5::49152,128:49168,0:x432,2:33,33:34,11:35,22::119"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." >49152,128:K(49152)128:49168,0:K80K812110CK81ıAH(4)"PR#1":FL1:2050:(4)"PR#0":}~2000:10'(42(A$))2:A$:L * * CORRECTIVE SUBTRACTION * *q * ESPADA MATH DRILL PROGRAM * * NANCY DAISHER 9-23-80 *( * SAN DIEGO, CALIFORNIA *2 * * * * * * * * * * * * * * *<Y0: # CORRECT FZ0: # WRONG P& Z4:4:"# CORRECT ";Y? d4:27:"# WRONG ";Zc n7:10:"S U B T R A C T I O N"t xA((9)10) B((9)10) B0130 C((9)10) D((9)10) D0160 E((9)10) F((9)10) F0190 G((9)10) H((9)10) H02200 I((9)10)A J((9)10)N J0250p P10000J1000H100F10DB Q10000I1000G100E10CA "QP120 ,P10000120 6Q10000120 @RPQ J12:13:J;" ";H;" ";F;" ";D;" ";B& T14:11:"- ";I;" ";G;" ";E;" ";C;" ";AE ^15:11:"---------------"f h20:10:"YOUR ANSWER IS ";Ut mU02030 rUR850: CORRECT ANSWER |890 890 16:27:"<-- CORRECT" 17:31:"ANSWER" 890 BA500 DD1 11:22:D 890 BB10( 11:24:B1 890B 16:25:BAK 890Y DC590c FF1r 11:19:F{ &890 0DD10 :11:21:D D890 N16:22:DC X890 bFE680 lHH1 v11:16:H 890 FF10 11:18:F 890 16:19:FE% 8903 HG770= JJ1L 11:13:JU 890` HH10o 11:15:Hx 890 16:16:HG 890 JI0810 16:13:JI *W13000:W 4ZZ1 >22:10:"PRESS 'RETURN' TO CONTINUE ";B$H80R:YY1,\12:14:"C O R R E C T"=fW12000:WEp80VzW11000:W\::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5p11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"8:A$"CORRECTIVE SUBTRACTION":549152,128:K(49152)128:49168,0:K48K522010A((K))A3ıA2050,2100,0,2030 FL0:2000"(4)"RUN MENU2"I::A$"CORRECTIVE SUBTRACTION":5:"AGAIN, AHOY THERE ALL YOU PEOPLE WHO":"CAN DO MATH REALLY WELL! HERE'S A":"CHALLENGE. AGAIN, THERE IS NO PLACE TO":"DO YOUR WORK. IT'S JUST ALL IN YOUR"n "BRAIN. YOU'RE GIVEN TWO NUMBERS BY THE":"COMPUTER AND TOLD TO SUBTRACT THE 2ND":"FROM THE FIRST. SO DO IT! YOU'LL""GET BETTER AT YOUR MATH AND HAVE FUN AT":"THE SAME TIME! ENJOY!":"BTW: IF YOU WANT TO QUIT, ENTER 0 AS":"YOUR ANSWER."FLı623::A$"PRESS A KEY":5::49152,128:49168,0:[432,2:33,33:34,11:35,22::119"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT.">41952,128:K(49152)128:49168,0:K80K812110CK81ı$H(4)"PR#1":FL1:2050:(4)"PR#0":2000:::10+(42(A$))2:A$:1 ?<X(20,30)EFMK11{P"I'VE BEEN A MINER FOR A HEART OF GOLD,"U"AND I'M GETTIN' OLD."Z:"---NEIL YOUNG---"_I12500:Id:12n::400x::7 " THROUGHOUT MANKIND'S HISTORY GOLD"> "HAS BEEN A MAGIC METAL. GOLD HAS BEEN"j "PRIZED BY NEARLY EVERY CIVILIZATION." :" NOW IS YOUR CHANCE TO HAVE YOUR OWN" "GOLD MINE. YOU HAVE A YEAR TO MINE ALL" "THE GOLD YOU CAN. THE MOST YOUR MINE IS"$ "WORTH IS ONE MILLION DOLLARS! BUT YOU"P "MUST MINE IT. YOUR MINE CONTAINS 100"y "VEINS OF GOLD. EACH VEIN IS WORTH" "$10,000." FL228 24:" << PRESS THE SPACE BAR TO CONTINUE >>"; (16384)127224 16368,0 :6' :" TO START WITH YOUR MINE HAS JUST ONE"T "VERTICAL SHAFT. YOU MUST ENLARGE THIS" "BY MINING. IT TAKES ONE DAY TO MINE ONE" "POSITION, WHETHER IT CONTAINS ORE OR" "NOT. IF THE POSITIONS HAVE ALREADY BEEN" "MINED YOU CAN MOVE FIVE OF THEM IN ONE"9 ""DAY. YOU CAN MOVE IN FOUR DIRECTIONS:"h ,"UP, DOWN, LEFT, AND RIGHT. TO MOVE TYPE" 6"THE FIRST LETTER OF THE DIRECTION YOU" ;"WISH TO MOVE AND THEN THE NUMBER OF" @"POSITIONS TO MOVE. FOR EXAMPLE, TWO" E"POSITIONS UP WOULD BE U2, 3 POSITIONS"= J"RIGHT WOULD BE R3, AND SO ON."I KFL334| L24:" << PRESS THE SPACE BAR TO CONTINUE >>"; M(16384)127333 N16368,0::6 O:" YOU CAN MOVE AS MANY POSITIONS AS YOU"T"WANT IN ONE DIRECTION EXCEPT THAT YOU"2Y"CANNOT GO PAST THE BORDER OF THE MINE."a^"IF YOU TRY TO, YOU'LL BE STOPPED AT THE"c"BORDER. YOU CAN THEN MOVE FROM THERE ON"h"YOUR NEXT TURN."m:" EACH MOVE TAKES ONE DAY. ON THE MAP"r"EACH LEVEL IN THE MINE IS A DIFFERENT"/w"LETTER, (A-L, AND N-U). YOU ARE THE"^|"MINER AND ARE REPRESENTED BY THE LETTER"~"M. ALL GOLD VEINS ARE SHOWN AS '*'.""YOU BEGIN AT THE TOP OF THE SHAFT."FLı24:" << PRESS THE SPACE BAR TO CONTINUE >>";(16384)12738816368,0@12:"GOOD LUCK AND GOOD MINING"Fp:AA120:BB130:X(AA,BB)0:BB,AA|D0:M0K$"UDLR"L$"ABCDEFGHIJKLNOPQRSTU"T120:::X(T,16)1T:::X(1,16)3:::X116:::Y11T1100:::Y((1)201)/:::X((1)301)>:X16520R::X(Y,X)0510b&:::X(Y,X)2i0TsD34,1yNXT120bT1130lX(T,T1)1680,630,650,670vT1:(L$,T,1);680T1:"*";680T1::"M";:T1:T158034,21:3" MOVE: ";;A$GT114c(K$,T1,1)(A$,1)810k T1:"TYPE D, L, R, OR U FOLLOWED BY A NUMBER"I11500:I700:"BOUNDRY REACHED"I11000:I 700*N((A$,2,3))4X9X1>Y9Y1$HZ$(L$,Y9,1)/MX1NHRT1860,900,960,1020T\Y1Y11baY10880nfY1Y11wk790pX(Y11,X1)1z1070Y1Y11Y121940Y1Y11790X(Y11,X1)11070X1X11X101000X1X11 790X(Y1,X11)1(10704X1X11DX1311060PX1X11Y790j$X(Y1,X11)1.X(Y1,X1)111408DD1=D(D10.5)10BD365.241210LX(Y1,X1)01160VMM10000`M10000001450j1160tDD.2yD(D10.5)10#~D365.2412102X(Y1,X1)3DY91:X9:Z$NX9X1XY9Y1jZ$(L$,Y9,1)Y91:X9::"M":1580XDD1D(D10.5)10D365.24ī7001580"YOUR YEAR IS UP AND YOU HAVE MINED $";M;" OF GOLD."*I12000:I5::8c DISK COMMAND TO OPEN "GOLD.DAT" AS FILEm1530{CM1400CM1380D365.24  ROUTINE TO READ CLOCK AND DATE"HEY OLD TIMER, WHAT'S YOUR NAME";N$::" DISK COMMAND TO OPEN "GOLD.DAT" AS FILE #11( WRITE N$?2 WRITE DM< WRITE M\F WRITE T$jP CLOSE 1Z"WELL ";N$;" YOU JUST BROKE";_1410d"CONGRATULATIONS!!! YOU TIED";n1410x"YOU DIDN'T BREAK";" THE RECORD""OF $";C;" MINED IN ";B;" DAYS"":"BY ";M$;" ON ";R$KI11500:IU1600jI11000:I::"CONGRATULATIONS !! YOU HAVE MINED A MILLION DOLLARS IN ONLY ";D;" DAYS!": OPEN DISK FILE #21530BD1400BD13801290W ROUTINE TO INPUT M$,B$,C$,R$,B,AND C TO FILE 2 AND THEN CLOSE IT]",1:4:"DAY ";D;" ";:20:"PROFIT IS ";M;" "6@I12000:IT::^"WOULD YOU LIKE TO PLAY AGAIN ";A$h(A$,1)"N"Ĭr:12|"WELL THEN, ITS BEEN FUN ";N$2:(4)"RUN MENU"::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"GOLD MINE":5Z11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"49152,128:K(49152)128:49168,0:K48K522005A((K)):A3ıA120,2050,0,2030FL0:2000:(4)"RUN MENU"Z32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K812055 K81ıFL1:(4)"PR#1":120:(4)"PR#0":1000:10'(42(A$))2:A$:- 39?(J<:290PFnPQ1:Q$(50),QA$(50),R(50)ZQ$(Q):QA$(Q):Q$(Q)"END"100:QQ1:90dQQ1: RANDOMIZE QUESTIONSn::"W O R K I N G":X110 xR((1)Q)1:Y1X:R(Y)R120:Y:R(X)R:X: ASK QUESTIONa X110:QR(X):370:X::::"YOU GOT "CO" CORRECT OUT OF 10. CO7160:::"THAT WAS A CHALLENGE. I HAD TO USE MY "DICTIONARY. PERHAPS YOU HAD TO, ALSO. ::"WOULD LIKE TO TRY IT AGAIN? (Y/N) "; Z$:Z$"Y"Ĭ Z$"N"170b ::2:"IS THERE ANYONE ELSE WHO WANTS"::"TO PLAY (Y OR N) =>"; Z$:Z$""200:Z$"Y"Ĭ Z$"N"200::8:8:" * * * T H E E N D * * *" (4)"RUN MENU" ::"GOOD!":: ::"SORRY, TRY AGAIN!0 AC2ĺ"THE WORD STARTS WITH "(QA$(Q),3)::550k Z$(A$,3):Z$"PET"Z$"POT"Z$"PIT"Z$"PAT"ĝ:550 "REMEMBER-- THE ANSWERS":"BEGINS WITH PET-, PIT-, PAT-, OR POT-. ": 550 "::::" --------------------------"= ," PETS, PITS, PATS, AND POTS":" -------------------------- 6:::"PET, PIT, PAT, AND POT ARE PREFIXES OF"::"WORDS TO BE GUESSED. @:::"I WILL GIVE YOU A PREFIX, A CLUE, AND J:"THE NUMBER OF LETTERS IN A WORD. T:::"YOU GUESS THE WORD. THERE ARE 10 WORDS.";) YFL1ıc ^23::A$"PRESS A KEY":FLİ5::49152,128:49168,0:i c h"PRESS THE KEY TO CONTINUE...";:Z$:(Z$)27190::"...";:: r|::" "X". "Q$(Q)::" ";A$:ACAC1:A$QA$(Q)AC3İ240:380IA$QA$(Q)ACEĺ::"SORRY - THE ANSWER IS "QA$(Q)::550qA$QA$(Q)İ230:Y12000::COCO1~:AC0: PART OF A FLOWER (5),PETAL, AN EARTHY VEGETABLE (6),POTATO WHAT A SCOUT OR GUIDE IS A MEMBER OF (6),PATROL- AN AUTO FUEL (6),PETROLn A SMALL SEA-BIRD ASSOCIATED WITH STORMS (6),PETREL AN UNDERSKIRT (9),PETTICOAT, WORKER IN CLAY (6),POTTER "SOUND OF TINY FEET; ALSO RAPID SPEECH (6)",PATTERB SMALL AND DAINTY (6),PETITE, FARMER'S IMPLEMENT (9),PITCHFORKj A PIECE TO MEND A HOLE (5),PATCH "THROW A BALL; PUT UP A TENT (5)",PITCH A FLOWER; ALSO A GIRL'S NAME (7),PETUNIA0 A BASEBALL PLAYER; ALSO A POURING VESSEL (7),PITCHERb PEEVISHLY IMPATIENT (8),PETULANT, END,END&23:6:"PRESS TO CONTINUE...":6:"OR TO END PROGRAM.";:0Z$:(Z$)27190:(Z$)13560::2:" W O R K I N G ":: H::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU")8:A$"PET PIT PAT POT":5h49152,128:K(49152)128:49168,0:A((K)):A1A41010vA1FL1A3ıA290,1050,0,1030FL0:1000(4)"RUN MENU2"32,2:33,33:34,10:35,22:8"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."q$49152,128:K(49152)128:49168,0:K80K811060})K81ı.FL1:(4)"PR#1":::290:FL0::(4)"PR#0":2000:10'(42(A$))2:A$:- 3U MADE BETTER BY JOHN KAMINAR[(a2i<:F4:8:"CORRECTIVE MULTIPLICATION"P8:10:"1 EASY PROBLEMS"Z10:10:"2 HARDER PROBLEMS"d12:10:"3 HARDEST PROBLEMS"* n16:8:"ENTER YOUR CHOICE (1,2, OR 3)";CHOICEE xCHOICE1CHOICE3110O yCC20 z:"AFTER HOW MANY CORRECT ANSWERS DO YOU":"WISH TO SWITCH LEVELS? ";CC P0: # CORRECT Q0: # WRONG 930 L0: 10'S PLACE H0: 100'S PLACE X10 270 L1 H0" X100+ 2703 L1; H1F X1000L ^ A((9)X)1q "B((9)10)1~ ,B9290 6C(((9)10)1)L @C9310 JD(((9)10)1)H TD9330 ^FBC10D100 hAF280 rF2290 |F1000390 AF999999280% RA:10105 8:10T:AC RF:1010Y 10:7T:"X ";Fo 11:11:"------" 20:10:"YOUR ANSWER IS ";U U12030 RU:1010 13:2:"YOUR -->" 13:10T:U 14:2:"ANSWER" 20:10 W130 " "; W$ W11000:W3 &UAF890A 0RA:1010Q :8:21T:A_ DRF:1010v N10:18T:"X ";F X11:22:"------" bRAB:1010 l13:21T:R vC0700 RAC:1010 15:20T:R D0730 RAD:1010 17:19T:R 800- 13:29:"<-- CORRECT"C 14:33:"ANSWER"L 850V RAF` 1010v 16:22:"------" 17:21T:R 17:29:"<-- CORRECT" 18:33:"ANSWER" 850 18:22:"------" *RAF:1010 419:21T:R>19:29:"<-- CORRECT"(H20:33:"ANSWERWR24:7:"PRESS 'RETURN' TO CONTINUE ";RTN$a\QQ1gfpp940vz:PP112:12:"C O R R E C T"W12000:W4:4:"# CORRECT ";P4:27:"# WRONG ";Q 6:14:"MULTIPLICATION"(PCCCHOICE1CHOICE2IP(CCCC)CHOICE2CHOICE3aCHOICE160,200,240goT6|R9T5R99T4R999T3$R9999T2.R99999T18R999999T0BL(4)"RUN MENU"5:::X139:" ";::X222:X:1:" ";:39:" "::23:X139:" ";::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"CORRECTIVE MULTIPLICATION":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"Z49152,128:K(49152)128:49168,0:A((K)):A1A42005eA3ı}A2100,2050,0,2030FL0:2000(4)"RUN MENU2"32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."R49152,128:K(49152)128:49168,0:K80K812055^ K81ıFL1:(4)"PR#1":2100:(4)"PR#0":FL0: 4::"OK ALL YOU BUDDING MATHEMATICIANS, HERE":"IS THE OPPORTUNITY TO POLISH AND":"PRACTICE YOUR MULTIPLICATION SKILLS."B6:"BTW: ENTER -1 AS AN ANSWER TO QUIT THE GAME."x923::A$"PRESS A KEY":5::49152,128:49168,0:>FLı4000:6&(42(A$))2:A$:/10P :" < < LIFETIME > >"s: WRITTEN BY T. LUKAS 4/2/77"THIS PROGRAM DETERMINES YOUR LIFE":"EXPECTANCY. DO YOU WANT INFORMATION";(A$2(A$,1)"N"1307::D <"THE FOLLOWING, THOUGH NOT VALIDATED,":"IS BASED ON THE BEST SCIENTIFIC EVEDENCE" F"AVAILABLE TODAY. WHILE SCIENTISTS STILL":"DON'T KNOW ALL OF THE VARIABLES CAUSING" Z"LONG LIFE, THEY ARE AWARE OF SOME OF THE":"PHENOMENA THAT SEEM TO BE CORRELATED"M n"WITH LONGEVITY. THIS PROGRAM IS BASED":"ON THAT DATA AND STARTS WITH PEOPLE"m x"AT LEAST 20 YEARS OLD.":z }FL1ı ~FLĢ23::A$"PRESS A KEY":5::49152,128:49168,0: BA(101) :"WHAT IS YOUR AGE IN YEARS "; AY' AY20ĺ"SORRY, YOU MUST BE AT LEAST 20 YEARS OLD":C :"WHAT IS YOUR SEX ";K S$b I0101:BA(I):In CAY20 (S$,1)"F"CC51 69.9,70.0,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7+ 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2b 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8 76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.5,79.9 "80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4 ,77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9> 678.0,78.0,78.1,78.2,78.3,78.4,78.5,78.6,78.7,78.9u @79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.5 J80.7,80.9,81.2,81.4,81.6,81.9,82.2,82.4,82.7,83.0 T83.3,83.6 ^:"YOUR BASE LIFE EXPECTANCY IS":BA(C) h:TBA(C)r3000|"PART I HEREDITY"$3000o:"DID AT LEAST TWO OF YOUR GRANDPARENTS":"LIVE TO AGE 80 OR MORE ";wA$(A$,1)"N"ĺ10);T;"+0=";T:46010);T;"+2=";T2TT2"WHAT IS/WAS YOUR MOTHER'S AGE ";AA80ĺ10);T;"+0=";T:510210);T;"+1.5=";T1.5:TT1.58_"WHAT IS WAS YOUR FATHER'S AGE ";fAA80ĺ10);T;"+0=";T:560&10);T;"+2=";T2:TT20:"DID ANY OF YOUR GRANDPARENTS, PARENTS,":"BROTHERS OR SISTERS DIE OF HEART"!D"ATTACK OR STROKE BEFORE AGE 50 ";)XA$Ob(A$,1)"N"ĺ10);T;"-0=";T:640el10);T;"-4=";T4ovTT4u"DID ANY OF THE ABOVE DIE OR HEART ATTACK":"OR STROKE BEFORE AGE 60 ";A$(A$,1)"N"ĺ10);T;"-0=";T:710 10);T;"-2=";T2:TT2i"WHAT IS THE TOTAL NUMBER OF INCIDENCES":"OF DIABETES, THYROID DISORDER, BREAST""CANCER (WOMEN), DIGESTIVE SYSTEM CANCER":"ASTHMA, EMPHYSEMA AND/OR CHRONIC""BRONCHITIS FOUND IN YOUR PARENTS AND":"GRANDPARENTS ";A!10);T;"-3 X";A;" =";T3A/ TT3A:93000\ "PART II HEALTH AND DIET"f*3000l4>"HOW MANY POUNDS OVERWEIGHT ARE YOU ";:ARA0B0:870\BA10f10);T;"-";B;" =";TB:TTB:"HOW MANY PACKS OF CIGARETS DO YOU SMOKE":"A DAY ";:A+A0B0:1000>A1B2:1000QA1B4:1000hA1.5B5.5:1000{A2B7:1000A2B8:1000A3B10:1000A4B12:100010);T;"-";B;" =";TB:TTB: "HOW MANY DRINKS DO YOU HAVE EACH DAY ";:A1A0ĺTAB;T;"-1=";T1:TT1:1080Y$A2ĺ10);T;"+3=";T3:TT3:1080.A2ĺ10);T;"-8=";T8:TT8:10808:E$"DO YOU WANT AN EXPLANATION OF THIS":E$BA$L(A$,1)"N"1170,V:"MODERATE DRINKING (UP TO TWO DRINKS PER":"DAY) REDUCES STRESS AND AIDS DIGESTION."`"HEAVY DRINKING, HOWEVER, PRODUCES":"PHYSIOLOGICAL DAMAGE. AS FOR TEETOTALER"j"THEY MAY HAVE RATHER RIGID VALUE SYSTEMS":"AND MAY UNDERGO STRESS IN MAINTAINING":"THEM."?"DO YOU EXERSISE MODERATELY--JOG, BIKE":"RIDE, TAKE LONG WALKS, SWIM--AT LEAST"`"2 OR 3 TIMES A WEEK ";:A$(A$,1)"N"ĺ10);T;"+0=";T:123010);T;"+3=";T3:TT3:"HOW MANY HOURS DO YOU SLEEP EACH DAY ";:AA9ĺ10);T;"-0=";T:1290A9ĺ10);T;"-4=";T4:TT4:1290?A10ĺ10);T;"-6=";T6:TT6I :E$cA$:(A$,1)"N"1360#:"ADULTS THAT SLEEP TOO MUCH US TOO MANY":"HOURS IN NONPHYSICAL ACTIVITY AND MAY"("BE UNHAPPY AND SLEEP AS AN ESCAPE OR":"MAY BE ILL. DEPRESSED PEOPLE HAVE"02"SHORTER LIFE EXPECTANCIES."6PfZ(S$,1)"F"AY30(S$,1)"M"AY401490|d(S$,1)"M"1440n"DO YOU HAVE A BREAST EXAMINATION AND PAP":"SMEAR AT LEAST ONCE A YEAR ";xA$:(A$,1)"N"ĺT10);T;"+2=";T2:TT2: 1490a"DO YOU HAVE A PHYSICAL AND PR0CTOSCOPIC":"EXAMINATION AT LEAST ONCE A YEAR ";A$:(A$,1)"N"ĺ10);T;"+0=";T:148010);T;"+2=";T2:TT23000"PART III EDUCATION AND OCCUPATION":3000P:"STARTING FROM THE FIRST GRADE, WHAT ARE":"THE TOTAL NUMBER OF YEARS YOU ATTENDED":"SCHOOL ";WAA12ĺ10);T;"-2=";T2:TT2:1600"A14ĺ10);T;"+0=";T:1600,A17ĺ10);T;"+1=";T1:TT1:16006A17ĺ10);T;"+3=";T3:TT3@:E$JA$:(A$,1)"N"1650aY:"ALTHOUGH ATTENDING SHOOL DOES NOT MAKE":"YOU LIVE LONGER, MORE EDUCATION"^"CORRELATES WITH INCREASED INCOME, AND":"ACCESS TO BETTER HEALTH CARE."r:"IS YOUR OCCUPATION CLASSIFIED AS PROFESSIONAL ";:A$(A$,1)"N"1730="ARE YOU A MUSICAN, ARCHITECT OR":"PHARMACIST ";:A$l(A$,1)"N"ĺ10);T;"+2=";T2:TT2:178010);T;"-1=";T1:TT1:1780"DO YOU WORK IN RUGGED HEAVY WORK OR AS":"A COOK, CHEF, OR BAKER ";:A$(A$,1)"N"177010);T;"-2=";T2:TT2:1780(10);T;"+0=";T2:E$LA$:(A$,1)"N"1880:"PROFESSIONALS USUALLY LIVE LONGER EXCEPT":"MUSICIANS, ARCHITECTS AND PHARMACISTS.""WHY THIS IS TRUE IS UNKNOWN AT THE":"PRESENT TIME. YOU HAVE A GREATER CHANCE"S&"OF BEING INVOLVED IN A ACCIDENT IF YOU":"WORK AT RUGGED HEAVY LABOR. PEOPLE"0"WHO WORK AT JOBS ASSOCIATED WITH OVER-":"EATING ALSO HAVE A LOWER LIFE SPAN.":X:"IS YOUR ANNUAL INCOME OVER $40,000 ";lA$(A$,1)"N"ĺ10);T;"-0="T:2020"10);T;"-2=";T2:TT2,:E$FA$:(A$,1)"N"2070:"PEOPLE WITH HIGHER INCOMES USUALLY":"EXPERIENCE MORE STRESS EARNING THEM AND" "CONSUME MORE RICH FOOD." "IS YOUR JOB ACTIVE OR SEDENTARY ";:A$ 4(A$,1)"A"ĺ10);T;"+3=";T3:TT3:2120< >10);T;"-3=";T3:TT3:B HR RAY612180v \"ARE YOU STILL WORKIN G ";:A$ f(A$,1)"N"ĺ10);T;"+0=";T:2170 p10);T;"+2=";T2:TT2 z 3000 "PART IV LIFESTYLE" 3000%!:"DO YOU LIVE IN A RURAL OR AN URBAN AREA";:A$T!(A$,1)"R"ĺ10);T;"+1=";T1:TT1:2260p!10);T;"-1=";T1:TT1!:"ARE YOU MARRIED OR LIVING WITH SOMEONE":"ON A PERMANENT BASIS ";:A$!(A$,1)"Y"ĺ10);T;"+3=";T3:TT3:2360 " AAY25:A0A0:2350-" "HOW MANY OF THE PAST ";A;" YE8"$ AA10X". 10);T;"-";A;"=";TA:TTA"8 :"ON A SCALE OF 0 TO 3, HOW MUCH OF A":"CALM PASSIVE PERSON ARE YOU":"(3 IS THE MOST CALM)";"V A:10);T;"+";A;"=";TA:TTA:6#t "ON A SCALE OF 0 TO 5, HOW MUCH OF AN":"AGGRESSIVE, INTENSE AND COMPETITIVE "#~ "PERSON ARE YOU (5 IS THE MOST AGGRESSIVE":"INTENSE AND/OR COMPETITIVE.)"# A# 10);T;"-";A;"=";TA:TTA:$ "DO YOU USE YOUR CAR'S SEAT BELTS AND":"FOLLOW SPEED LIMITS REGULARLY ";:A$)$ (A$,1)"N"ĺ10);T;"+0=";T:2530E$ 10);T;"+1=";T1:TT1$ :"ON THE FOLLOWING SCALE HOW WOULD YOU":"RATE YOURSELF?"$ $ " HAPPY: 3 2 1 0 -1 -2 -3 UNHAPPY"$ 12);$ A$ A0ĺ10);T;"+";A;"=";TA:TTA:2600% 10);T;"+";A;"=";TA:TTA%( :'%2 3000V%< " YOUR LIFE EXPECTANCY IS ";T;" YEARS"`%F 3000j%P ::t% 3010% X140:"-";:X:% "Do you want to run this program again? ";Y$% Y$"Y"Y$"YES"Ĭ% (4);"RUN MENU";&::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::&4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5&11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"'8:A$"LIFE EXPECTANCY":5S'49152,128:K(49152)128:49168,0:K48K524005a'A((K))l'A3ız'A1FL1'A55,4050,0,4030'FL0:4000'(4)"RUN MENU2",(32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."e(49152,128:K(49152)128:49168,0:K80K814055q(K81ı((4)"PR#1":FL1:55:(4)"PR#0":Q4:Z18A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"2";::2:2:"2";:39:"2":X222:X:1:"2";:40:"2":F22:2:"2";:39:"2":23:2:X239:"2";::: 60 X1Z:A$(X):( X1Z:B$(X):>  LIFE EXPECTANCYV  FRACTION PRACTICEk  CRYPTOLOGIC ][~  FOOTBALL NFL  IDEAL BODY WEIGHT  MAKING CHANGE  HOCKEY I  HORSE RACE III  MONSTER CHASE  OTHELLO WITH DOC  CORRECTIVE ADDITION0  CORRECTIVE SUBTRACTIONP  CORRECTIVE MULTIPLICATION`  GOLD MINEp  CHECKBOOK  PET PIT PAT POT  PETALS ROUND THE ROSE  MENU :A$"THE APPLE BEST 100 - V2.0":3:50: X1Z:A$A$(X):XQ:50: C10 :A$A$(C):A$A$" ":A$" "A$:CQ:50:N 49152,128:K(49152)128[ 49168,0 K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 CZC1 K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 10332 :(4)"RUN "B$(C)H  LIFE.EXPECTANCY^  FRACTION.PRACTIs  CRYPTOLOGIC...  FOOTBALL.NFL  IDEAL.BODY.WEIG  MAKING.CHANGE  HOCKEY.I  HORSE.RACE.III  MONSTER.CHASE  OTHELLO.WITH.DO  CORRECTIVE.ADDI*  CORRECTIVE.SUBT@  CORRECTIVE.MULTP  GOLD.MINE`  CHECKBOOKv  PET.PIT.PAT.POT  PETALS.ROUND.TH  MENU 3000P:"DO YOU WANT INFORMATION REGARDING THIS PROGRAM (Y/N)? ";FF$aFF$"N"ī20T "THIS PROGRAM TELLS YOU WHAT YOU SHOULD":"WEIGH BASED ON DATA ADAPTED FROM THE":"BOOK (WEIGHTS IN THIS BOOK WERE SUB-":"TRACTED BY 3 TO GIVE WEIGHTS IN BED":"CLOTHING, WHICH WERE USED IN THIS":"PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-G "TION', (13TH EDITION), BY C.H.ROBINSON,":"1972, P.848 (MACMILLAN). HEIGHT LIMIT-":"ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;":"FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL":"WEIGHTS GIVEN ARE FOR BED CLOTHING AND":"ARE FOR MEN AND WOMEN OF AGES "25 AND OVER (FOR GIRLS 18-25, SUBTRACT":"1 POUND FOR EACH YEAR UNDER 25)." ::"TOUCH 'RETURN' TO CONTINUE!";A$ :"BESIDES IDEAL WEIGHTS, THIS PROGRAM":"ESTIMATES OBESITY, BODY FAT, BODY SUR-":"AREA, AND TOTAL BODY WATER. THESE ARE":"APPLICABLE TO THOSE OVER THE AGE OF 16.":"GENERALLY, THE % TOTAL BODY WATER "IS LOWER IN FEMALES THAN IN MALES." "FURTHER, THE % OF WATER IN LEAN PERSONS IS HIGHER THAN IN OBESE PERSONS. ABOUT":"55-60% OF THE BODY WEIGHT IS WATER.":"A DEVIATION OF NOT MORE THAN 10% ABOVE":"OR BELOW THE DESIRABLE WEIGHT FOR AN" "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"v "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-":"LY APPLIED TO PERSONS WHO ARE 10-20%":"ABOVE THE DESIRABLE WEIGHT. 'OBESITY' ISAPPLIED TO PERSONS WHO ARE ABOUT 20% OR":"MORE OVERWEIGHT." ::"TOUCH 'RETURN' TO CONTINUE!";A$s:"IN THIS PROGRAM, OBESITY IS DETERMINED":"BY A CRITICAL OBESITY INDEX BASED UPON":"'QUETELET'S INDEX' (QI). THIS CRITICAL":"INDEX IS REACHED WHEN THE PERSON'S":"WEIGHT IS ABOUT 18% ABOVE THE MAXIMUM""IDEAL WEIGHT. ALSO QI IS USED TO"-"ESTIMATE BODY FAT (BF). THE BF VIA QI ISIN GOOD AGREEMENT WITH THE VALUE FROM":"TOTAL BODY WATER USING: %BF=100-(137*WT.WATER/BODY WT.)."::"MORE REFERENCES: HUME & WEYERS, J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"@"(A DHSS/MRC REPORT) HER MAJESTIE'S":"STATIONERY OFFICE, LONDON, 1976 (ISBN":"0 11 450034 7). REMARKS ARE TO BE FOUND IN LINE #'S 25, 96, 100, 132, 138, 143, 148, 162, 200,490."j::"TOUCH 'RETURN' TO CONTINUE!";A$r:W$(30,5): THIS IS AN ARRAY FOR HEIGHT & WEIGHTS CORRESPONDING TO SMALL, MEDIUM, & LARGE BODY FRAMESJ130(K142W$(J,K)<W$(J,1)"ZERO"JJ1:80'FK,JTP:"LIST YOUR SEX (FEMALE=1; MALE=2) ";SQ"WHAT IS YOUR HEIGHT TO NEAREST INCH (E.G. 5-10) (NO SHOES) ";H$R"WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ";F!S"WHAT IS YOUR WEIGHT (IN POUNDS WITH BED CLOTHING)? ";WT+UPWWT9ZS95,195_:"--------------------------------------":TV((H$,1,1))12((H$,3))` LINE #'S 97-99 & 137 EXPRESS THE PROGRAM LIMITATIONS FOR FEMALES WHILE LINE #'S 197-199 & 237 EXPRESS THE PROGRAM LIMITATIONS FOR MALESaF1TV60ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS LESS THAN 5-0, THIS PROG-RAM CAN OFFER YOU NO INFORMATION!":1801bF1TV70ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS MORE THAN 5-10, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":180cTV60TV70ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":140dW111: THIS IS FOR FEMALES ONLYnL1 xW$(W,L)H$ĺ:"YOUR IDEAL WEIGHT=";W$(W,F1);:133l LINE#'S 133 & 233 DETERMINE THE % THAT YOUR WEIGHT EXCEEDS YOUR MAXIMUM IDEAL WEIGHTSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT. ";3GG(((PWSS)100SS)10.5)10:GG10GG18ĺ"(YOU ARE CONSIDERED OVERWEIGHT)!"9F1ĺ"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC. DOES NOT APPLY TO YOU!":180) IN LINE #'S 140 & 240, 'H' DENOTES HEIGHT IN METERS & 'WT' WEIGHT IN KILOGRAMS OF FEMALES AND MALES, RESPECTIVELYaH((H$,1,1))12((H$,3)):HH.0254:WTWT.45359 IN LINE #'S 145 & 245, 'Q' DENOTES 'QUETELET'S INDEX' WHICH IS USED FOR FEMALES AND MALES RESPECTIVELY, TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESEQIWT(HH)z LINE#'S 150- 160 AND 250-260 DETERMINE WHETHER OBESITY EXISTS FOR FEMALES AND MALES RESPECTIVELYF2QI27.0ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":165(F3QI29.5ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":165m:"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"Z LINE#'S 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN, RESPECTIVELY; #'S 170 & 270 ALLOW DETERMINATION OF BODY SURFACE AREAS FOR WOMEN & MEN, RESPECTIVELY; #'S 175 & 275 ALLOW DETERMINATION OF BODY WATER IN WOMEN w AND MEN, RESPECTIVELYWF1.48QI7::"YOUR BODY FAT = "(WF10.5)10" %">BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS CA. "(BS100.5)100" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FT.)"dWW.183809WT34.4547H35.270121:"YOUR TOTAL BODY WATER IS CA. "(WW10.5)10" LITERS (CA. "((WW1000453.6)10.5)10" LBS. WATER---OR "((WW1E02WT)10.5)10"% BODY WT.)"."-------------------------------------":1100|:"--------------------------------------":TV((H$,1,1))12((H$,3))F1TV64ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS LESS THAN 5-4, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280F1TV95ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS MORE THAN 6-3, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280TV64TV75ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":240W1223: THIS IS FOR MALES ONLY$L1^W$(W,L)H$ĺ:"YOUR IDEAL WEIGHT = ";W$(W,F1);:233dSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT ";*GG(((PWSS)100SS)10.5)10:GG10GG18ĺ"(YOU ARE CONSIDERED OVERWEIGHT)!"0F1ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC DOES NOT APPLY TO YOU!":280H((H$,1,1))12((H$,3)):HH.0254:WTWT.45359QIWT(HH)J F2QI27.5ĺ:"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 F3QI29.9ĺ:"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 :"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"&! MF1.281QI10.13::"YOUR BODY FAT = "(MF10.5)10" %"!BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS ABOUT "(BS100.5)100" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FEET)"!MW.296785WT19.4786H14.012934N":"YOUR TOTAL BODY WATER IS ABOUT "(MW10.5)10" LITERS (ABOUT "((MW1E02WT)10.5)10" % BODY WEIGHT)"""-------------------------------------":1100" LINE #'S 500-600 CONTAIN WEIGHT DATA FOR FEMALES ONLY WHILE #'S 750-860 CONTAIN HEIGHT WEIGHT DATA FOR MALES ONLY## "5-0", "99-107","104-116","112-128"M# "5-1","102-110",!107-119","115-131"w# "5-2","105-113","110-123","118-135"# "5-3","108-116","113-127","122-139"# "5-4","111-120","117-132","126-143"#& "5-5","115-124","121-136","130-147"$0 "5-6","119-128","125-140","134-151"I$: "5-7","123-132","129-144","138-155"s$D "5-8","127-137","133-148","142-160"$N "5-9","131-141","137-152","146-165"$X "5-10","135-145","141-156","150-170"$ "5-4","118-126","124-136","132-149"% "5-5","121-130","127-140","135-153"F% "5-6","125-134","131-144","139-158"p%  "5-7","129-138","135-149","144-163"% "5-8","133-142","139-153","148-167"%  "5-9","137-147","143-157","152-171"%* "5-10","141-151","147-162","156-176"&4 "5-11","145-155","151-167","161-181" F&> "6-0","149-159","155-172","165-186"p&H "6-1","153-164","159-177","170-191"&R "6-2","157-168","164-182","175-196"&\ "6-3","161-172","169-187","179-187"& ZERO'L"DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$'VEV$"Y"ī80N'X23::A$"PRESS ANY KEY TO RETURN TO MAIN MENU":2000:l'[49152,128:49168,0:2900t'`:'(42(A$))2:A$:' ::"THIS IS A PROGRAM DESIGNED TO GIVE YOU":"YOUR 'IDEAL' BODY WEIGHT."V( :"IT WILL GIVE YOU A 'BALLPARK' FIGURE":"BASED ON SCIENTIFIC RESEARCH AND":"NATIONAL AVERAGES, ALONG WITH CERTAIN"( "DISCLAIMERS AND REFERENCES FOR FURTHER":"STUDY."( FLı( PFı( 23::A$"PRESS A KEY":2000::49152,128:49168,0:(T :(4)"RUN MENU") ::49168,0W) SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::) 4:A$"ADVANTAGE COMUTING'S":2000:6:A$"PUBLIC DOMAIN SOFTWARE":2000:8:A$"IDEAL BODY WEIGHT":2000>* 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"b* 23:39:A$:A$"1"A$"4"3020* A(A$):A2500,3050,3035,2900* FL03000* FLFLFL:1* FL1:* 32,2:33,33:34,11:35,22:0+ 11:"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR ":"PRESS 'Q' TO QUIT"y+ 49152,128:(49152)128("Q")(49152)128("P")Ĺ49168,0:3060+ (49152)128("Q")ı+ :+ (4)"PR#1":PF1:2500:PF0+ (4)"PR#0":9000:::10+(42(A$))2:A$:u :8:13:"MAKING CHANGE"::14:"BY BOB PFAFF"::16:"FEB 1983"::PAUSE13000:PAUSE936:"MAKING CHANGE":::"PLEASE ENTER YOUR NAME ";NA$X%1000(1)10PCPC1:RC0:936. D(PC2)(PC2)2000: PROBLEM TYPE SELECTIONP  GIVE CHANGE PROBLEM ROUTINEz PC" "NA$" GIVE ME "X%" CENTS.": "HOW MANY DOLLARS ";DD:DD1DD100: "HOW MANY HALF-DOLLARS ";HD:HD1HD50: "HOW MANY QUARTERS ";Q:Q1Q25: $"HOW MANY DIMES ";D:D1D10:E 8"HOW MANY NICKLES ";N:N1N5:f L"HOW MANY PENNIES ";P:: `DD%DD:HD%HD:Q%Q:D%D:N%N:P%P:TCDD1HD1Q1D1N1P tDD%DDHD%HDQ%QD%DN%NP%Pİ5000:1220 PX%X%4TCX%İ6000:1220 X%TC3000 4000% RC38000A 1020: REPPEAT PROBLEMd  COUNT CHANGE PROBLEM ROUTINE} PC" "NA$", I HAVE:" XX%X% DDU%XX%100:XX%XX%DDU%100 HDU%XX%50:XX%XX%HDU%50 QU%XX%25:XX%XX%QU%25 DI%XX%10:XX%XX%DI%10:NI%XX%5:PE%XX%NI%5; :10)DDU%" DOLLARS,"] :10)HDU%" HALF-DOLLARS,"z :10)QU%" QUARTERS," 4:10)DI%" DIMES," H:10)NI%" NICKELS, AND" MDDU%XX%100 \:10)PE%" PENNIES." pRC3ı: FOR COIN PRINT OUT AT 80407 :"HOW MUCH CHANGE DO I HAVE ";TC::l (TC)TCĺNA$"DON'T USE DECIMAL POINTS.":2180| X%TC3000 4000 RC38000 2020: REPEAT PROBLEM CORRECT ANSWER ROUTINE *** LINES 3001 TO 3899 FOR USE R GRAPHICS.!<50,63:"CORRECT "NA$"!!!!":50,255>F:"YOU EARN 1 CENT!!!!"PdMEME1:7000k WRONG ANSWER ROUTINE{TCX%4060X%TC"CENTS SHORT "NA$"!":4080TCX%" CENTS TOO MUCH "NA$" ! ":"YOU LOSE 1 CENT!"PAUSE11500:PAUSE MLML1 RCRC1:RC3ıT,::50,127:"TRY AGAIN ? ?"NA$" .":50,255::d@RC1WW1jT FRACTIONAL ANSWER ROUTINENA$", ANSWERS WITH DECIMAL":"POINTS ARE NOT ALLOWED. ":"YOU ARE FINED 1 CENT."FF1:4120p ALL PENNY ANSWERANA$","P"PENNIES DOES EQUAL "X%"CENTS ."a:"BUT THAT IS CHEATING. ":"YOU ARE FINED 1 CENT FOR CHEATING."FF1:4120X SCORING ROUTINEl:"PRESS ";::"S";::" FOR SCORE OR ";::"ESC";::" TO END "v"ANY KEY TO CONTINUE.",X543:X@A$:A$""7080`A$(27)ĺ:(4)"RUN MENU"qA$"S"540936:NA$"'S SCORE!!!":"TOTAL PROBLEMS:"PC:"TOTAL CORRECT:"PCW :50,63:"TOTAL WRONG:"W:50,255 :"PERCENT CORRECT:"(PCW)PC100"%"74:"MONEY EARNED:"ME" CENTS"WH:"MONEY LOST:"ML" CENTS"s\:"FINES:"F" CENTS":pPAMEMLFPA0PA(PA):"YOU OWE ME"PA" CENTS!":7340"I OWE YOU "PA" CENTS!"7000@ CORRECT ANSWER PRINT OUT$T::NA$", THE CORRECT ANSWER IS:"?h2040: COIN PRINT OUTZ|:"MAKES "X%"CENTS."d7000(#::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::)#4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":5::A$"MAKING CHANGE":5*#11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"-#49152,128:K(49152)128:49168,0:K48K529005.#A((K)):A3ı2#A9100,9050,0,9030<#FL0:9000F#(4)"RUN MENU2"Z#32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."_#49152,128:K(49152)128:49168,0:K80K819055d#K81ıi#FL1:(4)"PR#1":9100:(4)"PR#0":U#::"THIS PROGRAM WILL HELP YOU TO LEARN":"HOW TO PROPERLY GIVE CORRECT CHANGE."#"YOU'RE GIVEN A CERTAIN AMOUNT OF CENTS,":"AND YOU'RE ASKED TO CONVERT IT INTO":"DOLLARS, HALF-DOLLARS, QUARTERS, DIMES":"NICKELS, AND PENNIES"#"USING THE MOST OF EACH AS IS POSSIBLE."=#:"EX: 235 CENTS WOULD BE:"d#"2 DOLLARS","1 QUARTER":"1 DIME"#"YOU WILL ALSO BE ASKED HOW MANY CENTS":"THERE ARE IN A CERTAIN NUMBER OF":"DOLLARS, ETC."0#"FOR EACH CORRECT ANSWER, YOU EARN A":"CENT. FOR EACH INCORRECT ONE, YOU":"LOSE A CENT. ENJOY!!":#FLıp#23::A$"PRESS A KEY":5::49152,128:49168,0: L !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( + %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 . ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F > S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NO 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01 E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jz۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH IL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$% LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8NNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O`؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzH؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆Ȣ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`HхhꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 AppleLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKELG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL Sd::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::e4:A$"ADVANTAGE COMPUTING'S":200::A$"PUBLIC DOMAIN SOFTWARE":200::A$"CHECKBOOK":200/ f11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"e i49152,128:K(49152)128:49168,0:K48K52105| jA((K)):A3300 kA400,150,0,130 x:100 :(4)"RUN MENU" :"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."G 49152,128:K(49152)128:49168,0:K80K81155S K81ı PF1:(4)"PR#1":400:PF0:(4)"PR#0": A20((A$)2):A:A$;: ,:(4)"RUN CHECKBOOK.TWO"m ::"YOU WILL BE PRESENTED WITH SEVERAL":"FUNCTIONS FOR KEEPING TRACK OF YOUR":"CHECKS. SELECT YOUR CHOICE AND NEVER":"LOSE YOUR HEAD OVER MISMANAGED CHECKS":"AGAIN."w PFı ::A$"PRESS A KEY TO CONTINUE":200: A$:A$""440 10 2 5