8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L"@ ***************************C@* WIDGETS *d@* BY ALEXANDER LAIRD *@(* COPYRIGHT (C) 1989 *@2* MINDCRAFT PUBL. CORP. *@<* CONCORD, MA 01742 *@F***************************@P2630 AZ: CLEAR FL-LEARN.THE.USA"5! ; USA.SHAPES5" @5" 'WIDGETS)O @9&NOGGIN{`N@9"-6% L3'TADPOLE 6% ;$-MATH.MARATHON75 @9)MM.SHAPES%5 `5 ,COMPASS.QUIZ 6) @; %SHARK J5! @9,SHARK.SHAPESc5! `5! SEA.SCORES4B C 'OTHELLO` Q3 Q$(CHAR.GENp4 4 (GAME.SETl4 4 $LIFEZ= B TIME.TUTOR 95 L3TIME.SHAPESSnm/ @Z$ +TANK.COMBAT4S B +TANK.SHAPESxS 4. +HAND.PUZZLE: H) `;5 +BIG.LETTERSwH)  bSMALL.LETTERSuH) b'SEAWOLFG 3 B6YAGG.II9$ ' 'PENGUIN S ;# PENGUIN.SHAPESS  41 .ARTILLERY.DUELO S ;+*ART.SHAPESS P4 'BRIDGES1 m/ 9%BRIDGES.SHAPES8 >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RASH AREA)Ad11:F17:30:868:::/An:GAx:[ INTEGER ALIGN ]aAAL$(AL):AA(AL$):gA:A:[ DECIMAL ALIGN ]AAL(AL100.5)100AAL0AL$"0.00":AA4:AAX(AL100):AX$(AX)A(AX$)3AX$"0"AX$:190"BLF$(AX$,(AX$)  !"#$%&'()*+,-./ 9... ADDED SALES.N*PSALEIVTYPSALEIVTYtN4FL(5)0SALSAL1.25:PRDNPRDN1:FLASH 5...BENEFITS PLAN EFFECTN>REVPSALEDE(2):IVTYIVTYPSALE:SFLAG1SFLAG0:REVIVTY29.95:DE(2)29.95:PSALEIVTY:IVTY0: REVENUE CALCULATIONOHSFLAG1SFLAG0:0SL1.00:DE(2)FL(3): FLASH 3... SELL 100% OF INVTYGMSL1SL1nM PSALEIVTYSL: BASIC SALES VOLUMEMFL(2)0PSALEPSALE((100FL(2))100): FLASH 2... REDUCED SALES TRANSPORTATION SHUTDOWNN FL(9)0PSALEPSALE(PSALE(FL(9)100)): FLASHPI(HIT): PRICE EFFECT%;LHIT0:DE(3)AI(2)HIT1:740XLDE(3)AI(8)HIT8:740LF27:DE(3)AD(F)DE(3)AD(F1)HITF:F7LLAEAI(HIT): ADVTSG EFFECT%LSL((PE100)(PAD100))((AE100)(APR100)): SALES % OF INVENTORY8MFL(3)(7): FLASH 7...ADDT'L EMPLOYEESUKvFL(8)0LEMPFL(8): FLASH 8...LOST EMPLOYEESKRCSTDE(5)RP: ADD MKT REPORT TO R&D COSTKHIT0:DE(2)PC(2)HIT1:690KDE(2)PC(7)HIT7:690KF26:DE(2)PC(F)DE(2)PC(F1)HITF:F6KLPEOST (MCST)BJDFL(4)0UCSTUCST1: FLASH 4...REDUCE UNIT COSTJNFL(6)0MCSTMCST(DE(4)FL(6)): FLASH 6...ADDED REWORK COST * PRODUCTIONJXUCST9UCST9JbIVTYIVTYDE(4):MCSTMCST(DE(4)UCST):MFG->INVENTORY AND MFG COST"KlFL(7)0NEMPFL1IXIVTY0XIVTY18IDE(5)RD(2)UCSTUCST1.3eIDE(5)RD(2)DE(5)RD(3)UCSTUCST1.15I&DE(5)RD(4)DE(5)RD(5)UCSTUCST.85I0DE(5)RD(5)UCSTUCST.70 J:FL(1)0DE(4)(DE(4)2):MCSTMCSTFL(1): FLASH 1...ADD FIRE COST TO MFG C ";P$(4);" by ";:36,70(PC$(4)):PC$(4);"%"wH30:"Salary cost went ";P$(5);" by ";:36,70(PC$(5)):PC$(5);"%"}HH:H:H:[ OPERATING RESULTS ]HQTRQTR1HXEMPEMPL:XIVTYIVTY:XUCSTUCST:XPSALEPSALE:XSALSALIXPSALE0XPSALEVE RESULTS ]]":30:"Workforce went ";P$(1);" by ";:36,70(PC$(1)):PC$(1);"%"G30:"Inventory went ";P$(2);" by ";:36,70(PC$(2)):PC$(2);"%"GQTR2Ė30:"Product sales went ";P$(3);" by ";:36,70(PC$(3)):PC$(3);"%"/H30:"Unit cost wentPARATIVE RESULTSFhP(1)(EMPLXEMP)1:P(2)(IVTYXIVTY)1:P(3)(PSALEXPSALE)1:P(4)(UCSTXUCST)1:P(5)(SALXSAL)1:PERCENT CHANGEFrF15:P$(F)"up":P(F)0P$(F)"down"F|P(F)(P(F)100):ALP(F):160:PC$(F)AL$FRG11:33:"[[ COMPARATI(IVTY):"Current inventory is: ";IVTY;"(000) units.";:36,50:"*Net Profit.....";:AL(PFT):130:36,74AA:AL$EJ868:"You sold ";PSALE;"(000) units at $";DE(2);"/unit.";:36,50:"*Available Cash.";:AL(CASH):130:36,74AA:AL$ET868F^ COM:"You manufactured ";DE(4);"(000) Widgets.";:36,50:"-Advertising....";:AL(DE(3)):130:36,74AA:AL$D6868:UCST(UCST100.5)100:"Standard unit cost was $";UCST;"/unit.";:36,50:"-Research.......";:AL(RCST):130:36,74AA:AL$sE@868:IVTYAL(REV):130:36,74AA:AL$C868:NEMP;" employees joined the company.";:36,50:"-Mfg cost.......";:AL(MCST):130:36,74AA:AL$C"868:LEMP;" employees left the company.";:36,50:"-Payroll........";:AL(DE(1)):130:36,74AA:AL$kD,8682):RT$(AX$,2):AL$LF$"."RT$2BAA(AL$):8B:>B:YB: [ DISPLAY RESULTS ]vB12:F15:30:868::B1:868:"[[ OPERATING PERFORMANCE ]]"C868:"Entering quarter ";QTR;" your workforce is ";EMPL;".";:36,50:"Revenue.........";:REVIVTY29.95:IVTY0TORFL(10)0SFLAG1: FLASH 10...SELL OUT FLAG NEXT PERIODtO\MPAYEMPLSAL: MIN PAYROLLOfDE(1)MPAYNEMPNEMP((DE(1)MPAY)10)((1)10):ADDED EMPLOYEESPpDE(1)MPAYLEMPLEMP((MPAYDE(1))SAL)((1)4):LOST EMPLOYEESFPzLEMP(EMPLNEMP)LEMPEMPLNEMP: AVOID NEGATIVE EMPLOYEES^PEMPLEMPLNEMPLEMPPFLTN((1)3)1: INFLATION 1-3%PUCSTUCST(UCST(FLTN100)):SALSAL(SAL(FLTN100)): INFLATION EFFECTPHPFT((1)250)500: EXCESS PROFITGQPFTRTEMP5:RANGE 5-12A^PPC(1)9.95:PC(7)29.95:PC(4)TEMP9.95:c^ZPC(6)29.95((PC(7)PC(4))2)^dPC(2)9.95((PC(4)PC(1))2)^nPC(3)PC(2)((PC(4)PC(2))2)^xPC(5)PC(4)((PC(6)PC(4))2)_TEMP((1)5)2: RANDOM LINE # 2-6 FOR MARKET WINDOF$(F):U]18:30::" TO CONTINUE:";::XX$:18:1403,0:868:1:1403,0[]a]:g]:] :[ CALCULATE BUSINESS INDEXES ]]:]:[PRICE SENSITIVITY]](X100:F16:PI(F)X:F3XX15]2F3XX10]<^FTEMP((1)7)1:TEMPvertising":F$(2)"award! Market demand rises by "(FL(9))"%.":1240\FA10FL(10)1:F$(1)"FLASH Report: Major order received!":F$(2)"Total inventory can be sold at $29.95":F$(3)"next period with no advertising expense.":1240 ]12:F15:30:are hired":F$(3)"and ready to produce next quarter.":1240[FA8FL(8)((1)11)5:F$(1)"FLASH Report: Competitor raids your":F$(2)"company and "(FL(8))" employees resign.":1240H\FA9FL(9)((1)11)20:F$(1)"FLASH Report: Widgets wins ad00:ALFL(6):160:F$(1)"FLASH Report: Quality defects require":F$(2)"rework with added cost of $"AL$:FL(6)(AL$):F$(3)"per unit.":1240=[FA7FL(7)((1)15)10:F$(1)"FLASH Report: Layoff in neighboring":F$(2)"plant. "(FL(7))" more employees uring cost drops by $1.00!":1240YFA5FL(5)1:F$(1)"FLASH Report: New Benefits Plan is":F$(2)"introduced. Cost per employee goes":F$(3)"up by 25% but productivity rises by":F$(4)"1(000) units per person.":1240ZFA6FL(6)(((1)150)100)1 Your":F$(3)"customers cancel orders!":1240XFA3FL(3)((1)15)20:F$(1)"FLASH Report: Major government order!":F$(2)"Entire inventory sells out at $"(FL(3)):1240#YFA4FL(4)1:F$(1)"FLASH Report: Outstanding parts buy!":F$(2)"Manufacthe":F$(2)"production is cut by 50% while repairs":F$(3)"are made. The cost to restore your":F$(4)"production is: "(FL(1)):12400X~FA2FL(2)((1)20)10:F$(1)"FLASH Report: Transportation shutdown!":F$(2)(FL(2))"% of sales cannot be shipped.V8: VB:$VL:[ FLASH REPORTS ]CVVF110:F$(F)"":FL(F)0:^V`FA((1)20)1: 1-20VjFA10F$(1)"FLASH Report: Industry is stable for":F$(2)"the current period.":1240WtFA1FL(1)((1)100)125:F$(1)"FLASH Report: FIRE in the plant. To hire new people.";:XX$:CASH(CASH2):EMPL(CASH(SAL1.30)):DE(1)DE(1)CASH:NEMPNEMPEMPLU$PRDN.5İ100:12:30:"You've gone into negative cash":30:"for the last time. You're bankrupt!":30:" for Directors Report.";:XX$:BK1V.PRDN(PRDN100.5)100:CASH01010:STILL NEGATIVETEMPL0İ100:12:30:"You've lost all your people. You must ":1403,29:"spend 50% of your cash balance of $";CASHTEMPL0Ė30:"to hire new people at 30% premium."bUEMPL0Ė30:" t100:PFT(PFT):MCST(MCST):IVTY(IVTY):PSALE(PSALE)SCASH0İ100:12:30:"OUT OF CASH! You must":30:"sell 50% of production":30:"capacity to replenish cash ($1000).":306TCASH0Ė30:" to sell:";:XX$:CASHCASH1000:PRDNPRDN2:00 per unit"RPFTHPFTĖ30:868:"and profits are reduced by 50%":PFT(PFT2):SALSAL1:18:30::" TO CONTINUE:";::XX$:18:1403,29:868RCASHCASHPFT:SCASH(CASH):UCST(UCST100.5)100:FLTN(FLTN100.5)100:SAL(SAL100.5)EVDE(1)MCSTDE(3)RCST:PROFIT = REV - PAYROLL - MFG - ADVTSG - R&DVQPFT(PFT)QPFTHPFTĢ12:30:868:"STRIKE! Excess profits of $";PFT;" cause":30:868:"employee and supplier complaints."RPFTHPFTĖ30:868:"Employee costs rise by $1.W_PI(TEMP)50((1)50)$_:8_: ADVTSG INDEX\_X10:F28:AI(F)X:F5XX20l_F4XX10r__TEMP((1)50)75: RANGE 75-124_AD(4)TEMP_AD(1)25:AD(8)200_AD(2)25((AD(4)AD(1))2)`AD(3)((AD(4)AD(2))2)AD(2)$`AD(6)((AD(8)AD(4))2)AD(4)G`AD(5)((AD(6)AD(4))2)AD(4)j`AD(7)((AD(8)AD(6))2)AD(6)`TEMP((1)6)2: RANDOM LINE # 2-7 FOR MARKET WINDOW`"AI(TEMP)50((1)50)`,:`6: [R&D INDEX]`@AMT30`JF15aTTEMP(F25)25";:36,40AA:AL$;"%"QnV MGIN20MG$"is outstanding! Keep it up!":RVWRVW4n` MGIN10MGIN20MG$"is very good. Good expense control!":RVWRVW3nj MGIN5MGIN10MG$"could be better. Analyze your decisions better.":RVWRVW2&ot MGIN5MG$L(CLEFTCEMP)100:TRNAL:160:" Average Turnover....";:36,40AA:AL$;"%"mB AL(CPFTCREV)100:MGINAL:160:" Average Profit Margin ";:36,40AA:AL$;"%"nL AL(CASH(IVTYUCST))(750(5012)):AL((AL100)100)TM:ASETAL:160:" Average Asset Return l "Mr/Ms President!":pl "Over your ";TM;" quarters in office, you produced the following results:":l$ ALCREVTM:160:" Average Revenue.....";:36,40AA1:"$";AL$l. ALCPFTTM:AVAL:160:" Average Profit......";:36,40AA1:"$";AL$Mm8 A$;:ALIVTY:130:36,22AA:AL$;:ALCASH:130:36,32AA:AL$;kALUCST:170:36,40AA:AL$;:ALPRDN:160:36,48AA:AL$;:ALFLTN:170:36,56AA:AL$;kALSAL:170:36,65AA:AL$;:ALCPFT:130:36,76AA:AL$kk:k:k:[ FINAL LETTER ]l8:868.jzXX$"R"XX$"r"Ģ18:868:20304j:j:@j:Zj: [ DISPLAY STATUS ]j19:1:958:19::"Qtr Empl Invty $Cash $Unit Prodn Infln Salary $Profit"jF176:"=";::>k36,2:QTR;:ALEMPL:130:36,12AA:AL0i\(DE(1)DE(3)DE(5)RP)CASHĢ18:"You don't have enough cash to pay for these decisions. Press RETURN:";:XX$:1403,0:18:868:2030if1403,0:18::" TO ACCEPT... R TO REENTER:";::XX$:XX$(13)XX$"R"XX$"r"2150 jp1403,0:1>vhHHIT0Ģ18:"You cannot enter a negative number for decisions. Press RETURN:";:XX$:1403,0:18:868:2030iRDE(1)0DE(2)0DE(4)0Ģ18:"You must use a positive number for Payroll, Price & Prod'n. Press RETURN:";:XX$:1403,0:18:868:203:g12:F15:18:"";X$6g X$""DE(F)(X$)Ug12(F1):18:868:DE(F)[g g*DE(4)(EMPLPRDN)Ģ18:"You don't have enough employees to produce: ";DE(4);:". Press RETURN:";:XX$:1403,0:18:868:2030g4HIT0:F15:DE(F)0HITFh: [ ENTER DECISIONS ] to continue:";:XX$:MKT$"N":1780b1403,0:18:868:"Do you wish to purchase the Market Report for $";MKT;:"K? Y/N:";:MKT$:MK$;:MKT$"Y"MKT$"N"MKT$"y"MKT$"n"1770c18:1403,0:a^RD(F)TEMPRN7ahRN((1)25)1:RD(F)RD(F)RNParRI(F)AMT:AMTAMT15Wa|F]a:ua:[PRICE/AD IMPACT]aPAD((1)30)40:APR100PADaa:a:a:[MARKET REPORT]aRP0a17:868[b18:868:(MKT1.25)CASH20ĺ"You don"is miserable. You can do better!"bo~ TRN5TRN$"is excellent. Keep it moving!":RVWRVW3o TRN5TRN10TRN$"is acceptable. Watch your payroll carefully!":RVWRVW2p TRN10TRN15TRN$"is marginal. Pay attention to your people!":RVWRVW1Mp TRN15TRN$"is very poor. You need more organization stability."p ASET35AS$"is brilliant. We're delighted with the investment!":RVWRVW3p ASET25ASET35AS$"is acceptable... but watch your cash.":RVWRVW28q ASET12ASET25ses. You can affect"~, "the unit cost (up or down) by up to 30% per quarter."::"There is also an inflation factor that affects the payroll expense between")6 "of 1% to 3% per quarter. If you don't keep pace with inflation in your payroll":"then ay the index tables for":"the current quarter. It costs $50(000) and the price rises by 25% each quarter."~" :"Research & Development expense affects the unit cost impact curve. If you spend":"more, your cost will go down. Spend less and the cost rie money. And if you price above $29.95, you won't sell a single":"Widget. Similarly, your advertising expenditures affect the percentage of your"| "inventory that is sold each quarter.":m} :"You can buy a special Executive Market Report to displith your decisions to":"to produce the company performance results."{ :"For example: there are built-in advertising and pricing demand tables. The":"lower your price, the more you'll sell. But be careful not to sell below cost"| "or you'll los damaged goods can"Hz "affect manufacturing cost and productivity."z :" for next page:";:XX$::"When you start a new quarter, a variety of price, cost, advertising, and R&D"G{ "tables are automatically created. These tables are used w:"you pay more, then new employees will join the company and begin producing in"z "the following quarter."::"Each employee can initially produce 2(000) Widgets per quarter. However other":"industry factors such as technology advances, strikes, and)"x :"Widgets are high-tech appliances found in homes and offices. Although they":"have a low cost, they take expensive, skilled labor. If you pay less than the"Sy "$8(000) PER EMPLOYEE per quarter, some employees will leave for other jobs. If"w :" Payroll ..... $8(000) per employee per quarter"aw " Price ....... $9.95 to $29.95"w " Advertising.. $0 to 200(000)"w " Production... Depends on the number of employees and their unit productivity"x " R&D.......... $0 to $200(000;:XX$::XX$"S"XX$"s"3080vx "CONGRATULATIONS! You have been elected President of Widget Corporation. In":"this important job, you'll select a contract term for decision-making and then"w "make a series of management decisions each quarter:":****":30:"* WIDGETS CORPORATION *"ud 30:"* A business simulation *":30:"* by Alexander Laird *":30:"*************************" vn 10:30:" Copyright 1989":29:" by MindCraft Publ. Corp."::25:" TO BEGIN...S)KIP COMMENTS:"e company.":"We won't be asking you to renew your contract...and please close the door":"on your way out."t :"The Directors"t t( :t2 :t< : [ INTRODUCTION ]tF 3390:SETUP SCREEN PRINTtP (4);"PR#3"(uZ ::30:"*********************You've done an adequate job with the company. We're willing to renew your":"contract for another term, but we suggest that you pay more attention":"to the market reports."nt RVW4ĺ"You've really done a pitiful job with the assets and resources of thMG$)r "Your people management ";TRN$Kr "Your asset management ";AS$r :RVW7ĺ"You've done an excellent job in running Widgets Corp. We'd like to hire you":"for another term with a bonus of $";:AL(AV2):130:AL$;",000!"s RVW4RVW7ĺ"AS$"is marginal. We're frankly concerned.":RVWRVW1~q ASET12AS$"is unacceptable. Our investment is disappointing."q BK1ĺ:"With these results, you've taken the company into bankruptcy!"::RVW0:2570r :"Your profit margin management ";more employees will leave the company."P@ :" for next page:";:XX$J :"Here's an example of how the demand curves work using the Price Index:"::" Price Index R&D Index Price/Ad Mix"T " 9.95 100% 74 30% 60% 40%":" 15.45 85% 118 15%":" 18.20 70% 132 0%":" 20.95 67% 145 -15%":" 23.20 50% 162 -30%"^ " 25.45 40%":" 29.95 0%"Uh :"With this index, if you set the price at $18.20 to $20.94, you'll sell 737, 253, 200, 192, 40, 208, 221, 169, 141, 32, 237, 253, 234, 234, 234\ 234, 234, 165, 60, 201, 23, 208, 194, 104, 104, 133, 37, 32, 36, 252, 104, 133, 36, 104, 133, 57, 104, 133, 56, 104, 133, 55, 104, 133, 54, 141, 16, 192, 96, 141, 141, 137, 56, 50, 170, 189, 134, 3, 240, 6, 32, 237, 253, 232, 208, 245, 169, 255, 133, 60, 230, 60, 165, 60HR 133, 37, 32, 36, 252, 160, 0, 173, 0, 192, 201, 155, 240, 44, 104, 72, 208, 14, 8, 120, 141, 85, 192, 177, 40, 141, 84, 192, 40, 32, 237, 253, 177, 40, 32, 2 XX$"A"Ľ:30800 "YOUR TERM IS ENDED.":6 :<* :_4 : [ SCREEN DUMP M/L ROUTINE ]z> I768911:K:I,K::^H 165, 54, 72, 165, 55, 72, 165, 56, 72, 165, 57, 72, 165, 36, 72, 165, 37, 72, 162, 0, 138, 72, 169, 193, 133, 55, 169, 0, 133, 54ter:";::XX$ 2310 21:::"PRINT LETTER? Y/N:";::XX$:21:1403,0:868:XX$"Y"XX$"N"XX$"n"XX$"y"3310 XX$"Y"XX$"y"Č768 XX$"":21::"ENTER: Q)UIT OR A)NOTHER TERM:";:XX$:XX$"A"XX$"Q"XX$"a"XX$"q"3330 $"N"XX$"y"XX$"n"32309 XX$"Y"XX$"y"Č768e REV0:PFT0:MCST0:RCST0:LEMP0:NEMP0 BK0QTRTM3140:CHECK END OF TERM OR BANKRUPTCY : : [ END OF TERM ] 18::"Your Term is completed. Press RETURN for the Directors let 1110: FLASH REPORT9v 490: CALC OPERATING RESULTSy CREVCREVREV:CPFTCPFTPFT:CLEFTCLEFTLEMP:CEMPCEMPEMPL 1:2220: DISPLAY STATUS 250: DISPLAY RESULTS 1:18::"PRINT REPORT? Y/N:";::XX$:XX$;:1403,0:18:868:XX$"Y"XX Corp. Mr/Ms President!":20:"How many Quarters will you serve? (2-12):";TM$:TM(TM$):TM23090j :p& :0 : [ MAIN CONTROL LOOP ]: D 1320: BUILD INDEXESȈN 2220: DISPLAY STATUSX 1740: MARKET REPORTb 2000: ENTER DECISIONSlsets, and employee"i "management skills."::"Enjoy! And GOOD LUCK!"::" to begin:";:XX$o :u : : [ SETUP MENU ] BK0:QTR1:EMPL50:IVTY50:CASH750:UCST12.00:PRDN2:FLTN1:SAL8:CPFT0:MKT50d :12:20:"Welcome to WidgetLASH news reports that":"can be windfalls or setbacks with: major orders, fire, advertising awards, etc." :"At the end of your term of office, you'll receive a performance review by the":"Board of Directors based on your profitability, return on as "to experiment to find them."ą :"When you have entered your decisions for Payroll, Price, Advertising, Research":"and Production, your results for the current quarter will be displayed."l :"Each quarter, your results will also be affected by Ffits to settle it, plus"Y "double the normal inflation effect in salary increases." :"Widget's market has several advertising and pricing 'holes' where special":"promotions may sell out inventory at a relatively high price. But you'll have"!al Market Report. The information can have a dramatic effect on results."s :" for next page:";:XX$ :"You can also be affected by strikes if you have excessive profits. When you":"have a strike, it costs 50% of the current quarter pro:"With the R&D Index, if you spend $1 to 117K your unit cost will rise 30%. If":"you spend $145 to 161K, your unit manufacturing cost will be reduced by 15%."L :"These indexes as well as an advertising index are shown when you purchase the":"speci0%":"of the inventory that is affected by price. In addition, the Price/Ad Index"r "shows the relative influence of price and advertising for the quarter. In the":"quarter shown, pricing affects 60% of sales and advertising affects only 40%."| , 78, 141, 141, 0, 238  *************************?* BRIDGES *^* BY TIMOTHY THOMAS *}(* COPYRIGHT (C) 1989 *2* MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F*************************PZ16494:(21):FL0 d630110?H22:9:(" "(SC),5):22:39:(" "(BS),2):iR:"CANNOT FIND BRIDGES.SHAPES":23:v\BS10ıfBSBS2:BS11BS10pz24:1:868:"ARE YOU SURE (Y/N):";:16368,0:A$:A$"Y"A$"y"ĉ::23:1:24:" PRESS 21:I140:"-";::"SCORE = ";2)SC;:26:"BRIDGE COSTS 1";:I140:"-";::7:"PRESS TO END GAME";:VALID":"FIELDS, I.E. UNTRODDEN FIELDS OR":"BRIDGES.": "THERE ARE 20 CUPS IN ALL. A HIGH SCORE":"IS 1600 OR HIGHER.":"TIP: GO THE LONG WAY AROUND TO AVOID":"MAKING PATHS THAT CUT THE BOARD IN HALF.":  22:1:"PRESS TO BEGIN "; CUPS.":q"AS YOU MOVE, THE PATH BEHIND YOU DIS-":"APPEARS. EACH STEP YOU TAKE COSTS YOU":"ONE POINT.":"TO RECROSS THE PATH YOU LEAVE, ONE OR":"MORE BRIDGES, EACH COSTING YOU":"POINTS, WILL BE PROVIDED."::"CUPS WILL ONLY BE PLACED ON 850]1:0:(16384)5(233)64ĺ(4);"BLOADBRIDGES.SHAPES":232,0:233,64:216,0230,32:3:0,0:62454:0:I02798:I,0I,159:I015910:0,I279,I: :"USE THE ARROW KEYS OR J, K, I AND M TO":"MOVE YOUR MAN TOWARD THE GOLDENY"::12:"TIMOTHY THOMAS"g:10:"COPYRIGHT (C) 1989"::18:"BY"::9:"MINDCRAFT PUBL. CORP."L136:R149:U139:D138:BS1L1202:R1203:U1201:D1205X(X)(X1)84:Y(Y)(Y1)105P(41,24):SC100:X1:Y1:P(1,1)1:FL1720 TY17TY16:570-0P(TX,TY)1İ590:5506:0:HDDRAW BRIDGESNZZ13:768,20:769,20:772:ZZ:SCSCBS:840:860XP(TX,TY)0:3:4(K3)X(TX),Y(TY)blINITIALIZATION AND INSTRUCTIONSv:4:15::" BRIDGES ":::18:"BK460,490,520,550: TXTX1:FCFC1:TX0TX1:570T P(TX,TY)1İ590:460] 570 TXTX1:FCFC1:TX36TX35:570 P(TX,TY)1İ590:490 570 TYTY1:FCFC1:TY0TY1:570 P(TX,TY)1İ590:520 570&TYTY1:FCFC1:Z13:768,50:769,10:772:ZZ:SCSC100:840:390; Ij 22:16:" ":16368,0:10 SPACES 24:1:868:"PLAY AGAIN? (Y/N) ";:X$:X$:X$"Y"X$(121)ė::FL1:660 16368,0:::"BYE-BYE": CALCULATE BRIDGES TXX:TYY: 16P(X,Y)1YY1:F1:K43 @768,2:769,4:772\ JF1İ440:SCSC1: IF BRIDGE NEEDED TP(XX,YY)1:FCFC1:FĔ2X(XX),Y(YY):1X(X),Y(Y) ^F0:SCSC1:840 hP(X,Y)2170:IF NOT CUP r3:2X(X),Y(Y):0:1X(X),Y(Y)4 |FCFC1:Z368,0 Z155İ890+ ZLZL1240Q XX1:X1P(X,Y)1XX1:F1:K1Z 320n ZRZR1270 XX1:X35P(X,Y)1XX1:F1:K2 320 ZUZU1300 YY1:Y1P(X,Y)1YY1:F1:K3 "320 ,ZDZD1170 6YY1:Y0234567 nI20112 x22:16:I10);I;" ";:"LEFT"O CHOOSE POSITION FOR CUP A((1)351):B((1)151):P(A,B)0140 P(A,B)2:FCFC1:3X(A),Y(B):1X(X),Y(Y) GET KEYPRESS 16368,0:XXX:YYY Z(16384):Z127180 16CAPE> TO END GAME";: ;J^$%?. %s5#%$$-5?.5?.56>$<6>$<6>'%'%%$<6$$67o- '-->7%16.$$$$76$<6666%$$(-c:A$"HAND PUZZLE":VT1:HT0:1020:A$"IS PLAYED ON9;<=>?@ABCDE04,96:24576,0:(4);"RUN HAND.PUZZLE"3aZ11809ad`an:(21):860:216,0:A$(16):1050axG1$" ABCDEFGHIJKLMNO":G2$"ABCDEFGHIJKLMNOP":X116:A$(X)"":Xa:A$"HI THERE":VT4:HT1:1020:A$"WHAT IS YOUR NAME ?":VT6:HT1:10203b24:16:""` **************************C` * HAND.PUZZLE *d` * BY ROBERT DEVINE *`( * COPYRIGHT (C) 1989 *`2 * MINDCRAFT PUBL. CORP. *`< * CONCORD, MA 01742 *`F **************************(aP(104)96Ĺ103,1:1HkM470,480,480,490,500,510,510,520,500,510,510,520,530,540,540,550[k560:600:640sk560:580:600:640k580:600:640k560:600:620:640k560:580:600:620:640k580:600:620:640k560:620:640k560:580:620:640l&580:620:640Al0A$(M1)" "A$(M1)M$:A$(M)" ":T1:AM1Gl:wlDA$(M1)" "A$(M1)M$:A$(M)" ":T1:AM1}lNlXA$(M4)" "A$(M4)M$:A$(M)" ":T1:AM4lbllA$(M4)" "A$(M4)M$:A$(M)" ":T1:AM4lvlT0İ760:380QmFHIJKLM\]^LOAD GAME.SET"E nF$"CHAR.GEN":(4)"BLOAD CHAR.GEN":35840:F$""x x(48896)76ĺ(4)"PR#A$8DC1":(4)"IN#A$8ECA" PRINT INSTRUCTIONS SCROLL::16::" SEAWOLF "::" COPYRIGHT 1986 MINDCRAFT PUBL. CORP.": SHIP$(3,1). SHIP$(1,0) ************************=* SEAWOLF *[* BY DOUG HENNIG *y(* COPYRIGHT (C) 1986 *2* MINDCRAFT PUBL. CORP.*<* CONCORD, MA 01742 *F************************P34816Z890 dF$"GAME.SET":(4)"B ":M$"a"M$"z"M$((M$)32)7w~gwT1(N$):(N$,T,1)"A"(N$,T,1)"Z"E1pwT:w"CAN'T FIND SHAPE TABLES ON DISK":23:ROBERT DEVINE":VT4:HT4:1020:A$"COPYRIGHT MCMLXXXIX":VT6:HT1:1020:A$"MINDCRAFT PUBL CORP":VT8:HT1:1020v.A$"CONCORD MA":VT10:HT5:1020v8T14000::vB1:vL2:vV5:v`7:vjT11500:T:1wt22:" 336)(16336)uL:uu232,248:233,9:HTHT13:VTVT17:L1(A$):A((A$,L,1))51:(A19)1040:A12A10uA(HT13)(L13),VT:M(16336)(16336)uL:u:7rv$A$"HAND PUZZLE":VT0:HT5:1020:A$"WRITTEN BY":VT2:HT5.5:1020:A$"L":VT3.7:HT29.4:980:A$"M N O P":VT5.2:HT29.4:980~tA$"TO GIVE UP":VT17:HT28:980:A$"ENTER A 0":VT19:HT28:980tt232,0:233,8:HTHT7:VTVT8:L1(A$):A((A$,L,1))53tA6A5AA6u(A1)1010:A(HT7)(L7),VT:M(16ORDER":VT14:HT28:980&sG2950sA$" A B C":VT.7:HT29.4:980:A$"D E F G":VT2.2:HT29.4:980:A$"H I J K":VT3.7:HT29.4:980:A$"L M N O":VT5.2:HT29.4:980:9609tA$"A B C D":VT.7:HT29.4:980:A$"E F G H":VT2.2:HT29.4:980:A$"I J K 3:X21424214:X,2X,50:X:X143812:200,X256,X:Xr5:X19825658:YXX1:Y,0Y,51:Y,X:X05050:YXX1:200,Y256,Y:Y,Xs3:A$"TO WIN YOU":VT8:HT28:980:A$"MUST PUT THE":VT10:HT27:980:A$"LETTERS IN":VT12:HT28:980:A$"THIS AD SMALL.LETTERS":1:0jqfXC(1)16:XC(2)51:XC(3)86:XC(4)121:YC(1)21:YC(2)61:YC(3)101:YC(4)141:qp:3:X4512540:X,5X,145:X:X4011035:5,X165,X:Xqz5:X0165165:YXX5:Y,0Y,150:Y,X:X0145145:YXX5:0,Y165,Y:Y,X:r(X)Op4(A$(M4))51YC(Y),XC(X1):A$(M4)M1$:(A$(M4))51YC(Y),XC(X1)p>(A$(M5))51YC(Y1),XC(X1):A$(M5)M3$:(A$(M5))51YC(Y1),XC(X1):X4:Y4pHY,XpRX116:(A$(X)(G2$,X,1))380:X:690q\(4)"BLOAD BIG.LETTERS":(4)"BLORTR1:1130:1140:#o GAME 2Uo M1$A$(M):M2$A$(M1):M3$A$(M4):M4$A$(M5){oA0:X14:Y14:AA1:AM840o (A$(M))51YC(Y),XC(X):A$(M)M2$:(A$(M))51YC(Y),XC(X)p*(A$(M1))51YC(Y1),XC(X):A$(M1)M4$:(A$(M1))51YC(Y1),XC:A$4nA$"Y"A$"YES"āX116:A$(X)"":X:280`n::12:"BYE "N$" IT'S BEEN FUN":23:n232,248:233,9:M0:X14:Y14:MM1:A$(M)" "750n(A$(M))51YC(Y),XC(X)nY,X:o22:(7);(7);::" ILLEGAL MOVE "N$" !!! TRY AGAIN "::T232,248:233,9:M0:X14:Y14:MM1:A$(M)" "ĕ(A$(A))51YC(Y),XC(X):670nm(A$(M))51YC(Y),XC(X)wmY,XmX116:(A$(X)(G1$,X,1))380:Xm22:10::" >>> YOU WIN !!!! <<< "::1130n1140:22:"DO YOU WANT ANOTHER PUZZLE "N$" ";(111)(105)(105)(117):SHIP$(1,1)"UIIO"c SHIP$(2,0)(111)(105)(117):SHIP$(2,1)"UIO" SHIP$(3,0)(111)(117):SHIP$(3,1)"UO"! " Your mission as the commander of a":"submarine, is to destroy as many ships":"as you can with your lNPQRSTUVWX"! 24576:PROTECT VARIABLESJ Y(279),GX(1),GY(1),A(1),PW(1),SK(1)W X0:Y80p 232,X:233,Y:30010 XOX:YOX:XNX:YNX:WX:UOX:VOX:YL160:ERRFLAG216:PUSHBUTTN49249 ,IMPORTANT PARAMETERS 6POWER.14:CRAVITY3E4:FRICT.006:WIND.08! *************************A * ARTILLERY DUEL *a * BY LUDWIG REISKY * * COPYRIGHT (C) 1984 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ************************* d(4)"BLOAD ART.SHAPES 10 DASHES< FIND WHERE SCORE BELONGS AND PUT IT THERETI110:SC(I)SCĂJ10I1:SC(J)SC(J1):N$(J)N$(J1)::SC(I)SC:N$(I)A$ SHOW HIGH SCORES::12:" TOP TEN SCORES "::3:I110:SC(I)0Ė12((I)):I" "N$(I)29((CORES":I110:SC(I):N$(I)::D$"CLOSE"IbD$"PR#0":D$"IN#0":::\l GET NEW NAMEvWINDOW(0,039,23)::"Your score was one of the TOP TEN.":"Please enter your name (10 letters at":"most, please): " 5:15:"----------";:15:(A$,10): ";:MISSILE0410'MISSILE0380?& WANT ANOTHER TRY?Y0FIRE0:SCSC(10)630:22:P::"Want to try again (Y or N)? ";:24,255:B$:B$:B$"N"B$(110)FLAG0:330D SAVE HIGH SCORESNF$""+XD$"OPEN SEA.SCORES":D$"WRITE SEA.SLOCNA:720E IF TORPEDO FIRED, MOVE IT AND SEE IF SHIP HITUFIRE0410qMYMY1:750:MY6410I04(INC):LOCNIMXİ770:540 SHIP NOT HIT SO SPLASH!I:FIRE0:MY1:MX:" ";:3:MX:7,147:(112):7,144:I120::MX:"WINDOW(1,2038,23):FIRE1:MISSILEMISSILE1:22:38((MISSILE)):" "MISSILE;:MYY1:MXX:WINDOW(1,138,2) DRAW NEW SHIP POSITION AND SEE IF OFF SCREENALOCNINC((INC)3)(INC):A1(LOCN5INC37INC0)Ģ3:LOCN:(BLANK$,(INC)):540A(1):INC(A0.4)2(A0.4A0.8)3(A0.8):(1)0.5INCINCWLOCN36(INC0)y FIND NEW CROSSHAIR POSITIONXPAD(0):XXBĢY:XB:" ";:X:7,147:"P":7,144 IF BUTTON PRESSED, FIRE TORPEDOXBX:FIRE1BUT(0)0MISSILE0460r0000"20)"Torpedoes left - "MISSILE:23:12:"High score - "("000"(HS),4)T0,0279,0279,1590,1590,00,24279,24:WINDOW(1,138,2)^ DRAW CROSSHAIRShXBPAD(0):Y:XB:7,147:"P":7,144r DECIDE ON SHIP SPEED AND STARTING LOCATIONC|,255:A$:A$;:A$"N"A$(110)F1:330>,F$"SEA.SCORES"6D$"CLOSE":D$"OPEN SEA.SCORES":D$"READ SEA.SCORES":I110:SC(I),N$(I)::D$"CLOSE":F$"":HSSC(1)@START OF GAME - PRINT MESSAGES AND DRAW SCREENNJ:MISSILE30:SC0:22:"Score - ZE VARIABLESG PAD(X)((X)25537)1:BUT(X)(49249X)127:3 Y17:TRP0:SHIP5:HS0:BLANK$"":I15:BLANK$BLANK$" ": SC(10),N$(10):D$(4)  READ IN TOP SCORES IF NECESSARY*"::"Want the all time top scores (Y or N)? ";::24rs (slow) - 100 pts":8:"Destroyers (medium) - 200 pts":8:"PT boats (fast) - 300 pts":: 6 SPACES AFTER (slow), 5 SPACES AFTER (fast) "You will get 10 extra torpedoes if you":"get more than 1800 pts. " DEFINE FUNCTIONS AND INITIALIimited supply of":"torpedoes." " Use game paddle #0 to control the":"position of the crosshairs, and the":"button to fire torpedoes."::" There are three types of ships:" 7,147::I13:" "SHIP$(I,0)::7,144:(37)2 8:"Tanke:ACCURACY3:HEIGHT110% @RESOL10G JPOPORE:CRCRRERE:WIWIREc POINTERS AND CONSTANTS P1XY25639:P2P1171:P3P2166:P4P328:P5P486:EHP560 P1,P2=LANDSCAPE DATA P3=EXPLOSION CRATER P4=SOUND DATA P5=SOUNDPROGREH=ERROR200200uINSTRUCTIONS":u:ZDu2:14:"ARTILLERY DUEL":3:13:"****************"+Nu5:"THIS GAME SIMULATES A DUEL BETWEEN TWO ARTILLERY GUNS. THE VARIABLES ARE THE LANDSCAPE, THE POSITION OF THE GUN, AND THE WIND, WHICH IS SYMOBOLIZED BY AN NEW GAME?a14010:::7:"DO YOU WANT THE SAME LANDSCAPE (Y/N) ?"::"USE CTRL KEY IF YOU WANT THE WIND NOT TOBE GUSTY! ";aX$:X(X$):GS1:X32GS0a(X78)(X14)ė:13010:20020a20:6::" THAT TAKES A LITTLE TIME ! "::6010:13010:>N3010:I01:5010:I:120102RNEXT PLAYERZRGSĒ0:3020:13010:3:3020:12020eR12010RHT(0):HT0:PP:2010:XMGX(P)15C:YMGY(P)15S:XOGX(P):YOGY(P):VAPO(PW(P)):UOVAC:VOVAS&R7010:P51,8:P5:P51,20:7010:1:610 a5::!D/21:K1:XA(I):121205N/22:K1:XPW(I)KX/((X)" ",3):U2WINDj2WWI((1).5):y6CONTINUE?624:"PRESS SPACE-BAR TO CONTINUE, ESC TO END";:X$:(X$)27ė::6 NMAIN PROGRAM*N14010:13010:BG14NPBG:BGBG!010,9010,11080"H+7010:8010:L. PRINT ELEVATION, POWER, SCORE, WIND}.I01:K1235I:12100:12110:K1:SK(I):I.21:13:"<= ELEVATION =>":13:"<= POWER =>":13:"<= SCORE =>":K1((60W)):15:"WIND ";K1;" ";P$((W)1);" ";:QUENCESZ+XM(XNXO)A5:YM(YNYO)A5:X(XNXO)A5:Y(YNYO)A5:(X2)(Y2)11040{ +Y(XM)YMXOXM:YOYM:11010+Y(XM)YMXNXM:YNYM:11010 +YM150YM150*+7010:P5:I01:(XMGX(I))ACSK(I)SK(I)1:HT1:110704+I>+I19F#3:IXD121:3:1722I:1XM,YMI?P#0:1XM,YMI:I_Z#P51,2:P5:P51,20:10010n'WAVE FLAGy'4:X0$'I163:3:X:10100:Y4(.3I)64:I63II:0:10100.'XY:I:t'3XM,Y(XM): *CALCULATE POINT OF IMPACT,EXECUTE CONSER1)R,Y(R),hI:HTĒ3:I01:5020:I2rwI8Ē0:Z,160Z,Y(Z)25:Y(Z)Y(Z)8(P3I):Y(Z)159Y(Z)159}(#DESTROY GUN2#XD74:YMXD1XDYM17#3:I12XD:3:2I:1XM,YMI:0:1XM,YMI:<#3:2I:1XM,YMI:7010:8010*I)A2((P1(IA1))(P2(A1(IA1X)))Y):I9NXPLOT DETONATIONmb0:I12:I:2XM,YM:I:@DIG HOLE AND REPAIR DAMAGEJI08:RXMI:LXMI:IZR:8100:ITL0ZL:8100:3:L1,Y(L1)L,Y(L) ^R279ZR:8100:3:R1,Y(EL56.58PYA6.4GX(P),GY(P)1:=DRAW GUNS_I0GX(I)(140(1)11010)I1GX(I)(140(1)11010)GY(I)Y(GX(I))30:3:1GX(I),GY(I):pGENERATE LANDSCAPEzX((1)A1):Y((1)38)HE.125E53I0279:Y(4GET POWER VALUE#>:12110:9H(PUP)1272140jRPW(P)(A7(P)):22:K:XPW(P):12120:2120\22:K1:" ": PLOT LANDSCAPE AND WIND VECTOR ::3:I0278:I,Y(I)I1,Y(I1):I A1,12A1,0A160WIW,A3A1,10:DRAW BARRI* K235P:K1725P:IP::12100:J (PUP)127Ē3:4010:2060^ Y(P):3:4010 A(P)(135.1P(PP)YA4):21:K:XA(P):12120:0:4010:2030 C(A(P)PA)(A5P):S(A(P)PA) 21:K1:" ":(PUP)1272070: RELEASE BUTTONOVO:710 l4XO,YOF vXOXN:YOYN:4XN,YN:ER,0:YNY(XN)610l 4XN,YN:11010:HT121010,25010 ERROR HANDLING EH:730 630 EH:ER,0:YNYL21010 610 GET ELEVATION ANGLE AND MUZZLE POWER 8:0:I4880:I:4020: HANDLING9 X(P4256.001):YP4256X:252,Y:253,X A1140:A2155:A35:A4.5298:A5.5:A6.0941175:A7.3923:PA3.14159180 P$(0)"<=":P$(2)"=>" 6010:20010 X TRAJECTORY bXWUO:Y((X)(VO))FR:UOUOXY:VOVOCRVOY:XNXOUO:YNY ARROW IN THE UPPER PART OF THE SCREEN."Xu:"YOU CONTROL THE ELEVATION ANGLE AND MUZZLE POWER OF YOUR SHOT BY USING GAME PADDLES AND PUSHBUTTONS."%bu:"FIRST, YOU USE YOUR PADDLES TO DETERMINETHE ELEVATION ANGLE OF YOUR SHOT, AND THEN YOU USE THEM TO SET THE MUZZLE POWER."lu:"ONCE THE MUZZLE POWER IS INPUT, THE SHOT IS FIRED!":23:"COPYRIGHT 1984 BY MINDCRAFT PUBL. CORP.";:23::  *************************?* OTHELLO *^* BY DOUG HENNIG *}(* COPYRIGHT (C) 1986 *2* MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F*************************P34816Z1540 dF$"GAME.SET"3303288:1103288:23:"PRESS TO RESTART";:CH$:CH$::80GF$""960:"THE FILE '"F$"' IS NOT ON THIS DISK.":"INSERT THE DISK WITH '"F$"'"::"AND PRESS ";16368,0:CH$:CH$F$"GAME.SET"Č3288:100F$"SEA.SCORES"Č3288:,9:pLOCN1,6:9zER(222):EL(219)256(218)J(4)"CLOSE"fER5į:7:3288:330::7:ER6ĺ"FILE NOT FOUND":970ER8ĺ"I/O ERROR":960ER16ĺ"SYNTAX ERROR IN LINE "EL:960"UNANTICIPATED ERROR IN LINE "EL8W(1,138,2)^*SC1800FLAG0MISSILEMISSILE10:22:38((MISSILE)):" "MISSILE;:FLAG1d4~> DRAW EXPLODING SHIPHI132:LOCNI40LOCNI1čLOCNI,9RI:LOCN1,7:\ MORE EXPLODING SHIPfI243:LOCNI0LOCNI40čLOCNIE SHIP7MY1:MX:" ";:3:LOCN:(BLANK$,(INC)) 7,147:3:LOCN1:(112);(112);:(7):I120::LOCN1:" ";:7,144 INCREMENT SCORE AND GIVE BONUS IF NECESSARY  WINDOW(1,2038,23):SCSC100(INC):22:13((SC)):SC;:FIRE0:WINDOSC(I))))SC(I)::%HSSC(1):5705 DRAW SHIPfLOCNINCINC0Ģ3:LOCNINC:(BLANK$,INC);7,(7)3:3:LOCN(INC1)(INC0):SHIP$((INC),(INC0)):7,(7)3: DRAW MISSILEMY:MX:" ";:MY1:MX:7,147:"Y";:7,144: EXPLODLAYER STATE."< "IN THAT STATE, THE FOLLOWING COMMANDS"R ""ARE AVAILABLE:"e ,33,32:32,8: 6"X - PLACE/REMOVE MARKER" J"G - TURN ON GRID" T"N - TURN OFF GRID" ^"U - MOVE CURSOR UP" h"D - MOVE DOWN" r"L - MOVE LEFT" |"R  $PC(Z)8Z46 2P%(34,19),N%(34,19),D%(34,19)M 7CL%(734),DL%(734)n <DD$(4):XX$"LIFE PATTERN " PREPARE FOR PLAYER STATE 250 :NM0 4630 X17:Y10 1000 EXPLAIN PLAYER MENU  "PRESS ANY KEY TO GO INTO PY[rst20:22" 1PC(X),PC(Y):9 20(P$)2);P$:Q 20(P$)2);P$;: 10:P$"DO YOU NEED AN INTRODUCTION?":20 P$"(Y OR N, RETURN) ":21 "";A$ A$"Y"İ5000 6000 NX(X)35(X0)X(X35) "NY(Y)20(Y0)Y(Y20)************************=* LIFE *[* BY RAUL CARTAYA *y* COPYRIGHT (C) 1982 ** MINDCRAFT PUBL. CORP.** CONCORD, MA 01742 * ************************::7:44096P$"WELCOME TO LIFE" :(4)"BLOAD GAME.SET"M nF$"CHAR.GEN":(4)"BLOAD CHAR.GEN":35840:F$"" x(48896)76ĺ(4)"PR#A$8DC1":(4)"IN#A$8ECA" 3:1420:10::12:" O T H E L L O ": 12:13)"By Doug Hennig"::" COPYRIGHT 1986 MINDCRAFT PUBL. CORP." VARIAB_abcdefghijCH0:D07$RCRC(D):CCCC(D)A1250:1320:N0CHCHNN1460:DTp CHECK PIECES ON BOARDRAR1:CAC1I18RARARC:CACACC:BDBD(RA,CA)BDPLNI1: BDMT1310IN1:(RAR1:CAC1:N1ı2I8PR$" (Y or N)? ";RB24,255:A$:A$"Y"A$"N"A$(121)A$(110)1090\LA$:zV CHECK IF PIECES FLIPPED`CH0:D07jRCRC(D):CCCC(D)t1250:N0CHCHN~D PLOT PIECES FLIPPEDPIECEPL:1460:BD(R1,C1)PLRMR1:CMC1:MCCHC1$R1JMC0R1RM:C1CM:RR1:CC1:1180PVm GET PADDLE INPUTR((1)2557)1:C((0)2557)1:$1440:A$N$(A)"'S MOVE":11:10(A$)2);::A$(7):.7,(7)3:13:9:PIECE$(A):7,(7)3: MOVE "::I11000:::APL:1060:810: 3 SPACES BEFORE IMPROPERW COUNT FLIPStCH0:RM0:CM0:MC1:O0R1LRHRC1LCHCBD(R1,C1)MT9901120CH0CHCHVL%(R11,C11)CHMCOO1:(1)1ORMR1:CMC1CHMCROWA:COLB:1460:RA:CB5*X(49249):Y(49250)J4X127Y127860r>A(49152):K(49168):A141CH0:{H790R SEE IF HE CAN GO THERE\R1R:C1C:BD(R1,C1)MT890f1180:CH0BD(R1,C1)MT:890pEz1440:11:1::" IMPROPERgain? ";:A$:A$.A$"N"A$(110)360P(4)"PR#0":(4)"IN#0":::}  FLASH CURSOR AND SEE IF BUTTON PRESSED1050 ABD(R,C):PIECE4(ABL)3(AMT):1460:RROWCCOLABD(ROW,COL):PIECEA(AWHABL)5(AMT):AR:BC:RROW:CCOL:HCC11460" GAME OVERV1440::"The game is over.":"Final score:"::N$(1)":"12)WC20):N$(2)":"12)BC20)::WCBCĺ"It was a tie game.":750W1:BCWCW2"The winner was:"::9(N$(W))2::N$(W)::"Play a:BCBCCHBN1450:23:(N$(1))3:WC" ";:(N$(2))22:BC" ";TXCH0SKSK1dbCH0SK0nlM5MvWCBC64SK2WC0BC0700R1LRLR1LRR11:LR0LR0R1HRHR8HRR11C1LCLC1LCC11:LC0LC0 C1HCHC8 ROUTINEO1450:"Scores:":::N$(1);::": "WC20);::N$(2);::": "BC;XCH0kT(M1):T530yA2:1060PLBLNP910,790CH0BCBC1570A1:1060PLWH&7900CH0WCWC1:(M1)0CHCH DWCWCCH" ^ SET UP INITIAL BOARD? hI18:J18:BD(I,J)0:J,IY rBD(4,4)WH:BD(4,5)BLs |BD(5,4)BL:BD(5,5)WH 1390:SK0 1430:R45:C45:PIECEBD(R,C):1460:::1440 LR3:HR6:LC3:HC6 M5:ROW1:COL1 WC2:BC2  MAIN GAME:A$"Y"A$(121)İ14702  SEE WHO WILL PLAY_ 3::P:"How many players (1 or 2): "; "A$:NP(A$):NP1NP2290 ,A$::NP1330 6I12:"Name of player #"I": ";:(N$(I),10): @360 J"Your name: ";:(N$(1),10) TN$(2)"APPLE":PIECE$(3)"+":PIECE$(4)"w":PIECE$(5)" "M V(1)2:V(2)3:V(3)1:V(4)4l I07:VV((3.5I)0.5)2 J07:VL%(I,J)VL%(I,J)V: J07:VL%(J,I)VL%(J,I)V::I:1510 ::13)"O T H E L L O"39):::PR$"Do you want instructions":1080LE INITIALIZATIONY BD(9,9),RC(7),CC(7),DC(9),VL%(7,7),V(4),PIECE$(5):WH1:BL2:MT0 I07:RC(I),CC(I)::I19:DC(I): -1,-1,-1,0,-1,1,0,1 1,1,1,0,1,-1,0,-1 6,5,4,7,-1,3,0,1,2- CR$(13):PIECE$(0)"q":PIECE$(1)"Q":PIECE$(2)"W1N<RRRC:CCCC;FR1R:C1C:BD(R1,C1)3BD(R1,C1)bPPIECEPL:1460:A(49200)(49200)ZI:R1RA:RR1:C1CA:CC1:d SET UP BOARDnX17:Y20:WINDOW(1,238,22)::P:1420:X1,Y1X113,Y1X113,Y129X1,Y129X1,Y1-xI08:I14X,YI14X,Y128:X,I16YX112,I16Y:30,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1:WINDOW(1,138,22):WINDOW(1,320,20)::WINDOW(20,338,20)::WINDOW(1,2038,22)::1430:R22:C21:7,(7)3:PIECELHL 67ˠ89  L!(:ݒ轒L޽eeH软H`WINDOWSCROLLPAGELPNMv ߅ { R ޥF ɕ*Ɉɠɀ1P F)L???????? pp~|I*]*6wAw6?~|xp`@?*II*@`px|~"#$%&'()#$%&'()!""123hi there, you dummy"A" "UA]"ppx@@@@@@@?cI>Ic>>UUUUUUU~|"AAA"00@ >6>>**>>*  *$$U*U*U*U>>A]E]A><<""|<""( x >T""6***""I***>>  .@< 0LR"RLA""A <"<&"""" ,2""<"><$,2"< &"""  "   ****&""""""""<""< &< $"""2,""****"""""< >>  .< LR"RL >kmn"*:<"">""""""""""""">>><2"<""">""" """  "~"6**"""""&*2""""""""""""*,"" "" ">"""""""""""""***6"""""""> >>> >00000>">>< (&20 *,**>> "2*&" " >>  ">> "8""> """"""< >> ""AND PRESS ";0^16368,0:CH$:CH$GhF$"GAME.SET"100Pr110SYNTAX ERROR IN LINE "EL:1600F6"UNANTICIPATED ERROR IN LINE "EL@3288:23:" TO RESTART, TO QUIT";:CH$:CH$:CH$(27)100::J3288:F$""1600T:"THE FILE '"F$"' IS NOT ON THIS DISK.":"INSERT THE DISK WITH '"F$"'"::no move at all, press ."R22:9::"PRESS TO CONTINUE";:i(49152)1281520x49168,0:ER(222):EL(219)256(218)::7::(4)"CLOSE"ER6ĺ"FILE NOT FOUND":1610"ER8ĺ"I/O ERROR":1600 ,ER16ĺ" game paddles (or joystick) to move the '+' around the screen. When the '+' is in the square where you want to move, press either game button. If the move is illegal, the"$"'+' will reappear and you will have tomove somewhere else. If you have $(PIECE);:7,(7)3:"4:P" The object of OTHELLO is to own themost pieces at the end of the game. You gain pieces by flanking rows of your opponent's pieces with your own and 'flipping' them to become your ownpieces.":" Use theF 8Pˤ$( )кɍ)詍   = {ڥ` FP(SO " D F ޥP(58 0!!(# $$ e!$$"%%`#%%` "(!#5L؆FGHɍ 2 w U$i! %i# GFhL$J2H2oqvxy$,-%??,%%%%----56>>>>66>$$d $???66v-%%%$',$7- ->7-6666.$$-%?'$ '% 6%6666>$$$$<666666--%%%$ $<<$ 66666>7--%?$$$$$$% -6>>>>>6--5???'%g $'?7?% -6>6>>>?<<,e $'g $'?7?6.--56.$$%'$$$?6.--$$$777666--56?75-%%!$'??$$,--5??7I >66...-,,$566?'$$--??$$*---6-6)5?$$666M!$?g $--66--I-66?666M 666--666M!$$V666M!$$)66?$$-?'26)6$$666M|e?)3-?--66666v- $$$66 $$6n6 5$$$.n  $6!d $--.--5lz  +7AKW^kx '5p26v- $$?N,,66n??b-.--b-*?I67&?'!!!--6-? 6v- ?f-566)?d-?$2-e $?)66$$*5-?'$$-)2;$$-E"F$NM"X034:Y0195P%(X,Y)1600C"X2X:Y2Y],XOX2X2X4:Y2Y2Y4q618:X2:Y2:18y@:J1780ADD FROM DISKP$"ADD FROM DISK":1800DD$"READ"F$MI1MX,Y:XOXXX4:YYY4X34XX34CURSOR MOVESDY1:1443-DY1:1443=DX1:1443FDX1VXNX(XDX)fYNY(YDY)zDX0:DY0:1050DX1:1410DX1:1410DX1:1420DX1:1420COPY TO DISKNM1050P$"COPY TO DISK":1800DD$"WRIT1500A$"A"1700,A$"W"Ľ::32?A$(27)3500XA$"H"ĉ:250:1000lA$"Q"ĺ:::v1050 PLACE/REMOVE MARKER(4000:1050F GRID OFF (ON AT 2ND LINE)P0ZY281528:X282728:X2,Y2::d3:1050x 10:NM" ";#$31:X","Y" ";+)183.A$;818LBA$"X"1300]LA$"G"1370nVA$"N"1350`A$"U"1410jA$"D"1420tA$"L"1430~A$"R"1440A$"Y"1450A$"I"1460A$"S"1470A$"F"1480A$"C""Q - QUIT PROGRAM (END)" * 32,0R "HIT ANY KEY TO CONTINUE";:Z$::e  PLAYER STATEy 16304,0::21 "COMMANDS - X G N U D L R Y I S F C A Q" " H FOR HELP ESC TO RUN" "MARKERS: X,Y:";23:- MOVE RIGHT"& "Y - UP AND LEFT"> "I - UP AND RIGHT"W "S - DOWN AND LEFT"q "F - DOWN AND RIGHT" "C - COPY TO DISK" "A - ADD FROM DISK" "W - WIPE AND RE-START" "ESC - GO TO RUN STATE" "H - RE-DISPLAY THIS PAGE" Ɂ IEɓ IEвEШɋɏɌiP%i8ɀɝɞi@FG`H &I&h`!$H U$$h$` XL$H%H $ w%$%#h%h$L""i% "*)+% "% $* U!%%#h2 $% " w!$$` $"%L"I`5 8預* & & &  e  )$20I&5`(e$& e)e8'` { R PeQH hS`5L؆FGE dG  d|,c i )`?>66665-% 57?$$$$ 666666--%%%$$$<<?7666666%$$,-%??$$,-->?7 -555?>66665-%%$?,-66?$$$$ 666666%$$,-566.$$$$$$766??$$$1-66666?.--<'$$$$,%??I)->6666>>>''' $$$$?666666%$$,5..61%$,,,$7>'$$Y19YY197XNX(X):YNY(Y):18:4000:18=U:21:P$F$" DONE"DD$"CLOSE"F$:XX4:YY4:20:18:1000:21:18:20:X4X:Y4Y"NAME FOR "XX$;:F$:F$XX$F$DD$"OPEN"F$&"MEASURE FROM CURSOR? (Y OR N)";Z$ 0XO0:E,P,N,T,C,S,E,C,F,A,A,A,R,S,M,E,A,E,E,E;G,250:Yī220EG6::VG@250:Y220_GJ120O,W,R,O,V,R,G,Y,R,R,R,P,I,Y,R,F,S,P,I,D,D,O,N,H,T,S,E,N,U,S,S,S,A,R,A,F,I,X,B,K,J,Z,QU,S,A,R,I,Y,F,R,N,H,L,D,O,C,L,I,T,I,E,E,N,N,N,A,D,M,T,E)G"T,T,O,M,E,A,U,G,E,N,U,W,T,O,O,M,A,N,G,E,N,C,L,I,T,E,P,E,A,E,A,E,E,U,T,T,O,O,O,T,E,T,I,I,I,O,R,D,H,L,N,S,I,T,C,:"WAITING...";:A$:49168,C:220EY0::12:"ARE YOU SURE? (Y/N) ";:16368,0:AN$:AN$;:YAN$"Y"AN$"y":YAN$"n"AN$"N"250E12:40);:E18:3::(7)" S T O P "(7);::29:A$:120F12:15(32)::"SHAKING DICE":::R,L,H,H,D,(49152)128200:A$((49152)128)D49168,C:A$(80)A$(112)240:A$(8)A$(21)220:A$(78)A$(110)320:(A$(81)A$(113))300:200DSSI(A$(8))I(A$(21)):SS(S4)4:SCĴ(S)180,170,160DS160,170,180:150#E:12:2%C:SC:ZI5:2Z4:LI5:190HC:LI5:2L4:Z5II:190oC:Z5II:162Z:L5II:190C:L5II:162L:ZI5C(Z$(L,Z)" ",3);::::&D17:5::" "("00"(T)" ",4)::H(X)(X):TTI:TC270:H11040::A$"":Bn32,13:X49200:B$(25,6),N(25),M(25):I(((78)256(79))):I1:EI25:FI6:B$(E,F):::F6BxE25:GIE:M(G)C::H130::280BGIECM((I)E)I:M(M)C140:M(M)M:N(G)M::LI5:ZI5:Z$(L,Z)B$(N(E),((I)F)I):EEI:::T300z|}~G G I N"53):"BY MARK YANNONE";:" ": X SPACESAZ34,5:280:21:"SCORING:":"LETTERS IN WORD --> 4 5 6 7 8+":Bd"POINTS --> 1 2 3 5 10":I140:"-";::" <- -> (P)AUSE (N)EW (Q)UIT";:35,19:33,14e!@ *************************A@ * NOGGIN *a@ * BY MARK YANNONE *@( * COPYRIGHT(C) 1989 *@2 * MINDCRAFT PUBL. CORP. *@< * CONCORD, MA 01742 *@F *************************DAP::(21);::10)"N O %-55%?---5?766666'$$$$$??6666655-%%%$$$$<6666$$$$$6666555.$%%%$$$<666$$$$366665v, ,<'---$$$$<6666'$$$$vv.dd-6.<'%%,$%$6655566.$$$%%%$<6>$$---5.--5???'dd d666666%$$$,vv56%$$$$$<6666'''$666655-%%%$$$<<6666e $$$666666%$$$$$,.,.?57'?.-666655- %' $$$?6666%$'2.$$$$<..->6..-5567?''7-e $?$Z$"Y"XO1:" RUN STATE: NC0:ND0:NGNG1:B X0N I1CNl YCL%(I):Y0XX1:3120t 18 DDL%(I) NN%(X,Y)D:N%(X,Y)N P%(X,Y)ĴN3100,3100,3110,3110,3100,3100,3100,3100,3100 N33110 4000& 180  GENERATION STATS ? (16384)155I(16368):195j 21:"GENERATION "NG;21)"MARKERS: "NM "NET CHANGE: "ND;21)"BIRTHS+DEATHS: "NC NMĺ"ALL LIFE HAS BECOME EXTINCT...":3505 NCĺ"LIFE IS STABLE...":3505 "HIT ESC FOR PL50:23:M$"COPYRIGHT 1986 MINDCRAFT PUBL. CORP.":3650L 2780:TU1:700] BEGIN GAME MV0:FL0:HQ0:HS0:NU10:B$"C" :M$"DISPLAYING HUMAN'S MINES.":3650 I116:J118 A$(I,J)"MI2"ĕ19J14,Y(I9) A$(I,J)"AD2"HS6 Y":"COPYRIGHT 1986 BY MINDCRAFT PUBL. CORP."n Z(104)64Ĺ104,64:103,1:16384,0:(4)"RUN TANK.COMBAT" d(4)"BLOAD TANK.SHAPES,A$803":232,3:233,8:0:1 n3660: INITIALIZE SOUND ROUTINE8 xA$(16,18):::22:M$"TANK COMBAT BY RUDY GUY":36 ************************=* TANK.COMBAT *[* BY RUDY GUY *y(* COPYRIGHT (C) 1986 *2* MINDCRAFT PUBL. CORP.*<* CONCORD, MA 01742 *F************************/ P:12:8::"TANK COMBAT";::" BY RUDY GU@`|Ȉ*ERROR HANDLING* hhߚHH`Ɉ*SH1* 7-<ʈ*SH2*  $2vi`Li#ˈ*SH3* $$<7.56̈*SH4*  QͺϺøň*EXPLOSION CRATER*   ƈ*SOUND DATA* 79L3B?K)A3ab)6^@:IaW0%#-5^K@bSXFP5C!(:^(N\"3G#Q2'6JS>*/>RW7(![Lj*SOUND PROGRAM* ȱ0<LlÈ*BASIC LANDSCAPE DATA* uh\QH@94/+(&$#"!! Ĉ*LANDSCAPE RIPPLE DATA* X2X1X1!"Y2Y1Y1;,X3NX(X2):Y3NY(Y2)U6D%(X3,Y3)D%(X3,Y3)D]@:g^4090LIST OF "CHANGES?"CN0XLNX(XL1):XHNX(XH1):XLXHIXL:XLXH:XHI:XL0XH34XL0:XH34"YLNY(YL1):YHNY(YH1):YLYHIYL:Y%(X,Y)D%(X,Y)D,D%(X,Y1)D%(X,Y1)DJD%(X1,Y1)D%(X1,Y1)DdD%(X1,Y)D%(X1,Y)DD%(X1,Y1)D%(X1,Y1)DNMNMDNCNC1 NDNDD XXLXLX YYLYLY XXHXHX YYHYHYBIRTH/DEATH AT EDGEAYER STATE"; 4500:3000/BIRTH/DEATHD2PC(X),PC(Y)ZP%(X,Y)1P%(X,Y)pD1:P%(X,Y)D1X0X34Y0Y194120D%(X1,Y1)D%(X1,Y1)DD%(X1,Y)D%(X1,Y)DD%(X1,Y1)D%(X1,Y1)DD%(X,Y1)D%(X,Y1)DDA$(I,J)"FD2"FL1- A$(I,J)"HQ2"HQ1Z (A$(I,J),1)"H"MVMV1:HS6HSHS1v J,I:FL1MVMV2:FL0 HQHS(HS2):HS0HS1 I1HS OB$"SHOT #"(I):4120:RS16:RE1:R1:C1:SH37:A$"K":3710 HX(I)R:HY(I)C $ "I1HS:37HY(I)14,Y(HX(I)9):5 , MOVE TANKSJ 6K16:TX0:TY0i @XH(K)0TXXH(K):TYYH(K)w JTX0480 T::24:"MOVES REMAINING:"MV;::21:1:"NEW LOCATION FOR TANK #"K:"USE I-J-K-M TO MOVE":" TO PLACE TANK";7 ^L111:31T0:XC(NU)0:YC(NU)0:A$(HX(I),HY(I))"":1040(A$(HX(I),HY(I)),1)"H"ĕ31HY(I)14,Y(HX(I)9):XH((A$(HX(I),HY(I))))0:YH((A$(HX(I),HY(I))))0:"THE HUMAN SHOT ITS OWN TANK!"(7):A$(HX(I),HY(I))"":3610:1040"HUMAN'S SHOT NUMBER "I" MISSED.":"A$(HX(I),HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A MINE.":3610:1040(A$(HX(I),HY(I)),1)"C"ĕ36HY(I)14,Y(HX(I)9):"HUMAN'S SHOT NUMBER "I" DESTROYED A TANK."(7):NU(A$(HX(I),HY(I))):TX(NU)0:TY(NU)0.(A$(HX(I),HY(I)),1)"C"İ361A$(HX(I),HY(I))"B"Ē3:20HY(I)14,Y(HX(I)9):A$(HX(I),HY(I))"":"HUMAN'S SHOT NUMBER "I" DESTROYED A":"BARRIER.":3610:1040(A$(HX(I),HY(I)),1)"M"İ3530:N2(N2)ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040O(A$(HX(I),HY(I)),1)"MK611:TX0:TY0:890.pK16:TX0:TY0YzXC(K)0IXC(K):JYC(K):1960:MVMVSjWMV0K1|WMV0K6K:W01540: CHECK FOR WINNER:I1HSA$(HX(I),HY(I))""ĺ"HUMAN'S SHOT NUMBER "I" MISSED.":3610:1040MV2:FL0+ HQSC(SC2):SC0SC1E PICK COMPUTER SHOTSM S0[*K6114XH(K)0IXH(K):JYH(K):SS1:1660:SSCK1>HSSC810RTUTU0:\:M$"COMPUTER'S TURN TO MOVE TANKS.":3650fNU4:3530:N2(N2)W1:A WINNER COMPUTER MOVEK:M$"COMPUTER PLACING ITS SHOTS.":3650jMV0:FL0:HQ0:SC0:B$"H"~I116:J118A$(I,J)"AD"SC6A$(I,J)"FD"FL1A$(I,J)"HQ"HQ1(A$(I,J),1)"C"MVMV1:SC6SCSC1 J,I:FL1MV SHOT ITS OWN TANK!"(7):A$(CX(I),CY(I))"":3580:620fb"COMPUTER SHOT NUMBER "I" MISSED.":3580~lD13000::1540:v:A31:B36K16TX(K)06701130: CHECK FOR TANK TO TANK COMBATTX(K)0:TY(K)0:K 1540: CHECK FOR ,CY(I))):TX(NU)0:TY(NU)0N(A$(CX(I),CY(I)),1)"H"İ3580:XH((A$(CX(I),CY(I))))0:YH((A$(CX(I),CY(I))))0:A$(CX(I),CY(I))"":6208X(A$(CX(I),CY(I)),1)"C"ĕ36CY(I)14,Y(CX(I)9):XC((A$(CX(I),CY(I))))0:YC((A$(CX(I),CY(I))))0:"THE COMPUTERUMBER "I" MISSED.":3580:620:(A$(CX(I),CY(I)),1)"M"A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A MINE.";:3580:620D(A$(CX(I),CY(I)),1)"H"ĕ31CY(I)14,Y(CX(I)9):"COMPUTER SHOT NUMBER "I" DESTROYED A TANK."(7);:NU(A$(CX(I)I))""ĺ"COMPUTER SHOT NUMBER "I" MISSED.":3580:620&A$(CX(I),CY(I))"B"Ē3:20CY(I)14,Y(CX(I)9):A$(CX(I),CY(I))"":"COMPUTER SHOT NUMBER "I" DESTROYED A BARRIER.":3580:6200(A$(CX(I),CY(I)),1)"M"İ3530:N2(N2)ĺ"COMPUTER SHOT NSPACE IS OCCUPIED.":SHYH(K)14,YXH(K)9:31YH(K)14,YXH(K)9:3640:340dMVMVM:MV0K6rTX0:TY0z:I916:J118:A$(I,J)"MI2"ĕ19J14,Y(I9)J,I1540: CHECK FOR A WINNERSC0640I1SC7A$(CX(I),CY(TX9):31C14,Y(R9):TX(K)R:TY(K)C:460(A$(R,C),1)"M"ĕSHTY14,Y(TX9):A$(R,C)"":D150:35C14,Y(R9)::3:37C14,YR9:0:XH(K)0:YH(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:460NA$(R,C)""ė:(7)"THAT K)9):31YH(K)14,Y(XH(K)9):3640:340YA$(R,C)"HQ"ĕ32C14,Y(R9):A$(R,C)""A$(R,C)"AD"ĕ33C14,Y(R9):A$(R,C)"":A$(R,C)"FD"ĕ34C14,Y(R9):A$(R,C)""-A$(R,C)""A$(R,C)(K)"H":XH(K)R:YH(K)C:A$(TX,TY)"":SHTY14,Y(Y14,Y(TX9):D150:D,L:SH20K:SHTY14,Y(TX9)b hRTX:CTY:RS16:RE1:MT1:A$"K":3710 rRTXCTYĕSHTY14,Y(TX9):31TY14,Y(TX9):480 |MX(TXR):MY(TYC):MMXMY+M3MMVĺ:(7)"YOU CAN'T MOVE THAT FAR!":SHYH(K)14,Y(XH(3610)3640:HX(I)0:HY(I)0:1540:/:$K16L.TX(K)01100Z8A36:B31B1130: CHECK FOR TANK TO TANK COMBATLTX(K)0:TY(K)0:KV1540: CHECK FOR A WINNER`:150j ROUTINE TO CHECK FOR TANK TO TANK COMBATtD1~D1180,1240,1300,1360-DD1:D5D1:71150URTX(K)1:CTY(K):R1ıo(A$(R,C),1)B$1210u1420FLıFL0:D4:RTX(K)1:CTY(K):R16ı(A$(R,C),1)B$12701420FLı FL0:D4:R2280* TRI:TCJN:D3%* 20607* MOVE RIGHTF*$ J182040b*. NU3:3530:JN182040o*8 MV0ı*B MVN02350*L TRI:TCJN:D4*V 2060*` FLIN1:D1:2050*j N2:D2:2050*t FLJN3:D3:2050*~ N4:D4:2050 + SN:N3MVMV0ı)pMVN02140/)zTRIN:TCJ:D19)2060I) MOVE DOWNX)I162040t)NU3:3530:IN162040)MV0ı)MVN02210)TRIN:TCJ:D2)2060) MOVE LEFT)J12040)NU3:3530:JN12040)MV0ı*MVN0):TX(K)TR:TY(K)TC:2440(4A$(TR,TC)"MI2"ĕ36TY14,Y(TX9):D150:35TC14,Y(TR9)::A$(TR,TC)"":XC(K)0:YC(K)0:A$(TX,TY)""::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SN:(>(H MOVE UP(RI12040(\NU3:3530:IN12040 )fA$(TR,TC)"HQ2"ĕ32TC14,Y(TR9):A$(TR,TC)""g'A$(TR,TC)"AD2"ĕ33TC14,Y(TR9):A$(TR,TC)""' A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)""(*A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):XC(K)TR:YC(K)TC:A$(I,J)"":36TC14,Y(TR9(A$(D,J),1)"H"A$(D,J)"HQ2"A$(D,J)"AD2"A$(D,J)"FD2"FLDX&D:FL0ī2400d&D118&(A$(I,D),1)"H"A$(I,D)"HQ2"A$(I,D)"AD2"A$(I,D)"FD2"FLD&D:FL0ī2420&NU4:3530:TITI1:TI10ı&FL0:N2120,2190,2260,23302' ,1)"C"CX(S)IN:CY(S)J:(%:16706%DN11890C%NJ11ıT%XJJ1:DI1:b%bJ118ıs%lJJ1:DI1:%vN11940%I11ı%II1:DI1:%I116ı%II1:DI1:% MOVE COMPUTER TANK%TXI:TYJ:FL0:TI0:S0%D116D&:CY(S)J:$1670&$JN11670g$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:q$1670$JN181670$(A$(I,JN),1)"1"(A$(I,JN),1)"C"CX(S)I:CY(S)JN:$1670$&IN11670%0(A$(IN,J),1)"1"(A$(IN,J):17100#N1N3N9NU2:3530:D1N:1710F#N5N7N10D1#NU3:3530:N3NU2:3530:D1860,1910,1910,1860:DIDI0:NU2:1730#NU3#3530:D1740,1770,1800,1830#IN161670 $(A$(IN,J),1)"1"(A$(IN,J),1)"C"CX(S)INGAIN?";:1640x"TC0āI15:(7):::"CONGRATULATIONS, YOU WON THIS ROUND. WOULD YOU LIKE TO TRY AGAIN?";:1640"^: STILL TANKS LEFT"h"";A$:(A$,1)"N"ĉ::"r:120"| SELECT COMPUTER SHOT LOCATION"NU10:3530#N2(N2)D4WINNER!H0:C0 !WI164!"XC(WI)0CC1H!,XH(WI)0HH1N!6!@H0C0āI15:(7)::"THIS MATCH HAS ENDED IN A TIE. WOULD YOULIKE TO TRY AGAIN ?";:1640"JH0āI15:(7):::"SORRY HUMAN, I WON THIS ROUND. WOULD YOULIKE TO TRY AX(K)9):FL1::"HUMAN'S TANK DESTROYED!":XH((A$(TX(K),TY(K))))0:YH((A$(TX(K),TY(K))))0:A$(TX(K),TY(K))""z 1530 31C14,Y(R9):FL1::"HUMAN'S TANK DESTROYED.":XH((A$(R,C)))0:YH((A$(R,C)))0:A$(R,C)"" I14000::! LOOK FOR A ,C),1))ĕ36TY(K)14,Y(TX(K)9):A$(TX(K),TY(K))"":XC(K)0:YC(K)0::"COMPUTER TANK DESTROYED!":1530s1520K((A$(R,C),1))ĕ36C14,Y(R9):XC((A$(R,C)))0:YC((A$(R,C)))0:A$(R,C)""::"COMPUTER TANK DESTROYED!":1530p 31TY(K)14,Y(TI110:ATY(K)14,Y(TX(K)9):BC14,Y(R9):J150::K((A$(R,C),1))ĕATY(K)14,Y(TX(K)9):BC14,Y(R9):FL1::"BOTH TANKS DESTROYED.":A$(R,C)"":A$(TX(K),TY(K))"":XC(K)0:YC(K)0:XH(K)0:YH(K)0:1530B$"C"1490iK((A$(RTX(K):CTY(K)1:C1ı2(A$(R,C),1)B$13308(B21420M<FLı\FFL0:D4:zPRTX(K):CTY(K)1:C18ıZ(A$(R,C),1)B$1390dn1420xFLıFL0:D4: COMBATI15:(7):::17::"COMBAT"::I13000:>S02460+ + NU2:3530H+ ITX(K):JTY(K):TXI:TYJ:XCI:YCJa+ D2ĴN2600,2650:y+ D2ĴN2500,2550:+ I1ı+ 2770:N0ı+ MV(SN)0ı+ IN1ı+ TRIN:TCJ:2700+ I16ı+ 2770:N0ı+ MV(SN)0ı, IN16ı, TRIN:TCJ:2700(,( J1ı9,2 2770:N0ıK,< MV(SN)0ıX,F JN1ın,P TRI:TCJN:2700z,Z J18ı,d 2770:N0ı,n MV(SN)0ı,x JN18ı, TRI:TCJN, FL0, A$(TR,TC)"HQ2"ĕ32TC14,Y(TR9):A$(TR,TC)"".- A$("M"A$(32)3710(:A$(32)40109: A$"I"3900J:A$"J"3930[:A$"K"3960l:(A$"M"3990z:2 MOVE UP:<RRERRS:3710:FRR1:3710:P MOVE LEFT:ZC1C18:3710:dCC1:3710:n MOVE RIGHT:xC18C1:3710;CC19MTī3800O9SHC14,Y(R9):RTXCTYSH20SH27ĕSHC14,YR9:MT1949168,0:16384,128:A$((16384)128):49168,09MTĭA$"I"A$"J"A$"K"A$"M"A$(32)37109MTMT0:3840:SHC14,Y(R9):A$"I"A$"J"A$"K"A$M AND .'8~SH37İ4050:3790f8SH31ĭA$(R,C)"B"(A$(R,C),1)"H"(A$(R,C),1)"C"3850y8FLFL0:37208SH19ĭ(A$(R,C),1)"M"38508FLFL0:37408A$(R,C)"B"A$(R,C)"HQ2"A$(R,C)"AD2"A$(R,C)"FD2"38509FLFL0:3760ERE SHOT LANDED (HUMAN)"7$768V7.D120:35HY(I)14,Y(HX(I)9):E150:E,D:h78D13000::~7B21(M$)2:M$:7LX7687817VY:X,Y:7`7j160,20,169,50,32,168,252,173,48,192,136,208,245,968t MOVE SHAPES ON SCREEN USING I-J-K-J,I 6 6 PICK RND NO.?6 N(((78)(79)256)NU)1E6 d6 DRAW AND ERASE TANK MINE6 D110:19C14,Y(R9):E150:::6 SHOW WHERE SHOT LANDED (COMPUTER)67686D120:35CY(I)14,Y(CX(I)9):E150:E,D:7 SHOW WH4120:RS16:RE9:R16:C1:SH19:A$"K":3710@5f A$(R,C)"MI2"F5p m5z I16:C1:OB$"TANK #"(I):41205 RS16:RE14:R16:C1:SH31:A$"K":37105 A$(R,C)(I)"H":XH(I)R:YH(I)C5 5 I916:J1185 A$(I,J)"MI2"ĕ19J14,Y(I9)6 RE9:R16:C1:SH32:A$"K":371044 A$(R,C)"HQ2"u4* OB$"AMMO DUMP":4120:RS16:RE9:R16:C1:SH33:A$"K":371044 A$(R,C)"AD2"4> OB$"FUEL DEPOT":4120:RS16:RE9:R16:C1:SH34:A$"K":37104H A$(R,C)"FD2"4R K16.5\ OB$"TANK MINE #"(K):11:J118:3530c3 N1A$(I,J)""FLFL1:A$(I,J)(FL)"C":XC(FL)I:YC(FL)J:FL6I1:J18w3 J,I:FL632603 I13:J1183 (A$(I,J))0ĕ36J14,Y(I9)3 J,I3 HUMAN LOCATIONS3 34,20:3 PLACE HQ"4 OB$"HQ":4120:RS16:FL31302b FL0%2l I18:J118k2v 3530:N3A$(I,J)""A$(I,J)"FD":34J14,Y(I9):I8:J18:FL1~2 J,I:FL31802 FL02 I811:J118:35302 N2A$(I,J)""A$(I,J)"M1":FLFL1:FL6I1:J182 J,I:FL632202 FL03 I330201 COMPUTER LOCATIONS21 I18:J118x1 3530:N3A$(I,J)""A$(I,J)"HQ":32J14,Y(I9):I8:J18:FL11 J,I1& FL308010 FL01: I18:J1181D 35301N N3A$(I,J)""A$(I,J)"AD":33J14,Y(I9):I8:J18:FL1 2X J,I::Ƃ0 Y7:J1:1%0 I18:K118]0 NU10:3530:N2A$(I,K)"B":20K14,Y(I9):JJ1p0 J15K18:I8y0 K,I0 J1529600 J10 I16101:K1180 3530:N2A$(I,K)"B":20K14,Y(I9):JJ10 J15K18:I100 K,I1 J15ēI,0I,161/ J1928509/ JI4,7:JI4,159:JJ1?/" G/, J1W/6 I161599c/@ A$(J)z/J (A$)2A$" "A$/T (A$,1)" "2920/^ (((A$,1)))201,I:(((A$,1)))20268,I/h S((A$,1)):SS20:S20S30/r S6,I:S273,I0| JJ1:4,Y(TX9):D130:35TC14,Y(TR9)::A$(TR,TC)"":A$(TX,TY)"":XC(K)0:YC(K)0::(7)"TANK HIT MINE AND WAS DESTROYED!":3640:SSN:. . NU3S:3530:. DRAW GRID. :3:0,0:3082. 0:I81619:0,I279,I:. J1 / I1326514:TR,TC)"AD2"ĕ33TC14,Y(TR9):A$(TR,TC)""c- A$(TR,TC)"FD2"ĕ34TC14,Y(TR9):A$(TR,TC)""- A$(TR,TC)""ĕ36TY14,Y(TX9):A$(TR,TC)A$(I,J):A$(I,J)"":36TC14,Y(TR9):TX(K)TR:TY(K)TC:XC(K)TR:YC(K)TC:SSN:. A$(TR,TC)"MI2"ĕ36TY1:3710; MOVE DOWN-;RRSRRE:3710=;RR1:3710Y;SH37SH20SH274030;A$(R,C)""ė:(7)"THAT SPACE IS OCCUPIED!":D12000::4120:3710;SH20SH27ı;SHC14,Y(R9):;I1ı;J1I;RHX(J)CHY(J)FL1<J<FLġ:FL0:3850<:< PRINT I-J-K-M PROMPT<:"ENTER LOCATION OF ";OB$:"USE I-J-K-M TO MOVE":" TO PLACE ";OB$;:RA-";59:"TION IF IT HAS 2 OR 3 NEIGHBORS.";:c"DEATH - AN INHABITED PLACE WILL BECOME"9:"EMPTY IN THE NEXT GENERATION"9:"(THE MARKER WILL DIE) IF IT HAS"9:"LESS THAN 2 NEIGHBORS OR MORE"9:"THAN 3 (DEATH FROM LONELINESCH ARE INHABITED.":D"BIRTH - AN EMPTY PLACE WILL GIVE BIRTH"n9:"TO A MARKER IN THE NEXT GENERA-"9:"TION IF IT HAS EXACTLY 3 NEIGH-"9:"BORS.":"SURVIVAL - AN INHABITED PLACE WILL STILL";9:"BE INHABITED IN THE NEXT GENE"TURN TO THE RUN STATE, OR END THE PRO-"?P"GRAM.":5470jZ"FOLLOWING ARE THE THREE BASIC LAWS."d"REMEMBER THAT EACH PLACE ON THE BOARD"n"HAS EIGHT ADJACENT PLACES. 'HAVING TWO"x"NEIGHBORS' MEANS HAVING TWO ADJACENT""PLACES WHIIONS" "EVOLVE.":G"IN ADDITION, YOU MAY CHANGE THE PATTERN"u"AT THE END OF ANY GENERATION. PRESSING"("'ESC' WILL SWITCH FROM THE RUN STATE"2"BACK TO PLAYER STATE, WHERE YOU MAY MO-"<"DIFY THE PATTERN, SAVE IT TO DISK, RE-",F THE FIRST GENERATION, AND THEN WAT-"V"CHING IT EVOLVE. EACH GENERATION DETER-""MINES THE PATTERN FOR THE NEXT GENERA-""TION BASED ON THE LAWS OF BIRTH,""SURVIVAL, AND DEATH. YOU SIMPLY WATCH""THE PATTERNS CHANGE AS THE GENERATINSTRUCTIONSD"LIFE IS A GAME OF PATTERNS. A PATTERN"u"IS MADE UP OF INHABITED PLACES (OCCUPIED";"BY MARKERS) AND EMPTY PLACES. ANY ONE""PATTERN IS CALLED A GENERATION.":"YOU PLAY LIFE BY ENTERING THE PATTERN"'"FORLYH:YHI:YL0YH19YL0:YH191XL04550TI0XL1:CNCN1:CL%(CN)1:jXXLXH:YYLYHD%(X,Y)Ă:4610DD%(X,Y)CNCN1:D%(X,Y)0CL%(CN)Y:DL%(CN)DCNCN1:CL%(CN)1 XL34:XH0:YL19:YH0 -6' $,-*M$-6?$i M ?,-hi)#II 8' $$m 56>$$$$$,-----5666?????'$$,----566????'$,---56???',--5??'? $d-6'!$$,-?I--( $88?6v@%') mmcmmmcmmmcmmm# -$$)-d- ?'- g!?I!8?' 6&- ?'$-- - ?$$ - $ ?,%? $ $*D66 d  $ -6 $$%LXfr~2T\hu.C!$d >?N1&!$$,-?N1? -$$ -)- $?766)-$-$--!$$,-? - <$$ -%!$$-@666 -$$(%- $<(%!$$l )-$$$!$$.`666!$$rV$$$ - $?66!$$,-S OR";'9:"OVERCROWDING).":5470U"LIFE IS PLAYED ON A 35X20 BOARD. HORI-""ZONTAL LOCATIONS (X) ARE (LEFT TO RIGHT)";""0 THROUGH 34. VERTICAL LOCATIONS (Y) ARE";,"(TOP TO BOTTOM) 0 THROUGH 19.": 6"THE BOARD WRAPS AROUND BOTH VERTICALLY"9 @"AND HORIZONTALLY, SO THE TOP AND BOT-"h J"TOM ROWS (OR THE LEFTMOST AND RIGHTMOST" T"COLUMNS) ARE ADJACENT. HAVE FUN!" ^23:490 pPUT IN SHAPE TABLE z768,2:769,0:770,6:771,0: 772,35:773,0:774,8:775,8:!776! *************************A * TIME.TUTOR *a * BY FRANK SHIRK *( * COPYRIGHT (C) 1985 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F *************************PZ1110 dCOMPUTE X,Y1)15)2:Y1((1)13)2:XX1:YY1:1090:(EF)A(X1,Y1)3210R DRAW SCREEN A(X1,Y1)1:230,32:62450::3:16368,0 Y115:X117:A(X,Y)3Ă: 690:A(X,Y)(3(A(X,Y)0))X9,Y9:X,Y:PG4PG1270 X1PG1:1230X10,140:g2A X117:A(X,1)0:A(X,15)0::Y115:A(1,Y)0:A(17,Y)0: Z135LV:X((1)15)2:Y((1)13)2:A(X,Y)3ZZ1:Z A(X,Y)2: Z1LM X((1)15)2:Y((1)13)2:1090:(EF)A(X,Y)3190 A(X,Y)4:X(Z)X:Y(Z)Y:@ X1((UP VARIABLES@ dA(17,15),X(8),Y(8),D(8):LV1:PG3:1:0:PP0 nLH0:DP0:LM((LV2).5):LT1((LV2)(LV2)):LV17830 xLV10PP0PGPG1:PP1 Z1LM:D(Z)0::TI15((5LV)LV2):::10:16::"LEVEL ";LV: X216:Y214:A(X,Y)3::USH ICE BLOCKS.":I13000:7 2X770793:Y:X,Y: < 174,0,3,173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,5,3,96 F SET UP VARIABLE TABLE PZ0:JZ:J1Z:XZ:YZ:Z1Z:X4Z:Y4Z:X1Z:Y1Y:Z9Z:Y9Z:SCZ:Z2Z:Z8Z:LVZ:TIZ Z SET :103,1:(4)"RUN PENGUIN"P 232,0:233,9:(4)"BLOAD PENGUIN.SHAPES,A$900" :::255:7:16::"PENGUIN"::9:13:"BY STEVE ROTH":22:"COPYRIGHT 1985 MINDCRAFT PUBL. CORP." (16:"USE LEFT AND RIGHT ARROW KEYS, A & Z":" TO MOVE PENGUIN AND P! *************************A * PENGUIN *a * BY STEVE ROTH * * COPYRIGHT (C) 1985 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ************************* (104)64Ĺ16384,0:104,641100 ARTRR 600 CADEE 300 ALALA 0 0 0 0 0 0 0 ,8:805,200:806,59:807,247:D"808,30:809,54:810,14:811,14:i"812,45:813,12:814,12:815,36:"816,28:817,92:818,0:"232,0:233,3: SHAPE TABLE POINTER."3:1:0",8:777,54:778,54:779,54:B!780,39:781,36:782,36:783,60:g!784,54:785,54:786,54:787,39:!788,36:789,36:790,60:791,54:!792,54:793,54:794,39:795,36:!796,36:797,60:798,54:799,54:!800,54:801,95:802,0:803,8:"804' nARTHDR:DXR(AR):DYR(AR):4 xDRAW T$g I1(T$):N((T$,I,1)):N47N91ĔN47X,Y{ XX7::YY9: GET USER ANSWER AN$"" B$ I19:B$KL$(I)B$KW$(I):300:KEYWORD B$"0"B$"9"300:#S B(B$)RDRAW LIPS#45257,139:2RANDOMIZEh16368,0:I1108:J(1):OP(16384):OP128Ăv16368,0|DRAW BORDERX5:Y9:T$"TRIED":130:X5:T$"OK":130:X8:Y60:T$"LEVEL":130*X5:Y124:T$"PRESS":130:X5:T$"ESC KEY NWWX)İ910:LL(NRRX)(L5)(NWWX)(L1):NR0:NW0gz620:950:TRTR1:RTRT(NT0):3:950:760yDRAW LEVEL #((L))4722,73:BUZZZB1BZ:S(16336)::DRAW TALLYX50:Y9:T$(TR):130:NT0X50:T$(RT):130HNR0:NWNW1:BZ50:930:::"NO"::NTNT1:32:980:NT1Ģ(37):11:"TIME IS "C$(C%((1)(JX1)))qR820\:"OK"::NT0NRNR1:NW0:I03:768,T%(I):769,D%(I):770::980f:"PRESS ANY KEY TO CONTINUE";:T$:7p0:980:0:OP6(NRRX12(HR12)):HR & HR+1m MI720TX%(L)60HR:M1$(60MI):MI$(MI):MI0MI$MI$"0": MIN TILL & AFTERBH906MI:LH9030HRMI2:ANGLE OF HANDS MAIN LOOP*:NT0:OK1:3:0:910:620:600:330:214160:AN$""820>460:OK860hQUIT) ";::" ";::1000:T$(OP128):OP(T$)::(OP1OP6)T$"Q"710YOP1310LOP:OP6L((1)5)1:NR0:NW016304,0COMPUTE TIMET((1)X%(L))1:TIME UNITS PAST 12:00HR(T12X%(L)):HR$(HR12(HR0)):H1$(HR1ES":" 5 MINUTES":" 1 MINUTE":" AUTO":32,0:23:"** COPYRIGHT 1985 MINDCRAFT PUBL. CORP. **";:24:"PRESS ESC KEY TO RETURN TO THIS PAGE";LĖ11:21::"NOW WINDING UP CLOCK";::3:1040:600K1:21:868:"WHICH LEVEL? (1-6 , OR Q TO ERS AND KEYWORDS. EXAMPLE"i:6:"12:00";:19:"15"KW$(7)"5":6:"12"KW$(9);:18:KW$(4)KW$(5)"5"::"6 LEVELS OF DIFFICULTY ARE AVAILABLE."::11:"LEVEL TIMES EVERY";:32,12:3I16:I::14:7:32,18:" 1 HOUR":"30 MINUTES":"15 MINUTI014:N%(I)XN%(I),YN%(I)::I11:CX1,CYICX1,CYI::RbDRAW HANDSlTHBH:RBR:I12:110:CX,CYCXDX,CYDY:THLH:RLR::vINSTRUCTIONS:13:"APPLE TIME TUTOR":14:"BY FRANK SHIRK"4:"GIVE THE TIME WHEN ASKED. USE NUMB):T$" "A$A$T$0USER ANSWER OK?<J0JXTT0:T1(C$(C%(J)))cI1(A$)uT1$(A$,I,1)T$(C$(C%(J)),IT,1)T$T1$ĂI:(IT1T1)570:T$""&T$" "TT1:5300J:OK(T$T1$)DNDRAW #S AND CNTRBX12:440m I68:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I:C$(I3)KW$(4)KW$(I1)H1$:JJ1:C%(J)I3::440 C$(1)HR$KW$(1)"0"MI$:440 I68:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I: JXJ: REMOVE BLANKSA$"":I1(AN$):T$(AN$,I,145)4(MI0MI10)5(MI30MI45)6380,390,400,410,420,430I r440q |C$(13)HR$KW$(9):J1:C%(J)13:440 I45:C$(I)KW$(4)KW$(I2)HR$:JJ1:C%(J)I::440 I68:C$(I)M1$KW$(I1)H1$:JJ1:C%(J)I::C$(12)KW$(8)KW$(3)HR$:JJ1:C%(J)230C "B$((36),2(37))16(36),2(37)1)128):R ARROW\ ,B$;:AN$AN$B$:170j 6868:: @COMPUTE CORRECT ANSWERS JC$(1)HR$KW$(1)MI$ TI23:C$(I)MI$KW$(I)HR$: ^J11:C%(J1)J2:@ h(MI0)1(MI15)2(MI30)3(MI (B8)1(B13)2(B21)3(B24)4(B27)5(B28)6240,310,290,260,270,300u BZ10:930:170:DISABLED KEYS B$;:(AN$)1AN$(AN$,(AN$)1):170 160:L ARROW (92);B$:160:CTRL X OKĒ0:980:910:620::16303,0:640:ESC TO":130:X5:T$"CHANGE LEVEL":130:MSG$Y0:J09:X232:T$(KW$(J),(KW$(J))(J1)):130:YY2(J0)::44238,Y9:KEYWORDS.R20:TH035415:110:257DX,129DY::Y122:T12:X250:I12:J123:XJ,Y:J:X263:I:Y124:T:HEADG8RCR:DT6:I14:TH0354DT:110:CXDX,CYDY::RR1:DT30::CLOCKMBXLSETUPV255:::::16384:232,211:233,29:0:1` LOAD SHAPE FILEj(4)"BLOAD TIME.SHAPES"tKW$(10),KL$(9),N%(15),XN%(15),YN%(15),X%(5),C$(13),C%(9),T%(4),D%($H4:V4:S3$%H5:V5:S3$6H6:V6:" "EH:V:S1$`HHT(BG)VVT(BG)680V6V5:V5V4:V4V3:V3V2:V2V&H6H5:H5H4:H4H3:H3H2:H2H0 READ BUTTONS & PADDLES:X(16384):16368,0:X155ė:80DX128630NX199īVT(J):HT(J):(AL$,J,1);::JFDF3Ģ24:BG::(AL$,BG,1);:^ STARTING POSITIONvV22:H((1)341)V2V:V3V:V4V:V5V:V6VH2H1:H3H2:H4H3:H5H4:H6H5 PRINT CREATURE RE-ENTRY180H2:V2:S2$H3:V3:S280" CATCH VERTICAL-,HHT(BG)ī630K6255:ST1:VT(BG)VST1{@ZVSTVT(BG)1STST:H:Z:(62);::680J NEXT LETTER RE-ENTRYT:35,24:255:Y0^DIFFICULTY OUTPUThDF4āJ126:390rJBG26|DF1JBGĹ50,127"BG):" ":HT(BG):(AL$,BG,1);::VL1:HT(BG):" ";::L MOVING LEFT 130:KHT(BG)1BG1:180:K:(AL$,BG,1);::"<";::: CATCH HORIZONTAL VVT(BG)ī630 255:ST1:HT(BG)HST1ZHSTHT(BG)1STST:V:Z:(94);::618)1:J BG1:340, 'TYPE' SOUNDSY Z1(1)41:ZZ(16336)(16336)::l MOVING RIGHT 120::VT(BG):KHT(BG)BG1:K:" ";(AL$,BG,1);:180:::HT(BG)BG: MOVING DOWN: 165::KVT(BG)VL:6,10K20:7,50:SOUND:K:HT((DF$):DF1DF580% ZDF5ė:: d RANDOM COLUMNS] nNU$"":I1149:NU$NU$(I): xJ38131:RN2((1)J)1:HT(39J)((NU$,RN,2))10:RN1NU$(NU$,RN2,J2):150 NU$(NU$,RN1)(NU$,RN2,J2) RANDOM ROWS VT(39J)((1)KE SOUNDS) 2Z014:DA:SOUNDZ,DA:b <166,7,164,6,173,48,192,136,208,253,202,208,245,96,0~ F DIFFICULTY LEVEL MENU P255:1:1:"INDICATE DIFFICULTY LEVEL";65);"#1=EASY"33);"#2";38);"#3";38);"#4=HARD";73);"#5=QUIT << >>":8:24:DF$:DFALPHABET":8:2:"WRITTEN BY JOHN E. VOJTISEK PH.D.":11:"COPYRIGHT 1984 MINDCRAFT PUBL. CORP.":22:" ":16384,128:16368,0 VT(26),HT(26): S1$"*":S2$":":S3$".":AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":SOUND768 ( PO" *************************C * TADPOLE *d * BY JOHN E. VOJTISEK * * COPYRIGHT (C) 1984 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ************************* ::5:12:"TADPOLE 8,84,108,9,76,75,1,83,43,0,90,43,1,109,18,1,116,18,1,139,9,2,146,9:CLOCK#,X,Y t12,24,48,144,720:TIMES/LEVEL 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96:TONE ROUTINE 153,80,153,30,153,30,102,175:MUSIC::CLOCK CNTR,RAD AND LEN OF HANDS1RX4:WX4ERXRX1:WXWX1N640T "KEYWORD",":"," AFTER "," PAST "," QUARTER "," BEFORE "," TILL "," UNTIL "," HALF "," O'CLOCK"Q1,173,18,2,199,43,3,209,76,4,197,108,5,173,132,6,141,141,7,110,132,4)?~I09:KW$(I)::J1:I19:KL$(I)(KW$(I),J,1):J2:pI014:N%(I),XN%(I),YN%(I):N%(I)N%(I)1:I15:X%(I):J770:IJJ20:T:I,T:I03:T%(I),D%(I):PI355113:DR2PI360#CX144:CY79:CR75:BR.90CR:LR.67BR260: HORIZ SHOT.XX208ī300: VERT SHOTJb MOVE & KEEP ON SCREENRlYXqvY136HH1:H1H1:460Y149HH1:H40H40:460Y193Y139VV1:V1V1:460Y218Y138VV1:V22V22:460460BZ110:6,(1)501:7,255:SOUND:) COORDINATES MOVESMHT(BG)BGVL22:220:240:730aHT(BG)BGİ200VL21:220:23:HT(BG):(AL$,BG,1);Z125:6,200:7,5:SOUND:255:BG1:868:35,22:BG26BGBG1:340 GRANDE FINALE:35,24:23:LL,20)100200(K85)"HSS:Z-HERASE?HR(20)0İ270rHL711:AN(L,20)0((ULL)(A4)0)ĂL:540HULLA4İ250:UL0HEE(L)(19E(L))(A5)(L4)(L1)01:SHAN(L,E):SH0ĂE:L:540PIX266E14:SHHS(SH100):HSĕ1X,AY(L0AN(LL,20)0ĂZBGTESLE:AN(LL,T)0AN(LL1,T)(LL2)0ĂTpGS(LE)ES1:AN(LL,S)0AN(LL1,S)0ĂSGSS(LL2)LE(LL2):STĂZHSSTS:((AN(LL,SS)100)(K85))1ĕ1AX(SSES)14,AY(LL):AN(LL,SS)AN(LL,SS)100200(K85):AN(LL,20)AN(ECES1)(L4)AN(L2(L3),EC1)(L3)RX7(A5),Y168(A5)8(A2):R(EC1)0Ĕ23RX5(A5),Y16(A2)F|R(EC)RG1000TT100RT:SU0:FDIV. LINEGUL0:LLL(K68):T7LL11:ULULAN(T,20):T:T14(LL2)19(LL2):ULULAN(3,T):T:ULTT0:RX266(ECSR)14:RG(R(EC)1000)(RG0)RG:YRG100:TR(EC)RG1000RT:A1A4A5R0T0SU0380Eh3SU:80RX7(A5),Y168(A5)8(A2):23RX145(A5),Y16(A2):TT1:R(EC1)0SUT200Ĕ66RX6(A5),Y16(A2):TT2nFrSU0Ē3:TN(R(EC):R(EC)0:RG0:R(20)0ECES6DEC:SR0:R0:DD"T/O LINED,TE(2)2E(2)2BD:1266T14,AY(2)4::5266(T1)14,AY(2)4:D6INVERSED@YAY(0)AY(0)15:0,Y62,Y:YDJ3:Y15224(A4)16724(A4):0,Y76,Y:Y:DTSUB. R/GmE^T OF "(W1)".":170:X(S1)7:YY16:190:@CMULT. LINECTTULL(UL0):TAX(TT)AX14:1T,AY(TT):T:ULL(UL0):R(20)0SR0:R0:RG0:CR/G ERASE#DRG0:EC19ES1:RTR(EC)(R(EC)100)100:RTSU0:350:RT6048RRX,Y:R(20)R(20)$DBBXX:T1(S$):A$(S$,T,1):(A$)32ĕ(A$)2648ANBX,YYBBXBX77AN::iBDRAW SCOREBS$N$", THIS IS TRY "(TRY)" ON PROBLEM "(W)".":170:X(S1)7:YAY(0)8(A4):190:W1ı0CS$"SO FAR YOU HAVE "(NR(1)NR(2))" RIGHT OU:R(20),AN(7,20),NR(2),E(7),TN(8),N$(11):2250IA:::255:32,9:7A32,0:(232)(233)25624576(24576)82ĺ(4);"BLOAD MM.SHAPES,A$6000":232,0:233,96AL17:E020:AN(L,E)0:E:L:2230:1490ATABAS21((S$)2):BDRAW S"@ *************************C@ * MATH.MARATHON *d@ * BY JAMES PODRAZA *@( * COPYRIGHT (C) 1984 *@2 * MINDCRAFT PUBL. CORP. *@< * LINCOLN, MA. 01773 *@F *************************1Ax26000:0:1:P16368868175> I23101:I:25I::AL$;:I1:1:868I:200k I1421:10:I:AL$;" ";:*I2611:2003(26I):10:1:(AL$,I);" ";::1:" ";:4I120:10:I:" ";:41I:" ";:>X(16384):16368,0:X155ė:80H100):AN(L,20)AN(L,20)100:AN(L,E)AN(L,E)100:AN(L,20)0R(20)0E0:E:L:540ISHSHSHHS100:SHĕSHX,AY(L):AN(L,20)AN(L,20)SH:AN(L,E)0:AN(L,20)0R(20)0E0:E:L:540IEITSİ300I&I0ANS. CHECK?J:220:LLL:L1:AN0:TRYTRY1:A4āT711:LT:TT(T1)(AN(L,20)0):T:AN(L,20)0620JDT19ES1:ET:TT(TES)(AN(L,E)0):T:AN$"":TESE:SAN(L,T):S70S79TE:T:620JNAN$(S70)AN$:T:A5R$"Y"āS0ES4:ES:SSES(AN(1,E)0):S:SES3620^KXA5R$"Y"R XRIGHT[XK21C1:ECES(TD1)(A5)(R0)((TS2)(RG0))EE(RG0):RERE1:ZXCA5L1R$"Y"EES7EE1:EES1EE3XCĂZXUYK85L1(TS2)RG0Ĵ(R(20)0)270:LL1:TE(L)2(TS2):EE(ET)T(ET):((A5)(TS2)(L:220:470:TRY2:870 WC/R6WK13Z2:Z:570@WLEFTWK8C1:T(R0)(RG0)(A4):A5RG0R1L3AN(L2(L3),EC2)0ĂZWCECE(L(T0)(T0))(BD2)(A5)(L1(TS2))((RG0)(R0)(TS2))EE(RG0):RERE1:EES3EE3XCĂZ2)))(EE(L))XVLCTTTT(SH0)((RG0)(EES)(EE(L)2)(EES7)(RT0)(RG0))VVCEETT(RG0):RERETT:RR(R(20)0):SRSR(R(20)0):RGRG(RE0)(((A5)R)(A2)):ZV`?VjK63ĉ::2110:16299,0:16304,0:ZVtESCW~K27Z2:ZRX,Y:R(20)R(20)R(EC):R(EC)0:RGHRU.CSHĕSHX,Y:TTSH(RG0):AN(L,E)AN(L,E)TT:AN(L,20)AN(L,20)TT:RGRT(SH6048R):R(EC)RG1000RT:SU1:350:R(20)R(20)R(EC)U8MOVEVBCTT(SH0)((EE(L)(BD2)(TS2))(EES)(EES7)(A5)(L1(TSnTP,0:CR0:C0:KK128:K32K47K58C1:SH((K22)48R(RG0))(K32):HSAN(L,E)(AN(L,E)100)100TCHSRG0ĕHSX,Y:AN(L,20)AN(L,20)HS:AN(L,E)AN(L,E)HS&U$CRTR(EC)(R(EC)100)100:(RT)(RG(SH0HS0))SU0:HRRG:350:RT6048RG0):A2A5R1RERE((ERE)E(L))(RG0)tSECERESR(RE0):X266(ERE)14:YAY(L)(RG0)(RG100)(RG0)SCURSORSRC12:CR(CR0):1R(RG0)X,Y:C113:K(1):K(16384):CC15(K128):RC2(K128):C:RC:CRĕ1R(RG0)X,YTDRAWTNBN):CA$(S)VRLXAX14((CA$)1):A5R$"Y"CA$CA$" "(47)" "(TNBNS)R220:X7:Y15224(A4):S$"PRESS ?":190:YY8:S$"FOR HELP":190:L1:CR0:R0:TS0:RG0:RE0:SR0:EES:UL0:LL0:SH0:SU0RBRANCH.SP,0:Z12:Z1:RERE(R0AX14TT,BY:TTTT1:T:A5R$"Y"ĕ69AX28,AY(1)JQTRY1ĂW:2050VQANSWERsQCA$"":A1CA$(TNBN)QA2CA$(TNBN)QA4TT0:T1BD:STN(((BN),BDT1,1))TT:CA$(S(S10)10)CA$:TT(S10):T:TTCA$(TT)CA$RA5S("TN(TNBN)BN:BNTN((TN))TD8106P\DISPLAYPfTT0:T0TD1:XAX14TT:YBY24(A5):TN(T)(((TN),TDT,1))70:TN(T)X,TY:TTTT1:1X,Y:TPpT11(A5):XX14:1X,Y:T:A1(A4)X,BY:TT(TT1)(A5)6QzT0BD1:(((BN),BDT,1))71)2)1OK27İ330:2050+O PROBLEMO*AX(1)SX(A2)14:E(1)LE(A2):RYYY8(A2):TN((1)10TD1):((TN))TD810O4BN((1)10BD)(A5):((BN))BD820O>BNTNTBN:BNTN:TNT:T0OHA5R$"Y"ĭTNBN(TNBN)810)PRA5R$"Y)7:YY16:190:330NTT1X0:Y15224(A4):S$"PRESS A KEY":190:YY8:S$"TO CONTINUE":190:P,0:A$::K(A$):TT2:740N470:((K27)1)970,870NLOOP O ES(266AX)14:K0:NR(1)0:NR(2)0:330:W110:T08:TN(T)0:T:TRY1:AA3A(((A4):S$"PRESS A KEY":190:YY8:S$"TO CONTINUE":190:P,0:A$::K(A$):TT2:690MNR(TRY1)NR(TRY1)1:470:WW(K27):870MAGAINMTT0NS$"NOPE, THAT'S NOT RIGHT, "N$".":170:X(S1)7:YAY(0)8(A4):190:S$"TRY AGAIN!":170:X(S18:S$"TO CONTINUE":190fLXLX:YAY(0):S$CA$:AN1:190:AN0:TT1ĹP,0:A$::K(A$):TTTT1:650L0:320:470:WW(K27):870LRIGHTLTT0LS$"GOOD WORK, "N$"!!! THAT'S RIGHT!!!":170:X(S1)7:YAY(0):190:330VMTT1X0:Y15224M0:TT0:TEES4:SAN(1,T):RMRM(S70)(S0)10TT:TTTT1:T:AN$AN$" "(47)" "(RM)uKbCA$AN$LLL:680KlTT0:LLL:TRY2730Kv3:320LX0:YAY(0):S$"THE RIGHT":190:YY8:S$"ANSWER IS":190:Y15224(A4):S$"PRESS A KEY":190:YY2(L2)))400:Z!YK85ĂZ(Y DWYK68C1:RG0(A4L6TS2L3)EESĂZYCĴ((RG0)R(20)0)270:LL(RG0):RG0:((A5)(TS2)(L2(L2)))400:ZY(CĂZY2LY<K76A4L7(UL0)İ250:LL(UL0):ZYFTZPK84A5C1:270:TS2LLL:EEE:TS1:ZZZCLLL:L2:EEE:EE(2)2:TT23:T19141:SHAN(TT,T):SHĕSH266T14,AY(TT):AN(TT,20)AN(TT,20)SH:AN(TT,T)0ZdCĂT:TT:(TS0)300:TS2:ZZnR2[xK82RGA2ECE(1)A5(L1(TS2)TS2L2(L2)(AN(L179,0279,590,590,1278,1278,581,581,1hvA4S$"PRESS R TO REGROUP.":190:YY8:S$"PRESS D TO MOVE DOWN":190:YY8:S$"PRESS "(107)" TO MOVE RIGHT.":190niA4YY8:S$"PRESS "(108)" TO MOVE LD:BDTMgD::"IS THIS ALL CORRECT? (Y/N) > ";:P,0:A$:A$:A$"Y"1660gN:10:P,0:3)"WANT TO SEE THE KEY LIST? (Y/N) > ";:A$:A$:A$"Y"ė:2110gX:AAAA4AA4Ĺ16299,0:16304,0:AAA:2000gbKEY-HGR,hlAAA::3:A4X14:Y6:0,02SO 1 DIGIT.":1860CfA5ĺ"BOTTOM NUMBER 1 TO "BM" DIGITS > ";pfA5ĺ"DIVIDEND "TD" TO "BM" DIGITS > ";f&P,0:A$:BD(16384)48:BDBMBD(A5)TD(A5)1830f0A$g:R$"":A5ĺ::"DO YOU WANT REMAINDERS? (Y/N) > ";:P,0:R$:R$:TTD:TDBGITS":170:S:S$:::A5ĺ"TOP NUMBER 1 TO 8 DIGITS > ";beA5ĺ"DIVISOR 1 TO 4 DIGITS > ";eP,0:A$:TD(16384)48:TD1TD84(A5)1790fBMTD(A4)TD(A4)(TD7)6(A4)(TD6)(A5)(TD2):A$:::TD1BDTD:A5ĺ"BOTTOM NUMBER IS AL16384)48:A1A51690)dA$::7:3dSIZELdA1S$" ADDITION "hdA2S$" SUBTRACTION "dA3S$" ADDITION AND SUBTRACTION "dA4S$" MULTIPLICATION "dA5S$" LONG DIVISION " ";cT07:AX(T)0:AY(T)0:E(T)0::RY0:TY0:BY0:AX0:TN$"":BN$"":TD0:BD0:TN0:BN0:BM0:AN0dA$:A(T19):N$N$N$(A):A:AA6:S0N$""bh:10:14:"YOUR NAME IS "::S$N$:170:S:S$::9)"IS THAT RIGHT? (Y/N) > ";:A$:A$:A$"Y"1590brMENUc|P,0::S$"HELLO, "N$". WELCOME TO":170:S)S$::::13::" MATH MARATHON ":::::"WE HAVE >."a@N$"":P,0:10:5)"WHAT'S YOUR NAME? ..........":10:26:T010:A$:A(16384):AAA32A94:AAT10ĺA$;:N$(T1)A$aJA8T0ĺA$;:TT1aTA21A1:N$(T1)""A21:N$(T1);&b^ST:TTAA(A21)(A31)(T10)20(A13):T:A1S(HAVE A MORE DETAILED LIST THAT YOU CAN SEE BEFORE STARTING OR WHILE YOU'RE"`""WORKING. TO SEE IT WHILE YOU'RE WORKING JUST PRESS THE KEY."`,34,0:2230a6T110:N$(T)"":T:::13:" MATH MARATHON "::23:4)"WHEN YOU'RE DONE, PRESS KEY."M`:" A SHORT LIST OF THE KEY FUNCTIONS WILL BE DISPLAYED WITH THE PROBLEMS. I ALSO T TO BE."a^:" I'LL GIVE YOU TEN PROBLEMS. YOU'LL HAVE TWO CHANCES TO ANSWER EACH ONE."C_:" I'LL KEEP SCORE AND SHOW IT TO YOU WHILE YOU'RE WORKING ON PROBLEMS. WHEN YOU'RE DONE YOU'LL SEE THE FINAL SCORE. THEN, IF YOU WANT, YOU CAN TRY TA$"Y"1590]:14::" INSTRUCTIONS "::34,2::" 'MATH MARATHON' CAN HELP YOU WITH YOUR ADDING, SUBTRACTING, MULTIPLYING AND DIVIDING SKILLS." ^:" I'LL ASK YOU TO CHOOSE THE KIND OF PROBLEM YOU WANT TO WORK ON AND HOW BIG YOU WANT IT)100):SH\A4RE(TES)(R0):RERE(ERELE)(ELE)(ERELE)\A5RE(1)(TD1TES)(R0)(TS2):RERE(ERE20)(E19)(ERE19)\A2SR1:RE1\Z\INSTRUCTIONS]:10:P,0:3)"DO YOU WANT INSTRUCTIONS? (Y/N) > ";:A$:A$:,E)AN(L1,E1)200AN(L2(L1),E1)0L3))ĂZ{[RGRY:R0:A5L1L2(L2)TS2RGAY(L)52:SR.5:RE.5:R1:Z[A4ULLULāS1L:TS:SS6(AN(T,E)0):S:RGAY(T)92(TL):R1:RE.25:SR.25:Z \A3āSESE:TS:SS20(AN(L,S)0AN(L,EFT.":190:YY8:S$"PRESS SPACE TO ERASE.":190:YY8:S$"PRESS RETURN WHEN YOU'RE DONE.":190iA4X2:Y2:0,0136,0136,750,750,1135,1135,741,741,1:S$" R = REGROUP":190:YY8:S$" "(107)" = MOVE RIGHT":190qjA4YY8:S$" "(108)" = MOVE LEFT":190:YY8:S$" U = MOVE UP":190:YY8:S$" D = MOVE DOWN":190jA4YY8:S$" L = DRAW OR":190:YY8:S$" ERASE LINE":190:YY8:S$"SPACE = ERASE":190:YY8:S$"RETURN = FINISH":190kR'-3AR`nry"(19BI\iu!.6@IU`it|7Sw ------5???????*---II575----5????7I)>.>J----5????? ....>>>>.II <<<<,,,,,S ENDED."::10:8::" SHAPE TABLE NOT ON DISK "::2:" INSERT CORRECT DISK AND PRESS A KEY";::A$:::140vER8ė:10:12::" DRIVE DOOR OPEN! "::6:" PLEASE CLOSE AND PRESS A KEY!";::A$:::140 w::"ERROR NUMBER "ER" IN LINE "LN"."::"PROGRAM I"? -SHOWS YOU THIS LIST.":34,0u22:"** COPYRIGHT 1984 MINDCRAFT PUBL. CORP. **":23:9)"PRESS A KEY TO CONTINUE":P,0:T12:TT(1):T1((16384)128):T:P,0::uERRuP,0:LN(218)(219)256:ER(222)uER254ER255ĦfvER6HE ANSWER."t:"RETURN-USE THIS ONLY WHEN YOU ARE DONE. I WILL THEN SEE IF YOUR AN- SWER IS CORRECT."t:"ESC -THIS STOPS THE PROBLEMS. USE IT IF YOU WANT TO QUIT OR CHANGE THE KIND OF PROBLEMS."%u:T IS DRAWN AT THE LEVEL OF THE CURSOR. IT CAN BE ERASED FROM ANY SPOT." tA5ĺ:"T -SETS UP AND RETURNS YOU FROM A MULTIPLICATION PROBLEM UNDER THE DIVISOR. IT IS USED TO TEST DIGITS FOR TSING ANYTHING."rp2230:rz"SPACE -ERASES THE NUMBER OVER THE CUR- SOR OR ANY REGROUPED NUMBER ABOVE IT. THE CURSOR MOVES TO THE RIGHT."asA4ĺ:"L -DRAWS OR ERASES THE LINE UNDER THE PROBLEM. ISED PROBLEM UNDERLINES";(qRA3ĺ"."q\:"D -MOVES THE CURSOR DOWN FROM RE- GROUPING";:A3ĺ" OR TO THE NEXT LINE";:A5ĺ" DRAWING THE UNDERLINES";rf"."::"ARROWS-MOVE THE CURSOR RIGHT OR LEFT WITHOUT ERA p*1660p4KEY-TEXTp>:"KEY";:17:"FUNCTION"::34,2::"R -MOVES THE CURSOR TO THE RIGHT PLACE FOR REGROUPING."qHA3ĺ:"U -MOVES THE CURSOR UP FROM ONE AN- SWER LINE TO ANOTHER";:A5ĺ" ERASING UNU(2);:10:"RIGHT THE SECOND TRY.":15:"A TOTAL OF "NR(1)NR(2)" RIGHT OUT OF "W1(K27)o18:"DO YOU WANT TO DO MORE? (Y/N) > ";:P,0:A$:A$:A$"Y"ė:p 20:"THE SAME KIND OF PROBLEMS? (Y/N) > ";:P,0:A$:A$::A$"Y"Ĺ16299,0:16304,0:7804:AY(2)72:AY(3)96:AY(4)112:AY(5)136:AY(6)152:AY(7)176:T17:AX(T)84:E(T)(266AX(T))14:}nSXAX(1):LEE(1):780nSCOREn::5::S$" TOTALS ":170:S:S$::8:7((NR(1))):NR(1);:10:"RIGHT THE FIRST TRY."[o 10:7((NR(2))):NR4:AY(1)120:AX(1)AX14(TD):AY(0)144:E(1)(266AX(1))14mA4AX21014(TD2):YY100:TY16:BY32:T17:AY(T)40T16:AX(T)AX14(TDT1):E(T)(266AX(T))14::AY(0)176:AX(7)AX(6):E(7)E(6)cnA5AX7014TD:YY140:TY56:BY56:AY(0)0:AY(1)2E":190:YY14:S$"D MOVE DOWN":190:YY8:S$" DRAW LINE":190:YY14:S$(107)" MOVE RIGHT":190lA5YY14:S$(108)" MOVE LEFT":190:YY14:S$"SPACE - ERASE":190:YY14:S$"RETURN - DONE":190.>.>.>.>.>-?-?-I66 6 $ 6w>n<(($I> .6 MM  n7 mI6;I66 66 ?--? I*-3I --IIJ-6?$$Ra66-R ---R -? 6- $$$I??6-?R- ?'d- --8ZA(X11,Y1):J4"Z2860/Z4730:Z0ıA(X1,Y1)3:XX1:YY1:J470,480,490,500:700:1X9,Y9:X1X:Y1Y:A(X1,Y1)1:700:1X9,Y9:YY1:XX1:YY1:XX1: MOVE NATIVESZ21LT:Z11LM:X4X(Z1):Y4Y(Z768,255:769,3:770:290+J MOVE SAMMYDTX(16384):X128ıT^X155380kh(16384)128360tr340|16368,0:XX128:X65X21X8X27X90ıX65ZA(X1,Y11):J1X21ZA(X11,Y1):J2X90ZA(X1,Y11):J3X1:18::"PENGUIN"::23:1:"YOUR SCORE: ";SC;:18:"LEVEL ";LV;:28:"TIME: ";TI:HPĢ23:1:"HIGH" MAIN PROGRAM LOOP"340:520:DP730:LH110,23:13:SC;:34:TI;" ":TITI1:SCHSHSSCĢ23:1:"HIGH";:HSSC:HP16TI1740@.I, E66--.-%I6?lII ??n:7.I<($76-eg!?66- @?66.- $$?676--(-5366Eg-5)-66-%<6?6n $< $)66-I166?666M 666--766M!$l< 66.I$g$<66- $$?76E@+ ?6vm $?76M, ?- g?--66.66v- $$,66 $$6n.M!g$$-\jr}'2?KWckt !27- $ %? 66-*(?6--*(- $I> 3--.r- $?D-6v- ?Dc---62v- ?2Re < ?63I--??q*(nn-`$.........)---%-J5(----I 5777777---->????RI--???.lI 57??.-5577'7'7'''-R)>.>.>.%5%5%5%$$,66666>$$R)---->????.>.>.%5%5%55577'7'7'''-RI--m'???7757---5???75755%5%5%%$6 ,.,.,.,.,6777777757RI--???775w--->??775w5%5%5%%%'$%'%RI--???775w5%5%5%%$56>.>.7'7'7'''....,-?76R6vm $?! 66n .>666%$$%--e$5??55555RI--???7757575755%5%5%%%'%'%'%?RI 5?-5??N)>.>.>*--5???RI--???.l6R -?v- ,R- $?-I2I6;I)-?? Q  -߻Mm6>'6--16M!$-R,-?76-e$J-36-  66.- $? --?'1.-- --?'16J-*5?$, 66n $$:'J-6? --6$ 66n g  66.-- 66n $$I66>666R6v- $?!1):D(Z1)1Ă::K(LT2(1).5)TMZ82(1).2J1((1)4)1:580`Y4Y1J11:580u&X4X1J12:5800Y4Y1J13:580:X4X1J14DJ1590,600,610,620NJ11ZA(X4,Y41):630XJ12ZA(X41,Y4):630bJ13ZA(X4,Y41):630lJ14ZA(X41,Y4)*vZ3670GZ2J1((1)4)1:580TZ0530dZ1DP1:A(X4,Y4)3:0:710:3X9,Y9:3:XX4:YY4:J1470,480,490,500:X4X:Y4Y:A(X4,Y4)4:X(Z1)X4:Y(Z1)Y4:710:4X9,Y9::: POSITION SHAPEX9(X10S":AP$(1,3)"SE":AP$(1,4)"E"KJAP$(2,1)"N":AP$(2,3)"E":AP$(2,4)"NE"wJAP$(3,1)"NW":AP$(3,2)"W":AP$(3,4)"N"JAP$(4,1)"W":AP$(4,2)"SW":AP$(4,3)"S"JCR$AP$(N,P)J$J.6J8140,65140,125JB110,95170,95JL115,70165,120KVI$I --- ILLEGAL RESPONSE---*I]I21:"THE ANSWER MUST BE ONE OF THE FOLLOWING"I10::"N S E W NE SE NW SW":I4:"PRESS THE SPACE BAR TO CONTINUE":20IX$:X$(32)ī980I830I ---DETERMINE CORRECT RESPONSEJAP$(1,2)" PRINT QUESTIONHHAHR21:8:"WHAT IS THE DIRECTION FROM"[H\10:A$(N)" TO "A$(P)hHf18:AN$zHpAN$""ī1330HzAN$(AN$,2)H(AN$,1)" "AN$(AN$,1)IAN$"N"AN$"S"AN$"E"AN$"W"AN$"NE"AN$"SE"AN$"NW"AN$"SW"ī930 ANSWER IS ";CR$:BG4:"PRESS THE SPACE BAR TO CONTINUE":20ZGX$:X$(32)ī750cG310}G GENERATE A QUESTIONG A$(1)"WHITE(1)":A$(2)"PINK(2)":A$(3)"BLUE(3)":A$(4)"ORANGE(4)"GN((1)41)G P((2)41)G*NPī800G4H>070: DRAW COMPASS/Fl830: REPEAT QUESTIONAFvAN$""ī1330cF1000: OBTAIN CORRECT ANSWERvFAN$CR$ī700FR2R21F:23:19:"RIGHT!"FX1500:XF310F 2 INCORRECT RESPONSESFWW1F:23:6G:"SORRY ! THE CORRECT*E770: GET QUESTION5E830: PRINT QUESTIONWE1000: OBTAIN CORRECT ANSWERjEAN$CR$ī580vER1R11E&:23:14::"*** RIGHT ***"E0X11500::E:500ED---SECOND ATTEMPTEN:23:13EX"SORRY! TRY AGAIN":X1500:Fb1 D@:3 DJX5060:Y4050)DTX,Y3D^Y:X:Dh2RDrX5060:Y140150[D|X,YeDY:XlD5DX220230:Y4050DX,YDY:XD6DX220230:Y140150DX,YDY:XD1240:--DRAW NUMERALSE **** MAIN PROGRAM ***NCORRECT YOU":C"WILL GET A SECOND CHANCE WITH HELP."rC::::"PRESS TO END AND GET YOUR SCORE"C:::6:"PRESS THE SPACE BAR TO BEGIN":20C"X$:X$(32)ī290C,R10:R20:W0:TL0:RI0: SET COUNTERS TO ZEROD6 DRAW BLOCKSNSTRUCTIONS B:5:5AB"YOU WILL BE ASKED TO GIVE THE "mB"DIRECTION FROM ONE SQUARE TO ANOTHER"|B"SQUARE."B:5:"YOUR ANSWER MUST BE ONE OF"B"THE FOLLOWING :"B5::"N S E W NE SE NW SW":C:5:"IF YOUR ANSWER IS IRAFT PUBL. CORP.".AZ15:5:"COMPASS QUIZ"@Ad::20:"BY"bAn::13:"TONY DEKEUKELAERE "Ax17:6:"PUSH DOWN THE CAPS LOCK KEY."A INSTRUCTIONS?A::5:"DO YOU WANT INSTRUCTIONS (Y/N) ?";RE$ARE$(RE$,1)ARE$"N"ī300B I @ ************************?@ * COMPASS.QUIZ *^@ * BY A.M. DEKEUKELAERE *~@( * COPYRIGHT (C) 1984 * @2 * MINDCRAFT PUBL. CORP.*@< * CONCORD, MA 01742 *@F ************************ AP:4:13:"COPYRIGHT 1984 MINDC)55:Y9(Y1)10:5X9(X110)55:Y9(Y11)10:VX9(X410)55:Y9(Y41)10:i DEAD PENGUIN710:4X9,Y9:700:4X9,Y91040:PGPG1(PG0)1770,110 GAME OVERHSSCHSSC 22:958:22:1:"YOUR SCORE: ";SC;:20:"165,70115,1201K`136,55136,45144,55144,45fKj144,135136,135136,140144,140144,145136,145Kt188,90180,90180,100188,100:180,95184,95K~90,9090,10095,95100,100100,90K170,70170,60178,70178,60L190,60182,60182,70190,70:182,65186,65EL178,120170,120170,125178,125178,130170,130{L190,120182,120182,130190,130:182,125186,125L88,7088,6096,7096,60L100,60100,70105,65110,70110,60L96,12088,12088,12596,12596,13088,130M100,120100,1262,5761,5350,4740,4435,4515,492,53`F45,9948,10047,10239,10332,10418,1072,112pF0:115,60FX327017:18X,15:F0,0279,0279,1590,1590,01,1278,1278,1581,1581,1F&F0F:----------------------GD TITLE ----------------------0E DRAW SCREENLE----------------------REE232,0:233,96:230,32:16368,0:62450:3:1:0EX16:215X5,65((7X)2)6:XEX16:313X5,96((7X)2)6:XE14,9112,8614,7919,72,F49,6557,6SCSC10:SC0SC0?Dh780:8,255:9,25:768:Q$"":T:240TDr8,150:9,1:768D|ZP(FS)7:0:20210Z,87:20211Z,87:Y7989:213Z,Y257Z,Y:Y:3DSCSC100:FLFL1:780:FL01080D16368,0:Q$"":NN1:970:P(N)1:FSFS1:280DEP(X)1CXHCT1100(L1.5):K(16384):K128ĂT:BPBP50:240iC"16368,0:KK128:K271220C,K8(Q$)1Q$(Q$,(Q$)1)C6K48K58ĂT:240C@Q$Q$(K):21:868:34P(FS):Q$CJ(Q$)((A(FS)))ĂT:240CT(Q$)A(FS)370D^297,0:16304,0:16301,0:BP2500:FL10:FS1YB780:X110:P(X)0:X:N1:970:P(1)1_B{B----------------------B MAIN LOOPB----------------------BBP(FS)231030B25576:21:868:34P(FS):Q$CX110:P(X)0P(X) SET UP VARIABLES2An----------------------8AxIA1330:1300oA(4);"BLOAD SHARK.SHAPES":25856AX768786:Y:X,Y:X: 173,48,192,136,208,4,198,9,240,8,202,208,246,166,8,76,0,3,96:SH$(20)A610:460:690:800:XX1:1260:XX0.B16 @ *************************?@* SHARK! *^@* BY STEVEN ROTH *}@(* COPYRIGHT (C) 1987 *@2* MINDCRAFT PUBL. CORP. *@<* CONCORD, MA 01742 *@F*************************@P@Z ----------------------Ad3:X50101:768,X:769,2:770::X10501:768,X:769,2:770:::790`R PUSH ICE BLOCKn\XX1:YY1fJ1XX1:YY11pJ2XX11:YY1zJ3XX1:YY11J4XX11:YY18X2X:Y2Y:J470,480,490,500:690:768,255:769,2:770:2XHIGH SCORE: ";HS;c24:1:"WOULD YOU LIKE TO PLAY AGAIN? (Y/N) ";:YN$:YN$"Y"YN$"N"790 YN$"Y"SC0:LV1:PG3:HP0:110*::4 WINNER ROUTINE>::5:13::"CONGRATULATIONS"::7:4:"YOU HAVE JUST SAVED YOUR ISLAND!"KHZ1N THE FIRST AND SECOND TRY"HO"---------------------------":27 -'SNO|O5:RI" OUT OF "TL" FOR "(RI100TL)" %"O::O5:"PRESS THE SPACE BAR TO CONTINUE."O:8:"PRESS ANY KEY TO STOP."O:15:C$OC$(32)ė:300O:R1R2NF::3:15)NP"YOUR SCORE"GNZ15:"==========":10 ='SQNd::NnTL0Ė(8):"NO QUESTIONS WERE ATTEMPTED.":1490Nx"ON THE FIRST TRY"N"----------------":16 -'SNN5:R1" OUT OF "TL" FOR "(R1100TL)" %"N:O"O30105,125110,130110,120#M74M30,4030,50;M2qM30,14230,14040,14040,14630,14630,15040,150xM6M 240,140250,140250,150240,150:244,145250,145M5M250,48240,48248,40246,50M(M2 SCORE SUMMARYN<TLR1R2W:RIPAGE #GN----------------------)GXZGb::48,32:0,391:0,3947:0,470:0,4739sGl3:17::"SHARK!":Gv5:5:"TYPE THE ANSWER TO THE PROBLEM":5:"IN THE FISH NEXT TO THE SHARK."G:11:16:"SCORING":H13:5:"CORRECT ANSWER";:25:"100 POINTS"?H:5:"INCORRECT ANSWER";:25:"-10 POINTS"H::8:"BONUS POINTS ARE AWARDED":9:"FOR ANSWERING QUICKLY."HH22:5:"START ON WHICH LEVEL? (1-25): ";LV$::22:40:" ";:HL(LV$):L1L1HL25L25HHI-????d-()Ӓ:?v??99 $$dd)5қ;??9 d -9999888-------------------66666???????????????????$$$$<1 5)`H)? (hNO,(,`HH(hLh(hN OH?%Oh,(,`H(hL, (6?'? -77--7?''---577775?)-7w57?''%'-)-7577?' -'----(-()(b)-;.>. ->w-m!$$566.-$$$566N$$$566.-m%'m9?'%'--7-I->7->->?,)! $ d -()-)--(--(------6?99999?8?8??IIQIIII--)))-(-(-66v666,DNWdl{.@OO --M-m?3M)M??9-5?7-7>->?.-J5*-->??N5?--5???*>., 5.$!7 5--><)-;.M5;.M5;-- 5?575--)-;N 5;-7?'?)-;N ?>>.----57-7?'?I5?-57--7---7--7?'?--7--7571987 MINDCRAFT PUBL. CORP.":22:8:"PRESS RETURN TO CONTINUE";:A$::868:8:"PRESS RETURN TO CONTINUE";:XX1ĞFP40:" ";::22:32^PA$:A$(13)1280dP P10:6::"SHAPE TABLE CANNOT BE LOADED"P:5:"INSERT CORRECT DISK INTO DRIVE":P(1260:IQ2:12:10:"SHARK BY STEVEN ROTH"::3:"COPYRIGHT 5OA$:A$"Y"A$(121)A$"N"A$(110)1180OOA$"Y"A$(121)160YO::O22:1:958:5:"DO YOU WANT TO QUIT? (Y/N): ";OA$:A$"Y"A$(121)A$"N"A$(110)1220OA$"Y"A$(121)1210O16368,0:780:280.P22:2:`A$(BP)" BONUS POINTS AWARDED":12:20(A$)2:A$:DNj1260bNtLL1:SCSCBP:L261060N~::10:12:"CONGRATULATIONS!"N:6:"YOU HAVE COMPLETED LEVEL 25"N:P$"FINAL SCORE: "(SC):20(P$)2:P$O23:10:"PLAY AGAIN? (Y/N): ";X:20:958:1260=MQ$"":16368,0:SCSC500:SC0SC0_M$:::10:15:"GET READY!":rM.460:800:170M8Q$""::::10:11:"LEVEL ";L;" COMPLETED"MBZ12:X25753:8,X:9,3:768:XMLX75253:8,X:9,2:768:XMVZ:BP0BP0:N79*LF0:X15:S((SH$(N),X21,2)):LS8X1ĂX^LS8X4S((SH$(N),9,2)):F1mLX5F1ıLS210(X1)7,81:X:LZP(FS)7:0:20210Z,87:20211Z,87:Y7989:213Z,Y257Z,Y:Y:3MX2552005:8,X:9,X50:768:1933,80:(S$,T1,2)"0"(S2$,S,1)(S$,(Z221),2)(S$,T2,2)RKzSH$(N1)SH$(N)810iKS910,920,930,940}KA(N)N1N2:950KA(N)N1N2:950KA(N)N1N2:950KA(N)N1N2KN:K--- DRAW FISH ---L20203,87:20204,87:21207,79:21208,)1J>S3N110N1(N12)BJHS3N2100N210N2(N2100)TJRS4N1N1N2zJ\(S2N1N2)N199N299N20810JfZ1(N110):Z2(N210):S2$"4567":S$"08091011121314151617":T1((N110Z1)21):T2((N210Z2)21)9KpSH$(N)(S$,(Z121),2)----------------------/I SUBROUTINESKI----------------------QII :22:" FISH LEFT: ";FL;:17:"LEVEL: ";L;:28:"SCORE: ";SC;:I--- CREATE PROBLEMS ---I N110I*N1((1)(2L1))1:N2((1)(2L1))1J4SN4:S((1)SN)7L #67Lɍ ɀɠLL'somkig*9Jaq START OF STNGS (HIMEM) END OF STRINGS END OF ARRAYS START OF ARRAYS START OF VARS (LOMEM) END OF PROGRAM START OF PROGRAM FREE MEMORY LAST BLOAD d7d'&*`(((((((((((((((((((((,048< $(,048"&*.2,"Y"T$"N"ĺBL$;:650(T$"N"ĀY:CL1::8:4:"ONE MOMENT PLEASE ...":700:12:"LOADING THE SHAPE TABLE":1640(4)"BLOAD USA.SHAPES":232,64:233,31:0:1:216,0A%(48,2),A$(48,2),E%(48),F%(48):BL$(7):BS$(8)(95)(8)2 TO CONTINUE ";:F%(I)1#DT$:,N150nX::10::" FINAL RESULTS = "ZZ:::3:10:"YOU MISSED:":5bFF0:I148lF%(I)0640v11:" "A$(I,Q):FF1:FF0Ė11:"NONE"23:4:"WISH TO PLAY AGAIN? ";::"(Y/N)";::" ";:T$:T$6:"ONE MOMENT PLEASE...":CL1:700C&T$"A"T$"D"ĺBL$;:5400T$:T$E$Ģ23:31::"CORRECT":24:1:868:7:"PRESS RETURN";::" TO CONTINUE ";:ZZZZ100:580:23:31::"INCORRECT":V1:H1:::A$(I,Q)::24:1:868:6:"PRESS RETURN";::";:23:A$(IB,Q):22:3:A$(I,Q);:23:A$(IC,Q):V122:H13:E$"C":53021:3:A$(IA,Q);:23:A$(IB,Q):22:3:A$(IC,Q);:23:A$(I,Q):V122:H123:E$"D"23:15:"SCORE = ";::ZZ:23:3:"HERE->";::" ";:(95);:(8);%T$:(T$)27Ľ:::5:6,2:1744,3:1764,4:QR((1)41):QR490,500,510,52021:3:A$(I,Q);:23:A$(IA,Q):22:3:A$(IB,Q);:23:A$(IC,Q):V121:H13:E$"A":53021:3:A$(IA,Q);:23:A$(I,Q):22:3:A$(IB,Q);:23:A$(IC,Q):V121:H123:E$"B":530G21:3:A$(IA,Q)p 22:24::"INCORRECT":23:24:::A$(I,Q)::24:1:868:6:"PRESS RETURN";::" TO CONTINUE ";:F%(I)1z T$: 150 IA((1)481):IAI450 IB((1)481):IBIAIBI460 IC((1)481):ICIICIAICIB4708:1616,1:163$)1):BS$;:2904 ^X$(13)(AN$)0ĺBL$;:290F hX$(13)400U rBL$;:290w |X$;:AN$AN$X$:(AN$)L400 290 22:2(AN$):868 AN$A$(I,Q)Ģ22:24::"CORRECT":24:1:868:7:"PRESS RETURN";::" TO CONTINUE ";:ZZZZ100:430AN$""= 22:2:L17:FI1L:(95);::FI1L:(8);:} "X$:(X$)27Ľ:::5:6:"ONE MOMENT PLEASE...":CL1:700 ,X$"A"X$"Z"X$(32)X$"."380 6X$(8)350 @AN$""ĺBL$;:290 J(AN$)1AN$"":BS$;:290 TAN$(AN$,(AN1180 E%(I)1:0# I6Ę166 I27I43Ę48M 1A%(I,1),A%(I,2)_ (780)1450 :21::Q1ĺ" NAME THE STATE ";:24:" SCORE = ";ZZ: Q2ĺ" NAME THE CAPITAL";:24:" SCORE = ";ZZ: 24:5:"TYPE ANSWER - THEN PRESS RETURN";  16384,0F d:12:"RELOCATING THE PROGRAM":(4)"RUN LEARN.THE.USA"O n680g x(41(A$))2:A$: 23:1:868::"PRESS RETURN";::" TO CONTINUE ";:T$: TTTT1:TT15600 TT1180 1A%(I,1),A%(I,2) I((1)481):E%(I)  *************************?* LEARN.THE.USA *^* BY LARRY SAGE *}(* COPYRIGHT (C) 1987 *2* MINDCRAFT PUBL. CORP. *<* CONCORD, MA 01742 *F*************************P(104)64110 Z103,1:104,64:I148:J12:A$(I,J)::J12:A%(I,J)::>CL760:10:A$"LEARN THE U.S.A.":120:12:A$"BY LARRY SAGE":120:14:A$"(C) 1987 MINDCRAFT PUBL. CORP.":120:18:A$"BE SURE CAPS LOCK KEY IS DOWN":120 23:A$" PRESS RETURN TO CONTINUE "::120:23:32:T$::::A$" SELECT GAME TYPE ":120:3:2:"A";::". MULTIPLE CHOICE"::7:"COMPUTER LISTS FOUR ";::"STATES";::". YOU":7:"TYPE LETTER OF THE CORRECT ONE."78:2::"B";::". TYPE FULL NAME":10:7:"YOU TYPE THE CO,35140,35&"<109,35108,52140,55N"F108,53107,63116,64116,71149,71h"P116,71117,89153,89"Z117,89110,89110,93126,93126,104140,108154,108#d110,93109,12090,12097,12797,131107,137110,132115,131128,150140,155141,144160,132V!182,127180,130185,135172,133171,132160,132162,124160,120157,113172,112! 157,113157,110155,110152,92178,90!152,92150,73146,68167,68!146,68142,55142,50167,50!(142,50138,18147,18169,22160,31 "2138,18110,181097,53219,50. 197,57185,60188,73186,82y 204,56206,48204,42202,45200,36192,36190,40190,46192,54189,58 180,87174,81174,78167,69169,67169,64170,61171,56183,54185,60!183,60181,37179,34167,30159,32157,42165,49171,56138222,134213,126195,126195,123207,121P195,126190,126188,99200,98190,126182,127180,124170,124173,119171,112176,100188,99176,100180,90210,87180,90180,87186,83193,83200,75212,77 200,75197,57204,55210,57215,79227,73230,71235,68<t215,80210,87247,80243,71z~220,86211,92205,98216,95229,94240,100249,88247,80211,96228,111242,99228,111228,122209,122206,121206,116207,112200,99207,97-228,122241,143241,150237,151222,5,47221,49221,51243,48252,52252,50_B253,52251,57253,63248,65245,62247,58245,50L221,49219,50219,52221,63245,61V247,63250,69246,69245,63`248,69250,71247,72237,67225,67225,64j219,61213,69211,75213,80217,81229,10257,25261,35273,22274,19268,17265,8259,10^256,25254,27252,40260,38262,35254,27248,29250,41252,40$250,40251,45259,44261,47263,47260,38.251,45252,50260,48:256,45256,48)8248,29240,31235,41223,43225,4522 POINTING ARROW":120::A$"WILL ERASE AN ERROR":120:130}:3::A$"REMEMBER":120:::A$" LOOK FOR THE ARROW ":120Q2A$"AND THEN NAME THE CAPITAL":120130 USA.SHAPES, A$8000,L$23;::7:0,0279,0279,1590,1590,0625 STATES WITH AN ARROW INSIDE A":"A STATE. THE COMPUTER WILL LIST FOUR"::"CAPITALS. YOU WILL TYPE THE ";::"LETTER";::" OF"::"THE CAPITAL OF THE STATE INDICATED.":130:980<::3:A$" BACKSPACE ":120::A$" <-- ":120::A$"KEY WITH LEFTATES WITH AN ARROW INSIDE A":"STATE OR POINTING AT A STATE. THE COM-"::"PUTER WILL LIST FOUR STATES. YOU WILL"::"TYPE THE ";::"LETTER";::" OF THE STATE INDICATED."130:980!:6:3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE":"STATE OR POINTING AT A STATE. TYPE THE"::"NAME OF THE STATE'S CAPITAL. BE SURE TO"::"SPELL IT CORRECTLY."130:970:6:3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED ST0b\:5:3:"YOU WILL SEE A MAP OF THE CONTINENTAL"::"UNITED STATES WITH AN ARROW INSIDE A"f:"STATE OR POINTING AT A STATE. WRITE THE"::"NAME OF THIS STATE. BE SURE TO SPELL IT"::"CORRECTLY."p130:970;z:5:3:"YOU WILL SEE A MAP OFPLETE NAME":7:"OF EACH ";::"CAPITAL";::" SHOWN."q 23:6:"YOUR CHOICE (ESC TO QUIT):";:(95);:(8);*T$:T$(27)1660:T$"A"T$"D"ĺBL$;:8104T$"A"Ĺ780,1:Q1:920>T$"C"Ĺ780,1:Q2:950H780,0:T$"B"Q1:860RQ2:89MPLETE NAME":7:"OF EACH ";::"STATE";::" SHOWN." :13:2:"C";::". MULTIPLE CHOICE"::7:"COMPUTER LISTS FOUR ";::"CAPITALS";::". YOU":7:"TYPE LETTER OF THE CORRECT ONE."818:2::"D";::". TYPE FULL NAME":20:7:"YOU TYPE THE COM0#n90,12080,12080,12277,12279,88110,89H#x79,8881,64108,65f#81,6473,6373,38109,40#73,4067,4061,3361,2356,2054,15110,19#77,12065,12046,11251,10349,9453,9455,8680,88#55,8657,5673,56$56,5643,5447,3545,3046,1553,152$43,545,52:24,5321,7250,96T$5,5213,2719,2719,3246,30$13,279,1814,1914,2119,2117,1345,15$46,11235,11030,10518,1004,806,52$169,31175,24175,27182,27192,25198,30187,32182,35:150D% ALABAMA,MONT =p ? - ??) - ;;? ---;? - -)---3 - -1;3 13 )1??3 1;???----5????7----5????7----5????7----5????7----5????? ? )- ; -- ? )- ? -) 4:,065,086,035,072,125":1060:p$X0((A$)4)1:768((X2)(X2)),((A$,X41,3)):((X2)(X2))Č770.:Z13000::8 CHECK FOR TRAPPED PENGUIN OR NATIVEBEF0:I112:J112LA(XI,YJ)0A(XI,YJ)2EFEF1VJ,I:EFEFY(Z)YD(Z)1:SCSC100:0:690:3X9,Y9:3:1000:[Z10:Z1LM:D(Z)1Z1Z11:Z1LMLVLV1:SCSCTI1:23:13:SC:1050:LH1 SOUND ROUTINESA$"192,050,192,050,192,050,229,175":1060:A$"144,040,108,040,086,040,0729,Y9:0:3(X210)55,(Y21)10:A(X2,Y2)3:3:ZA(X,Y)EZ3910RZ4970`XX2:YY2A(X,Y)3:SCSC10:H701:H4ĂHH:690:2X9,Y9:768,255(H4):769,4:770:H:3:Z5052:768,Z:769,3:770:Z:A(X,Y)34Z1LM:X(Z)X--9  ,WYOMING,CHEYENNE,90,49*hE(222):EL(218)256(219):E6ė:12:"USA.SHAPES NOT ON THIS DISK":22:1:"ESC TO QUIT, RETURN TO TRY AGAIN";:Z$:Z$(27)680:1660*r:12:"ERROR "E" IN LINE "EL*|9,42q)J SOUTH DAKOTA,PIERRE,124,43,TENNESSEE,NASHVILLE,195,94,TEXAS,AUSTIN,130,120,UTAH,SALT LAKE CITY,66,75)T VERMONT,MONTPELIER,250,23,VIRGINIA,RICHMOND,234,77,WASHINGTON,OLYMPIA,29,22,WEST VIRGINIA,CHARLESTON,221,72*^ WISCONSIN,MADISON,171,4298,NEW YORK,ALBANY,242,41(6 NORTH CAROLINA,RALEIGH,233,91,NORTH DAKOTA,BISMARCK,124,26,OHIO,COLUMBUS,207,63,OKLAHOMA,OKLAHOMA CITY,136,96)@ SOUTH CAROLINA,COLUMBIA,227,100,PENNSYLVANIA,HARRISBURG,235,56,RHODE ISLAND,PROVIDENCE,264,50,OREGON,SALEM,2ING,196,48,MINNESOTA,ST. PAUL,150,32,MISSISSIPPI,JACKSON,182,109'" MISSOURI,JEFFERSON CITY,161,81,MONTANA,HELENA,86,28,NEBRASKA,LINCOLN,124,63,NEVADA,CARSON CITY,42,70(, NEW HAMPSHIRE,CONCORD,255,20,NEW JERSEY,TRENTON,257,58,NEW MEXICO,SANTA FE,92,LLINOIS,SPRINGFIELD,177,70,INDIANA,INDIANAPOLIS,192,70,IOWA,DES MOINES,155,58,KANSAS,TOPEKA,130,79& KENTUCKY,FRANKFORT,199,84 ,LOUISIANA,BATON ROUGE,170,128,MAINE,AUGUSTA,263,21,MARYLAND,ANNAPOLIS,240,65B' MASSACHUSETTS,BOSTON,266,42,MICHIGAN,LANSGOMERY,197,109,ARIZONA,PHOENIX,63,100,ARKANSAS,LITTLE ROCK,161,100% CALIFORNIA,SACRAMENTO,29,92,COLORADO,DENVER,97,74,CONNECTICUT,HARTFORD,256,56,DELAWARE,DOVER,254,67% FLORIDA,TALLAHASSEE,222,128,GEORGIA,ATLANTA,217,113,IDAHO,BOISE,55,45d& I