2IMGCdrP@@@ 8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RFIVE( ' *@$MENU) ) /TYPING.PRACTICE  -FINANCIAL.PAK%3MONOPOLY.I-#L )BLACKJACK@ k /LINEAR.PROGRAMMV L: /MATH.WILLIE.WORb ++MR..APPLE.1n L- +MR..APPLE.2tn +MR..APPLE.3{$ +MR..APPLE.4t -CONNECT.A.DOTD/ALPHABET.ANTICS+FACTOR.GAME /TOWERS.OF.HANOI L*LAF.ISLAND2+.TIME.TEACH.TWO )GEOGRAPHY)FLASHCARD STARTUP  &PRODOS }<  ,BASIC.SYSTEM(  ʮ 'PLANETS1 k )BAR.GRAPH9 k /STOCK.MARKET.GAA k +BOOZE.N.YOUL k /SAT.PREPARATIONV;k /CARD.SHAPE.TABLe `TONE.SUB.OBJjS(ROULETTEK L/CHEMICAL.SEARCHw8+k )BOGGLE.II L/ECONOMIC.SIMULA L:.FOOTBALL.APPLE k ,TIME.TEACHERo(BASEBALL (DYNOMATH k +BLACKJACK.2 %MENU2X!,LUNAR.LANDERH L3 -SPEED.READING)Nk "+CONNECT.TWOs L0 +FRUSTRATION ? ?Q4:Z17A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"5";::2:2:"5";:39:"5":X222:X:1:"5";:40:"5":F22:2:"5";:39:"5":23:2:X239:"5";::: 60 X1Z:A$(X):( X1Z:B$(X):@  FINANCIAL PAK]  LINEAR PROGRAMMINGt  FRUSTRATION  TYPING PRACTICE  FLASHCARD  MR. APPLE 1  MR. APPLE 2  MR. APPLE 3  MR. APPLE 4   / GEOGRAPHY&  CONNECT-A-DOT=  TIME TEACHERW  ALPHABET ANTICSm  FACTOR GAME  LUNAR LANDER  MATH WILLIE WORM  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:J 49152,128:K(49152)128W 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 1000:10'(42(A$))2:A$:G THIS IS A TYPING PRACTICEl PROGRAM BY GEORGIA A. LAWRENCE 5435 COLUMBUS AVENUE( VAN NUYS, CA 914112< FROM CREATIVE COMPUTING F VOL. 7, NO. 12P DECEMBER, 1981Z! d:"THIS IS TYPING PRACTICE."M n:"TYPE THE LETTERS IN ONE LINE WITH "q x"NO SPACES BETWEEN LETTERS.": "WHAT LEVEL OF DIFFICULTY? (1-7)";:DF:DF DF470,510,550,590,630,670,710 X(5(1)1) X$(A$,X,3) Y(5(1)1 ) Y$(B$,Y,3)( Z((1)51): Z$(C$,Z,3)M Q(5(1)1)_ Q$(G$,Q,3)r K(5(1)1) K$(E$,K,3) V(5(1)1) V$(H$,V,3) X$;Y$,K$;Q$,Z$;V$, ": ,T$ 6WR$X$Y$K$Q$Z$V$" @ ADD BELL ON TOP OF EXCLAMATION MARK IN LINE 310V JT$WR$ĺ:"YOU SCORED 100%. VERY GOOD!!!":410g TT$WR$350 ^:"OOPS!!":S16336:JJ155:B(S):SOUNDBB:JJ: hX1183 r:(T$,X,3)(WR$,X,3)ĺ(T$,X,3);::" SHOULD BE ";::(WR$,X,3);::" ": | XB :"TRY THESE LETTERS AGAIN.":I11000:I:150 :"WOULD YOU LIKE THE SAME LETTERS AGAIN?";:MM$::MM$"Y"150 MM$"N"430 :"WOULD YOU LIKE DIFFERENT LETTERS?";:TY$: TY$"Y"ĺ:130 TY$"N"ĺ:(4)"RUN MENU" :(4)"RUN MENU" ? A$"ASDFI":B$"EJKL;":C$"SEFIA"d E$"EK;DI":G$"SEJLI":H$"FSDAJ"j p  A$"RIJUA":B$"DEKAI":C$"FREUS" E$"LUARD":G$"SRFUI":H$"JIL;E"  & 0A$"SIJUH":B$"HYKEG":C$"URLIT":E$"FGTUD":G$"GEYRI":H$"HTREY"DNAXA$"YAHRW":B$"QSJIP":C$"WOKUQ"gbE$"OOWPFL":G$"PEGTO":H$"DORWQ"mlsvA$"JVAPU":B$"TBINQ":C$"YMDL"E$"QVFBN":G$"WBGME":H$"ONHVR"A$"ZU/PX":B$"KTSVC":C$"XYDB."E$"EQFN/":G$"IWCMZ":H$"XOHZC"CA$"2S28K":B$"K83D3":C$"D3J7J"hE$"7JF4F":G$"9L9F5":H$"J6J;0"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$"TYPING PRACTICE":511: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:K48K521005A((K)):A3ıA1100,1050,0,1030:1000%:(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:K80K811055$K81ı)PF1:(4)"PR#1":1100:(4)"PR#0":PF0:L::"THIS PROGRAM WILL GIVE YOU PRACTICE IN":"TYPING KEYBOARD LETTERS. YOU WILL BE ":"PRESENTED WITH A SERIES OF LETTERS.":"TYPE THEM AS ACCURATELY AS POSSIBLE."PPFıQ23:A$"PRESS A KEY"::5::49152,128:49168,0:3000::3((42(A$))2:A$:3Z$(5)b" **** BANKING AND FINANCIAL ****"mM$(5):(I);17)"PROGRAMS"9000 25a "THIS SERIES OF PROGRAMS IS DESIGNED TO":"AID CONSUMERS AND BUSINESSES IN LONG":"OR SHORT RANGE BUSINESS PLANNING.":"INCLUDED ARE PROGRAMS WHICH EXAMINE":"INVESTMENTS,SAVINGS AND ANNUITYS," "MORTGAGES AND LOANS, DEPRECIATION AND":"AMORTIZATION SCHEDULES, AND MUCH MORE..."::"SELECT A PROGRAM FROM THE MENU BY":"ENTERING THE APPROPRIATE NUMBE !"#$%&'()*+R ON THE":"KEYBOARD...":9000e :"BY THE WAY, ENTER '0' TO END THE ":"PROGRAM FROM THE MENU."o PFı "PRESS RETURN TO DISPLAY MENU":M$ : :9000 "1 FUT VAL/INVSTMT 11 DEPREC'D INVSTMNT ":"2 FUT VAL/ANNUITY 12 YEAR END SALV VAL ":"3 FUT VAL/SAVINGS 13 DISC COMML PAPER ":"4 INVSTMT WTHDRLS 14 LOAN PRINCIPAL ":"5 MIN INCOME INVT 15 LOAN PYMT SCHEDULE"k "6 INC FRM INVSTMT 16 FINAL LOAN PYMT ":"7 NOMINAL INT %'S 17 BAL OF LOAN LEFT ":"8 EFFECTIVE INT % 18 LOAN RPMT PERIOD ":"9 << RESERVED >> 19 << RESERVED >> ":"10 AN DEP'N RATE 20 MORT AMORTIZATION " (255:9000::24:"SELECT PROGRAM NUMBER AND HIT RETURN";: 2Z 5Z0ĺ:(4)"RUN MENU" 7Z99,208,300,400,500,600,700,800,900,1000,1100,1200,1300 9Z14Z1Z13I ;Z11400,1500,1600,1700,1800,1900,2000Q <21a c9020:9000 d" #1 FUTURE VALUE OF AN INVESTMENT" e f9000 n"ENTER THE INITIAL INVESTMENT (P)";P s x"ENTER THE NOMINAL INTEREST RATE (I)";I y3"NUMBER OF COMPOUNDING PERIODS EACH YEAR(N)";N9`"ENTER THE NUMBER OF YEARS (Y)";YftIIN100TP(1I)(NY)"FUTURE VALUE=$";(T100.5)100::"WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:9924 9020:90007" #2 FUTURE VALUE OF REGULAR DEPOSITS"L15)"(ANNUITY)"X:9000"ENTER AMOUNT OF REGULAR DEPOSIT";R"ENTER THE NOMINAL INTEREST RATE";I"ENTER THE NUMBER OF DEPOSITS EACH YEAR";N"ENTER THE NUMBER OF YEARS";YIIN1007TR((1I)(NY)1)I=h10)"FUTURE VALUE =$";(T100.5)100":::"WANT TO RUN ANOTHER (Y/N)";Y$$(Y$,1)"Y"İ9020:208&24,9020:9000-" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOUNT".9000G/"ENTER THE TOTAL VALUE AFTER Y YEARS";TM0v1"ENTER THE NOMINAL INTEREST RATE";I|26"ENTER MUNBER OF DEPOSITS EACH YEAR";N7;"ENTER THE NUMBERS OF YEARS";Y@IIN100ERTI((I1)(NY)1)G:7J"REGULAR DEPOSITS OF $";(R100.5)100;" FOR "\O;Y;" YEARS WILL YEILD $";T;" ."dQ:T:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$Y(Y$,1)"Y"İ9020:300^249020:90005)"#4 REGULAR WITHDRAWALS FROM" 14)"AN INVESTMENT":90007"ENTER AMOUNT OF INITIAL INVESTMENT";P^"ENTER NOMINAL INVESTMENT RATE";Id"ENTER THE NUMBER OF WITHDRAWALS EACH YEAR";N"ENTER THE NUMBERS OF YEARS";YIIN100RP(I((1I)(NY)1)I)::!"YOU MAY WITHDRAW $";(R100.5)100'U"FROM YOUR ACCOUNT";N;"TIMES EACH YEAR,"["FOR";Y;"YEARS WITHOUT REDUCING""YOUR INITIAL INVESTMENT."::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:40024- INVESTMENT REQUIRED TO PROVIDE FUTURE VALUE=9020:9000c" #5 INVESTMENT REQUIRED TO"" PROVIDE FUTURE VALUE..":9000"ENTER THE AMOUNT YOU WANT TO HAVE AFTER Y YEARS";T"ENTER THE NUMBER OF COMPOUNDING PERIODS EACH YEAR";NK"ENTER THE NUMBER OF YEARS OF THIS INVESTMENT";YQz"ENTER THE NOMINAL INTEREST RATE";I I1I IIN100PT(1I)(NY):"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD"""OF ";Y;" YEARS AT AN INTEREST RATE OF ";I1;" PERCENT"Y"COMPOUNDED";N;"TIMES EACH YEAR TO YIELD $";T;"."a:!"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$&(Y$,1)"Y"İ9020:500+24X MIN INVESTMENT FOR INCOMEZ9020:9000 ]5)"#6 MINIMUM INVESTMENT FOR INCOME"ab9000Pg"ENTER THE NUMBER OF WITHDRAWALS EACH YEAR";NVhl"ENTER THE AMOUNT OF EACH WITHDRAWAL";Rmq"ENTER THE NOMINAL INTEREST RATE";Irv"WITHDRAWAL TO OCCUR FOR HOW MANY YEARS";YyI1I{II100PRNI(11((1IN)(NY)))%]"A MINIMUM INVESTMENT OF $";(100P.5)100;"MUST""BE HELD AT AN INTEREST RATE OF";I1"PERCENT PER YEAR ,TO ALLOW MONTHLY""WITHDRAWALS OF $";R;"FOR A PERIOD OF";Y;"YEARS."::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$2(Y$,1)"Y"İ9020:600:24f NOMINAL INTEREST RATE ON INVESTMENTSv9020:9000" NOMINAL INTEREST RATE ON INVESTMENTS"9000"ENTER THE AMOUNT OF THE PRINCIPAL";P"ENTER THE TOTAL AMOUNT OF THE INVESTMENT";TR"ENTER THE NUMBER OF YEARS OF THE INVESTMENT";YX"ENTER THE COMPOUNDING PERIODS EACH YEAR";NI2N((TP)(1(NY))1)100"WHEN AN INVESTMENT OF $";P;"IS,""HELD FOR";Y;"YEARS""COMPOUNDING";N;"TIMES EACH YEAR"2"AND YIELDS $";T;","e"THE NOMINAL INTEREST RATE IS";I2;"PERCENT..":"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:70024  EFFECTIVE INTEREST RATE ON INVESTMENTS%9020:9000#*" EFFECTIVE INTEREST RATE ON INVESTMENT")+3/9000h4"ENTER THE AMOUNT OF YOUR INITIAL INVESTMENT";Pn59"ENTER THE TOTAL VALUE Y YEARS";T:>"ENTER THE LIFE OF THE INVESTMENT IN YEARS";Y?CH"THE EFFECTIVE ANNUAL INTEREST RATE OF" IGM"YOUR INVESTMENT IS";((TP)(1Y)1)100;"PERCENT.."tR:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$W:(Y$,1)"Y"İ9020:800\24 EARNED INTEREST TABLE9020:9000"#9 EARNED INTEREST TABLE FOR INVESTMENT"90004" ******** UNDER CONSTRUCTION ********"II12000:I:24p DEPRECIATION RATE ON INVESTMENT9020:9000" #10 ANNUAL DEPRECIATION RATE OF AN INVESTMENT"9000 "ENTER THE ORIGINAL PRICE OF THE ITEM";P : "ENTER THE RESALE PRICE OF THE ITEM";T@ h "ENTER THE ITEM'S LIFE IN YEARS";Yn  D100(1(TP)(1Y))  "IF YOU PURCHASED THIS ITEM FOR $";P :"AND SOLD IT";Y;"YEARS LATER-" !"FOR $";T;", THE ACTUAL DEPRECIATION"5!"RATE IS";(1000D.5)1000;"PERCENT."b!$:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$!)(Y$,1)"Y"İ9020:1000!.24!L CALCULATE THE AMOUNT OF DEPREC OF AN ITEM!Q9020:9000!V" #11 AMOUNT DEPRECIATED WITHIN A YEAR..""[90000"`"ENTER THE ORIGINAL PRICE OF THE ITEM";P6"a@"bK100p"e"WHAT PERCENT DO YOU WANT TO DEPRECIATE";Iv"f"jII100"o:Y1K"qDPI(1I)(Y1)"y"YEAR #";Y;"DEPRECIATION IS $";(D100.5)100:"{XX1:X5X0#|"PRESS RETURN FOR MORE":X$:#~D2ĂYK#:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$h#(Y$,1)"Y"İ9020:1100p#24#9020:9000#" #12 CALCULATE THE SALVAGE VALUE"#" OF AN ITEM..."#9000$"ENTER THE ORIGINAL PRICE OF THE ITEM";P $7$"ENTER THE ITEM'S DEPRECIATION RATE";I=$G$K100R$Y1Kt$S(100P(1I100)Y.5)100$"YEAR #";Y;"SALVAGE VALUE IS $";S$$XX1:X5X0$"PRESS RETURN FOR MORE":X$:$S2ĂY%:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$.%(Y$,1)"Y"İ9020:12006% 24W% FIND AMOUNT OF DISC PAPERg%9020:9000%"#13 CALCULATE THE NET COST OF DISCOUNTED"%" PAPER.."%#9000%$%("ENTER THE FUTURE VALUE OF THE NOTE";T&-"ENTER THE DISCOUNT RATE";D&.H&2"ENTER THE NUMBER OF DAYS TO MATURITY";NT&7DD100e&<D1TDN360k&A&F"IF YOU PURCHASE A NOTE WORTH $";T&H" DUE IN";N;"DAYS"&K"AT A DISCOUNT RATE OF";D100;"PERCENT,"'M"THE DISCOUNT AMOUNT WILL BE $";D18'P"AND THE COST WILL BE $";TD1;" ."g'U::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$'Z(Y$,1)"Y"İ9020:1300'_24'x9020:9000'}5)"#14 PRINCIPAL ON A LOAN"'~'9000("HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N(2("WHAT IS THE AMOUNT OF EACH PAYMENT";R8(g("WHAT IS THE LOAN ANNUAL INTEREST RATE";Im(("ENTER THE LIFE OF THE LOAN IN YEARS";Y(PRN(11((I100)N1)(NY))(I100)(:"THE PRINCIPAL ON THIS LOAN IS $";(P100.5)100.)::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$K)(Y$,1)"Y"İ9020:1400S)24c)9020:9000)" #15 REGULAR PAYMENT ON A LOAN.."))9000)"WHAT IS THE LIFE OF THE LOAN IN ":27):50,63:"YEARS":50,255)Y.*"WHAT IS THE ANNUAL":19):50,63:"INTEREST RATE":50,255:I_* "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N*"WHAT IS THE LOAN PRINCIPAL AMOUNT";P*::R((I100)PN)(11((I100)N1)(NY))*I1I*"REGULAR PAYMENTS OF $";(R100.5)100;","+"MADE ";N;" TIMES EACH YEAR"7+"ARE REQUIRED TO SATISFY"h+""A LOAN OF $";P;"FOR A PERIOD OF";Y;"YEARS"+'"AT AN INTEREST RATE OF";I1;"PERCENT PER ANNUM."+,::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$+1(Y$,1)"Y"İ9020:1500+624,@9020:9000),E10)"#16 LAST PAYMENT ON A LOAN"/,F9,J9000h,O"WHAT IS THE LIFE OF THE LOAN IN YEARS";Y,T"ENTER THE ANNUAL INTEREST RATE";I,U,Y"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R,Z-^"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N-_7-c"ENTER THE AMOUNT OF THE LOAN PRINCIPAL";PO-h:I1I:II100:BOPw-jNY100ĺ20)"WORKING THE PROBLEM"-mJ11NY-rI2((BOIN)100.5)100-wARI2-|BOBOA-J1-"THE LAST PAYMENT FOR THIS LOAN,"."WILL BE $";((RBO)100.5)100>.::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$[.(Y$,1)"Y"İ9020:1600c.24s.9020:9000." #17 REMAINING BALANCE ON A LOAN"..9000."ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N./"ENTER THE ANNUAL INTEREST RATE";I/E/"WHAT IS THE AMOUNT OF EACH PAYMENT";RK/}/"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P//"ENTER THE LAST PAYMENT MADE ,"/" (PAYMENT #, YEAR # )";N1,Y/:"WORKING ON PROBLEM"/II1000BOP0J11N(Y1)N170I1((BOIN)100.5)100B0ARI1N0BOBOAV0J10:"THE REMAINING BALANCE IS $";(BO100.5)1000:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$0(Y$,1)"Y"İ9020:170002409020:9000 1 10)"THE TERM OF A LOAN"119000K1"ENTER THE NUMBER OF PAYMENTS EACH YEAR";NQ1y1"ENTER THE ANNUAL INTEREST RATE";I11!"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R1"1&"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P1+"20Y((1(P(I100))(NR))((1I100N)N))a2:"A TERM OF";(Y10.5)10;"YEARS WILL SATISFY THIS LOAN."2?"SATISFY THIS SCHEDULE."2D:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$2I(Y$,1)"Y"İ9020:18002N242l9020:90003q"#19 THE ANNUAL INTEREST RATE ON A LOAN"3v9000H3" ******** UNDER CONSTRUCTION ********"Y3I12000:Im3I11000::24}39020:90003" THE MORTGAGE AMORTIZATION TABLE"33" COMPUTE INTEREST PAYMENTS..."339000 4"PLEASE USE DECIMAL POINTS"49000B4 LEADING & TRAILING ZERO'S NOT ?"ED"J4*C0h44"ENTER AMOUNT OF LOAN";Ar49""4>"AMOUNT OF INTEREST IN PERCENT";J4C""4H"NUMBER OF YEARS";N4M""4\JJ1004]NN12:IJ12:B1I:RAI(11BN) 5_RR100.55`R(R)10075a"AMOUNT PER PAYMENT =";RL5bQ(RNA)100.5[5cQ(Q)100t5f"TOTAL INTEREST=";Q5i"TO BEGIN LISTING HIT ANY KEY..."5jA$5k:BA5p"PMT INTEREST PRINCIPAL BALANCE"5zCC1:LBI:PRL:BBP%6{CC100.5:LL100.5:PP100.5:BB100.5U6|C(C)100:L(L)100:P(P)100:B(B)100b6C;L,P,Bl6FF1{6F2028006BR21706CC16DBI1006C;(D)100,R(D)1006"LAST PAYMENT WAS...";(D)100B7"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$+7(Y$,1)"Y"İ9020:200037 F0;7 24]7 "TO CONTINUE HIT ANY KEY..."e7 A$k7 s7 F07 "PMT INTEREST PRINCIPAL BALANCE"7 21907 ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::"8 4:A$"ADVANTAGE COMPUTING'S":2:]8 A$"PUBLIC DOMAIN SOFTWARE":2::A$"FINANCIAL PAK":28 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"9 49152,128:K(49152)128:49168,0:K48K523005$9 A((K)):A3ı19 A1ĉ:G9 A10,3050,0,3030S9 :3000i9 :(4)"RUN MENU"9 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:K80K813055&: K81ıV: PF1:(4)"PR#1":::10:PF0:(4)"PR#0"::(# SUBROUTINE TO MAKE A LINE OF ----:2#I138:"-";:I:"-"::<#"":936::F#936::P# :Z#I116::I:;&"000 ?";(34);:9950:" -";:9950:"-";(34) ;&$;&I117:(95);:: 500050000125[M(1)1500:M(2)1500:I(1)0:I(2)0:A$(25),B$(25),H%(40)b8z(42(A$))2:A$:I139:L%(I)0:H%(I)0::I18:U(I)0: R(X)(H%(I(Z))R(I(Z))10) :M$(1):::"**RULES**":M$(2):M$(3):M$(4):M$(5); "WHO IS PLAYER #1";N$(1):"WHO IS PLAYER #2";N$(2)r d:"**";N$(1);"'S TURN***********";:F0:" $";M(1) fZ1:1000:2000 sDD1FF1:F3ĺM$(9):102 uF3ĺM$(10):I(Z)10:M(Z)M(Z)50 :"**";N$(2);"'S TURN***********";:F0:" $";M(,./0123456789:;<=>2) Z2:1000:20009 DD1FF1:F3ĺM$(9):202_ F3ĺM$(10):I(Z)10:M(Z)M(Z)50 M$(11);:F$:F$"QUIT"30000 100 M$(6);:F$:X(1):Y(1) F$"QUIT"ĩ255::(4)"RUN MENU" X0X.16D1 X.16X.32D2 X.32X.48D3% X.48X.64D4; X.64X.81D5O X.81X1D6e Y0Y.16D11| Y.16Y.32D12 Y.32Y.48D13 Y.48Y.64D14 Y.64Y.81D15 Y.81Y1D16 "YOU ROLLED A ";D;" AND A ";D1:I(Z)I(Z)(DD1)3 I(Z)40I(Z)I(Z)40:M(Z)M(Z)2009 U "YOU ARE ON ";G$(I(Z))v I(Z)2I(Z)17I(Z)334100 I(Z)4M(Z)M(Z)200: I(Z)7I(Z)22I(Z)364400 I(Z)10I(Z)20ı I(Z)30M(Z)M(Z)50:I(Z)10: I(Z)38M(Z)M(Z)75:. I(Z)40M(Z)M(Z)200:I(Z)0:L L%(I(Z))ZĺM$(12):3100z (H%(I(Z))0L%(I(Z))0L%(I(Z))Z)2125 (H%(I(Z))0L%(I(Z))0L%(I(Z))Z)2100 M$(7);P(I(Z));" DOLLARS" M$(8);:F$:F$"BUY"3100M(Z)M(Z)P(I(Z)):"YOU NOW HAVE $";M(Z)(L%(I(Z))Z:3100n4Z1M(Z)M(Z)R(X):M(2)M(2)R(X):"YOU OWE $";R(X);" RENT":6Z2M(Z)M(Z)R(X):M(1)M(1)R(X):"YOU OWE $";R(X);" RENT": MZ1M(Z)M(Z)R(I(Z)):M(2)M(2)R(I(Z)):"YOU OWE $";R(I(Z));" RENT":dOZ2M(Z)M(Z)R(I(Z)):M(1)M(1)R(I(Z)):"YOU OWE $";R(I(Z));" RENT": M$(13):M$(14);:F$:F$"SELL"İ3150! M$(19);:H$:H$"HOUSE"3200" N M$(15);:F$:F$"LIST"İ3170P 20:M$(17);:V$:"HOW MUCH DO YOU W ANT ";V R I139AT V$G$(I)ĭL%(I)0ĺM$(16):~V V$G$(I)ĭL%(I)1M(1)M(1)V:M(2)M(2)V:L%(I)2:3165X V$G$(I)ĭL%(I)2M(2)M(2)V:M(1)M(1)V:L%(I)1:3165Z ] M$(10);:F$:F$"YES"3152^ b C0:D0:I139d L%(I)1CC1:A$(C)G$(I)9f L%(I)2DD1:B$(D)G$(I)?g kh :N$(1);"'S PROPERTY ":I1C:A$(I):j 1:20:N$(2);"'S PROPERTY ":I1D:20:B$(I):: L%(1)ZL%(3)Zĺ"HOW MANY HOUSES AT $50 DO YOU WANT ON":G$(1);" ";G$(3);:U:3250f L%(6)ZL%(8)ZL%(9)Zĺ"HOW MANY HOUSES AT $50 DO YOU WANT ON":G$(6);" ";G$(8);" ";G$(9);:U:3252 L%(11)ZL%(13)ZL%(14)Zĺ"HOW MANY HOUSES AT $100 DO YOU WANT ON":G$(11);" ";G$(13);" ";G$(14);:U:3254J L%(16)ZL%(18)ZL%(19)Zĺ"HOW MANY HOUSES AT $100 DO YOU WANT ON":G$(16);" ";G$(18);" ";G$(19);:U:3256 L%(21)ZL%(23)ZL%(24)Zĺ"HOW MANY HOUSES AT $150 DO YOU WANT ON":G$(21);" ";G$(23);" ";G$(24);:U:3258. L%(26)ZL%(27)ZL%(29)Zĺ"HOW MANY HOUSES AT $150 DO YOU WANT ON":G$(26);" ";G$(27);" ";G$(29);:U:3260 L%(31)ZL%(32)ZL%(34)Zĺ"HOW MANY HOUSES AT $200 DO YOU WANT ON":G$(31);" ";G$(32);" ";G$(34);:U:3262 L%(37)ZL%(39)Zĺ"HOW MANY HOUSES AT $200 DO YOU WANT ON":G$(37);" ";G$(39);:U:3264 V U(1)U(1)U:M(Z)M(Z)(U100):M(Z)0ĺM$(20):M(Z)M(Z)(U100):U(1)U(1)U:r H%(1)U(1):H%(3)U(1): U(2)U(2)U:M(Z)M(Z)(U150):M(Z)0ĺM$(20):M(Z)M(Z)(U150):U(2)U(2)U: H%(6)U(2):H%(8)U(2):H%(9)U(2):= U(3)U(3)U:M(Z)M(Z)(U150):M(Z)0ĺM$(20):M(Z)M(Z)(U150):U(3)U(3)U:g H%(11)U(3):H%(13)U(3):H%(14)U(3): U(4)U(4)U:M(Z)M(Z)(U300):M(Z)0ĺM$(20):M(Z)M(Z)(U300):U(4)U(4)U: H%(16)U(4):H%(18)U(4):H%(19)U(4):5 U(5)U(5)U:M(Z)M(Z)(U450):M(Z)0ĺM$(20):M(Z)M(Z)(U450):U(5)U(5)U:_ H%(21)U(5):H%(23)U(5):H%(24)U(5): U(6)U(6)U:M(Z)M(Z)(U450):M(Z)0ĺM$(20):M(Z)M(Z)(U450):U(6)U(6)U: H%(26)U(6):H%(27)U(6):H%(29)U(6):- U(7)U(7)U:M(Z)M(Z)(U600):M(Z)0ĺM$(20):M(Z)M(Z)(U600):U(7)U(7)U:W H%(31)U(7):H%(32)U(7):H%(34)U(7): U(8)U(8)U:M(Z)M(Z)(U400):M(Z)0ĺM$(20):M(Z)M(Z)(U400):U(8)U(8)U: H%(37)U(8):H%(39)U(8):L(1)L0L.1ĺZ$(1):M(Z)M(Z)100: L.1L.2ĺZ$(2):M(Z)M(Z)100:F L.2L.3ĺZ$(3):M(Z)M(Z)20:l L.3L.4ĺZ$(4):M(Z)M(Z)50:L.4L.5ĺZ$(5):M(Z)M(Z)100:L.5L.6ĺZ$(6):M(Z)M(Z)200:I(Z)0:L.6L.7ĺZ$(7):M(Z)M(Z)100:L.7L.8ĺZ$(8):M(Z)M(Z)50:I(Z)10:<L.8L.9ĺZ$(9):M(Z)M(Z)50:cL.9L1ĺZ$(10):M(Z)M(Z)200:n0L(1)2L0L.1ĺC$(1):M(Z)M(Z)15:4L.1L.2ĺC$(2):I(Z)24:2000:6L.2L.3ĺC$(3):I(Z)I(Z)3:2000:8L.3L.4ĺC$(4):I(Z)0:M(Z)M(Z)200:::L.4L.5ĺC$(5):M(Z)M(Z)50:n<L.5L.6ĺC$(6):I(Z)5:M(Z)M(Z)200:2000:>L.6L.7ĺC$(7):I(Z)10:M(Z)M(Z)50:@L.7L.8ĺC$(8):M(Z)M(Z)150:BL.8L.9ĺC$(9):I(Z)39:2000:DL.9L1ĺC$(10):I(Z)11:2000:c::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"MONOPOLY I":5=11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"t49152,128:K(49152)128:49168,0:K48K525005A((K)):A3ıA5100,5050,0,5030:5000:(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."t49152,128:K(49152)128:49168,0:K80K815055K81ıPF1:(4)"PR#1":5100:PF0:(4)"PR#0":-::"THIS IS A COMPUTER VERSION OF THE OLD":"CLASSIC GAME OF MONOPOLY. IT FOLLOWS":"THE SAME RULES AS THE BOARD GAME."U"ENJOY AND PROSPER IN REAL ESTATE":"BTW: TO END THE GAME, TYPE QUIT AT THE":"DICE ROLLING PROMPT."PFı23::A$"PRESS A KEY":5::49152,128:49168,0:0uC0:D02uI139 4uL%(I)1CC1:A$(C)G$(I)4 6uL%(I)2DD1:B$(D)G$(I)> 8u::q 9uN$(1);" OWNED THE FOLLOWING:":I1C:A$(I): :u"AND HAD $";M(1);" AT THE END OF THE GAME." ;uN$(2);" OWNED THE FOLLOWING:":I1D:B$(I):!>>>>",0,0,0t&ȃ "*THIS IS SMUCK'S MONOPOLY FOR TWO*"&ȃ "EACH PLAYER HAS $1500"&ȃ "WHEN YOU BUY HOUSES YOU HAVE TO PUT THE"&ȃ "SAME NUMBER ON EACH COLOR GROUP"'ȃ "WHEN U BUY HOUSES INPUT # PER LOT"3'Ƀ "TO ROLL DICE TYPE ROLL"U'Ƀ "IT IS FOR SALE FOR ONLY "{'Ƀ "IF YOU WISH TO BUY TYPE 'BUY'"'"Ƀ "YOU ROLLED DOUBLES ROLL AGAIN...."',Ƀ "YOU ROLLED 3 SETS OF DOUBLES..GOTO JAIL"'6Ƀ "IF YOU WANT TO QUIT TYPE 'QUIT'"#(@Ƀ "YOU ALREADY OWN THIS PROPERTY"Q(JɃ "IF THERE IS ANY PROPERTY YOU WISH TO "(TɃ "SELL & YOUR ENEMY WANTS TO BUY TYP SELL"(^Ƀ "IF YOU NEED A LIST OF PROP. TYPE 'LIST'"(hɃ "YOU CANT SELL THIS YOU DONT OWN IT!!!!")rɃ "WHAT PROP DO YOU WANT TO SELL"3)|Ƀ "IF YOU WANT TO SELL AGAIN TYPE 'YES'"Y)Ƀ "TO IMPROVE PROP. TYPE 'HOUSE'"x)Ƀ "INSUFFICIENT FUNDS....")Ƀ "PAY POOR TAX $15...HA HA HA")Ƀ "ADVANCE TO ILLINOIS")Ƀ "GO BACK 3 SPACES")Ƀ "ADVANCE TO GO" *Ƀ "BANK PAYS YOU $50 DIVIDEND",*Ƀ "TAKE A RIDE ON READING RR"?*Ƀ "GO TO JAIL"l*Ƀ "BUILDING & LOAN MATURES COLLECT $150"*Ƀ "ADVANCE TOKEN TO BOARDWALK"*Ƀ "ADVANCE TO ST CHARLES PLACE"*Ƀ "X-MAS FUND MATURES...COLLECT $100" +Ƀ "LIFE INSURANCE MATURES.. COLLECT $100"2+Ƀ "INCOME TAX REFUND..COLLECT $20"N+ʃ "DOCTORS FEE.....$50"g+ʃ "YOU INHERIT $100"}+ʃ "ADVANCE TO GO"+&ʃ "HOSPITAL FEE...$100"+0ʃ "GO TO JAIL"+:ʃ "SCHOOL TAX......$50"+Dʃ "BANK ERROR....COLLECT $200"6000:100((42(A$))2:A$:0d:Zn(4);"BLOAD CARD.SHAPE.TABL, A$6000"x(4);"BLOAD TONE.SUB.OBJ,A$300"232,0:233,961:03500:202,(78):203,(79)I5101X((1)255)Y((1)130) CDI:2000 I 4 Y59990 79,Y199,Y7 Y> 7I I08Q LTg "LT100(I10),79n ,I 6 24,34,23,25,33,32,23,25,33 @79,99199,99199,5979,5979,99 JX831954 T52X,95 ^X hY95634 r52195,Y |Y ?ABCDEFGHIX195834 52X,63" X1 Y63954> 5283,YE Ye 22:25:"BY DARREL RAINES" "DO YOU WISH TO SEE INSTRUCTIONS? "; 28672,1:28673,60:ER0 OF.5 OFOF X871954 51.5OFX,95 3000 51.5OFX,95 X &Y91634) 051.5OF195,Y3 :3000F D51.5OF195,YM NY^ XX191834p b51.5OFX,63z l3000 v51.5OFX,63 X Y67954 51.5OF83,Y 3000 51.5OF83,Y Y 490  * CONTINUE PROGRAM * A$ A$; A$"N"1280C :::"RULES OF PLAY:":::34,2 " THIS BLACKJACK GAME IS LIKE MOST":"OTHERS. EACH PLAYER IS DEALT ONE HAND." $"THE PLAYER MUST PLACE A BET BEFORE THE":"FIRST CARDS ARE DEALT. AFTER THE FIRST":"TWO CARDS, EACH PLAYER MAY DRAW ONE CARD"; ."AT A TIME UNTIL HE HAS MORE THAN 21":"POINTS OR WANTS TO STAND WITH THE POINT":"TOTAL THAT HE HAS. POINTS ARE COUNTED"8"AS FOLLOWS: ACE -- 1 OR 11 POINTS":15:"FACE -- 10 POINTS":15:"OTHER -- NUMBER VALUE":B" IF YOU BUST, YOU LOSE YOUR BET. IF":"YOU GET A BLACKJACK, YOU WIN ONE AND ONE";:"HALF TIMES YOUR BET. IF YOU CAN GET"L"FIVE CARDS WITHOUT BUSTING, IT WILL":"COUNT AS A BLACKJACK. IF THE DEALER":"BUSTS OR HAS A LOWER POINT TOTAL THAN"gV"YOU, THEN YOU WIN THE AMOUNT OF YOUR":"BET. IF YOU TIE, YOU PUSH (NEITHER WIN":"NOR LOSE.)"t[PF1140~`4000jt" THE DEALER WILL DRAW UNTIL HE HAS 17":"POINTS. HE WILL HIT 17 IF AN ACE HAS":"BEEN COUNTED AS 11 POINTS IN THAT HAND."~:" THERE ARE TWO SPECIAL RULES FOR THE":"PLAYER. HE MAY DOUBLE HIS BET AFTER HE":"HAS SEEN THE FIRST TWO CARDS OF A HAND.""HOWEVER, IF HE DOES SO HE MUST TAKE ONE,";:"AND ONLY ONE, MORE CARD AFTER THAT.":"IF A PLAYER IS DEALT A PAIR AS THE FIRST";:"TWO CARDS OF A HAND, HE HAS THE OPTION":"OF SPLITTING THE CARDS INTO TWO HANDS":"AND THEN PLAYS FROM THERE. THIS MAY"""ONLY BE DONE ON THE FIRST TWO CARDS.":"BOTH OF THESE SPECIAL RULES ARE ALLOWED":"ONLY IF THE PLAYER HAS THE MONEY TO":"COVER THE BETS."/PF121094000?" YOUR GRANDMOTHER HAS GIVEN YOU $1000":"WHICH YOU ARE STARTING OFF WITH. SHE":"WOULD LIKE THE MONEY BACK WHEN YOU"^"FINISH. SO DON'T LOSE IT ALL!!"::"YOU MAY BET ANY AMOUNT MORE THAN $5 AND":"LESS THAN $500. YOU WILL NEVER BE":"ALLOWED TO BET MORE THAN YOU HAVE.":" IF YOU DO LOSE ALL OF YOUR MONEY, YOU""MAY BORROW ANOTHER $1000 FROM A GROUP OF";::"LOAN SHARKS";::". THESE BOYS PLAY ROUGH SO":"WATCH OUT";::".":J" ENTER 0 AS A BET TO QUIT THE GAME.":"GOOD LUCK..."TPFı^4000hFLıp:v (4);"RUN BLACKJACK.2" * CARD DRAW ROUTINE *18X,YSU(CD13):NUCD(SU13)4(SU2)14SUX12,Y25 7 1NUX5,Y5!D * CHECK FOR KEYBOARD INPUT *[ (49152)1271000 ER0ćN1,N2:28674,N1:28675,N2:768  * ERROR ROUTINE * ER1 216,0  * PAUSE UNTIL SPACE BAR *24:9::"";:A$:A$" "4020$L 149,1,141,1,133,1,83,2,133,1,83,2q 133,1,83,7,74,1,70,1,66,1,83,1 74,1,66,2,88,1,74,2,83,6,149,1 141,1,133,1,83,2,133,1,83,2,133,1 83,7,99,1,111,1,118,1,99,1,83,1  66,2,74,1,83,1,99,1,74,2,224,22 199,2,149,1,141,1,133,1,83,2,133,1W 83,2,133,1,83,7,74,1,70,1,66,1{ 83,1,74,1,66,2,88,1,74,2,83,6 83,1,74,1,66,1,83,1,74,1,66,2 83,1,74,1,83,1,66,1,83,1,74,1 66,2,83,1,74,1,83,1,66,1,83,1 74,1,66,2,88,1,74,2,83,6!p::49168,0:SP$" ":lqX139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::r4:A$"ADVANTAGE COMPUTING'S":5:6:A$"PUBLIC DOMAIN SOFTWARE":5:8:A$"BLACKJACK":5Cs11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"zu49152,128:K(49152)128:49168,0:K48K526005vA((K)):A3ıwA1A2FL1xA1040,6050,0,6030:FL0:6000:(4)"RUN MENU2"S32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K816055K81ıPF1:(4)"PR#1":1040:(4)"PR#0":PF0: 4000936* 16);"ROULETTE"4::("ENTER CURRENT DATE ( AS IN 'JANUARY 23, 1978' ) ";2D$,E$:" WELCOME TO THE ROULETTE TABLE""DO YOU WANT INSTRUCTIONS? ";Y$ $(Y$,1)"N"1550 .; 8" THIS IS THE BETTING LAYOUT"\ B" (X=RED)"b L V" 1* 2 3*" `" 4 5* 6" j" 7* 8 9*" t" 10 11 12*"% ~JLMNOPQRSTkl" --------------------"L " 13 14* 14 "t " 16* 17 18* " " 19* 20 21* " " 22 23* 24 " " --------------------" " 25* 26 27* "< " 28 29 30* "d " 31 32* 33 " " 34* 35 36* " " --------------------" " 00 0 " ::"PRESS ANY KEY TO CONTINUE" A$- " TYPES OF BETS"5 :w "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET ON THAT NUMBER" ("THESE PAY OFF 35:1" 2 <"THE 2:1 BETS ARE:" F" 36) 1-12 40) FIRST COLUMN" P" 38) 13-24 41) SECOND COLUMN") Z" 39) 25-36 42) THIRD COLUMN"/ dO n"THE EVEN MONEY BETS ARE:"n x" 43) 1-18 46) ODD" " 44) 19-36 47) RED" " 45) EVEN 48) BLACK"  " 49)0 AND 50)00 PAY OFF 35:1"" NOTE: 0 AND 00 DO NOT COUNT UNDER ANY BETS EXCEPT THEIR OWN."D::"PRESS ANY KEY TO CONTINUE"LA$V936"WHEN I ASK FOR EACH BET, TYPE THE NUMBER AND THE AMOUNT, SEPERATED BY A COMMA.""FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500 WHEN I ASK FOR A BET"::::0"MINIMUM BET IS $5, MAXIMUM IS $500.">::::X PROGRAM BEGINS HEREx-TYPE OF BET (NUMBER) ODDS" DON'T NEED TO DIMENSION STRINGS,B(100),C(100),T(100),X(38)6A(50)@I138:X(I)0:I: MAT X=ZERJP1000TD100000.5Y:::::::"PRESS ANY KEY TO BEGIN GAME"=[A$\^936::"HOW MANY BETS ";chYyrY1Y(Y)1630w|I150:A(I)0:I: MAT A=ZERC1Y"NUMBER ";C;X,ZB(C)ZT(C)XX1X50X(X)1680Z1Z(Z)1680"Z5Z50016803A(X)01780a"YOU MADE THAT BET ONCE ALREADY,DUM-DUM"k1680vA(X)1}C"SPINNING"&S(100(1))0S0S381830:X(S)X(S)1DS371920NS371900X"00"b2020 l"0"v2020!IQ-Q1184RBRS2000IQXA$"BLACK"eS;" "A$o2020|A$"RED"1980C1YT(C)372710T(C)362090,2190,2220,2250,2300,2350,2400,2470,2500 T(C)452530,2560,2630 2710 "* 1-12(37) 2:124S122150]>"YOU LOSE ";B(C);" DOLLARS ON BET ";CjHDDB(C)wRPPB(C)\2180f"YOU WIN ";B(C)2;" DOLLARS ON BET ";CpDDB(C)2zPPB(C)22810 13-24(38) 2:1S12S2521502110 25-36(39) 2:1/S24S37215092110T FIRST COLUMN(40) 2:1bI1343pSI2150wI2110 SECOND COLUMN(41) 2:1 I2353 SI2150 I$ 2110. THIRD COLUMN(42) 2:18 I3363B SI2150L IV 2110%` 1-18(43) 1:14j S192430>t 2110h~ "YOU WIN ";B(C);" DOLLARS ON BET ";Cu DDB(C) PPB(C) 2810 19-36(44) 1:1 S37S182430 2110 EVEN(45) 1:1 S2(S2)S372430 2110 ODD(46) 1:1" S2(S2)S372430, 2110> RED(47) 1:1D P I118W Re( SR2430l2 Iv< 2110F BLACK(48) 1:1P Z I118d Rn SR2110x I S362110 2430 --1TO36,0,00(1-36,49,50)35:1 T(C)492760 T(C)49S3727803 T(C)50S382780= 2110N T(C)S2780X 2110 "YOU WIN ";B(C)35;" DOLLARS ON BET ";C DDB(C)35 PPB(C)35 C  "TOTALS: ","ME","YOU" " ",D,P" P02880, "OOPS! YOU JUST SPENT YOUR LAST DOLLAR"6 3190-@ D02920JJ "YOU BROKE THE HOUSE!!"XT P101000.b^ 2960qh "AGAIN ";yr Y$| (Y$,1)"Y"1630 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 P13190 "TO WHOM SHALL I MAKE THE CHECK "; B$   936; I140:"-";:I: PRINT 40 DASHESY "CHECK NO. ";(100(1))_ i 3230v 22);M$|   "PAY TO THE ORDER OF -";B$;"--$"; P  & 7);"THE MEMORY BANK OF CALIFORNIA"0 : 25);"THE COMPUTER"D 25);"-------X----"#N 8X I140:"-";:IOb "COME BACK SOON!"Yl 3210vv "THANKS FOR YOUR MONEY" "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL"  3420  M$D$", "E$ \ "PRESS A KEY TO RETURN TO MENU":P$::(4)"RUN MENU2"6z (42(A$))2:A$: ::"COME WITH US TO THE MONTE CARLO AND PLAY":"THE CLASSIC GAME OF ROULETTE!" ::"PLACE YOUR BETS AND SPIN THE WHEEL FOR A":"CHANCE AT FABOULOUS WEALTH..."::"...OR RUIN." PFı4 21000:41 (X)1000 ((X),5);" ";U (X)1000 ((X),8);" ";[p16298,0:::3v|  710 "THIS IS A GENERAL PURPOSE LINEAR PROG-"::"RAMMING CODE, USING THE PRIMAL SIMPLEX"_ :"METHOD. IT DYNAMICALLY RESERVES ARRAYS"::"ACCORDING TO YOUR PROBLEM SIZE. THE" :"OBJECTIVE FUNCTION AND INITIAL TABLEAU"::"ARE ENTERED VIA DATA STATEMENTS AT 475+" :"SEE REMARK STATEMENTS LINES 30-80 FOR"::"VARIABLE NAME DEFIUWXYZ[\]^_`NITIONS." 903 REM KW NO. OF CSTRA ROWSW (REM KY NO. OF DECISI VBLS 1y 2REM KZ KWKZ NO. TABLE COLS <REM F(KZ) OBJECTIVE FUNCTI FREM IBV(KW) INDEX OF REM KW NO. OF CSTRA ROWS (REM KY NO. OF DECISI VBLS 1 2REM KZ KWKZ NO. TABLE COLS> <REM F(KZ) OBJECTIVE FUNCTId FREM IBV(KW) INDEX OF BASIS VBLS PREM SC(KZ)SIMPLEX CRITERIADUALVBLS U READ'S CAN BE CHANGED TO INPUT'S Z:"BUT FIRST, INPUT THE NUMBER OF DECISION VARIABLES AND CONSTRAINT ROWS IN YOUR PROBLEM";KY,KWF ["INPUT NUMBER OF >= CONSTRAINTS";CG^ \KZKYKWCG1:KYKY ]"DO YOU WANT TO SEE THE TABLEAU'S(Y/N)";T$ _ D(KW,KZ),F(KZ),IBV(KW),SC(KZ),SP(KW) dIXKZ1 f"INPUT ";IX;" OBJ.FUN.COEFF'S"  iM1IX:F(M):MB k"INPUT ";KZ1;" A(I,J)'S AND THE RHS VALUE FOR EACH ROW"\ m M1 KW: "ROW ";Mu nN1KZ:D(M,N):N,M xNKYIX:L1KW D(L,N)1.0 SP(L)N# D(L,N) 0.0 133: D(L,N) 1.0 131: "VALUE OF ";D(L,N);" NOT ALLOWED IN THE BASIS":"ROW= ";L;" COLUMN= ";N: 133k IBV(L)0.0 "ERROR:TOOMANY 1.0'S IN BASIS ON ROW ";L IBV(L)N: SP(L)0 SP(L)N L,N L1KW: IBV(L)0.0 "NO BASIS VARIABLE FOR ROW ";L: L"DATA ERROR-CHECKING COMPLETED"Z0.05 M1 KW : Z Z D(M,KZ) F(IBV(M)): M?TAB1KSCMAX0g N1 IX: I 1 KW N IBV(I) 190: ISUM0:I1KWSUMSUMF(IBV(I))D(I,N): ISC(N) F(N) SUM SC(N) SCMAX 190 SCMAX SC(N) : ICOL N  N) M1 KW:SC(IBV(M))0.0I:"ON ITER. ";TAB;", Z=";Z\ T$"N" 240 K1 KW::"ROW ";K;":";: J 1 KZ:XD(K,J):1:J:K:"SC ROW :";: K1 KZ1:XSC(K):1::K:"HIT SPACE BAR & RETURN TO CONTINUE";A$: SCMAX0.000001 400%TABTAB1BSMALL99999. : IROW0 p M1 KW: D(M,ICOL) .000001 295 QUANTD(M,KZ)D(M,ICOL)  QUANT SMALL 295"IROW M : SMALL QUANT' M, IROW 0 320 X6" THIS PROBLEM IS NOT BOUNDED BY THE "::"CONSTRAINTS AS DEFINED FOR COLUMN ";ICOL ::"TRY AGAIN PLEASE": m@IBV(IROW) ICOLJDIVD(IROW,ICOL)T N1 KZ^D(IROW,N)D(IROW,N)DIVh Nr M1 KW| M IROW 392CMD(M,ICOL) N1 KZ: D(M,N)D(M,N)D(IROW,N) CM: N! M>ZZSMALL SCMAX: 160 h"SOLUTION FOLLOWS: Z-OPTIMAL = ";Z: "VARIABLE VALUE" M1 KW:"X";IBV(M),D(M,KZ): M: "ALL OTHER VARIABLES=0.0":"SHADOW PRICES FOLLOW" I1 KW: (SC(SP(I))) .0001 470I "CONSTRAINT ";I;" WORTH";SC(SP(I));"PER UNIT"Q Ig:(4)"RUN MENU" -1,-1,-1,-1,0,0,0,-1000,-1000,-1000 3,0,1,1,-1,0,0,1,0,0,100 0,2,1,0,0,-1,0,0,1,0,300 0,0,0,1,0,0,-1,0,0,1,200 -7,-15,-9,-12,0,0,0,0,0,0,-1000,-100091,0,1,0,0,0,0,0,0,0,1,0,8Y0,1,0,1,0,0,0,0,0,0,0,1,10x0,0,1,1,1,0,0,0,0,0,0,0,71,1,0,0,0,1,0,0,0,0,0,0,141,0,-1,0,0,0,1,0,0,0,0,0,2-1,0,1,0,0,0,0,1,0,0,0,0,20,1,0,-1,0,0,0,0,1,0,0,0,20,-1,0,1,0,0,0,0,0,1,0,0,2/ 40,35,30,0,0,0,0G 2,3,2,1,0,0,0,120_ 4,3,1,0,1,0,0,160w 3,2,4,0,0,1,0,100 1,1,1,0,0,0,1,40 6.5,10,0,0,0,-1000 2,4,1,0,0,0,404,4,0,1,0,0,601,0,0,0,-1,1,8 Y -100,-150,0,0,0,-1000,-1000,-1000)Z 40,30,-1,0,0,1,0,0,360G[ 80,20,0,-1,0,0,1,0,400 b\ 5,15,0,0,-1,0,0,1,75s 4,8,0,0,0  2,3,1,0,0,48  1,0,0,1,0,15 0,1,0,0,1,10 21:" PRESS 'ESC' TO END"22:"< PRESS THE SPACE BAR TO CONTINUE...>"(16384)155750.(16384)160715@16298,0::V:(4)"RUN MENU"n  CENTERING ROUTINE*((40(CT$))2)4CT$:> GIVEN TO APPLE CORE OF SAN FRANCISCO BY AUTHOR..PAUL WYMAN.. ABOUT JUNE 1978...! LAST MOD. JULY 1979'B 'LINEAR PROGRAMMING'H`(42(A$))2:A$:::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":999:A$"PUBLIC DOMAIN SOFTWARE":999::A$"LINEAR PROGRAMMING":99911: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:K48K521005A((K)):A3ıA1100,1050,0,1030 :1000 :(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:K80K811055$K81ı)(4)"PR#1":1100:(4)"PR#0":wL::"THIS PROGRAM IS A TUTORIAL, SO JUST SIT":"BACK AND WATCH AND LEARN ABOUT BETTER":"PROGRAMMING TECHNIQUE."Q23::A$"PRESS A KEY":1200::49152,128:49168,0:(42(A$))2:A$:2000:5&(42(A$))2:A$:.:4:@ FO200W<:mA:"INTRODUCTION" F"IT IS BELIEF THAT LEARNING BY ROTE CAN":"BE FUN. THIS IS MY FIRST ATTEMPT TO":"USE GRAPHICS AND TO WRITE A PROGRAM FOR":"A LEARNING GAME." K:"WILLIE WORM'S MATH GAME ALLOWS A CHILD":"TO PRACTICE NUMBER FACTS WHILE DRAWING":"A SEGMENT OF WILLIE WITH EACH RIGHT":"ANSWER. IT TAKES 15 RIGHT ANSWERS TO" L"DRAW WILLIE COMPLETELY."A P:"THE DEGREE OF DIFFICULTY AND THE TYPE":"OF MAacdefghijklTH PROBLEM MAY BE SELECTED BY A":"TEACH, PARENT OR THE CHILD." U:"WILLIE WILL BE DRAWN DIFFERENTLY":"EACH TIME. HIS COLOR IS SELECTED FROM 1":"OF 6 COLORS AND HIS POSITION ON THE":"SCREEN WILL BE ONE OF 11 PLACES. HE "% W"HAS A SPECIAL REWARD FOR AN EXCEPTIONAL":"PERFORMANCE."/ YPFıe Z23::A$"PRESS A KEY":3::49152,128:49168,0: ::5)"***WILLIE WORM'S MATH GAME***" :"TO PLAY THE GAME, TYPE IN YOUR ANSWERS AND HIT THE RETURN KEY."  "IF YOU WISH TO STOP THE GAME TYPE IN -1 FOR ANY ANSWER."C :"WOULD YOU LIKE TO PRACTICE"Y 10)"1 ADDITION"u 10)"2 MULTIPLICATION" 10)"3 SUBTRACTION"  "CHOOSE 1,2 OR 3" W$:W(W$) W11580 W1W3ĺ"":270 W2310F :W2ĺ"WOULD YOU LIKE TO PRACTICE ONE OF THE MULTIPLICATION TABLES? YES OR NO"a N$:N(N$):N11580w N$"NO"S0:310 N$"YES"ĺ"":285 ":"WHAT NUMBER DO YOU WISH TO USE FOR THE MULTIPLIER? TYPE A NUMBER 2 TO 20.":S$:S(S$)'S11580(S2S20ĺ"":2906d@:W1ĺ"CHOOSE THE LARGEST NUMBER YOU WOULD LIKE FOR AN ADDEND."B:W2ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE FOR THE MULTIPLICAND."CW3ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE TO WORK WITH."J"TYPE IN A NUMBER BETWEEN 2 AND 150".OQ$:Q(Q$)=RQ11580VTQ2Q150ĺ"":330YP0ĺ:"TYPE IN YOUR FIRST NAME ";P$^935:SET UP NUMBERSW2S0XS:532X((1)Q)1Y((1)Q)1W1ĺ"WHAT IS "X"+"Y"?":543#W2ĺ"WHAT IS "X" TIMES "Y"?":543PW3XYĺ"WHAT IS "Y" MINUS "X"?":543wW3XYĺ"WHAT IS "X" MINUS "Y"?"I$:I(I$)!I11580&W1IXYOKOK1:1000'W2IXYOKOK1:1000(W3XYIXYOKOK1:1000)W3XYIYXOKOK1:100080"":"":NONO1:MM1:M2563U2"WRONG, TRY AGAIN":535x3" HERE IS THE CORRECT ANSWER"4W1ĺX"+"Y"="XY:M0:5355W2ĺX" TIMES "Y"="XY:M0:5356W3XYĺX"-"Y"="XY:M0:5357W3XYĺY"-"X"="YX:M0:535::P11Į:P014:"WOULD YOU LIKE TO KEEP PRACTICING WITH THE SAME KIND OF QUESTIONS? YES OR NO":N$:N$"NO"ĺ::240N(N$):N11580N$"YES"ĺ"ANSWER YES OR NO!":920:SET GRAPHICS MODE:H((1)5)1H4950 H$C20:OK0:NO0:TO.(23)7520NM0::: GRAPHICSUR|Z16336:I15:SOUND(Z)(Z):IOK111065OK131120OK141130OK151140OK151150$C10,R30C20,R30C30,R40C30,R50&1070')C10,R30C20,R30:C30,R50Y.C20,R60C10,R60C,R50C,R40C10,R30d8CC20mW530`C10,R10C20,R:530jC,R10C10,R:530t2:C9,R33C1,R33y3~C10,R25:C9,R26:C8,R27:C1,R25:C,R26:C1,R27:1500TNOOKVT15T16ĺ"WILLIE SAYS THAT YOU WERE TERRIFIC!! ";P$:5000T17ĺ"WILLIE SAYS YOU DID A VERY GOOD JOB.....";P$T17ĺ"WILLIE WANTS YOU TO PRACTICE SOME MORE, ";P$"WOULD YOU LIKE TO PLAY AGAIN?(YES OR NO) ";N$)"N$"YES"C20:OK0:NO0:T0:PP1:910>,:(4)"RUN MENUH(23)::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":3:A$"PUBLIC DOMAIN SOFTWARE":3::A$"MATH WILLIE WORM":3z11: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ıA60,2050,0,2030:2000:(4)"RUN MENU"u32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K812055 K81ıPF1:(4)"PR#0":60:PF0:(4)"PR#1":X1250pC10,R10C20,R:C,R10C10,R%uHzC10,R10C20,R10: : HPLOT C, R + 10 TO C + 10,R 0:C10,R10C20,R10:C,R10C10,RH:C10,R10C20,R:C,R10C10,RXX 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50OY 10,20,30,40,50,60,70,60,50,40,40,30,50,50,50 Z 80,70,60,50,40,30,20,30,40,50,40,30,50,50,50 [ 40,40,40,40,40,40,40,40,40,40,40,30,50,50,50\-20,-10,0,10,20,30,40,50,60,50,40,30,50,50,50] 20,20,30,30,40,40,50,50,60,70,70,60,80,80,80R^ 70,60,50,40,40,40,40,40,40,40,40,30,50,50,50 _ 40,40,40,40,40,40,40,40,40,40,40,30,50,50,50 ` 20,10,0,-10,0,10,20,30,40,50,40,30,50,50,50 a 60,70,60,50,40,50,60,70,60,50,40,30,50,50,50 )b 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50 1000:10'(42(A$))2:A$:8 MR. APPLE 1NGUESSING NUMBERSkBY LUCIEN T. HALL, JR. s(:y2<F"PLEASE TYPE IN YOUR NAME :";N$:N$""60PZ"HI, "N$". MY NAME IS MR. APPLE.":F d"WE'RE GOING TO PLAY 'GUESS THE NUMBER'.":"PLEASE SELECT HOW HARD YOU WANT THIS":"GAME TO BE..."L e f8:"1) VERY EASY":8:"2) AVERAGE":8:"3) DIFFICULT":8:"4) I DON'T WANNA PLAY" h14:"ENTER A NUMBER BETWEEN 1 AND 4 => ";:A$:A$:A(A$) jA1A4104 xA130,140mopqr,150,1030 NG5:X30:1602 NG7:X100:160C NG10:X1000\ :N$", MR. APPLE IS :"THINKING OF A NUMBER BETWEEN 0 AND "X"."::"IF YOU CAN GUESS THE NUMBER WITHIN "NG::"GUESSES, YOU WIN. N((X1)(1))1:C0( CC1:::N$", TYPE IN YOUR GUESS. ";:"=>";G:GN200:210? C(NG1)290:230y GN220::N$", "G" IS TOO LARGE. TRY AGAIN.":190 :N$", "G" IS TOO SMALL. TRY AGAIN.":190 :4:"GOOD. THAT IS THE NUMBER, "N$".": "BUT IT TOOK YOU "C" GUESSES WHICH IS MORE THAN "NG" GUESSES.":H "MR. APPLE WINS THIS GAME, "N$".":{ "THINK! IT IS POSSIBLE FOR YOU TO ALWAYS WIN. :"TO PLAY MR. APPLE AGAIN, PRESS RETURN. PRESS Q TO QUIT.";Z$ Z$"Q"Z$"q"320::80 ":4:"YOU WIN, "N$:F ,"YOU GUESSED MY NUMBER IN ONLY "C" GUESSES. THAT IS WITHIN "NG" GUESSES.O 6270u @:"BYE, "N$"!"::(4)"RUN MENU"| J T***************** ^* MODIFIED BY * h* TOM McCORD * r* EDUCATIONAL * |* MEDIA ** SERVICES ******************o::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"MR. APPLE 1":5J11: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:K48K521005A((K)):A3ıA1100,1050,0,1030:1000:(4)"RUN MENU"H32,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":1100:(4)"PR#0":2L::"IN THIS GAME, YOU'RE GIVEN A CERTAIN":"NUMBER OF GUESSES (BASED ON LEVEL OF":"DIFFICULTY) TO GUESS A NUMBER BETWEEN"OQ"TWO OTHERS. HAVE FUN"V23::A$"PRESS A KEY":5::49152,128:49168,0:1000:10'(42(A$))2:A$:8 MR. APPLE 2PFINDING GRID POINTmBY LUCIEN T. HALL, JR. u#90}(:2N5:5:"MR. APPLE IS HIDING ON A GRID. YOU CAN":"SPECIFY ANY GRIDPOINT BY TYPING IN TWO"2 <"NUMBERS SEPARATED BY A COMMA. YOU GET":"FIVE TRIES. AFTER EACH TRY, I WILL"| F"TELL YOU THE APPROXIMATE DIRECTION TO":"GO TO LOOK FOR MR. APPLE." K:"BTW: TO QUIT, ENTER -1,-1 AS YOUR GRID NUMBERS." MPFı P23::A$"PRESS A KEY":5:49152,128:49168,0::B Z:suvwxy:22::3:57,3203,3:57,17203,17:57,31203,31:57,45203,45 d57,59203,59:57,73203,73:57,87203,87:57,101203,101:57,115203,115 n57,129203,129:57,143203,143:60,060,146:74,074,146:88,088,146 x102,0102,146:116,0116,146:130,0130,146:144,0144,146[ 158,0158,146:172,0172,146:186,0186,146:200,0200,146 57,144203,144:59,14659,0:55,13855,14847,14847,13855,138:84,14892,14892,15484,15484,15892,158! 112,148112,153120,153120,148120,158:140,148140,158148,158148,153140,153f 168,148168,158176,158176,153168,153176,153176,148168,148 47,11055,11055,11647,11647,12055,120:47,8247,8755,8755,8255,92:47,5447,6455,6455,5947,59I 47,2647,3655,3655,3147,3155,3155,2647,26:A(10(9)):B(10(9)):K15::"MAKE GUESS #"K;:" ";X,Y] X1Y11030 X9Y9X0Y0ĺ"YOU MUST USE NUMBERS 0 THROUGH 10.":210R(X14)60:S(((Y10)14)3)1:P(R3)(R3):Q(S3)(S3):1:P,Q:::(XA)(YB)0240:260E:"SORRY, THAT'S "N" GUESSES.":"MR. APPLE IS AT "A","B".U(A14)60:V(((B10)14)3)1:W(U5)(U5):Z(V5)(V5):3:W,Z:Z:"PRESS RETURN TO PLAY AGAIN.":"TO STOP, PRESS ANY KEY.";:XX$:(XX$)13310:90MP(R5)(R5):Q(S5)(S5):3:P,Q:::K1250:"YOU FOUND MR. APPLE IN 1 GUESS.":230}"YOU FOUND MR. APPLE IN "K" GUESSES.":230"MR. APPLE IS NOT AT "X","Y". GO ";:YB280:YB270:"SOUTH";:280"NORTH";(XA)300:(XA)290:"WEST";:300 ""EAST";,:+6::(4)"RUN MENU"2@ IJ*****************`T* MODIFIED BY *w^* TOM McCORD *h* EDUCATIONAL *r* MEDIA *|* SERVICES ******************%::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::L4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"MR. APPLE 2":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"749152,128:K(49152)128:49168,0:K48K521005LA((K)):A3ıbA40,1050,0,1030n:1000:(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."549152,128:K(49152)128:49168,0:K80K811055A$K81ım)PF1:(4)"PR#1":40:(4)"PR#0":PF0:1000:10'(42(A$))2:A$:8 MR. APPLE 3PFINDING GRID POINTmBY LUCIEN T. HALL, JR. y#N5:90(:25:"MR. APPLE IS HIDING ON A GRID. YOU CAN":"SPECIFY ANY GRIDPOINT BY TYPING IN TWO"[ <"NUMBERS SEPARATED BY A COMMA. YOU GET":"FIVE TRIES. AFTER EACH TRY, I WILL":"TELL YOU THE APPROXIMATE DIRECTION TO" F"MR. APPLE'S LOCATION. GOOD LUCK IN ":"FINDING MR. 'ELUSIVE'!" K:"BTW: TO END THE GAME, ENTER 10,10 AS A GRIDPOINT" MPFı P23::A$"PRESS A KEY":z|}~5::49152,128:49168,0:c Z::22::3:57,3203,3:57,17203,17:57,31203,31:57,45203,45 d57,59203,59:57,73203,73:57,87203,87:57,101203,101:57,115203,115 n57,129203,129:57,143203,143:60,060,146:74,074,146:88,088,146< x102,0102,146:116,0116,146:130,0130,146:144,0144,146 158,0158,146:172,0172,146:186,0186,146:200,0200,146:57,72203,72 57,74203,74:129,0130,146:131,0131,146:176,79180,79:178,77178,81J 183,77183,81189,81189,77189,85:64,7968,79:71,7771,8177,8177,7777,85:113,15117,15:115,13115,17 120,12120,16126,16126,12126,21:113,126117,126:120,124120,128126,128126,124126,133:A((11(9)))5 B((11(9)))5:K15::"MAKE GUESS #"K;:" ";X,Y X10Y101030P X5Y5X5Y5ĺ"YOU MUST USE INTEGERS -5 THROUGH 5.":200 R(X14)130:S(((Y5)14)3)1:P(R3)(R3):Q(S3)(S3):1:P,Q:::(XA)(YB)0230:250 :"SORRY, THAT'S "N" GUESSES.":"MR. APPLE IS AT "A","B".GU(A14)130:V(((B5)14)3)1:W(U5)(U5):Z(V5)(V5):3:W,Z::"PRESS RETURN TO PLAY AGAIN.":"TO STOP, PRESS ANY OTHER KEY.";:XX$:(XX$)13300:90P(R5)(R5):Q(S5)(S5):3:P,Q:::K1240:"YOU FOUND MR. APPLE IN 1 GUESS.":2205"YOU FOUND MR. APPLE IN "K" GUESSES.":220"MR. APPLE IS NOT AT "X","Y". GO ";:YB270:YB260:"SOUTH";:270"NORTH";(XA)290:(XA)280:"WEST";:290"EAST";":,:(4)"RUN MENU"6 @*****************J* MODIFIED BY *-T* TOM McCORD *D^* EDUCATIONAL *[h* MEDIA *rr* SERVICES *|*****************::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:;A$"PUBLIC DOMAIN SOFTWARE":5::A$"MR. APPLE 3":511: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:K48K521005A((K)):A3ıA40,1050,0,1030$:1000::(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:K80K811055$K81ı#)PF1:(4)"PR#1":40:PF0:(4)"PR#0":1000:10'(42(A$))2:A$:8 MR. APPLE 4PFINDING GRID POINTmBY LUCIEN T. HALL, JR. y#N5:90(:25:"MR. APPLE IS HIDING ON A GRID. YOU CAN":"SPECIFY A GRIDPOINT BY TYPING IN TWO"1 <"NUMBERS SEPARATED BY A COMMA. YOU GET":"FIVE TRIES. AFTER EACH TRY, I WILL "x F"TELL YOU THE APPROXIMATE DIRECTION TO ":"MR. APPLE'S LOCATION." K:"BTW: TO QUIT THE GAME, ENTER -1,-1 AS YOUR GRIDPOINTS." MPFı P23::A$"PRESS A KEY":5:49152,128:49168,0::A Z::22::3:57,3203,3:57,17203,17:57,31203,31:57,45203,45 d57,59203,59:57,73203,73:57,87203,87:57,101203,101:57,115203,115 n57,129203,129:57,143203,143:60,060,146:74,074,146:88,088,146 x102,0102,146:116,0116,146:130,0130,146:144,0144,146Z 158,0158,146:172,0172,146:186,0186,146:200,0200,146 57,144203,144:59,14659,0:55,13855,14847,14847,13855,138 80,15782,15782,15880,158:84,14892,14892,15484,15484,15892,1589 110,157110,158109,158109,157:112,148112,153120,153120,148120,158 138,157138,158137,158137,157:140,148140,158148,158148,153140,153:166,157166,158165,158165,157 168,148168,158176,158176,153168,153176,153176,148168,1489 44,11945,11945,12044,120:47,11055,11055,11647,11647,12055,120 44,9145,9145,9244,92:47,8247,8755,8755,8255,92:44,6345,6345,6444,64:47,5447,6455,6455,5947,59 44,3545,3545,3644,36:47,2647,3655,3655,3147,3155,3155,2647,26JA((11(9))).1:B((11(9))).1:K15::"MAKE GUESS #"K;:" ";X,Y^X1Y11030X1Y1X0Y0ĺ"YOU MUST USE DECIMALS 0 THROUGH 1.":250R(X1014)60:S((((Y10)10)14)3)1:P(R3)(R3):Q(S3)(S3):1:P,Q:::XAYB280:300F:"SORRY, THAT'S "N" GUESSES.":"MR. APPLE IS AT "A","B".U(A1014)60:V((((B10)10)14)3)1:W(U5)(U5):Z(V5)(V5):3:W,Z::"PRESS RETURN TO PLAY AGAIN.":"TO STOP, PRESS ANY KEY.";:XX$:(XX$)13350:90UP(R5)(R5):Q(S5)(S5):3:P,Q:::K1290:"YOU FOUND MR. APPLE IN 1 GUESS.":270""YOU FOUND MR. APPLE IN "K" GUESSES.":270,"MR. APPLE IS NOT AT "X","Y". GO ";:YB320:YB310:"SOUTH";:3206"NORTH";@(XA)340:(XA)330:"WEST";:340J"EAST";T:1^:(4)"RUN MENU"8h Or*****************f|* MODIFIED BY *}* TOM McCORD ** EDUCATIONAL ** MEDIA ** SERVICES ******************+::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::R4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"MR. APPLE 4":511: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:K48K521005RA((K)):A3ıhA40,1050,0,1030t:1000:(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:K80K811055G$K81ıs)PF1:(4)"PR#1":40:PF0:(4)"PR#0":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$"CONNECT A DOT":2003 f11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"i 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."K 49152,128:K(49152)128:49168,0:K80K81155W K81ı PF1:(4)"PR#1":400:PF0:(4)"PR#0": A20((A$)2):A:A$;: ,:(4)"RUN CONNECT.TWO" ::"THE OBJECT OF THIS GAME IS TO COMPLETE":"SQUARES." "YOU DO THIS BY DRAWING LINES BETWEEN":"THE DOTS ON THE GAME BOARD.":"TO PLOT A LINE, TYPE IN THE COORDINATES OF ITS ENDPOINTS (TOP # FIRST, THEN THE SIDE #)." "EACH SQUARE HAS A DIFFERENT SCORES.":"THE SQUARE'S SCORES INCREASE FROM":"UPPER LEFT TO LOWER RIGHT."\ "IF A PLAYER SCORES BY COMPLETING A":"SQUARE, HE GETS ANOTHER TURN." "THE GAME IS OVER WHEN ALL SQUARES ARE":"FILLED IN. HIGH SCORE WINS." "TO STOP A GAME AND START OVER, PRESS":"THE 'ESC' KEY. GOOD LUCK!" PFı) ::A$"PRESS A KEY TO CONTINUE":200:< A$:A$""440B (2000: MONOCHROME BY JOHN KAMINAR` BY JOE GARBER, WITH LOGIC FROM CREATIVE COMPUTINGS$"124501230023560147002456836900457807890056890"61 GRAPHICS ROUTINES FOLLOWIMMKKAA,AA11IIAAAA11  3,95:= 17,203:4,521:19,206:18,197:17,188:17,219:n 29,323:4,533:31,326:7,833:29,329: 16,194:4,819:16,227: 17,2116:16,1817:18,2019:20,2121:17,2022: 30,3316:17,2129:29,3219:30,3222:20,2133: 4,729:29,357:a 18,2029:18,2032:18,2035:30,3117:30,3121:33,3417:33,3421: 30,3229:30,3232:30,3129:30,3533: ::" INSTRUCTIONS" "***************************************"F ::"FRUSTRATION IS A MADDENING LOGIC GAME":"INVENTED BY PEOPLE AT THE DIGITAL":"GROUP":: "THE OBJECT OF THE GAME IS TO CHANGE THE":"PATTERN OF BLUE AND RED TILES SO THAT":"ALL TILES EXCEPT THE CENTER TILE ARE":"BLUE"::: "THE CENTER TILE MUST BE RED":::a "THE GAME BOARD IS NUMBERED AS FOLLOWS:"::" 1 2 3":" 4 5 6":" 7 8 9" "HIT ANY KEY TO CONTINUE ";:W$:W$: "TO MOVE, KEY THE NUMBER OF THE TILE YOU":"WISH TO TURN BUT REMEMBER";::" YOU CAN ONLY":"TURN BLUE TILES!!":: "THE RESULTS OF TURNING A TILE ARE:"::"1 - A CORNER TILE, WHEN TURNED, WILL":"ALSO TURN THE THREE TILES ADJACENT TO":"IT. FOR EXAMPLE, IF YOU TURN SQUARE #1" :" B R R" " B B R" " R B R"::"THE PATTERN WILL CHANGE TO:":::- " R B R"B!" R R R"~"" R B R":"HIT ANY KEY TO CONTINUE ";:W$:W$: #"2 - AN TILE AT THE CENTER OF AN EDGE,":"WHEN TURNED, WILL ALSO TURN THE TILES":"ALONG THAT EDGE. FOR EXAMPLE TURNING ":"TILE #2:"::!$" R B R"5%" B B B"M&" R R B"::v'"WILL RESULT IN THE FOLLOWING:"::(" B R B")" B B B"*" R R B"::+"HIT ANY KEY TO CONTINUE ";:W$:W$:X,"3 - FINALLY TURNING THE CENTER TILE":"(TILE #5) WILL CHANGE TILES EXCEPT":"THE CORNER TILES, FOR EXAMPLE:"::n-" R B B"." R B R"/" B B B"0::"WILL CHANGE TO:"::1" R R B"2" B R B"3" B R B"::*4"HIT ANY KEY TO CONTINUE ";:W$:W$:V5"REMEMBER THE WINNING PATTERN IS:"::m6" B B B"7" B R B"8" B B B":::9"ENTRY OF A '0' ENDS THE GAME":: ::"AND, REMEMBER, YOU CAN ONLY TURN BLUE":"SQUARES"::::2;"HIT ANY KEY TO CONTINUE ":W$:W$8<O=B(9),S$(45),W$(8)[>M0:89?:936:::::" FRUSTRATION":::::AB99C124DW$""76E"ENTER YOUR MOVE ";:X:XFX083G133HE169I140 JMM1K66L:=MW$"WON"ĺ"Y O U W I N ! !"gNW$"LOST"ĺ" Y O U L O S E ! ! ! !"mOP"IT TOOK YOU ";M;" MOVES"Q"PLAY ANOTHER GAME? ";:A$RA$"Y"62S:TI190U" QUITTER!! ";VIW:(4)"RUN MENU"2000:10'(42(A$))2:A$:E ALPHABET ANTICS 1/4/82 THIS PROGRAM IS DESIGNED TO TEACH AND REINFORCE ALPHABET SKILLS. H. BURKE (:70224:"PRESS TO GO ON, TO END "; <IN$:(IN$)160:(IN$)(27)80:(IN$)1360::9 FL$(26):I126:L$(I):IL P PROGRAM MENUT Z: d5:13:"ALPHABET ANTICS":8:5:"CHOOSE ONE OF THE FOLLOWING: n10:9:"1. LETTER MATCH":12:9:"2. THREE LETTER SEQUENCE x14:9:"3. FOLLOW THE LETTER":16:9:"4. FIND THE MISSING LETTERk 18:9:"5. QUIT":20:5:"CHOOSE ONE - ";:A$::A$"1"180:A$"2"400 A$"3"470:A$"4"540:A$"5"ĺ:(4)"RUN MENU" CHECK ON MENU SELECTION 80 DIRECTIONS FOR LETTER MATCH 5:8:"WELCOME TO LETTER MATCHR 10:12:"YOUR NAME":10:22:N$:N$""190::4:15:"HELLO "N$ 10:" MATCH THE LETTER ON THE SCREEN BY 11:" PUSHING THE CORRECT LETTER KEY. PRESS":12:" ANY KEY TO BEGIN. 20:" PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100+ LOOP TO GET LETTERS4 II1: ]  SELECTS RANDOM NUMBER/LETTER| 610:: PRINT FOR LETTERS 12:18 "A$"1"İ620 ,A$"2"İ640 6A$"3"İ660 @A$"4"İ680 J B$ = STUDENT RESPONSE# T8:14:"LETTER?":17:14:B$:18:B$:(B$)27ė:100H ^18:14: CHECK STUDENT RESPONSE hL$(X%)B$ĺ"NO, "N$". TRY AGAIN.":1120::12:18:290 rB$L$(X%)İ710 |1120::IIII1:II50250:11:10:"THANKS FOR PLAYING!":1120::100 DIRECTIONS FOR THREE LETTER SEQUENCE=5:5:"WELCOME TO THREE LETTER SEQUENCE10:12:"YOUR NAME":10:22:N$:N$""410::4:15:"HELLO "N$"10:"FILL IN THE MISSING LETTER BY PUSHING 11:"THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.;20:"PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100D240k DIRECTIONS FOR FOLLOW THE LETTER5:5:"WELCOME TO FOLLOW THE LETTER10:12:"YOUR NAME":10:22:N$:N$""480::4:15:"HELLO "N$" 10:"FILL IN THE MISSING LETTER BY PUSHINGM11:"THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.20:"PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100240 DIRECTIONS FOR FIND THE MISSING LETTER5:5:"WELCOME TO FIND THE MISSING LETTER?&10:12:"YOUR NAME":10:22:N$:N$""550::4:15:"HELLO "N$"o010:"FILL IN THE MISSING LETTER BY PUSHING:11:" THE CORRECT LETTER KEY.":14:"PRESS ANY KEY TO BEGIN.D20:"PRESS ESC TO RETURN TO PROGRAM MENU.";:B$:(B$)27ė:100N240 X680/bX%((9)2003):X%1X%26610:Ll PRINT FOR LETTER MATCHvvL$(X%):6:12:"MATCH THE LETTER!": PRINT FOR THREE LETTER SEQUENCEA$"2"X%1X%26260:12:16:L$(X%1)" ^ "L$(X%1): PRINT FOR FOLLOW THE LETTER LA$"3"X%26260:L$(X%1):6:"WHAT LETTER FOLLOWS THIS ONE?":t PRINT FOR FIND THE MISSING LETTERA$"4"X%1260:16:18:L$(X%1)6:"WHAT LETTER COMES BEFORE THIS ONE?": RANDOM NUMBER GENERATER TO CHOOSE REINFORCERX%(9)2004:X%1X%20720|X%750,760,770,780,790,820,830,840,850,860,920,930,940,950,960,1010,1020,1030,1040,106019:12:"GOOD JOB, "N$"!":15:19:"TERRIFIC!":11:19:"GR-R-R-EAT WORK!!!": 12:19::"GOOD WORK, "N$"."::" GRAPHICS FOR COLORSo ::I139:I:1,39I:I:I139:I:1,39I:I:M3901:M:39,1M:M*I3911:I:39,1I:I:I139:S1100:S:0:1,39I:I:::414:19::"YOU GOT IT!"::>14:19:"YOU DID IT!": H16:19:"PERFECT!":)R17:19::"SMARTY!"::A\ GRAPHICS FOR FACEf::11:I139:0,39I:1,3939:39,039:39,1O:8:8,158:22,298:2p11,1212:10,1212:10,1211:10,1025:10,1126:11,1125:12,1126$z12,1125:5:22,1518:18,2022:1:I1200:I:16,2330:24,29:15,29oI1200:I:25,28:14,28:I1200:I:13,27:26,27:I1200:I:27,2612,26:I1200:I:11,25:28,25:I1200:I:I12000:I:::11:19:"RIGHT L E T T E R !":12:19:"NICE WORK, "N$"!":!8:19:N$" IS A COMPUTER WHIZ!":E9:19:N$" IS SO-O-O SMART!":^ GRAPHICS FOR GOOD!::7:5,810:5,820:7,915:11,129:15,199:11,194:2:13,161013,1620:11,1912:11,1917:3:21,2410:21,2420:11,1920:11,1925A11:28,3110:32,11:32,19:28,3120:10,2028:12,1833:1:10,1837_37,20:I12000:I:::14:19::"WHAT A WHIZ!"::10:19::"F A N T A S T I C !"::17:19::"SUPER!":: NAME REINFORCEMENT:J124:N$N$N$N$N$N$N$;:K140:K:J:'$ GRAPHICS FOR RIGHTs.::12:1,713:1,718:13,241:13,187:2,19:3,20:4,21:5,22:6,2387,24:13,2412:17,2313:17,2324:20,2319:13,2417B19,2423:13,2425:13,2431:25,3118:13,2436:33,3913:I12000:IL::@V A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,ZJ`50:Qj ht ****************~ * MODIFIED BY * * TOM McCORD * * EDUCATIONAL * * MEDIA * * SERVICES * ****************D::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::k4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"ALPHABET ANTIC S":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:K48K522005pA((K)):A3ıA2100,2050,0,2030: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:K80K812055g K81ıPF1:(4)"PR#1":2100:(4)"PR#0":PF0:4::"THERE ARE FOUR MINI-PROGRAMS IN THIS":"PROGRAM. I WILL EXPLAIN EACH.">9:"LETTER MATCH - SEE A LETTER & TYPE IT.":" IF YOU SEE A 'D' THEN TYPE 'D'.">:"THREE LETTER SEQUENCE - YOU'LL BE GIVEN":" TWO LETTERS, AND YOU MUST RESPOND":" WITH THE LETTER BETWEEN THEM." C:"FOLLOW THE LETTER - TYPE THE LETTER":" THAT COMES AFTER THE ONE SHOWN." H:"FIND THE MISSING LETTER - TYPE THE":" LETTER WHICH COMES BEFORE THAT":" LETTER SHOWN ON THE SCREEN." KPFı M:"HAVE FUN":23::A$"PRESS A KEY":5::49152,128:49168,0:3000:5&(42(A$))2:A$:.:4 : @FLRX^#g&150(::"THIS IS THE FACTOR GAME. YOU PLAY"-"AGAINST THE COMPUTER. WHEN IT IS YOUR"2"TURN, YOU CHOOSE A NUMBER FROM THE LIST" 7"OF NUMBERS DISPLAYED. "= <"AFTER YOU HAVE CHOSEN A NUMBER, I CAN "l A"THEN CLAIM ALL THE NUMBERS REMAINING IN" F"THE LIST WHICH ARE FACTORS OF YOUR " K"CHOICE. " N P"FOR EXAMPLE -- IF YOU CHOOSE 18, THEN" U"I CAN CLAIM 2,3,6, AND 9 IF THEY ARE"2 Z"STILL IN THE LIST. YOU WOULD RECEIVE"` _"18 POINTS AND I WOULD RECIEVE 20. THEN" d"IT WOULD BE MY TURN TO CHOOSE AFTER" i"WHICH YOU CLAIM FACTORS." n::A$"*** LET'S PLAY FACTOR ***" s20(A$)2);:A$ xPFı }"HIT ANY KEY TO CONTINUE------":B$% 9 A(200),N$(200)Y VARIABLES USED IN PROGRAMp A$= PLAYERS NAME A(I)= SUM OF FACTORS OF I REMAINING N$(I) TWO CHARACTER STRING ELEMENT FOR PRINTING .IT IS I IF I IS IN THE ARRAY AND BLANK OTHERWISE  A= PLAYERS SCORE3 B= COMPUTERS SCORET W= NUMBER OF COMPUTER WINSs Z= NUMBER OF PLAYER WINSy  W0:Z0 1:"***************************************" U1$"THE FACTOR GAME-- BY PAUL A PAGE" 20(U1$)2):U1$) "***************************************"3 34,4; Z0B 5c ""WHAT IS YOUR FIRST NAME ";k ,A$q 1 6"HOW LARGE DO YOU WANT THE ARRAY (MAX 81) @N JN81360 TN2360 ^N(N)380h" "::"ILLEGIAL VALUE ENTERED--TRY AGAIN":P11000:P:m'r:310W|"DO YOU WANT TO CHOOSE FIRST (1=YES,0=NO)"^Cq(C1)C0440" "::"PLEASE ENTER 1 OR 0."::380 ** INITILIZE A,B,A(),N$()A0B0I181:A0:II2NN$(I)(I)#N$(I)" "N$(I)*IF SUB 2000 PRINTS ARRAYP2000x& SET EACH A(J)=SUM OF FACTORS OF J0I2N2:J2INIDA(J)A(J)INJXIb ** IF PLAYER MOVES FIRST WE BRACH HERElC11190 v ** COMPUTERS MOVE-FIND THE REMAINING VALUE LT WHICH GIVES THE GREATEST PROFIT AFTER CLAIMS bM1000000jL0uI2NA(I)IM720N$(I)" "720MA(I)ILII ** IF L=0 THEN NO CHOICES LEFTL01590:"MY TURN. I CHOOSE ";LBBL!I2LNL1 A(I)A(I)L8IF N$(L)" "x*"WHAT FACTOR OF ";L;" DO YOU CLAIM (0=NONE)"4 ** ACCEPT CLAIM & CHECH FOR VALIDITY>DHD01030RD(D)870\(D1)(DN1)0890f:" "::"CHOICE OUT OF RANGE-YOU LOSE YOUR TURN":)p1030=zN$(D)" "920w" "::D;" IS NOT AVAILABLE-YOU LOSE YOUR TURN":1030(LD)DL960" "::D;" IS NOT A FACTOR OF ";L"YOU LOSE YOUR TURN":1030 ** UPDATE A(I) FOR CHOICE DI2DND&A(I)A(I)D-I;N$(D)" "EAADN810s ** TEST IF ALL FACTORS CLAIMEDA(L)0110050,63:"YOU COULD HAVE ALSO CHOSEN ";:I2L2$N$(I)" "1090.(LI)IL10908I;" ";BI LN$(L)" "&V ** TEST FOR GAME OVER1`I2NFjN$(I)" "1170MtIW~1590l ** PRINT ARRAYv2000 ** NOW ITS PLAYERS TURN"YOUR TURN. WHAT NUMBER DO YOU CHOOSE ";C ** TEST FOR VALID CHOICE (C1)(CN1)01260>" "::"CHOICE OUT OF RANGE.CHOOSE AGAIN":H1200]N$(C)" "1300" "::C;" IS NOT AVAILABLE-CHOOSE AGAIN":1200  ** UPDATE A(I) FOR THIS CHOICE CI2CNCA(I)A(I)C(I2AAC<N$(C)" "FLCP" ";:"I CLAIM ";=Z ** ARE THERE ANY CLAIMS?NdA(C)01420an:"NOTHING":kx1530 ** FIND & PRINT ALL CLAIMSI2L2N$(I)" "1510(LI)IL1510I;" ";J2INIA(J)A(J)IJBBI N$(I)" "I) ** PRINT ARRAY32000O ** TEST FOR GAME OVERZI2NnN$(I)" "650u"I, ** GAMES OVER-PRINT RESULT6::" "::"FINAL SCORE - ";A$;" ";A;" COMPUTER ";B:@AB1720JAB1750TWW1G^50,63:"I WON THAT TIME":"BUT YOU CAN HAVE ANOTHER CHANCE.":qh"WANT TO PLAY AGAIN (1=YES , 0=NO)";xrC|C1ė:310C01700" "::"PLEASE ENTER 1 OR 0":1640" ":"I WON ";W;" GAMES AND YOU WON ";Z-:::"THANKS FOR PLAYING-- COME AGAIN SOON"E::(4)"RUN MENU"OZZ1r"YOU WON, BUT YOU WERE LUCKY"|1640"TIE GAME-----"1640 ** PRINT ARRAY50,63:A$;"'S SCORE ";A;" ";"COMPUTERS SCORE ";B:I2N N$(I);" ";%((I1)9)9I12060+2 I8> H%34,0N* ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: 4:A$"ADVANTAGE COMPUTING'S":3: A$"PUBLIC DOMAIN SOFTWARE":3::A$"FACTOR GAME":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:K48K523005 A((K)):A3ı A40,3050,0,3030 :3000 :(4)"RUN MENU"w 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:K80K813055 K81ı PF1:(4)"PR#1":40::(4)"PR#0":PF0: 3000 X10E THIS PROGRAM WAS WRITTEN Y BYw DANIEL A. LAMBERT ( MODIFIED AND EXTENDED2 BY < GARRY G. KIZIAKF: PE$" ":100 ZI13500::M dI08:D1(I)0:D2(I)1:D3(I)1::S08:C1(S21)2 nD1(S)C1:S:::2:"**************************************** x5:" TOWERS OF HANOI":: "****************************************":2 "HI THERE, PLEASE TYPE IN YOUR NAME-- ":::" ";A$x ::"WOULD YOU LIKE INSTRUCTIONS, "A$" ? ";:AN$:AN$"Y"ė:860 21:1:958 "THEN, HOW MANY DISKS DO YOU WISH TO USE "A$;:" ? ";NU$:NU(NU$):NU3NU8Ģ21:AN$"Y"Ģ19 NU3NU8Č958:1708 :"THE MINIMUM NUMBER OF MOVES IS "2NU1".y :10::"HIT ANY KEY TO BEGIN";::AN$:W20:W30:M0::670 23:"FROM WHICH POST? 1-2-OR-3, "A$;:P1$:P1(P1$):P11400:P12440 P13480::21:(7):"POST "P1$"!! ARE YOU KIDDING??":(7):90::210a 23:E$;:23:"TO WHERE? 1-2-OR-3, ";:P2$:P2(P2$):P21520:P22570 P23620::21:(7):"POST "P2$" YOU MUST BE JOKING!":(7):90::230 LSD1(S)280:550 LSD2(S)280:600 LSD3(S)280:650< :21:(7):"PLACING A BIG DISK ON A SMALLER ONE IS ANO-NO!!":(7)K "90::230 ,W2NUW3NU390:W23W30360:W20W33360:760 6W2NUW3NU390:W24W30360:W20W34360:760 @W2NUW3NU390:W25W30360:W20W35360:760+JW2NUW3NU390:W26W30360:W20W36360:760cTW2NUW3NU390:W27W30360:W20W37360:760}^W2NUW3NU390:760h:21r"WOW! SO FAR SO GOOD, YOU MADE IT IN THE MINIMUM NUMBER OF "M" MOVES.|"PLEASE CONTINUE "A$(7):90::210<:21:"CONGRATULATIONS---YOU WIN "A$:I110:(7);:I:830S0NU:D1(S)1420:S:D1(NU)1ė:(7):"NO DISK ON POST ONE.(7):90::210LSD1(S):A9(D1(S)2):B9(D1(S)2):D1(S)1:0:SS2162NU:XAB X,S:X,S1:X:12:9,S:9,S1:230NS0NU:D2(S)1460:S:D2(NU)1ė:(7):"NO DISK ON POST TWO.c(7):90::210LSD2(S):C20(D2(S)2):D20(D2(S)2):D2(S)1:0:SS2162NU:YCDY,S18:Y,S19:Y:12:20,S18:20,S19:W2W21:2301S0NU:D3(S)1500:S:D3(NU)1ė:(7):"NO DISK ON POST THREE.F(7):90::210LSD3(S):E31(D3(S)2):F31(D3(S)2):D3(S)1:0:SS2162NU:ZEFZ,S:Z,S1:Z:12:31,S:31,S1:W3W31:230S0NU:D1(S)1540:SD1(S)2550:D1(S)2250N&SS1:D1(S)LS:A9(D1(S)2):B9(D1(S)2):U((LS1)2):U:XABx0X,S2162NU:X,S2172NU:X:720~:DS0NU:D2(S)1590:SND2(S)2600:D2(S)2260XSS1:D2(S)LS:C20(D2(S)2):D20(D2(S)2):U((LS1)2):U:YCD5bY,S2342NU:Y,S2352NU:Y:W2W21:720;lWvS0NU:D3(S)1640:SuD3(S)2650:D3(S)2270SS1:D3(S)LS:E31(D3(S)2):F31(D3(S)2):U((LS1)2):U:ZEFZ,S2162NU:Z,S2172NU:Z:W3W31:720=:12:LS0:H018:9,H:31,H:20,H18:H:8,1018:30,3218:19,2136~0,43:2,1:2,4:4,4:24,262:24,260:24,264:26,1:26,312,1419:12,1421:12,1423:14,20:12,22:S0NU:S19(D1(S)2),9(D1(S)2)S2162NU39(D1(S)2),9(D1(S)2)S2172NU:12:9,162NU:9,172NU:S:2109MM1:M7300:M15310:M31320:M63330:M127340:M255350W2NUW3NU810:21:"SO FAR YOU MADE "M" MOVE";:M1ĺ"S";" "A$:23:E$;:210(7)::21?"YOU DID NOT MAKE IT IN THE MINIMUM ":"NUMBER OF MOVES POSSIBLE, I SUGGEST YOUx "START OVER "A$" (YES OR NO)";:AM$:AM$"N"ė:210I08:D1(I)0:D2(I)1:D3(I)1:I:S08:C1(S21)2:D1(S)C1:S :21:170*I05:(7);::M02NU1::4"YOU DID IT, BUT IT TOOK YOU "MM0" ":"MORE MOVES THAN IT SHOULD HAVE.>"WANT TO PLAY AGAIN? (Y/N) ";:AM$:AM$:(AM$,1)"N"ĺ:(4)"RUN MENU2"H:790R:(4)"RUN MENU2"W:X11\1:1:"IN THIS GAME, THERE ARE THREE POSTS f"NUMBERED 1,2, AND 3. POST #1 HAS8p"SEVERAL DISKS ON IT, EACH A DIFFERENTdz"SIZE. THE SMALLEST DISK IS ON TOP AND"EACH SUCCEEDING DISK IS SLIGHTLY LARGER"SO THAT THE LARGEST DISK IS ON THE ":"BOTTOM. :"THE OBJECT OF THE GAME IS TO MOVE THE#"DISKS FROM POST #1 TO ONE OF THE OTHERO"POSTS IN THE MINIMUM NUMBER OF MOVES.|:"HOWEVER, WHEN MOVING A DISK FROM ONE"POST TO ANOTHER, IT MUST NOT BE PLACED"ON TOP OF A SMALLER ONE"PFıX1097823::A$"PRESS A KEY":1500::49152,128:49168,0:X10:F:"DO YOU UNDERSYAND? (Y/N)";:AN$XAN$"N"ī860h19:1:170o  **************** * MODIFIED BY * * TOM McCORD * * EDUCATIONAL * * MEDIA * * SERVICES *$ ****************((42(A$))2:A$:?T :(4)"RUN MENU2"P ::49168,0 SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;:: 4:A$"ADVANTAGE COMPUTING'S":1500:6:A$"PUBLIC DOMAIN SOFTWARE":1500:8:A$"TOWERS OF HANOI":1500 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 23:39:A:A1A43020 A855,3050,3035,2900 FL03000 FLFLFL:10 FL1: 32,2:33,33:34,11:35,22:j 11:"MAKE SURE YOU HAVE YOUR PRINTER READY":"AND PRESS 'P' TO PRINT OR 'Q' TO QUIT" 49152,128:(49152)128("P")(49152)128("Q")Ĺ49168,0:3060 (49152)128("Q")ı : (4)"PR#1":PF1:855:(4)"PR#0":PF0: 3000936( 16);"ROCKET"2::YF" LUNAR LANDING SIMULATION"P" ----- ------- ----------":d"DO YOU WANT INSTRUCTIONS (YES OR NO) ";A$nA$"NO"390} "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL CONTROL 500 FEET ABOVEA GOOD LANDING SPOT. YOU HAVE A DOWNWARDVELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN." "HERE ARE THE RULES THAT GOVERN YOUR VEHICLE:" "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING FUEL WILL BE REPORTED" "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE NUMBER OF UNITS OF FUELYOU WISH TO BURN DURING THE NEXT SECOND.EACH UNIT OF FUEL WILL SLOW YOUR DESCENTBY 1 FT/SEC." "::: 'PFı ,:"PRESS ANY KEY TO CONTINUE" 1A$o 6"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC OR 30 UNITS OF FUEL PER SECOND." J"(4) WHEN YOU CONTACT THE LUNAR SURFACE,YOUR DESCENT ENGINE WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A REPORT OF YOUR LANDING SPEE3000:10'(42(A$))2:A$: ************************ * LOST AND FORGOTTEN * * ISLAND 8 / 1980 * **************************)  LOST AND FORGOTTEN ISLAND IS A SURVIVAL GAME BASED ON COOPER- ATION. IT CONTAINS A MIXTURE OF LIFE'S VALUESq  BY JEFFRY YUAN FROM 'COMPUTERS AND SOCIETY' ( ADAPTED FROM 'CREATIVE COMPUTING' BY JACK WILCOX. 2: <1870:2::I8((1))1:N$(3)"STORAGE":I19:T$(I):I: F ** NUMBER OF PLAYERS ** PN Z2:"PRESS KEY AFTER ANSWERS!": d"HOW MANY PEOPLE (1, 2, OR 3) ARE":"PLAYING? ";N1$:N1(N1$): nN11120:N13130 x(37)2:100 I1N1 "PLAYER "I", WHAT IS YOUR NAME";:N$(I):N$(I)""Ģ(37):1405 J13:JI170:N$(I)N$(J)170: "SOMEONE ELSE ALREADY HAS THIS NAME SO PLEASE CHOOSE ANOTHER."::140 J:I:U313:U419:T2(U3,U4)1:T2(U3,U4)T2(U3,U4)(10):U4:U3:  I15:T3(1,I)1:I:T3(1,6)2:T3(2,7)1:T3(2,8)1:T3(2,9)2:E6N1R I1N1:J1E:R1((1)9)1:T2(I,J)R1:V1(I,J)T3(1,R1) V2(I,J)T3(2,R1):J:C1(I)((1)11)2:I "AXE","CHISEL","HAMMER","NAILS AND SCREWS","SAW "LUMBER","SHOVEL","PICKAXE","EXPLOSIVES": ** SUBROUTINE LAFIS21 **  ( THIS IS LAFIS 21E  ** TRADING TOOLS ** l N11310:N13280:N$(3)"STORAGE J$(1)"A":J$(2)"ANOTHER":I39:J$(I)J$(I1):I "I$(1)"WHO (ONE NAME ONLY PLEASE) WISHES TO TRADE? ,I$(2)"WHO ELSE (A DIFFERENT NAME PLEASE) WISHES TO TRADE?B6S7:M18: ** WHICH DAY? **@:::"THIS IS DAY "M::34,3:1380:::S11350:S6360:SS1J"THE STORM IS ABOUT TO HIT"::N11920:380T"PRESS 'RETURN' TO CONTINUE...";^ZZ$:ZZ$(13)350: hM6370:X((1)4)1:X4380(rS66|N11920m"DO YOU WISH TO TRADE TOOLS? (Y/N) =>";:16368,0A$:A$""400:958::A$"Y"420:A$"N"920"PLEASE TRY AGAIN. ANSWER 'Y' OR 'N'.":(37)2:390 I13:J19:T3(I,J)T2(I,J):V3(I,J)V1(I,J):V4(I,J)V2(I,J):JMG2(I)G1(I):I:J12:N3(J)1:::I12I$(I);:" ";B$(I)::958:I2ĭB$(2)B$(1)Ģ7:440B$(I)N$(1)500:B$(I)N$(2)490:B$(I)N$(3)480"YOU MUST ANSWER WITH:":" '"N$(1)"'":"OR '"N$(2)"'":N13ĺ"OR '"N$(3)"'H"------PLEASE TRY AGAIN------":(37)6(N13):440ZN3(I)N3(I)1lN3(I)N3(I)1I:I12::N41B$(I)", ARE YOU GIVING ANY "GOLD IN THIS TRADE?":"ANSWER Y,N,X OR T =>";C1$:C1$""530::958:C1$"X"910:C1$"Y"590:C1$"N"660+C1$"T"580}&"PLEASE TRY AGAIN. YOU MUST ANSWER 'Y' ,'N', 'X' (TO CALL OFF THE TRADE), OR0"'T' (TO SEE THE LIST OF TOOL WHICH EVERYONE HAD BEFORE THE START OF THE TRADE).::(37)8:510-D:"YOUR SITUATION AT THIS TIME":34,5:1390:34,3::510uNB$(I)", HOW MUCH GOLD (IN DOLLARS)":"ARE YOU GOING TO GIVE? ";A7$X:A7(A7$):958:G1(N3(I))A7630b"YOU MAY NOT GIVE MORE THAN YOU HAVE ("(G1(N3(I)))" DOLLARS).l:(37)5:590EvA70650:"YOU MAY NOT INPUT A NEGATIVE NUMBER. TRY AGAIN. Y:(37)5:590G2(N3(I))G1(N3(I))A7:G2(N3(3I))G1(N3(3I))A7B$(I)", ARE YOU GIVING A(NY)":" TOOL(S) IN THIS TRADE? (Y/N/X/T) =>";D$:D$""670::958:D$"X"910:D$"N"860:D$"Y"720*D$"T"710"TRY AGAIN. YOU MUST ANSWER 'Y', 'N', 'T'(TO SEE THE TOOLS EVERYONE HAD WHEN THIS TRADE STARTED), OR 'X' (TO CALL OFF THE TRADE).:(37)7:660:"YOUR SITUATION AT THIS TIME":34,5::1390:34,3::660IB$(I)", HOW MANY TOOLS ARE YOU":"GIVING? ";N5::958:J1N5B$(I)", WHAT IS THE NAME OF "J$(J)"":"TOOL THAT YOU ARE GIVING IN"TRADE? ";E$:958::E$"X"910:E$"B"860:E$"T"810:R19T$(R)E$780:R`"PLEASE USE THE NAME OF A TOOL. TYPE 'B'IF YOU WANT TO GO AHEAD WITH THE TRADE WITHOUT GIVING ANY MORE TOOLS.t:(37)7:730 K19:T3(N3(I),K)R820:K:B$(I)", YOU DO NOT HAVE THIS TOOL."PLEASE TRY AGAIN. YOU MUST USE THE NAMEOF A TOOL THAT YOU HAVE. :(37)7:730T*:"YOUR SITUATION AT THIS TIME":34,5::1390:34,3::7304T3(N3(I),K)10:V3(N3(I),K)0:V4(N3(I),K)0:LN19>T3(N3(3I),L)10840:LHT3(N3(3I),L)R:V3(N3(3I),L)V1(N3(I),K):V4(NE(3I),L)V2(N3(I),K)RN4L1:J\If"THIS IS YOUR LAST CHANCE TO CALL OFF THE TRADE. IF YOU WANT TO CALL IT OFF, TYPE 'X'; OTHERWISE TYPE ANY OTHER LETTER AFTER THE QUESTION MARK.p"?";zG$:G$""890::G$"X"910:I13:J19:T2(I,J)T3(I,J) V1(I,J)V3(I,J):V2(I,J)V4(I,J):J:G1(I)G2(I):I:)390aI1N1::C3(I)11330:P1C1(I): ** WHAT TYPE OF x WORK TODAY **N$(I)", WHAT ARE YOU GOING TO WORK":"ON TODAY? (BOAT/GOLD)=>";A$:958:A$"BOAT"1110:A$"GOLD"990K"PLEASE ANSWER 'BOAT' IF YOU WANT TO WORKON THE BOAT OR 'GOLD' IF YOU WANT TO MINE GOLD.V:940r ** WORKING ON GOLD **FL0:J19:FL11040:T2(I,J)11060:FL1N$(I)", DO YOU WISH TO USE THE AXE,"TO MINE GOLD? REMEMBER THAT THE AXE DROPS GREATLY IN VALUE IF IT IS USED TO MINE GOLD.`C$:958::(C$,1)"N"1060:(C$,1)"Y"1040"PLEASE TRY AGAIN. ANSWER 'Y' OR 'N'"::(37)7:1000V2(I,J)V1(I,J):P1P1V2(I,J)C1(I):V1(I,J)(((V1(I,J)2)10.5))10V2(I,J)0:1070$P1P1V2(I,J)C1(I)S.J:Z8(1)21:K1N1:C3(K)11100:C40:KI1080:C4.258C4C4.25:Z9C4Z8230P1:N$(K)" HAS JUST MADE $"(Z9)" IN GOLD.BG1(K)G1(K)Z9LK::1180V ** WORKING ON BOAT **`B(I)1:J19:T2(I,J)21150:K19:T2(I,K)311402jP1P12V1(I,J)C1(I):11609tKQ~P1P1V1(I,J)C1(I)J:Z8(P112.5):N$(I)" HAS EARNED "(Z8)" MORE WORK POINTS.":W(I)W(I)Z8:C2C2Z8Y((1)(9C1(I))1):J19:T2(I,J)11200:T2(I,J)31200T2(I,J)81310KYT2(I,J)1310:N$(I)" HAS BEEN INJURED BY THE "T$(T2(I,J))"."HIS/HER TOOL PROFICIENCY WILL BE CUT BY ONE THIRD.":C1(I)((2C1(I)3).5):J9:1310T2(I,J)91310:YT2(I,J)1310:N$(I)" HAS BEEN KILLED BY THEw " ACCIDENTAL DISCHARGE OF SOME OF THE EX- PLOSIVES. PLEASE NOTIFY HIS(HER) FRIENDS AND RELATIVES IF YOU MAKE IT BACK. :C3(I)1:D711450:N$(I)"STORAGE":D71:G1(I)0:G2(I)0:N111340 K19:T2(I,K)101300(!R3((1)N11):R3I1270:L19:T2(R3,L)101290:T2(R3,L)T2(I,K)r!V1(R3,L)V1(I,K):V2(R3,L)V2(I,K):T2(I,K)10:V1(I,K)0:V2(I,K)0:L9y! L!K:J9!J:"PRESS 'RETURN' TO CONTINUE...";!(ZZ$:ZZ$(13)1320!2I:M:1380!<!F1540"P ** THE FOLLOWING IS THE""Z SUBROUTINE STATE **J"dI13:J19:T3(I,J)T2(I,J):J:I"nC4C2:H1N1:::C3(H)11490:C201400:C21"xE((W(H)C2)100.5)::N$(H)" HAS "(G1(H))" DOLLARS WORTH OF GOLD,""A TOOL PROFICIENCY OF "C1(H)#(W(H))" WORK POINTS, WHICH IS "E" PERCENTZ#" OF THE TOTAL AND THE FOLLOWING TOOLS:"::J219:K$" #T2(H,J2)101470:T2(H,J2)T3(H,J2)1460#K$"*#6)K$T$(T2(H,J2))#J2::HN11500:"PRESS 'RETURN' TO CONTINUE...";#F$:F$(13)1480:$HF$:N111510:"THE SUM OF EVERYONE'S WORK POINTS IS "(C4)".":$"PRESS 'RETURN' TO CONTINUE...";:F$:F$(13)1480::C2C4:$$$ ** SUBROUTINE LAFIS31 **$%E(Z7)2.718Z7:C(Z8)E(Z8)E(Z8):S(Z9)E(Z9)E(Z9):C4C2%"C201580:C21U%,Z131610:C40:I1N1:C3(I)11590:W(I)C2.251600d%6C4C4W(I)k%@I%JI1N1:C3(I)11830:::%T ** THE RESULTS **%^%h:::"THE RESULTS FOR "N$(I)":":::W(I)C2.251650:W(I)C4 &rZ1(602.718((W(I))6))C&|Z2(50(1((S((7W(I))8.5))C((7W(I))8.5))))&Z3(50(1(S((14W(I))5)C((14W(I))5)))):R5((1)101)&B(I)11780:R5Z11710&"PROPER CONDOLENCES WILL BE SENT TO THE FRIENDS AND RELATIVES OF "N$(I)#'" WHO DROWNED DURING TYPHOON URSULA"::1830Z'R5Z21730:N$(I)", YOU MADE IT BACK TO HONOLULU,'" A LARGE WAVE WASHED YOUR GOLD OVERBOARD SORRY.":1830'R5Z31760:N$(I)", YOU MADE IT BACK BUT("THE BOAT NEARLY SWAMPED. HALF OF YOUR GOLD WAS LOST OVERBORD. THIS MEANSG("THAT YOU HAVE $"(G1(I)2)" LEFT.":1830n(N$(I)", CONGRATULATIONS----------("YOU MADE IT WITH ALL YOUR GOLD - "(G1(I)):"DOLLARS WORTH.":1830(R5971800:N$(I)" DID NOT GET OFF THE ISLAND)"AND WAS KILLED BY TYPHOON URSULA.":1830D)N$(I)", YOU SURVIVED TYPHOON URSULA,)"BUT LOST ALL YOUR GOLD AND HAD BETTER START MAKING SMOKE SIGNALS BECAUSE YOU WERE LEFT BEHIND.))&1:20:"PRESS TO CONTINUE...";:ZZ$:ZZ$(13)1830:I:4*021:"DO YOU WISH TO PLAY ANOTHER GAME?":"(Y/N) =>";_*:C$:C$""1850:C$"N"2110:C$"Y"Ĭk*D:1840*N16298,0::::"========================================";:*X" LOST AND FORGOTTEN ISLAND ";:+b"========================================[+l5::"ADAPTED FROM 'COMPUTERS AND SOCIETY' VOL. 7-NO.3, FALL, 1976+v"CONVERTED TO MICROSOFT BASIC BY JEFFREY YUAN,:"PUBLISHED IN 'CREATIVE COMPUTING', MAR. 1980. ADAPTED TO APPLE II+ AND COPIED FROMM," 'CREATIVE COMPUTING' BY JACK WILCOX, AUG. 1980r,:21:" PRESS 'ESC' TO END ,"< PRESS 'RETURN' TO CONTINUE...>";,16368,0,Z$:Z$""1970:(Z$)272110: END ROUTINE -(Z$)131960:16368,0: RESETS KEYBOARD?-:3:"WELCOME TO THE LOST AND FORGOTTEN ISLANDw-:"WOULD YOU LIKE SOME INSTRUCTIONS?":"(Y/N) =>";-16368,0-Z$:Z$""2020:Z$"N"2100:Z$"Y"2010:::0.::"LOSE AND FORGOTTEN ISLAND IS A SURVIVAL GAME BASED ON COOPERATION. IT CONTAINS A MIXTURE OF LIFE'S VALUES.A.:"IMAGINE:." YOU HAVE BEEN SHIPWRECKED ON A REMOTE ISLAND.. " YOU HAVE THE CHOICE OF DIGGING FOR GOLD AND/OR BUILDING A SHIP TO SURVIVE THE APPROACHING HURRICANE.=/" CAN YOU SURVIVE? IF SO, WITH HOW MUCH GOLD?e/ :" G O O D L U C K ":/*:22:"PRESS TO CONTINUE... ";:ZZ$:ZZ$(13)2090/4:/>16289,0:16300,0:16368,0:::16298,0/H:(4)"RUN MENU"/R 0\ ****************+0f * MODIFIED BY *B0p * TOM McCORD *Y0z * EDUCATIONAL *p0 * MEDIA *0 * SERVICES *0 ****************0 ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::1 4:A$"ADVANTAGE COMPUTING'S":5:O1 A$"PUBLIC DOMAIN SOFTWARE":5::A$"LAF ISLAND":51 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"2 49152,128:K(49152)128:49168,0:K48K5230052 A((K)):A3ı.2 A2030,3050,0,3030:2 :3000P2 :(4)"RUN MENU"2 32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO QUIT.2 49152,128:K(49152)128:49168,0:K80K813055 3 K81ı13 (4)"PR#1":2030::(4)"PR#0": :10A">>>>>>>>>>>>>>TIME TEACHER<<<<<<<<<<<<<<"b15:13);"STEPHEN C. SHANK"rI12500:z : 232,00:233,151:0:3R70I19:(("WHAT TIME",I,1))3107I,20: I16:(("IS IT?",I,1))312107I,20: THETA23.1415926100G ZTHETA:XR(Z):YR(Z):140X,70YT 2I1101b <ZTHETAIo dXR(Z)| YR(Z) ,140X,70Y  ("1")31170,12 ("2")31192,37 ("3")31200,68 ("4")31192,99 L("5")31170,120 ("6")31137,1300 ("7")31105,121E x("8")3182,96Z ("9")3175,68 @("1")3179,38:("0")3185,38 ("1")31102,13:("1")31108,13 ("1")31135,3:("2")31142,3 THETATHETA100 GN((1)12) K1(GN3)5:K10K160K1' 4Z(THETA12)GN9 f6:60140,70@ 3X X55(Z):Y55(Z)l JN((1)111)~ JN((1)12) ZZ(THETA12)JN(THETA60)K112 XX35(ZZ):YY35(ZZ):140,70140XX,70YY 140,70140X,70Y K2JN3 K20K212K2 K20K212. K20K212K24 " < ' P0D , J0R 1 P32867\ 2 2870 3 :K1$(K1):23:8);"SORRY, THE CORRECT TIME IS:"::((K1))2K1$"0"(K1) 4 K2$(K2):19);K2$;":";K1$:I15000::3500 6 A$"" T 24:13);"ENTER TIME HH:MM U 24:19);1 ^ G$:G$(13)3000\ h A$A$G$:19J);:24:G$;:JJ1:2910h A(A$)y B((A$,2)) V100AB  100K2K1VĢ24::18);"RIGHT!":I11000::3500 PP1:P32867 ::22:13);"WRONG, TRY AGAIN":I11000:::L1100::2860L 0:140,70140X,70Y:140,70140XX,70YY:2050 %.:I`k~!0@Nm|0@MZk~I 6&$d6d 6d,166&<--7&$?/5$$$.E.>77f 5'E=| %.:I`k~!0@Nm|0@MZk~I 6&$d6d 6d,166&<--7&$?/5$$$.E.>77f 5'EHI&?6555&<>><,,D I>>%eI9>665=556>>%%$DK: 6?->&-&'-G66$?--?$ I27/ --GI>,I177>>&I176..%%$<67DI1)666/=$$d*,557777--G*,557?-.>>'/I6.-=6&$$4 6-55>>?E/-=I>>>65-,<<& -->>>6&$-175>..%%'?-,<>>EI*,557& 176..=''$,,55>><4,-=E1766$--6$$<>'/-.g--?666$$$-66..%%$$&65.6$%,$&66..$$66%%$$&..677,,55<<$%%&..66$$%%&-->>677--G6$?-$6-?:$-6GU4ɪ 4<`<  / ) ) "&6 B /`L ˠ@TP@TPH H HBFFBFBBB@FBBFBBBBDDDFDDDDDDDDDDDDDDDD@@@@@@@@@@@@DDDDDDDDDDD@@@@@@@@@@@@DDDDDDDI|R TH}lZ}VXW YUDDDDB@BF@B@B@@DBFDDDDDF@B@B@BBBBBB@B@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@B@@E PROGRAM, PRESS RETURN AT THE":"PROMPT FOR A PLANET NAME."HPFı~23::A$"PRESS A KEY":5::49152,128:49168,0:2000::30)(42(A$))2:A$;:3A346H(B$(346),U$(346)]2I1A:B$(I):Ij<::230rA: F"THIS IS A GAME OF 'GEOGRAPHY'. ONE":"PLAYER NAMES A GEOGRAPHICAL LOCATION.":"THE OTHER PLAYER MUST THEN NAME ANOTHER":"LOCATION WHOSE FIRST LETTER IS THE SAME"U H"AS THE LAST LETTER OF THE PRECEEDING":"LOCATION." Z:"YOU WILL PLAY AGAINST THE COMPUTER.":"AND USE THE FOLLOWING CATEGORIES:" dM 20)"CONTINENTS":20)"COUNTRIES":20)"U.S. STATES":20)"CANADIAN PROVINCES":m20)"MAJOR WORLD CITIES":20)"U.S. STATE CAPITOLS":20)"OCEANS AND SEAS"S  "THE COMPUTER WILL TELL YOU IF THE":"LETTERS OF YOUR ENTRY AND THE PREVIOUS":"DON'T MATCH, THE WORD HAS ALREADY BEEN":"USED, OR THE WORD ISN'T IN THE":"COMPUTER'S MEMORY." PF190; A$"HIT RETURN TO CONTINUE":5:A$A  "IF YOU CAN'T THINK OF A WORD YOU MAY":"TYPE 'CHALLENGE'. IF YOU HAVE REALLY":"EXHAUSTED ALL POSSIBLE RESPONSES THEN":"YOU'VE WON. OTHERWISE THE COMPUTER WILL":"PRINT A POSSIBLE RESPONSE AND YOU LOSE." PFıH :"HIT ANY KEY TO PLAY THE GAME..."b 49152,128:49168,0: U0:C0:"DO YOU WANT TO GO FIRST (Y/N) ";:A$ :A$"N"250 C1:260 R$((26(0)65)):400 C0 A$:C1300 A$"CHALLENGE"550 (A$,1)R$300> ""*** LETTERS DON'T MATCH ***":260I ,E1U\ 6A$U$(E)330} @"*** ALREADY USED ***":260 JE TE1A ^A$B$(E)370 h390 rE |"*** ILLEGAL WORD ***":260 R$(A$,1):UU1:U$(U)A$G(A(0)1):HAEGH*(B$(E),1)R$4805I1UJB$(E)U$(I)480QInB$(E):UU1:U$(U)B$(E)R$(B$(E),1):255EG1510HG:G1:410"Y O U W I N ! ! !""TRY AGAIN (Y/N) ";A$:A$"Y"2301350%& *** CHALLENGE SUBROUTINE ***00E1AH:(B$(E),1)R$620SDI1UhNB$(E)U$(I)620oXIbB$(E):"YOU L O S E ! ! ":515lEq510av "NEW YORK","NEW JERSEY","PENNSYLVANIA","CONNECTICUT","ALABAMA","VERMONT","NEW HAMPSHIRE","MAINE","FLORIDA","MASSACHUSETTS","GEORGIA","SOUTH CAROLINA","RHODE ISLAND","UTAH","INDIANA" "NORTH CAROLINA","VIRGINIA","SOUTH DAKOTA","OHIO","OREGON","NEW MEXICO","NORTH DAKOTA","WISCONSIN","MICHIGAN","IDAHO","CALIFORNIA","MISSISSIPPI","KANSAS","NEBRASKA","IOWA" "WASHINGTON","MONTANA","MINNESOTA","KENTUCKY","TENNESSEE","LOUISIANA","DELAWARE","MARYLAND","ARKANSAS","COLORADO","ARIZONA","WEST VIRGINIA","TEXAS","NEVADA","OKLAHOMA"L "WYOMING","MISSOURI","ALASKA","HAWAII","ILLINOIS","BUFFALO","DALLAS","LAS VEGAS","OAKLAND","KANSAS CITY","MIAMI","TULSA","GREEN BAY" "ATLANTIC CITY","AFRICA","BALTIMORE","CANTON","CINCINNATI","CLEVELAND","ANTARTICA","ASIA","AUSTRALIA","DENVER","EL PASO","FAIRBANKS","FT. WORTH","FRESNO"  "GARY","HOUSTON","KNOXVILLE","BRAZIL","LOUISVILLE","MEMPHIS","CAMBODIA","CANADA","CHILE","NEW ORLEANS","MILWAUKEE","PORTLAND","RENO","SAN JOSE","SAN DIEGO".*"CHINA","CONGO","CUBA","CZECHLOSLOVAKIA","DENMARK","ECUADOR","EGYPT","ENGLAND","SAN ANTONIO","SEATTLE","TAMPA BAY","TOLEDO","TUSCON","VANCOUVER","NORWAY"H"EUROPE","FIJI","FINLAND","FRANCE","EAST GERMANY","WEST GERMANY","GERMANY","GREAT BRITAIN","GREECE","GREENLAND","PUERTO RICO","ACAPULCO","TAIWAN","QUEENSLAND","SANTA BARBARA"vf"GUYANA","HAITI","HOLLAND","HONDURAS","HUNGARY","ICELAND","INDIA","INDONESIA","IVORY COAST","IRAN","IRAQ","IRELAND","ISRAEL","ITALY","JAMAICA" "JAPAN","JORDAN","KENYA","SOUTH KOREA","NORTH KOREA","KUWAIT","LAOS","LEBANON","LESOTHO","LIBERIA","LIBYA","LIECHTENSTEIN","LUXEMBOURG","MALAWI","MALAYA" "MALAGASY REPUBLIC","MALAYSIA","MALDIVES","MALI","MALTA","MAURITANIA","MAURITIUS","MEXICO","MONGOLIA","MOZAMBIQUE","NEPAL","NETHERLANDS","NEW ZEALAND","NICARAGUA","NIGER"f "NIGERIA","NORWAY","OMAN","PAKISTAN","PANAMA","PARAGUAY","PERU","PHILIPPINES","POLAND","PORTUGAL","QATAR","RHODESIA","RUMANIA","RWANDA","SAUDI ARABIA"," "SCOTLAND","SENGAL","SIERRA LEONE","SINGAPORE","SOMALIA","SOUTH AFRICA","SOUTH AMERICA","NORTH AMERICA","SPAIN","SUDAN","SURINAM","SWAZILAND","SWEDEN","SWITZERLAND","SYRIA" "TANZANIA","THAILAND","TOGO","TRINIDAD","TUNISIA","UNION OF SOVIET SOCIALIST REPUBLICS","WALES","ZAIRE","YEMEN","ZAMBIA","UPPER VOLTA","URUGUAY","VATICAN CITY","VENEZUELA","UNITED KINGDOM" "NORTH VIETNAM","SOUTH VIETNAM","RUSSIA","UNITED STATES","YUGOSLAVIA","TOKYO","LONDON","SHANGHAI","OSAKA","MOSCOW","BUENOS AIRES","PARIS","MEXICO CITY","CHICAGO","LOS ANGELES"<8 "CALCUTTA","PEKING","SAO PAULO","BOMBAY","DJAKARTA","SEOUL","RIO DE JANEIRO","CAIRO","PHILADELPHIA","DETROIT","HONG KONG","BERLIN","LENINGRAD","MANILA","NEW DEHLI"V"BOSTON","KARACHI","MADRID","SAN FRANCISCO","WASHINGTON DC","SYDNEY","ROME","MILAN","SANTIAGO","MONTREAL","LIMA","BARCELONA","MELBOURNE","PITTSBURGH","MANCHESTER"t "ST. LOUIS","TORONTO","HAMBURGH","BUDAPEST","CLEVELAND","BANGKOK","JOHANNESBURGH","ATHENS","SINGAPORE","ISTANBUL","VIENNA","BRUSSELS","AMSTERDAM","GLASGOW","HAVANA"8 "LISBON","WARSAW","COPENHAGEN","STOCKHOLM","PRAGUE","MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO","DENVER","HARTFORD","DOVER","TALLAHASSEE","ATLANTA" "HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS","DES MOINES","TOPEKA","FRANKFORT","BATON ROUGE","AUGUSTA","ANNAPOLIS","LANSING","ST. PAUL","JACKSON","JEFFERSON CITY","HELENA",""LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE","ALBANY","RALEIGH","BISMARCK","COLUMBUS","OKLAHOMA CITY","SALEM","HARRISBURG","PROVIDENCE","COLOMBIA","PIERRE"_ "NASHVILLE","AUSTIN","SALT LAKE CITY","MONTPELIER","RICHMOND","OLYMPIA","CHARLESTON","MADISON","CHEYENNE","PACIFIC OCEAN","ATLANTIC OCEAN","INDIAN OCEAN","ARCTIC OCEAN","RED SEA","BLACK SEA"  "MEDITERRANEAN SEA","BERING SEA","NORTH SEA","BALTIC SEA","YELLOW SEA","CARIBBEAN SEA","GULF OF MEXICO","EAST CHINA SEA","HUDSON BAY","SEA OF JAPAN","SOUTH CHINA SEA","XENIA","XANTHUS"( "YALTA","YANGTZE RIVER","YOKOHAMA","YUKON TERRITORY","CONTINENTS","COUNTRIES","U.S. STATES","CANADIAN PROVINCES","MAJOR WORLD CITIES","U.S. STATE CAPITOLS","OCEANS AND SEAS"F:(4)"RUN MENU": ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::a 4:A$"ADVANTAGE COMPUTING'S":5: A$"PUBLIC DOMAIN SOFTWARE":5::A$"GEOGRAPHY":5!11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"J!49152,128:K(49152)128:49168,0:K48K522005_!A((K)):A3ıu!A65,2050,0,2030!: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 '2000:10'(42(A$))2:A$:- DP TEXT DESCRIPTIONNZ::Vd:bhPF130siNA$""115n5:"HI! WHAT'S YOUR NAME? ";NA$:(NA$"")0110sFL130x17:"DO YOU WANT DIRECTIONS? (Y/N)=> ";:Z$:Z$}Z$"N"212 ~Z$"Y"120C :5:"HAVE YOU EVER PRACTICED YOUR ARITHMETIC":k "FACTS WITH FLASH CARDS, "NA$"?": "THE APPLE COMPUTER WILL DO THE SAME ": "THING! APPLE WILL ASK YOU FOR": "AN ARITHMETIC FACT LIKE 6 TIMES 7. YOU": "HAVE A CER%&'()*+,-.TAIN TIME TO ANSWER. AS YOU":I "GET FASTER, THE TIME GETS SHORTER!X PFİ850: 23:"PRESS KEY TO CONTINUE => ";:Z$:Z$:16368,0 FLİ850: :850 :2:"FIRST, "NA$", APPLE MUST KNOW": "WHETHER YOU WANT TO PRACTICE ADDITION,":8 "SUBTRACTION, OR MULTIPLICATION.":h "CHOOSE ONE FROM THIS LIST, TYPE IN ITS": "NUMBER AND DO NOT PRESS ."::10:"1. ADDITION"::10 "2. SUBTRACTION"::10:"3. MULTIPLICATION":16368,0: "OK, WHICH ONE?":: (4)"run menu"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"" !"""""IzL !"#$YL 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" TYPE 1, 2, OR 3 =>";A KE$:OP(KE$):OP1OP3280:OP ":2:16368,0:"FINE, "NA$". APPLE WILL HELP YOU"::"PRACTICE "; ,OP1ĺ"ADDITION. 6OP2ĺ"SUBTRACTION. @OP3ĺ"MULTIPLICATION. J::"NOW APPLE MUST KNOW HOW BIG A NUMBER":4 T"YOU WANT TO WORK WITH. IF YOU'RE JUST":` ^"BEGINNING TO LEARN YOUR FACTS, YOU": h"SHOULD START OFF WITH NUMBERS UP TO 5.": r"IF YOU'RE PRETTY GOOD, THEN TRY 9. IF": |"YOU'RE A SUPER EXPERT, GO WITH 12 TO":;"15. JUST TYPE IN THE HIGHEST NUMBER"::"YOU WANT AND PRESS ";RA$:(RA$"")0290:1060:(FL1)0290:(RA0RA20)0460936:3:"ARE YOU SURE ABOUT THAT, "NA$"?:"PLEASE TYPE IT IN AGAIN ?";RA$:1060:(FL1)0290!(RA0RA20)0460:::3:RA"!! WOW, "NA$"!":J"YOU'RE TOO SMART FOR FLASHCARD!":{"YOU SHOULD TRY MATH TUTOR. GOODBYE.":1030:3:"OK, "NA$", APPLE IS READY WHEN YOU":"ARE. PRESS TO BEGINA(16384):16368,0:(A141)0480: INITIALIZE THINGS[1060:ER0::1:" ....TYPE E TO END....":34,3:I110:O1(I)0O2(I)0:I:ER1:TI450:CO20:RI0:WR0:OP510,550,600:800:10:TB21:X9TBTB1TB:X:TB21:12:18:"+";:Y9TBTB1,TB:Y:13:20:"--":ANXY:640:I1DE:I:COCO1:(CO0)05105900\&:800:(XY)0560:TEX:XY:YTEw010:TB21:X9TBTB1:TB:X:TB21:Y9TBTB1D12:18:"-";:TB:Y:13:20:"--":ANXY:640:I1DE:I:COCO1N(CO0)0550:900X:800:10:TB21:X9TBTB1BbTB:X:TB21:12:18:"X";:Y9TBTB1lTB:Y:13:20:"--":ANXY:640:I1DE:I:COCO1:(CO0)0600v90020:18:"ANSWER?":OL0:NE0:N20:16368,0:I1TI:A(16384)(A69)0900:16368,0:(A128)0700'A176A185ĺ"NOT THE NUMBER!p(A176A185)0700:(AN10)0790:(AN99)0780:OLNE:NEA176REOL10NE22:868:22:21:RE:(ANRE)0750I:20:958:20:DE1200:"SORRY, TOO MUCH TIME!":TI450TITI30ER1:O1(ER)X:O2(ER)Y:ERER1:WRWR19TB21:14:AN9TBTB1LAN99TBTB1ZTB:AN:w CORRECT ANSWER IF HEREDE400:198:I110:I:198:TI60TITI30RIRI1:720 OLNE:N2:N2A176:REOL100ȿ10N2:690REA176:690&  SUBR FOR SETTING UP RANDOM OPERANDS6*ER11ER14(ER)0840:S((5)(1)):(S2)0840:S((ER1)(1))1:XO1(S)>YO2(S):HX((RA)(1))1:Y((RA)(1))1:R:5:"TYPE YOUR ANSWER. DO NOT PRESS RETURN.":;\"IF YOUR ANSWER IS CORRECT YOU WILL HEAR"::"BEEPS FROM THE COMPUTER.":f"IF YOU DO NOT HEAR BEEPS, YOUR ANSWER"::"IS NOT CORRECT. PLEASE RETHINK AND"::"RETYPE YOUR ANSWER."k:"TO END THE GAME TYPE 'E'.":PFıp22:"PRESS TO CONTINUE";6z16368,0:756:((16384)13)0890:16368,0:::x:16368,0:5:10:"RIGHT WRONG":7:12:RI;:22:WR:12NA$", YOUR SCORE WAS ";:RI20ĺ"PERFECT!RI20RI17ĺ"GREAT.RI18RI15ĺ"GOOD.RI16RI11ĺ"ONLY SO-SO.RI12RI8ĺ"PRETTY BAD!.RI9ĺ"TERRIBLE!!4dNA$;:", WANT TO PLAY AGAIN?":"(Y/N) =>";16368,0:756:((16384)89)0490:((16384)78)0990:::"CARE TO TRY ANOTHER OPERATION?":"(Y/N) =>";-16368,0:756:((16384)78)01030:((16384)89)01010::34,093:240z:"SEE YOU LATER, "NA$:"REMEMBER, PRACTICE MAKES PERFECT!!D$"": CNTRL D:(4)"RUN MENU"$I1(RA$):K(((RA$,I,I(I)1))128)176:(K0K9)01100:I:FL0.((RA$)2)01080:RA((RA$)128)176:I8RA((((RA$,1,1(1)1))128)176)10uBRARA((((RA$,2,2(2)1))128)176):LFL1:V BY STEVE STEARNS` j ****************t * MODIFIED AND *~ * CONVERTED TO * * APPLESOFT BY * * TOM McCORD */ * EDUCATIONAL *G * MEDIA *_ * SERVICES *w ****************::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:(A$"PUBLIC DOMAIN SOFTWARE":5::A$"FLASH CARD":511: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ı FL1:A100,2050,0,2030FL0 :20006:(4)"RUN MENU"32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K812055 K81ıPF1:(4)"PR#1":100:PF0:(4)"PR#0": C1CZ 1033. :(4)"RUN "B$(C)G  FINANCIAL.PAKc  LINEAR.PROGRAMMu  FRUSTRATION  TYPING.PRACTICE  FLASHCARD  MR..APPLE.1  MR..APPLE.2  MR..APPLE.3  MR..APPLE.4  GEOGRAPHY0  CONNECT.A.DOTH  TIME.TEACHERc  ALPHABET.ANTICSz  FACTOR.GAME  LUNAR.LANDER  MATH.WILLIE.WOR  MENU24000:100((42(A$))2:A$:;dP(9,17),P$(9)Gi:936RnI19^xJ117jP(I,J)sJ,I~I19P$(I)I"PLANET? ";N$N$""4030I19N$P$(I)280I"SOLAR PLANETS ARE:"I15 P$(I);", "; I:! I682 P$(I);", ";9 IK "AND PLUTO."T 180^ 1000g "180  DISPLAY PLANETARY DATA 936 N$  "ALBEDO: ";P(I,1) "AVE. DIST. FROM SUN: "; $P(I,2);" MILLION MI." ."AVE. ORBITAL SP0234567EED: ";! 8P(I,3);" MI./SEC."9 B"DENSITY: ";P(I,4)` L" -TO CONTINUE, HIT RETURN-";Z$j V3000 `"ECCENTRICITY OF ORBIT: "; jP(I,6) t"ESCAPE VELOCITY: ";P(I,7); ~" MI./SEC." "INCLINATION OF ORBIT: "; P(I,8);" DEG."" "LIGHT-MINUTES FROM SUN: ";P(I,9)C "MASS: ";P(I,10);" X EARTH"a "NO. OF MOONS: ";P(I,11) "REV. ABOUT SUN: ";P(I,12);" YEARS" "ROT. ON AXIS: ";P(I,13);" HRS." "SURFACE AREA: ";P(I,14); " X EARTH" "SURFACE GRAVITY: ";P(I,15);" G"+ "TILT OF AXIS: ";P(I,16);" DEG."N "VOLUME: ";P(I,17);" X EARTH"V 24} " -TO CONTINUE, HIT RETURN-";Z$ 936:  .07, 36, 29.8, 5.44, 3030  .206, 2.6, 7, 3.2, .055  0, .24, 1409, .15, .38  28, .06  .59, 67, 21.8, 4.85, 7570/  .007, 6.4, 3.4, 6, .82K  0, .62, 5834, .90, .9Z  177, .86z  .30, 93, 18.5, 5.52, 7927 * .017, 7, 0, 8.3, 1 4 1, 1, 24, 1, 1 > 23.5, 1 H .15, 141, 15, 3.96, 4200 R .093, 3.1, 1.9, 12.6, .11\ 2, 1.88, 24.6, .28, .3"f 25.2, .15@p .42, 886, 6, .71, 75100`z .056, 22, 2.5, 79.4, 95.2 10, 29.46, 10.23, 90, 1.15 26.7, 860 .44, 483, 8.1, 1.34, 88700 .048, 37.6, 1.3, 43.3, 318.4 14, 11.86, 9.85, 125, 2.68 3.1, 1400( .45, 1782, 4.2, 1.27, 29000H .047, 13.5, .8, 160, 14.7g 5, 84.02, 10.82, 13, .99v 97.9, 47 .52, 2792, 3.4, 1.58, 28000 .009, 15, 1.8, 250, 17.3 2, 164.8, 15.7, 12, 1.28 28.8, 43 .60, 3671, 2.9, 4, 4000  .249, 3, 17.1, 320, .1=$ 0, 248.4, 150, .25, .4K. 90, .12m8 "MERCURY", "VENUS", "EARTH"B "MARS", "SATURN", "JUPITER"L "URANUS", "NEPTUNE", "PLUTO" SHOW DIAMETER :3:RP(I,5)1200 A03.14161R  140R(A),85R(A)140R(A),85R(A)' A/ 21B "DIAMETER: ";U P(I,5);" MI."[  " -TO CONTINUE, HIT RETURN-";Z$ :936:  DONATED TO APPLE PI BY JIM DAY OF GRANADA, CALIF ON 7 APRIL 799::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::`4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"PLANETS":511:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"G49152,128:K(49152)128:49168,0:K48K524005\A((K)):A3ıtA4100,4050,0,4030: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."H49152,128:K(49152)128:49168,0:K80K814055TK81ıPF1:(4)"PR#1":4100:PF0:(4)"PR#0":::"THIS PROGRAM WILL GIVE YOU INFORMATION":"ABOUT THE PLANETS IN OUR SOLAR SYSTEM."4 "SYSTEM. SIMPLY ENTER THE PLANET'S NAME (SPELLED CORRECTLY) AND YOU'LL RECEIVE" :"SIMPLY ENTER THE PLANET'S NAME WITH THE":"CORRECT SPELLING, AND YOU'LL RECEIVE":"SUCH INFORMATION AS THE MASS, LENGTH OF""ITS YEAR AND DAY, ROTATION SPEED AND ":"MORE...">:"TO END TH1000:10'(42(A$))2:A$:6 BAR GRAPHLPRACTICE READING]A BAR GRAPHz(BY LUCIEN T. HALL, JR. 2:<16:"TYPE IN YOUR NAME :";N$:N$""60:23:"IF YOU ARE READY TO BEGIN, PRESS RETURN.";ZZ$:C0 F:24::7:85,585,145236,145:Y1592 PYY14:Y090:75,Y85,Y:80< ZY152` dYY14:Y0110:80,Y85,Y:100 n64,14270,14270,14864,14864,142:54,11460,11460,11754,11754,12060,120 x64,11470,11470,12064,12064,114:54,8654,8960,8960,8660,92< 648:;<=>?,8670,8670,9264,9264,86:54,5854,6460,6460,6154,61 64,5870,5870,6464,6464,58:54,3060,3060,3654,3654,3054,3360,33 64,3070,3070,3664,3664,30:49,249,850,850,2:54,260,260,854,854,2:64,270,270,864,864,2N 93,15099,15097,15097,15693,15693,154:103,150109,150109,156103,156103,150 123,156123,150126,153129,150129,156:133,150139,150139,156133,156133,150:153,150153,156159,156 163,150169,150169,156163,156163,150:189,150183,150183,153189,153189,156183,156y 193,150199,150199,156193,156193,150:213,156213,150219,150219,153213,153219,156 223,150229,150229,156223,156223,150:35,5041,5041,5335,5341,5341,5635,5635,50 35,6041,6041,6635,6635,60:35,7041,7041,7635,7635,70 35,8035,8635,8241,8035,8241,86:41,9035,9035,9341,9341,9635,96:2:J5((21(1)))7:JB146 JBJB1:JBJ240:86,JB116,JB:230 M5((21(1)))7:1:MB146 MBMB1:MBM260:117,MB146,MB:250L5((21(1)))7:5:LB146CLBLB1:LBL280:147,LB176,LB:270dS5((21(1)))7:6:SB146"SBSB1:SBS300:177,SB206,SB:290,R5((21(1)))7:7:RB1466RBRB1:RBR320:207,RB236,RB:310K@C(1)(M145)(1014):C(2)(S145)(1014):C(3)(J145)(1014):C(4)(R145)(1014):C(5)(L145)(1014)JP$(1)"MO":P$(2)"SO":P$(3)"JO":P$(4)"RO":P$(5)"LOTI15^"HOW MANY BOOKS DOES "P$(I)" HAVE? =>";:"";T(I):T(I)C(I)380:T(I)C(I)370h"YOUR NUMBER IS TOO LARGE. TRY AGAIN.":350Hr"YOUR NUMBER IS TOO SMALL. TRY AGAIN.":350f|"VERY GOOD, "N$"."::::"DO YOU WISH TO READ":"ANOTHER GRAPH? (Y/N) ";CC$:CC$"Y"400:CC$"N"410:390:70:(4)"RUN MENU"***************** * MODIFIED BY *$* TOM McCORD *;* EDUCATIONAL *R* MEDIA *i* SERVICES ******************::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:0A$"PUBLIC DOMAIN SOFTWARE":5::A$"BAR GRAPH":511: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:K48K521005A((K)):A3ıA1100,1050,0,1030:10002:(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."49152,128:K(49152)128:49168,0:K80K811055$K81ı)PF1:(4)"PR#1":1100:PF0:(4)"PR#0":iL::"THIS PROGRAM WILL AID STUDENTS IN":"LEARNING TO READ BAR GRAPHS"sPPFıQ23::A$"PRESS A KEY":5::49152,128:49168,0:1000:5&(42(A$))2:A$:.:T " ** STOCK MARKET SIMULATION **"^::gqX1rA(((X)10)100.5)100sT50tX90uN10vN20wE10xE20z{|}220~:c "THIS PROGRAM PLAYS THE STOCK MARKET.":"YOU WILL BE GIVEN $10,000 AND MAY BUY":"OR SELL STOCKS. THE STOCK PRICES WILL" "BE GENERATED RANDOMLY AND THEREFORE":"THIS MODEL DOES NOT REPRESENT EXACTLY":"WHAT HAPPENS ON THE EXCHANGE."{ :"A TABLE OF AVAILABLE STOCKS AND T@BCDEFGHIJHEIR":"PRICES, AND THE NUMBER OF SHARES IN":"YOUR PORTFOLIE WILL BE PRINTED."::"FOLLOWING THIS, THE INITIALS OF EACH" "STOCK WILL BE PRINTED WITH A QUESTION":"MARK. HERE YOU INDICATE A TRANSACTION." PFı 23::A$"PRESS A KEY":3::49152,128:49168,0: "TO BUY A STOCK TYPE +NNN; TO SELL A":"STOCK TYPE -NNN, WHERE NNN IS THE":"NUMBER OF SHARES. A BROKERAGE FEE OF 1%":"WILL BE CHARGED ON ALL TRANSACTIONS." :"NOTE THAT IF A STOCK'S VALUE DROPS TO":"ZERO IT MAY REBOUND TO A POSITIVE VALUE":"AGAIN." :"YOU HAVE $10,000 TO INVEST. USE ONLY":"INTEGERS FOR ALL INPUTS. (NOTE: TO GET":"A FEEL FOR THE MARKET RUN FOR AT LEAST":"TEN DAYS.)" "(NOTE: TO GET A FEEL FOR THE MARKET RUN FOR AT LEAST" PFı' 23::A$"PRESS A KEY":3::49152,128:49168,0:8 ::S(1)100E S(2)85S S(3)150a S(4)140o S(5)110 T8(4.99(X)1) (X).5280 AA 841 "I15 ,P(I)0 1Z(I)0 6I OC10000 PQ"----------------------------------------"RIT2);"STOCK";23);"INITIAL";32);"PR/SH"OXY"----------------------------------------"^"INT.BALLISTIC MISSLE IBM";32);S(1)`"RED CROSS OF AM. RCA";32);S(1)a"LOVERLY,BUMRAP,& JOKE LBJ";32);S(3)/b"AMERICAN BANKRUPT CO. ABC";32);S(4)[c"CENSURED BOOK STORE CBS";32);S(5)ahlkZ4Z5vlZ50mT0rI15wZ5Z5S(I)|TTS(I)P(I)IZ5(100(Z55).5)100Z6((Z5Z4)100.5)100DTCX903982"NEW YORK STOCK EXCHANGE AVERAGE: "Z5;399y"NEW YORK STOCK EXCHANGE AVERAGE: "Z5" NET CHANGE: "Z6T(100T.5)100"TOTAL STOCK ASSETS ARE $";TC(100C.5)100"TOTAL CASH ASSETS ARE $";CD(100D.5)1002"TOTAL ASSETS ARE $"D8FX90416r"DO YOU WISH TO CONTINUE (YES-1,NO-2)"zQ9Q91998 INPUT TRANSACTIONS"WHAT IS YOUR TRANSACTION IN""IBM"Z(1);"RCA"Z(2)"LBJ"Z(3)"ABC"Z(4)$"CBS".Z(5)4 >P50H0S50S:I15h?Z(I)(Z(I).5)yDZ(I)0610NP5P5Z(I)S(I)X620bS5S5Z(I)S(I)dZ(I)P(I)620f"YOU HAVE OVERSOLD A STOCK; TRY AGAIN."h420lI qT5P5S5)B5(.01T5100.5)100<C5CP5B5S5KC50674~"YOU HAVE USED $ ";C5;" MORE THAN YOU HAVE>"420CC5I15P(I)P(I)Z(I)I841I120(135)I "********** END OF DAY'S TRADING"X1765H"STOCK-PRICE--HOLDING--VALUE--NET PR CHG"N2);"IBM";7);S(1);14);P(1);23);S(1)P(1);31);C(1)2);"RCA";7);S(2);14);P(2);23);S(2)P(2);31);C(2) 2);"LBJ";7);S(3);14);P(1);23);S(3)P(3);31);C(3)L2);"ABC";7);S(4);14);O(4);23);S(4)P(4);31);C(4)R2);"CBS";7);S(5);14);P(5);23);S(5)P(5);31);C(5)X91 *360IN10851MI1(4.99(X)1)NN1(4.99(X)1)OE11SN20861WI2(4.99(X)1).XN2(4.99(X)1)8YE21]\ DEDUCT ONE DAY FROM N1 AND N2i]N1N11u^N2N21z LOOP THROUGH ALL STOCKSI15X1(X)X1.25920X1.25935X1.5925X1.50935X1.75930X1.75935$X10.0A BIG CHANGE CONSTANT:W3KW30YE11945t(I1.5)(I.5)945~W310E10E11955(I2.5)(I.5)955W3W310E20C(I)(AS(I))X1(36(X).5)W3 C(I)(100C(I).5)100S(I)S(I)C(I)-S(I)09678C(I)0A970]S(I)(100S(I).5)100dIpT8T81~T81990T8(4.99(X)1)A(((X)10)100.5)100S4(X)S.5997AAS(I)0:(4)"RUN MENU" [::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":3:A$"PUBLIC DOMAIN SOFTWARE":3::A$"STOCK MARKET GAME":3<11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"s49152,128:K(49152)128:49168,0:K48K521005A((K)):A3ıA126,1050,0,1030:1000:(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."s49152,128:K(49152)128:49168,0:K80K811055$K81ı)PF1:(4)"PR#1":126:PF0:(4)"PR#0":" DEDUCT ONE DAY FROM N1 AND N23000:10'(42(A$))2:A$:: BOOZE@ _ A PROGRAM ON THE PHYSIO-x LOGICAL EFFECTS OF ALCOHOL ON THE HUMAN BODY BY DICK CARTER AND JIM HUNGERFORD APPLESOFT VERSION BY  JOHN COOK  d:. 5:17:"BOOZE"4 "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL"4 "TOLERENCE. FOOD IN THE STOMKMNOPQRSTACH AFFECTS THE RATE OF ABSORPTION. MEDICATIONS," "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830R @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"g JB$:(B$)0360| T(B$,1)"P"380 ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5); :"(";W;" POUNDS IS ";K;" KILOGRAMS.)":430 "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM." WW2.2   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"W "M = 'MIXED' (HARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"o "B = BEER (12 OZ)" "W = WINE"  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530510M"HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;U& H0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD9 X .00194((W100)10.00009)\ R .765(((W100)10).015) B (D1000(W16R))(60X) B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015)  B0 800E "YOUR PER CENT OF BLOOD ALCOHOL IS ABOUT ZERO."P 1050}  "YOUR PER CENT OF BLOOD ALCOHOL IS ";B* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910"p: 7) "+++++ REST IN PEACE +++++"`z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"k 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 19806: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES SERIOUSLY AFFECTED."A 1980: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION."# 1980[ "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."f 1980 "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290+&"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";A$;", AND"O0"ENTER YOUR REAL WEIGHT.":290W: "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080 :"YES OR NO, PLEASE.";:2010  :(4)"RUN MENU"r ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: 4:A$"ADVANTAGE COMPUTING'S":5: A$"PUBLIC DOMAIN SOFTWARE":5::A$"BOOZE N YOU":5M 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:K48K523005 A((K)):A3ı A3100,3050,0,3030 :3000 :(4)"RUN MENU2"L 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:K80K813055 K81ı PF1:(4)"PR#1":3100:PF0:(4)"PR#0":B ::"ENTER THE REQUESTED INFORMATION, AND":"YOU WILL SEE HOW ALCOHOL AFFECTS YOUR":"BODY AFTER A CERTAIN NUMBER OF DRINKS."L PFı! :23:A$"PRESS A KEY":5::49152,128:49168,0:6000:10'(42(A$))2:A$:I CA$(27),W$(27,20),CW$(27,30)\C(27),CC$(30)d:l16"HOW MANY POSSIBLE CATEGORIES DO YOU":"WANT (2-20)";N1N12N120N1(N1)ĺ(7):30X1N1CA$(X)N0NN1 W$(X,N) W$(X,N)"X"270( 230/ X9 936E "X1N1L ,Xb 6X;".";6);CA$(X)i @Xq J21 T"---------------------------------------" ^34,21 hCT((8)N1)1 rW((8)17)1 |W$(CT,W)""W$(CT,W)"X"370  22UWXYZ[\]^_`abc W$(CT,W):8 "WHAT CATEGORY IS THIS FROM ";A$I A$"0"6030Y A$"L"630e A(A$)o 936} ACT500 "SORRY, THAT IS INCORRECT. "THE CORRECT CHOICE IS: ";CT 510 "THAT IS CORRECT." CT:1  CT".";6);CA$(CT). 24:"PRESS ANY KEY TO CONTINUE";4 &< 0A$G :CT:1^ DCT".";6);CA$(CT)h N936z XC(CT)C(CT)1 bCW$(CT,C(CT))W$(CT,W) l360 v"LIST WHICH CATEGORY ";N N1NN1ĺ(7);:680 C(N)0710 ::"NO WORDS IN THIS CATEGORY" 6 :"PRESS ANY KEY TO CONTINUE";> A$G 390W C(N)1850p CC$(1)CW$(N,1):NC1 H11C(N) H21NC CW$(N,H1)CC$(H2)780 H2 NCNC1:CC$(NC)CW$(N,H1) H1 C(N)NC H1C(N):CW$(N,H)CC$(H):H *J1C(N)1:IJ1C(N)9 4CW$(N,J)CW$(N,I)840g >G$CW$(N,J):CW$(N,J)CW$(N,I):CW$(N,I)G$q HI:Jw R \:936 fCA$(N):: p zH1C(N) CW$(N,H) H :"PRESS ANY KEY TO CONTINUE"; A$ 936 X1N1XX;".";6);CA$(X)"XQ"---------------------------------------"\34,21e390 "SLOW, LAZY, LIFELESS" SLUGGISH,LETHARGIC,LACKADAISACAL,LANGUID,COMATOSE,TORPID,PHLEGMATIC,LISTLESS,X "REPETITIVE; OVERLY WORDY; TALKATIVE"j PROLIX,TAUTOLOGIC,VERBOSE,BOLUBLE,LOQUACIOUS,REDUNDANT,GARRULOUS,GLIB,CIRCUMLOCUTORY,EXPATIATE,X"SHORT, PRECICE; TO THE POINT" TERSE,PITHY,SUCCINCT,CONCISE,LACONIC,EPIGRAMMATIC,TACITURN,SENTENTIOUS,APHORISTIC,CURT,X  HAPPYESANGUINE,BLITHE,EXULTANT,JOCUND,FELICITY,JUBILANT,BEATIFIC,CONVIVIAL,XO  SAD* DEJECTED,LUGUBRIOUS,DOLOROUS,MELANCHOLY,DOWNCAST,DISCONSOLATE,DESPONDENT,ELEGY,DIRGE,LAMENT,LACHRYMOSE,SATURNINE,MOROSE,X4 WORLDLY> SOPHISTICATED,URBANE,SUAVE,COSMOPOLITAN,POLISHED,REFINED,X1H QUARRELSOMER CHOLERIC,IRASCIBLE,BELLIGERENT,BELLACOSE,PUGNACIOUS,TRUCULENT,CONTENTIOUS,X\ TOPf APEX,APOGEE,ZENITH,PEAK,CREST,ACME,PINNACLE,SUMMIT,PLATEAU,CULMINATION,Xp BOTTOM +z PLAIN,CANYON,VALLEY,PERIGEE,BASE,GORGE,NADIR,ROOT,TROUGH,XH "BAD; HARMFUL; DEADLY" INIMICAL,NOXIOUS,LETHAL,MIASMIC,DELETERIOUS,REPUGNANT,FATAL,EGREGIOUS,NEFARIOUS,INVIDIOUS,BALEFUL,BANEFUL,HEINOUS,MALIGNANT,VIRULENT,ODIOUS,X"FEARFUL; COWARDLY". TIMOROUS,CRAUEN,PUSILLANIMOUS,DASTARDLY,FECKLESS,XU"UNREHEARSED; SPUR OF THE MOMENT" SPONTANEOUS,IMPROMPTU,EXTEMPERANEOUS,FORTUITOUS,ADVENTITIOUS,X STINGY NIGGARDLY,PARSIMONIOUS,PENURIOUS,FRUGAL,THRIFTY,X "TEMPORARY, NOT LASTING"- EPHERMAL,TRANSIENT,FLEETING,EVANESCENT,XQ"REDUCTION IN SIZE, LESSENING" CURTAIL,ABRIDGEMENT,WANING,ABATEMENT,ATTRITION,X PEACEFUL SERENE,PACIFIC,HALCYON,PLACID,TRANQUIL,X VERY LARGE IN SIZE! LEVIATHAN,PRODIGIOUS,MAMMOTH,GARGANTUAN,TITANIC,COLLOSSAL,X:$ VERY SMALL IN SIZEs. INFINITESIMAL,MITE,LILLIPUTION,EXIGOUS,SCINTILLA,X8 TO SCOLDB VITUPERATE,BERATE,UPBRAID,REVILE,REBUKE,FLAY,EXCORCIATE,CHASTISE,CASTIGATE,REPROVE,REPROACH,XL BEGINNER%V TYRO,TENDERFOOT,NOVICE,NEOPHYTE,ACOLYTE,X4` STUBBORNj REFRACTORY,RECALCITRANT,TENACIOUS,OBDURATE,ADAMANT,RESOLUTE,INTRACTABLE,PERTINACIOUS,DUCTILE,Xt TO SOOTHE~ PLACATE,PACIFY,MOLLIFY,ALLAY,ASSUAYE,PALLIATE,APPEASE,PROPITIATE,X "HONOR; AWARD"^ ACCOLADE,LAURAL,PLAUDITS,RECONGNITION,ENCOMIUM,LAUDITORY,PANEGYRIC,PAEAN,EULOGY,Xo "BAD-DOER" TRANSGRESSOR,MALEFACTOR,FELON,MISCREANT,X IRRITABLE PETULANT,WASPISH,CANTAKEROUS,QUERULOUS,BILIOUS,FRACTIUOS,X IMPOVERISHED1 IMPECUNIOUS,INDIGENT,DESTITUTE,PENURY,XX "MORALLY LAX; NO SELF RESTRAINT" WANTON,HEDONISTIC,PROFLIGATE,DISSOLUTE,LASCIVIOUS,LICENTIOUS,LIBERTINE,X UNEMOTIONAL STAID,STOLID,SEDATE,IMPASSIVE,PHLEGMATIC,GRAVE,SOMBER,X 20((A$)2));A$ :#5R"THE NUMBER OF VOCABULARY WORDS YOU NEED"~:"TO KNOW FOR YOUR SAT TEST IS QUITE":"LARGE. RATHER THAN LEARN THE EXACT":"DEFINITION OF EACH WORD, WHICH WOULD":"TAKE A GREAT DEAL OF TIME, YOU COULD"2:"LEARN TO GROUP WORDS TOGETHER AND"Y:"JUST REMEMBER ONE DEFINITION."c5000i::"FOR EXAMPLE, YOU COULD GROUP THE WORDS:"":"ZENITH, PEAK, CREST, ACME, APOGEE,",:"PINNACLE, SUMMIT, PLATEAU AND"6:"CULMINATION TOGETHER AND REMEMBER THAT"<@:"THEY ALL MEAN 'TOP'"lJ::"NOT ONLY IS THIS EASIER TO REMEMBER,"T:"BUT IT GIVES YOU ALMOST ALL THE"^:"INFORMATION THE SATS WILL EVER ASK YOU"h:"TO SUPPLY ABOUT A WORD."r5000|%"IN THIS TEST, YOU WILL SEE FROM 2 TO 20"S:"CATEGORIES PRINTED AT THE TOP OF THE":"SCREEN. A WORD WILL BE PRINTED ON THE":"BOTTOM OF THE SCREEN, AND YOU MUST TYPE":"IN THE NUMBER OF THE CATEGORY TO WHICH":"THIS WORD BELONGS."3::"IF YOU WANT A LIST OF SOME OF THE WORDS"c:"THAT YOU'VE ALREADY PUT IN A CATEGORY,":"TYPE 'L' INSTEAD OF A NUMBER. THEN":"TYPE IN THE NUMBER OF THE CATEGORY."5000"ONE MORE THING....":"ONCE YOU'VE STARTED THE TEST, THE ONLY"j:"WAY TO STOP IS TO ENTER 0 AS THE"::"CATEGORY IN WHICH THE WORD BELONGS."&::"IF YOU REALLY WANT TO DO WELL ON THE"0:"SATS, YOU SHOULD CONTINUE PRACTICING"::"THIS TEST UNTIL YOU ARE ABLE TO PLACE"$D:"EVERY WORD IN THE CORRECT CATEGORY.".N50006X:@PFıFq22:"PRESS THE SPACE BAR TO CONTINUE"yA$A$" "5020p::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: q4:A$"ADVANTAGE COMPUTING'S":5:M rA$"PUBLIC DOMAIN SOFTWARE":5::A$"SAT PREPARATION":5 s11: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:K48K526005!vA((K)):A3ı,!wA4000,6050,0,60308!:6000O!:(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.""49152,128:K(49152)128:49168,0:K80K816055 "K81ı:"PF1:(4)"PR#1":4000:(4)"PR#0":PF0:5l|"1+ T ):Oe{ "9Obw;,<,< %.>.>.(,557777--%-.>657?<:'%% 5757---(757?< (<,--557?<,<,< -.8,-57>>.''%<,,557.>>''%-.>.>.?<$<565-e$$ -66?$$l66*.%%'%'-8?*?(<,<,,-.>.>6-..>'%'%'m577$$$$$$$m-??-m--????--m---??????.--m---5??????.--m---5??????-m M-;m-$$$$$$-?- -5??.m-;-mi-????--- ---5??????.--m---????-mi-m-"$$$$$$$m??-m-????--m--?????dfghi?---m---??????--m--????-m-??m"$$$$$$ H9;--M)-??????---m---5??????7---m---5??????7---m---5??????w--- ---????w-- --??w- -w 666666666666v$$$$$$$$$$$$$d66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666. $$$$$$$$$$$$$6666666666666---mIII--->??;??7--mIIII)-5???.-mIIIII-5???.-mIIIII-5???.--M m)M -->?????????.----MI)---5????????????.-----------???????????--------------MII---5?????????.--mIMM --5????7--MIIII -5???.-mIIIII-5????7---M MM --5?????????.----MI)---5????????????.-----------???????????-------------m ---5????7--m --5??7--m --5????7---m ---5??????7----m ----5????????7-----m-----5??????????7------------???????????-----------m -5??7-m -5??7--m --5????7---m ---5??????7----m ----5????????7-----m-----5??????????7------------???????????----------+ %'%'%'''>>.>.>.-757??'%'%'%'--5575I7??%'%'%'%--.:?g'%'%'%'--5575757-???,<,<,<,< --?76>$$,<,----5757??<,<,<,< --. 6.$$$$76>?'$<6666%$I???L-<'-<'-<'- 8???5-%%'%'%'-8?0..%'%'%'%'mI77776I???,<,<,<,< 6.$$$$5>8> 666>$$$$)6.$$$$76>''0666>$$$$J57??<,<,<,< --.>.>.--8,<.>.>.>+.?<,<,<,< --.>.>.6-..%'%'%'%'--557?7-757??< <,< --.:'-<'-<'-<'- 8???J$$$56667??<,<,<,<,R,,<,<,<;.>.>...6?n$$$,6666$$$$5666->5'%%g-,$,''<2:'-<'-<''<, .$,6I???,,,,,,<,??:?(<,<,,566%$$$<56-$%7+%?,%?,m8??g--? pOȹpPȹpQȹpRN ,NO`QPQ R`0QL93::A$"PRESS A KEY":3450::49152,128:49168,0:K<:(4)"RUN MENU2"\::49168,0SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::4:A$"ADVANTAGE COMPUTING'S":3450:6:A$"PUBLIC DOMAIN SOFTWARE":3450:8:A$"ROULETTE":345011:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"23:39:A:A1A44020A3500,4050,4035,3900FL04000FLFLFL:5FL1:32,2:33,33:34,11:35,22:t11:"MAKE SURE YOUR PRINTER IS READY AND":"PRESS 'P' TO PRINT, OR PRESS":"'Q' TO QUIT."49152,128:(49152)128("P")(49152)128("Q")Ĺ49168,0:4060(49152)128("Q")ı:(4)"PR#1":PF1:3500:PF0(4)"PR#0":Q' TO ABORT."H"49152,128:K(49152)128:49168,0:K80K812055T" K81ı"PF1:(4)"PR#1":65:PF0:(4)"PR#0":XSd::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::e4:A$"ADVANTAGE COMPUTING'S":200::A$"PUBLIC DOMAIN SOFTWARE":200::A$"TIME TEACHER":2002 f11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"h 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":"PRESnpqS 'Q' TO ABORT."J 49152,128:K(49152)128:49168,0:K80K81155V K81ı PF1:(4)"PR#1":400:PF0:(4)"PR#0": A20((A$)2):A:A$;: ,:(4)"RUN TIME.TEACH.TWO"l ::"ON YOUR SCREEN A CLOCK WILL BE DRAWN":"YOUR TASK IS TO TELL WHAT TIME IT IS TO":"THE COMPUTER. IF YOU GIVE THE CORRECT":"RESPONSE, YOU WILL BE ASKED ANOTHER" "QUESTION. IF, HOWEVER, YOU GET THE":"TIME WRONG, YOU'LL HAVE TO GUESS AGAIN." PFı ::A$"PRESS A KEY TO CONTINUE":200: A$:A$""440  =====================$ @ *** CONNECT-A-DOT ***FR BY---g DUANE A. BARTSz 208 FLVA AVE FT. WALTON BEACH, FL JULY 30,1980 =====================H%(9,9),V%(9,9),PA$(12),PB$(12):8061 232,126:233,31:4005:1:1\ :10:10)"*** CONNECT-A-DOT ***"::9)"A GAME FOR TWO PLAYERS"l D12500: :1:1,0279,0279,1591,1591,0:3070 N1:Y5154149:N1:X7720314:NX,Y:D1100:D:NN1:X,Y! N1:X65215150:N1:Y161421rtu4:NX,Y:D1100:D:NN1:Y,X' \ :21:"TYPE IN YOUR NAMES (11 LETTERS MAXIMUM)" $"PLAYER 1: ";PA$:(PA$)11Ğ:"TOO MANY LETTERS":2120:37,21:958:1060 )31,21:958:"PLAYER 2: ";PB$:(PB$)11Ğ:"TOO MANY LETTERS":2120:37,21:958:1065C .:2:X2740:X,73X,84::6:X241254:X,73X,84: 321:PA$;"'S COLOR IS ON THE LEFT":PB$;"'S COLOR IS ON THE RIGHT":3080 8P((1)2)1  PLAYER MOVE O(0):"":P1P2:2015 P1 :21:"SCORE = ";SA;:28)"SCORE = ";SB) P1ğ:PA$;::28)PB$:2030B PA$;::(28):PB$:r :(4):"PLOT FROM ";:2055:APP:A103060 ",";:2055:BPP:B103060 " TO ";:2055:CPP:C103060 ",";:2055:DPP:D103060 2080 PP(16384):PP1282055% 16368,0:PPPP176:PP21PP10:9 PP0PP92055D PP;:V  LEGAL PLOT?k ACEA:AC:CE %BDEB:BD:DE *(CA)1(DB)1İ2115:"THAT'S TOO LONG -- TRY AGAIN":2120:20156/ACV%(A,B)1BDH%(A,B)1İ2115:"THAT LINE IS ALRE10000:50((42(A$))2:A$:02::<6315@AFFNKX0TPZR`SgUMmV|ZA$(18,12)\AA$(18)dC(18(1)1)n1000p2000vx" FIRST,WE'LL SHOW YOU THE 18 CHOICES." }"THEY'LL STAY ON THE SCREEN THROUGHOUT"A "THE GAME,BUT WHY NOT LOOK THEM OVER NOW"p "BEFORE THE TIMER STARTS.THEN HIT RETURN" "WHEN YOU'RE READY TO PROCEED." 5010 1900 " HERE WE GO" ZZZ11000:ZZZ 5000 35,14 X0 XX1vxyz{|}~ 3000 X10280" 210. TRTR1= TR2ī200M TR2İ9000] TR2İ8210s "4000:4000:4000 #NUM30:35,24 $:"YOUR UNKNOWN IS IN FACT" &8040 (1900 ,:9500  SUBROUTINE TO AVOID DUPLICATION OF QUESTIONS 1-10 Z(10) N110) Y(10(1))14 X1NF YZ(X)ī1020M X[ Z(X1)Yb .Nh 0n 8 l"((RETURN))";ZZ$ v  DATA VALUES AA$(1)"P DICHLOROBENZENE" AA$(2)"IODINE" AA$(3)"HYDROGEN ACETATE" AA$(4)"SODIUM CHLORIDE" AA$(5)"DIAMOND"< AA$(6)"SULFUR(RHOMBIC)"Y AA$(7)"SILICON DIOXIDE"w AA$(8)"SODIUM HYDROXIDE" AA$(9)"HYDROGEN SULFATE" AA$(10)"SODIUM OXIDE" AA$(11)"WATER" AA$(12)"CARBON DIOXIDE" AA$(13)"METHANE CH4" AA$(14)"ETHENE C2H4"/ AA$(15)"ETHANE C2H6"L AA$(16)"SULFUR DIOXIDE"g AA$(17)"AMMONIA NH3" AA$(18)"HYDROGEN CHLORIDE" D118 B111 A$(D,B) B:D 4 "53","150","3","3","2.1","1.53","3","3","4","1","MOTHBALLS">\ "115","260","1","0","2.5","4.9","3","2","4","1","STARCH TEST" "17" ,"60","3","1","2.1","1.1","2","6","1","1","VINEGAR" "800","60","2","0",".9","2.2 ","1","5","3","2","BRINE" "3500","15","1","0","2.5","3.5" ,"4","6","4","2","HARDEST"E "120","256","1","0","2.5","2.1","3","3","4","2","YELLOWISH" "1610","60","2","2",1.8","2.3","4","6","4","2","SAND"  "320","40","3","0",".9","2.1","1","5","2","2","STRONG BASE" "10.4","100","3","2","2.1","1.8","2","4","1","2","#1 INDUSTRIAL CHEMICAL" a "1270","60","2","0",".9","2.3","1","5","2","2","BASIC ANHYDRIDE"  "102","18","2","0","2.1","1.0","2","1","3","2","AQUA" "-80","45","2","2","2.5","2","3","2","1","2","DRY ICE" "-160","15","2","0","2.1",".8","3","4","4","1","MARSH GAS"r "-100","28","2","1","2.1","1.3","3","7","4","1","RAW MATERIAL OF MANY PLASTICS" "-90","30","2","0","2.1","1.3","3","6","4","1","NATURAL GAS" "150","60","2","2","2.5","2.9","2","1","1","1","ACID RAIN MAKER"C "-33","18","2","0", 2.1",".75","2","4","2","1","SMELLING SALTS" "-85","36","2","0","2.1","1.6","2","2","1","1","MURIATIC ACID"  PRINTS QUESTIONS X103599 X"." Z(X)3010,3080,3110,3150,3180,3210,3260,3310,3360,3430 C10C2C12ī3060$ C10ī3050^ "THE MELTING POINT IS ABOUT "A$(C,1)"( + - 10 DEG)"u M$"MELTING POINT" 3070 "BOILING POINT IS ABOUT "A$(C,1)" (+-10 DEG)" M$"BOILING POINT" 3070 "IT SUBLIMATES AT ABOUT "A$(C,1)"( + - 10DEG)"# M$"SUBLIMATION POINT"- 3590X "THE MOLECULAR MASS IN AMUS IS ABOUT"w A$(C,2)" (+ OR - 4 AMUS)" 3590& C2C5C6ī31300 "THERE ARE "A$(C,3)" ELEMENTS IN THIS COMPOUND.":3140: "THIS SUBSTANCE IS AN ELEMENT,NOT A COMPOUND."D 3590@N "IN EACH MOLECULE OR CRYSTAL UNIT THERE"cX "ARE "A$(C,4)" DOUBLE BONDS."mb 3590l "THE MOST METALLIC ELEMENT IN THIS SUB-"v "STANCE HAS AN ELECTRONEGATIVITY OF "A$(C,5) 3590 "ITS DENSITY AT STP IS ABOUT "  A$(C,6); C113240; " G/ML (+ OR -.1 UNIT)":3250W " G/L (+ OR -.1 UNIT)"a 3590 "MOST CHEMISTS CLASSIFY IT AS A" T$(1)"IONIC":T$(2)"POLAR COVALENT":T$(3)"NON-POLAR COVALENT" T$(4)"NETWORK SOLID"  T(A$(C,7)):T$(T)" SUBSTANCE." 3590X Q$(1)"BENT":Q$(2)"STRAIGHT":Q$(3)"A RING":Q$(4)"PYRAMIDAL" Q$(5)"A CRYSTAL":Q$(6)"MULTI-TETRAHEDRAL" Q$(7)"PLANAR" "ITS MOLECULAR SHAPE IS ESSENTIALLY" Q(A$(C,8)):Q$(Q) 3590 P$(1)"MAKES AN ACID":P$(2)"MAKES A BASE"Q* P$(3)"MIXES,WITH SOLUTION OF PH BETWEEN 5 AND 9"4 P$(4)"JUST DOESN'T DISSOLVE TO ANY EXTENT"> P(A$(C,9))H "WHEN STIRRED INTO WATER,SUBSTANCE"R P$(P)\ 3590f R$(1)"HAS A ":R$(2)"HAS NO " p R(A$(C,10))4z "SUBSTANCE "R$(R)"DISTINCTIVE SMELL."> 3590H4000XTR1ī3599^ ~ COUNTER OF # OF QUESTIONSNUMNUM1s TIMING ROUTINETT1GGGQQ(16384)QQ1254100TT499916368,0 :" OK !!"1" HERE'S WHERE YOU TYPE IN YOUR"Z""SELECTION. IF YOU'RE WRONG,YOU'LL","GET JUST ONE MORE CHANCE AT IT."6"BUT IF YOU'RE RIGHT....WOW!!"@:" TYPE IN NOW THE ";::"NUMBER";::" OF"J"YOUR CHOICE..NOT ITS NAME ";ANSOANS010030TANSC4290-hVVVVVV1=rVVV14240_|"NOPE!!ONE MORE SHOT AT IT."o1900:4999z35,24NUM30:"SORRY...YOUR UNKNOWN IN FACT IS":80401900:9500NUM10432035,24:7000NUMNUM10:8210 1900:950035,24:8000.1900:95004K CHOICES FOR USERQY16{" HERE ARE YOUR CHOICES""(1) PARA DICHLORO BENZENE C6H4CL2""(2) IODINE (3)PURE ACETIC ACID(HCH3COO)""(4) NACL (5)DIAMOND (6) SULFUR" "(7) SIO2 (8) NAOH (9) H2SO4"I"(10) NA2O (11) WATER (12) CO2 GAS"r"(13) METHANE,CH4 (14)ETHENE,C2H4""(15) ETHANE, C2H6 (16) SO2""(17) AMMONIA, NH3 (18) HCL"p:z" WELCOME TO THE GAME CHEMICAL SEARCH"!:"BEFORE WE BEGIN,LET'S SHOW YOU HOW TO"O"CLEAR THE SCREEN WHEN NEEDED. WHEN YOU""SEE ";::"((RETURN))";::" ON THE SCREEN AND THEN""CURSOR PATIENTLY BLINKS AT YOU WAITING,""YOU SHOULD HIT THE RETURN KEY .":"WHY NOT TRY IT NOW!!"PFĺ:6110:1900:"WONDERFUL!DO IT AGAIN!!":1900@Z DESCRIPTION OF GAMEy" NOW ABOUT THE GAME !!":" APPLE HAS IN ITS MEMORY TEN FACTS""ABOUT 18 COMMON CHEMICALS.THESE FACTS""GIVE(FOR EXAMPLE)HOW MANY ELEMENTS,"( "ITS APPROXIMATE MOLECULAR MASS,ITS"W "MELTING OR BOILING POINT,WHETHER OR NOT"{ "IT HAS ANY DOUBLE BONDS,ETC." "YOU'LL SEE THE LIST OF THE 18 POSSIBLE" "CHEMICALS ON THE SCREEN CONSTANTLY." PFĺ:6160 1900*!" NOW APPLE PICKS ";::"ONE";::" OF THOSE EIGHTEEN"S!"AS YOUR UNKNOWN. THE GAME BEGINS!"!" WHEN YOU START THE CLOCK,THE FACTS"!"FOR YOUR UNKNOWN WILL FLASH ONTO THE"!$"SCREEN FOR 10 SECONDS OR SO,ONE AFTER"")"ANOTHER.YOU'LL SEE ALL TEN FACTS ONE"4"."TIME THROUGH,THEN A SECOND TIME THROUGH."c"8" WHEN YOU THINK YOU KNOW THE CHEMICAL,""="SIMPLY TAP THE ";::"SPACE";::" BAR TO STOP THE""B"CLOCK.YOU'LL THEN BE ASKED TO TYPE IN""G"THE NUMBER OF YOUR CHOICE.""JPFĺ:6225#L1900:B#Q"IF YOUR CHOICE IS ";::"RIGHT";::" YOU'LL SEE A"r#V"SUMMARY OF THE TEN FACTS,THEN YOUR SCORE"#[" BUT IF YOU'RE ";::"WRONG";::" YOU'LL GET ONE"#`"MORE CHANCE,AS FLASHING OF FACTS RESUME."#cPFĺ:6250#e1900#$j" IF YOU STILL HAVEN'T HIT SPACE BAR,"Q$o"YOU'LL NOW SEE ON SCREEN A KEY WORD OR"$t"PHRASE THAT IS CLOSELY RELATED TO YOUR"$y"CHEMICAL.AND IF THAT ";::"STILL";::" DOESN'T HELP"$~"WE'LL SHOW YOU ALL TEN FACTS TOGETHER,"%"AND GIVE YOU EXTRA TIME TO WORK IT OUT.")%PFĺ:62803%1900_%"IF YOU GUESS RIGHT WITHIN FIRST FIVE"%"QUESTIONS,YOU GET A TOP SCORE OF 1000."%"GETTING IT WITH FIRST TEN QUESTIONS"%"IS STILL GREAT,BUT SCORE GOES DOWN WITH" &"EACH NEW 'FLASH'.":PFī6297&1900]&:"IF YOU WISH TO QUIT, ENTER 0 AS YOUR":"CHOICE DURING THE GAME."c&& USER SELECTS TIMING RATE&" NOW TO MAKE THINGS MORE INTERESTING"&"WE'LL LET ";::"YOU";::" SET THE RATE AT WHICH" '"THE QUESTIONS COME AT YOU!"8'"MORE EXPERIENCED PLAYERS MAY CHOOSE TO"c'"CHALLENGE THEMSELVES BY SPEEDING UP"x'"THE DISPLAYS!"':"PICK A DISPLAY TIME BETWEEN FIVE AND"'"FIFTEEN SECONDS."'"TIME IS TO BE ";K(K5ĺ"APPLE CAN'T WORK THAT FAST!! 5 OR MORE!":6350I(K15ĺ"TOO SLOW!I'LL FALL ASLEEP! 15 OR LESS":6350_(GGG(300K4.5)}(::"NOW WE CAN BEGIN!!"(N1900(W(X NEEDED TO ESTABLIS P$(P),ETC([" YOU'RE RIGHT!!"(]GGG60:"LET'S SEE ITS OTHER PROPERTIES.")b1900 )j)lX110)v3000&)XT):"NOW WE'LL SUMARIZE THE PROPERTIES OF"r)" ";::AA$(C):x))@ CONGRATULATORY MESSAGE)J)T"CONGRATULATIONS !! ")^"YOU'RE CORRECT!! YOUR UNKNOWN INDEED IS"*h" ";::AA$(C): *r35,240* " LET'S CHECK ITS PROPERTIES"R* "1.IT HAS A "M$" OF "A$(C,1)* "2.ITS MOLECULAR MASS IS ABOUT "A$(C,2)*& "3.THERE ARE "A$(C,3)" ELEMENTS IN IT."*0 "4.THERE ARE "A$(C,4)" DOUBLE BONDS/MOLECULE"+: "5.ITS MOST METALLIC ATOM HAS EN OF "A$(C,5)8+D "6.ITS DENSITY AT STP IS "A$(C,6)Z+N "7.IT'S A "T$(T)" SUBSTANCE"+X "8.IT'S MOLECULAR SHAPE IS "Q$(Q)+b "9.IF STIRRED INTO WATER,IT "P$(P)+g "10.IT "R$(R)" DISTINCTIVE SMELL.",l "11.IT'S DISTINCTIVE PHRASE IS":" ";A$(C,11) , *,(# ROUTINE TO GIVE CLUE#11J,2#:"STILL HAVEN'T GOT IT ?"u,<#"WE'LL GIVE YOU A CLUE...A PHRASE...",F#"THAT MAY HELP YOU TO IDENTIFY IT. IT'S",P#:" ";A$(C,11),Z#4000,_#NUM24,d#" OK, ONE LAST HELP"-n#"WE'LL PRINT OUT ALL 11 FACTS FOR YOU."%-x#1900:+-#A-% CLOSING MESSAGEX-!% NOT A SUBROUTINE^-0%s-:%STU110025NUM-D%STU1000ī9570-N%SSTU-X%9580-b%S1000-l%"YOU'RE SCORE IN THIS ROUND WAS "S-v%:.{%S1000ĺ"TOP SCORE!! FANTASTIC!!!":97000.%S900ĺ"THAT'S STUPENDOUS !!":9700.%S850ĺ"PRETTY GOOD! YOU GOT IT WITH THE FIRST ROUND OF QUESTIONS.":9700.%S600ĺ"NOT BAD!! YOU DIDN'T NEED THE FINAL HINT":9700.%S500ĺ"WHEW!!JUST MADE IT!!WHY NOT TRY AGAIN?!":9700)/%"OH-OH....YOU DIDN'T DISCOVER IT'S NAME"U/%"IN TIME.TOO BAD!!WHY NOT TRY AGAIN?!"a/%1900:/%"REMEMBER,TOP SCORE IS 1000"/%"YOUR SCORE THIS TIME AROUND WAS "S/&:"WOULD YOU LIKE TO PLAY AGAIN?"/ &"INPUT Y OR N ";WW$0&(WW$,1)"N"ī98000 &:::50<0H&"HOPE YOU HAD FUN PLAYING THE GAME"c0R&" ";::"CHEMICAL SEARCH":u0\&" BYE NOW!!"0&(4)"RUN MENU"0'0'::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::1'4:A$"ADVANTAGE COMPUTING'S":5:E1'A$"PUBLIC DOMAIN SOFTWARE":5::A$"CHEMICAL SEARCH":51'11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"1'49152,128:K(49152)128:49168,0:K48K5210005 2'A((K)):A3ı'2'A6000,10050,0,1003042$':10000K2.':(4)"RUN MENU2"2B'32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."2G'49152,128:K(49152)128:49168,0:K80K8110055 3L'K81ı73Q'PF1:(4)"PR#1":6000:(4)"PR#0":PF0:7000:50'(42(A$))2:A$:J2V(16),B$(20,20),C$(16),D$(16)PdVn\xx2000: READ CUBE INFO~1000: DRAW MATRIX3000:RANDOMIZE CUBES4000:CHOOSE LETTERST1$"3:":T2$"00" 6500:INITIALIZE TIMER= 23:10:"PRESS SPACE TO START":A$o 23:" " 5000:PPLACE LETTERS IN MATRIX "6000:START TIMER ,BLANK MATRIX 6X116 @D$(X)C$(X) JC$(X)" " TX ^5000 hX116 rC$(X)D$(X) |XM 23:10:"PRESS SPACE TO REVIEW LETTERS";:A$i 5000: REPLACE LETTERS 23:10:"PRESS SPACE TO CONTINUE ";:A$  12:"DO YOU WANT TO PLAY AGAIN? (Y/N)":A$ A$"Y"Į::200 11000  DRAW MATRIX  4 1200:& 13002 1200:< 1300H 1200:R $1300^ .1200:h 81300r B1200x L~ V 9:X116:" ";:X:" ";: X13:9:" ";:13:" ";:17:" ";:21:" ";:25:" ":X:  READ CUBE INFO X116 Y16 B$(X,Y) Y) V(X)00 X6 L RANDOMIZE CUBESX X116k T%((1)16)1v Y1X T%V(X)3030 Y V(X)T%  X  RANDOMLY CHOOSE LETTER X116 Q%((1)6)1 C$(X)B$(V(X),Q%) X # PLACE LETTERS IN MATRIXc 6:11:C$(1);:6:15:C$(2);:6:19:C$(3);:6:23:C$(4); 10:11:C$(5);:10:15:C$(6);:10:19:C$(7);:10:23:C$(8); 14:11:C$(9);:14:15:C$(10);:14:19:C$(11);:14:23:C$(12);618:11:C$(13);:18:15:C$(14);:18:19:C$(15);:18:23:C$(16);A23:1GSpTIMER `T1$"2:"j6800wT1$"1:"6800T1$"0:"6800d12:32:T1$T2$:Z1700:Z:: 1 SEC.X59T2$(X)X10T2$"0"(X)65006600XX17T1$"0:"X11REVERSEFX0ī6810ST2$"00"]6500g6600msX::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::Y4:A$"ADVANTAGE COMPUTING'S":5:#ZA$"PUBLIC DOMAIN SOFTWARE":5::A$"BOGGLE II":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:K48K527005^A((K)):A3ı_A9000,7050,0,7030l:7000%v:(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."49152,128:K(49152)128:49168,0:K80K817055K81ıPF1:(4)"PR#1":9000:(4)"PR#0":PF0:(#:-2#:10:"OBJECT:"W<#"TO LIST, WITHIN 3 MINUTES, AS MANY"F#"WORDS OF THE HIGHEST POINT VALUE AS"P#"YOU CAN FIND AMONG THE RANDOM"Z#"ASSORTMENT OF LETTERS IN THE GRID."_#PF9080 d#:::"PRESS ANY KEY TO CONTINUE":A$n#"x#9:"PLAYING:"L#"WHEN THE TIMER STARTS, EACH PLAYER"v#"SEARCHES THE ASSORTMENT OF LETTERS"#"FOR WORDS OF ";::"THREE LETTERS OR MORE.":#"WHEN A PLAYER FINDS A WORD, HE/SHE"#"THEN WRITES IT DOWN ON A PIECE OF PAPER."#PF9160<#:::"PRESS ANY KEY TO CONTINUE":A$B##8:"WORDS ARE FORMED FROM ";::"ADJOINING":"LETTERS.";:#" LETTERS MUST JOIN IN THE"#:"PROPER SEQUENCE";::" TO SPELL A WORD. THEY"#"MAY JOIN HORIZONTALLY, VERTICALLY, OR"5#"DIAGONALLY,TO THE LEFT, RIGHT, OR UP-"b#"AND-DOWN. NO LETTER, HOWEVER, MAY BE"$"USED MORE THAN ONCE WITHIN A SINGLE" $"WORD. $PF9245$:::"PRESS ANY KEY TO CONTINUE":A$$$8"$"TYPES OF WORDS ALLOWED:"',$"ANY WORD (NOUN, ADJECTIVE, ADVERB,"U6$"ETC.), PLURAL OF, FORM OF, OR TENSE IS"@$"ACCEPTABLE AS LONG AS IT CAN BE FOUND"J$"IN A STANDARD ENGLISH DICTIONARY."T$"WORDS WITHIN WORDS ARE ALSO"^$"PERMISSABLE; E.G., SPARE:SPA, PAR,"h$"ARE, SPAR, PARE."m$PF9345Hr$:::"PRESS ANY KEY TO CONTINUE":A$N|$U$8q$"SCORING AND WINNING:"$"WHEN THE TIMER RUNS OUT, EVERYONE"$"MUST STOP WRITING. EACH PLAYER IN"$"TURN THEN READS ALOUD HIS/HER LIST OF"$"WORDS. ANY WORD THAT APPEARS ON MORE"D$"THAN ONE PLAYER'S LIST MUST BE"$"CROSSED OFF ";::"ALL";::" LISTS, INCLUDING THAT"$"OF THE READER."$PF9445$:::"PRESS ANY KEY TO CONTINUE":A$$$6$"AFTER ALL PLAYERS HAVE READ THEIR",$"LISTS, EACH PLAYER SCORES HIS/HER"D$"REMAINING WORDS:"a%" SCORING"%"NO. LETTERS: 3 4 5 6 7 8 OR MORE"%"--------------------------------"&%"POINTS: 1 1 2 3 5 11"0%:%"THE WINNER IS: 1)THE PLAYER WHOSE"+D%"WORDS HAVE EARNED THE MOST POINTS;"UN%"OR 2)THE FIRST TO REACH 50 POINTS,"}X%"100 POINTS, OR WHATEVER SCORE IS"b%"CONSIDERED BY ALL TO BE A REASONABLE"l%"TARGET."v%::" GOOD LUCK!!"{%PFı %::"PRESS ANY KEY TO CONTINUE":A$%:%1609'"A","S","O","H","R","M"W' "L","E","R","A","S","C"u$' "W","R","L","G","U","I".' "B","O","X","I","F","R"8' "E","V","I","T","N","G"B' "T","B","Y","L","I","A"L' "M","C","D","P","A","E" V' "T","A","C","I","A","O"*`' "S","P","T","L","E","U" Ij' "W","E","S","O","D","N" gt' "H","I","S","E","N","P"~' "F","I","H","E","E","Y" ' "D","Z","N","V","A","E" ' "K","N","T","D","U","O" ' "K","U","L","E","Y","G" ' "J","M","B","A","O","QU"*:(4)"RUN MENU"3000:100((42(A$))2:A$:3d::3DA(20):1090U"TEACHERS";[j"MINERS";p"GROCERS";$."DRIVERS";8B" ECONOMIC--SIMULATION":::A L"THE LEDGER REPRESENTS THE AVERAGE INDIVIDUAL OF EACH GROUP. THEY MAY GO ONSTRIKE BUT CREDIT IS ALWAYS GOOD."G Q V"HOWEVER, THEY MUST PAY BACK HALF WITH INTEREST NEXT YEAR. NO INTEREST ON BANK ACCOUNT. THEY MAY OVERDRAW AND SELL PROPERTY AND GO BANKRUPT!!" `N "GOODIES ARE THE CURRENT RESALE VALUE OF THEIR MATERIAL GOODS. GAME END TOTALS CASH AND GOODS."V 24y "PRESS RETURN TO CONTINUE";S$ Q500:N14 A(N)0:A(N4)0:A(N8)2Q A(N12)12:A(N16)Q:N 936:13 "HOW MANY TEAMS (1-4) "; T:T4GOT1250 ::- "HOW MANY YEARS (1-7) ";? Y:Y7ī1270[ Z1978Y:Y1977:U0:X1y W0: STATR NEW YEAR HERE 24 "PRESS RETURN TO CONTINUE";S$ YY1:YZ1ī1770 (B0:CU:M0:S0: U IS UNPAID DEBT 2N14:BBA(N):CCA(N4) <MMA(N12):SSA(N16):N< F:1880:O0:L.5ī1380 P"DUE TO THE DEPRESSION THIS YEAR MANY WORKERS WILL BE LAID OFF.":O1 dL2ī1420 QQ((X)1):1880 I.55L2:P100(I1):R.9L VI:1890:IV:VL:1890:LV VP:1890:PV:VR:1890:RV8 936:6::Y;" COST-OF-LIVING: ";L^ "RESALE: ";R;" INTEREST: ";P;"%"s WW1:WTī1300 BA(W):CA(W4):GA(W8) MA(W12):SA(W16) YZGGR:1900:1750 :N02000:N: TIMER W1İ1010 W2İ1030 W3İ1050W4İ1070UGGR:10:"HAVE $";(G102.5)(102.5);" G00DIES""M;" MO. AT $";(S102.5)(102.5);"/MO.=";:30:"$";(S102.5)(102.5)M,"PREVIOUS BANK ACCOUNT";:30:"$";(B102.5)(102.5)/6"LESS LIVING EXPENSES";:30:"$";4000(L102.5)(102.5)wJ"LESS CREDIT PAYMENT";:30:"$";((C102.5)(102.5))2:1900^"LEAVING $";(C102.5)(102.5);" DUE":1920h"WANT TO STRIKE 1=YES, 0=NO ";:Kr"HOW MUCH WILL YOU BUY ";:H|2010:(X)O2ī1680%K0M12:1750=V(12(X)):M12Vb"YOU LOSE ";V;" MONTHS OF WORK"xVP(30(X)15)"AND YOU ";:V0ī1730"GET A ";V;"% PAY CUT":1740"GOT A ";V;"% RAISE !!"SS(1V100)A(W)B:A(W4)C:A(W8)G A(W12)M:A(W16)S:1470::936: END OF GAMEk"AFTER ";Z1978;" YEARS UNDER YOUR CONTROL""THE FOLLOWING ARE THE RESULTS OF YOUR EFFORTS":"GROUP:","TOTAL:":1010:" ",((A(1)A(5)A(9))102.5)(102.5)T1ī187091030:" ",((A(2)A(6)A(10))102.5)(102.5)H&T2ī187001050:" ",((A(3)A(7)A(11))102.5)(102.5):T3ī1870D1070:" ",((A(4)A(8)A(12))102.5)(102.5)NT15000:::(4)"RUN MENU2"XL(SMBC)(4QM):bV(100V.5)100:0lBBC2:CIC2:EvBBSM4000L:_1910:B0BB:1940i2050"*** OVERDRAWN ***";:30:"$";B"TO AVOID JAIL YOU LIQUIDATE"GBī2000CCG:G0:"ALL OF YOUR GOODIES"B0:"BANKRUPTCY--LAWYER FEE $";L100$UUC:CL100:U"GOODIES WORTH $";(B102.5)(102.5):`H0ı|GGH:BHBBH:2050CCHB:B0:" <> $";(C102.5)(102.5)CIC:"INTEREST IS NOW ";P;"%":"BANK ACCOUNT AT";:30:"$";(B102.5)(102.5):l ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: 4:A$"ADVANTAGE COMPUTING'S":5: A$"PUBLIC DOMAIN SOFTWARE":5::A$"ECONOMIC SIMULATION":5O 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:K48K523005 A((K)):A3ı A3100,3050,0,3030 :3000 :(4)"RUN MENU2"N 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:K80K813055 K81ı PF1:(4)"PR#1":3100:(4)"0":PF0:f ::"IN THIS SIMULATION YOU ARE THE LEADER":"OF A UNION AND YOUR GOAL IS TO GET YOUR MEMBERS THE BEST OFF AS POSSIBLE.":"IF THINGS GET TOO BAD, YOU MAY STRIKE."! "GOODIES ARE FRINGE BENEFITS, ETC."# PFı& 23::A$"PRESS A KEY":5::49152,128:49168,0:3000:10'(42(A$))2:A$:D **********************a * APPLE FOOTBALL *~ * BY *( * DENNIS PAISLEY *2 **********************< * COPYRIGHT IS WAIVED*F * FOR NON-COMMERCIAL * P * USE. *, Z **********************2 dG nX(7),Y(7),A$(8)Q x1930_ 16368,0i ::o u { 1840 210:230 :12:10,3114:10,3126:14,269:15,2631  HALF1:710:680:750:P1:Y0:OLDYDYARD:10707 12:10,3114:10,3126:14,269:15,2631:CT0I XXX:YYY:N0Z 24:12:P2;m CTĹ16368,0| CT0310 "K(16384) ,K128280 6NN1 @N30460 JK(16384) TK128310 ^16368,0 hK208400 rK(16384) |K128370 16368,0, K201860; K205870J K202880Y K203890u CT0DOWN4K2181380~ 250 I17:((1)T)S570 AX(I)X:BY(I)Y:MX(I):NY(I) ((1)5)2510 Y(I)Y(I)(B) (B)0530 X(I)X(I)(A):530> C0:850:MX(I):NY(I):670:C2:850:570Z D11Y(I)2,14X(I)2)i D151030v &D0520 0X(I)M:Y(I)N :I DFLAG1610 NTIMETIME2 XTIME01750 b750:250 l((1)T)S460 v580 0:A2190 11Y2,14X2:A6 I17:11Y(I)2,14X(I)2:I:R J12:O(16336):J: 936:21:4:384:"SCORES":380:18:"TIME:";:30:"QTR:" "PLAYER ";:384:"A";:380:":";:18:"YARD:";:30:"YTG:" "PLAYER B:";:18:"DOWN:";: P10:P20:QTR1TIME600*YARD30HALF7DOWN1:j22:25:(TIME10);" ";:36:QTR:12:P1;:25(YARD)0Č38450(YARD);:380:" "; 36:10(YARDOLDYD)HALFP;" ":12:P2;:25:DOWN;21:18:"LEVL: ";LEVL QTR2P12160*QTR2P1217034QTR3P12170J>QTR3P12160vHK14:" ";:J18:M(16336):J,K:RC:11N2,14M2:\XXX1:900fXXX1:900pYYY1:900zYYY1CT1:Z0YY10YY1Z112YY,142XX)Z0950Z925010404YARDYARD(YYY)=750LYY0YY9[YY9YY0w112YY,142XX)1040YARD49YARD491220A0:1020:XXX:YYY:A15:1020:670:620A:112Y,142X:C0:850840:DOWNDOWN1:(YARDOLDYD)HALFP91210JI18:0:1190:1:1190:I:I1500:I:A0:640e$16368,0:DOWN41200x.PHALF011308AY3BA9AY7LBY7VB9BY3`1170jAY3tA0AY7~BY7B0BY3)I15:X(I)I:Y(I)A:I:X(6)2:X(7)4:Y(6)B:Y(7)B:FLAG1760DX3:A2:640:750:240f11YY2,14XX2:J160:J:1770:740:PP:U0:OLDYDYARD:1300OLDYDYARD:DOWN1:10501810:U0YARD491270PHALF11260 UU2:YARD30:OLDYD30:DOWN1:Y0:1300"PP:UU5:12505PHALF11290aUU2:YARD30:OLDYD30:DOWN1:Y9:1300v PP:UU5:1280~A0640(P113702P2P2U<23:8:384:"A":380F8:"B";P1070Z23:8:"A":8:P1P1U:384:"B";:380:1070dPHALF014307nYARDYARD10((1)40)IxYARD501200XU4:1810b1290~YARDYARD10((1)40)YARD501200U4:181012602010QTRQTR1QTR41670TIME600QTR310700HALF1:Y0:YARD3060(P1):PP:OLDYDYARD:DOWN1:936X22:15:384:"SWITCH SIDES":380^nALL0391~WHT4353"15:ALL,WHT:WHT,BLUE334362:39ALL,BLUE:BLUE@ALL391620J0:0,39ALL:0,3939ALLTALL^I12500:Ih210r680$|1300F:35,20:936:12:15:35,23VP1P21740f"PLAYER ";wP1P2ĺ"A";P1P2ĺ"B";" WINS!":(4)"RUN MENU""IT'S A TIE!":1730FLAG1:250FLAG0:1470EZ87:O140:1790:O110:1790:O64:1790:O160:1790:Z75:O128:1790:Z80:O64:1790:1790}Z87:O84:1790:1790:Z91:1790:Z87:O128:1790:768,Z:769,O:770A0:640Z154:O84:1790:Z114:1790:Z92:1790:Z76:O128:1790:Z92:O84:1790:Z76:O190:1790:g&Z154:O84:1790:Z114:1790:Z92:1790:Z76:O128:1790:Z92:O84:1790:Z76:O190:1790:m0s:yDX1820b936:16:"THE LARGER THE NUMBER THE":"FASTER THE DEFENSE MOVES."l12:5:"WHAT IS YOUR RATING (0-20)";A:A0A201900vLEVLA*A21A:TA:S(T2):9I770790A:JK:I,JQWs 173,48,192,136,208,5  206,1,3,240,9,202,208 245,174,0,3,76,2,3,96 1810::15:"PLAYER A & PLAYER B TAKE TURNS":"PLAYING A ROUND OF OFFENSIVE FOOTBALL":"AGAINST THE COMPUTER."5:"THE BOARD WHICH IS SHOWN ON THE":"SCREEN IS A FIVE BY TEN YARD GRID. THE""CURRENT PLAYER IS A WHITE SQUARE AND"  "THE COMPUTER'S MEN ARE THE BLUE SQUARES.":"BY HITTING KEYS, THE PLAYER CAN MOVE"Z"HIS WHITE SQUARE IN HIS DIRECTION,":"AVOIDING THE BLUE MEN WHEN HE CAN." :5:"THE OBJECT IS TO SCORE (TOUCHDOWN,":"FIELD GOAL, OR SAFETY). THIS IS DONE"*"BY MOVING IN THE RIGHT DIRECTION,":"KICKING, AND USING STATEGY!"S4:"I - MOVE UP J - MOVE LEFT":"M - MOVE DOWN K - MOVE RIGHT"|>"Z - KICK (PUNT) P - PAUSE"CPFıH23:7R"< HIT ANY KEY TO CONTINUE >"\(16384)1282140f16368,0:p21:12:"<-":z21:12:"->": 15:650i ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;:: 4:A$"ADVANTAGE COMPUTING'S":5: A$"PUBLIC DOMAIN SOFTWARE":5::A$"FOOTBALL APPLE":5G 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:K48K523005 A((K)):A3ı A2015,3050,0,3030 :3000 :(4)"RUN MENU2"F 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:K80K813055 K81ı PF1:(4)"PR#1":2015:PF0:(4)"PR#0":ADY ON THE BOARD --":"PLOT ANOTHER ONE":2120:20154ACBDİ2115:"THAT WAS A DIAGONAL LINE --":"WON7T WORK -- PLOT ANOTHER ONE":2120:20159ACBDİ2115:"YOU PLOTTED THE SAME POINT TWICE --":"PAY ATTENTION!!":2120:2015>2130 C:22::8HZ(16336):D1300:U(Z)(Z)(Z):::xR3:X(A14)77:Y(B14)16:V(C14)77:W(D14)16:X,YV,WWACV%(A,B)1\BDH%(A,B)1a MOVE OK?f" OK? (Y,N) ";:Y$:Y$"Y"2170k0:ACēX,(Y1)V,(W1):V%(A,B)0!pBDē(X1),Y(V1),W:H%(A,B)0+u2015Cz SQUARE COMPLETED?UP2Ē6:2185\2jAC2200t2220A02210H%(A1,B)1V%(A1,B)1H%(A1,B1)1İ3020H%(A,B)1V%(A1,B)1H%(A,B1)1İ30352235B02230)V%(A,B1)1H%(A,B1)1V%(A1,B1)1İ3005VV%(A,B)1H%(A,B1)1V%(A1,B)1İ3035eSSJSKSL|P2SBSBS:2255SASASSTSASB:ST13132270S02005S0:SJ0:SK0:SL0:2015SASB2280*:21::PA$;"7S SCORE = ";SA;" YOU WIN!"::PB$;"'S SCORE = ";SB:2285p:21:PA$;"'S SCORE = ";SA::PB$;"'S SCORE = ";SB;" YOU WIN!"::"PLAY AGAIN? (Y,N) ";:Y$:Y$"Y"3060:::"PLAY AGAIN SOON":(4)"RUN MENU" FILL SQUARES  F(X1)(X13):F,(Y13)F,(Y1):) SJ(A(B1)):SJ0SJ1/ W F(X13)(X1):F,(Y1)F,(Y13):s SK(B(A1)):SK0SK1y  F(X1)(X13):F,(Y1)F,(Y13): SL(AB):SL0SL1  0:Y16142:77,Y203,Y:Y::3070:1055 3:X7720314:Y1614214:X,Y:Y,X:N 24:10::"PRESS ANY KEY TO CONTINUE";:Y$:: ::"THE OBJECT OF THIS GAME IS TO COMPLETE":"SQUARES."3 "YOU DO THIS BY DRAWING LINES BETWEEN":"THE DOTS ON THE GAME BOARD.":"TO PLOT A LINE, TYPE IN THE COORDINATES OF ITS ENDPOINTS (TOP # FIRST, THEN THE SIDE #)."9 ?! E& K+ 0 "EACH SQUARE HAS A DIFFERENT SCORES.":"THE SQUARE'S SCORES INCREASE FROM":"UPPER LEFT TO LOWER RIGHT."5 "IF A PLAYER SCORES BY COMPLETING A":"SQUARE, HE GETS ANOTHER TURN." : V? "THE GAME IS OVER WHEN ALL SQUARES ARE":"FILLED IN. HIGH SCORE WINS"D "TO STOP A GAME AND START OVER, PRESS":"THE 'ESC' KEY. GOOD LUCK!"I PFıN 3080: SHAPE TABLEI80628191:J:I,J::$ 10,0,22,0,36,0,44,0,54,0,66,0,76,0,88,0,99,0,108,0,119,0j 12,37,28,63,23,54,46,30,14,45,5,36,4,0,36,188,150,18,45,28,36,0101,228,63,23,150,241,46,45,37,0,12,12,60,63,183,146,21,45,12,228,7,058,39,12,12,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4,0>117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0231,100,45,21,246,14,246,63,28,36,0,231,100,45,21,54,119,30,30,63,4,0END OF PROGRAM ԠX:936:YS0!ZI19,[T(2)>\T.9B(I)0O]T.9B(I)1\^SSB(I)c_Io`S090ua{bc"YOU HAVE MADE ";M;" MOVES"dKK11:MM0:AA0eB(1)121:5:0:B(1)0Ġ13g10:AAAA2hB(2)121:5:0:B(2)0Ġ13 i11jAAAA27kB(3)121:5:0:B(3)0Ġ13@lAA0Hm12unMM13:KK24:B(4)121:5:0:B(4)0Ġ13}o13pAAAA2:B(5)121:5:0:B(5)0Ġ13q14rAAAA2:B(6)121:5:0:B(6)0Ġ13s15tAA0:MM26:KK37:B(7)121:5:0:B(7)0Ġ13u16BvAAAA2:B(8)121:5:0:B(8)0Ġ13Jw17sxAAAA2:B(9)121:5:0:B(9)0Ġ13{y18zAA0:MM0:KK0:JJ0:ZZ0{|S0}W$""~I19SSB(I)IS0W$"LOST"S8132B(5)0W$"WON" E0 X91370B(X)01376a"ILLEGAL MOVE -- RE-ENTER "iE1ouI(5X4)5XT((S$,I,1))B(T)0B(T)1:145B(T)0I ,2032:18,2035:30,3117:30,3121:33,3417:33,3421:\::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5::A$"PUBLIC DOMAIN SOFTWARE":2500:A$"FRUSTRATION":2500=11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"t49152,128:K(49152)128:49168,0:K48K522005A((K)):A3ıA19,2050,0,2030:2000:(4)"RUN MENU"932,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ıPF1:(4)"PR#1":19:(4)"PR#0":PF0: (42(A$))2:A$:3000:10'(42(A$))2:A$:P 17434::2320:232,0:233,64:S(18)YIN1oB2B1:R2:370(B2:R1:3702IN2(IN2)REREE:70<BEBEEFE0:RO0:X40:HT1İ790:50PBL4İ120:1690 ZST3İ1980:"YER OUT!!":OTOT1:120:2270D dOT2OT0:B10:B20:B30:S(IN)P:P0:120:130M n370b xBL0:ST0:HT0: 34,0:::10)::"ALLSTAR BASEBALL": :::"INNING":::"VISITORS"::" HOME" I19:I39:5:I;:I BS0:RS0:I1IN I2(I2)210! RSRSS(I):(I2311):8/ S(I);:I8 220^ BSBSS(I):I239:10:S(I);:I 1:14:"BOXSCORE: RUNS HITS ERRORS HIT%"; 2:16:"VISITORS":1:18:" HOME" 13:16:RS:19:16:RH:26:16:RE 13:18:BS:19:18:BH:26:18:BE, PE(RHRA1000):31:16:".";PE: BA0290_ PE(BHBA1000):31:18:".";PE "9:23:"PRESS BUTTON TO CONTINUE . . ."; ,(16287)128(16286)128300 6ININ1:IN19340 @IN18BSRS340 J20 TI1100:I:9:23:" PRESS BUTTON FOR NEXT GAME ?";G ^(16287)128(16286)128Ľ:20P h350e r:1:0,0:62454 |PTR1:R1FT0:400 FT3 3:0,25140,150279,25:1750 2140,147 P3133:FT3P3134 FT:0:1:3P3,44 1980 " RUNS ";P;" OUTS ";OT@ " BALLS ";BL;" STRIKES ";ST;:` 11:0:BR64:BR:1135,145 A$" VISITOR":B2A$" HOME" A$;"'S PITCH "; (PT16289)128500 XY141:YX60 (PT2)1(PT2)95SP2.5:550(PT2)159(PT2)256SP7:550SP4,&XY130610J0CV((((PT2)32)191))aNXY135CV1CV0wXXY148CV1CV0bYXYX2SP:XYXYCVl0:1:3:2XY,YXv1:2XYCV,YX2SP(B16288)127X41X41680YX138700550BRBR5:BR:11:1135,1451BR5:1135,145GYX138BR32720P550vYX150XY137XY147STST1:50BR64XY146BR64XY137BLBL1:50BR32STST1:50BR64XY146BR64XY137STST1:50 YX137YX151BR57BR39HT1:50 550(Z((1)9)45 1:0:1J*2XYCV,YX2SP[4YXYX153x>XYXYZ:XY3XY275860H3:2XY,YX:1R2XYZ,YX3\YXp(Z)4900z1980:"FOUL BALL!":STST1:ST3ST2HT0:120:1980:22701:0,0:62454B1980:I((1)5)1:I930,940,950,960,970\"INFIELD FLY!":1040v"GROUND BALL!":1040"LINE DRIVE!":980"POP UP TO OUTFIELD!":980"FLY BALL TO OUTFIELD!"2:0,0:624541:I140159:0,I275,I:I 3:I257260:I,103I,139:I{XY((1)100)25:Z((1)25)5:PO(((1)40)27)2R1:P2124:P12:YY((1)55)701060PO(((1)64)32)2R:P1((1)230)15:YY145:P240$Z14((((PT2)15)225))BP2124YYYY5:1130LP1XYY11:1115)VP1XYZY12:11152XY10?[YYYYY1K`P1P15mjPO20Z14PO240Z141180tRO0POPOZ1(PT16289)128RO11390PO235P2124Z141390RO11:P2124Ē23POZ1,P2:48:Z1Z18FTP2124Z1012901330) P3100:063PO,P3NYY110YY1201550X(1450z2P360:P240Z10P345:13607P2401360<P3143:Z10P3129PZ10Ę16ZPOPOZ1:3PO,P3dYY100YY1101450nYY20YY134P240İ1980:1400 s14104x(1).1RO1ĺ"ERROR":EE1:1700P}"BASE HIT":2250:1700aP21241440wYY56YY4014501550YY134YY1231550(P1PO5)4148015501980:"OUT!":OTOT1:P2124B31OT2B30:PP1:1980:"SACRIFICE!!":"RUN SCORES!":P2124P1255İ2250:1990RFT:P2124FT2Ē0d"1:RO11590q,3PO,P263:2P1,YY@1:P2124Ē2JP2401640T2P15,YYY1^1660h2P1,YY5:Z10RO11060r1:P2124Ē2|RO11090Z101060$3POZ1,P2:1060L1980:"BATTER WALKED!":1980:1710y1980:B31PP1:T1:B30:"RUN SCORES"B21B31:B20:"RUNNER ADVANCES"B11B21B11:B31B21B11T1:PP1:2290B21B11B31:"RUNNERS ADVANCE":+B11B21:"RUNNER ADVANCES":6B11:F3FT:0:1UB111840dB211860sB311880}189003211R,59:1790D3133R,13:1810X355R,60b3:137,140141,140l5:8vB1119302220,75B2119502140,15#B3119700260,756RI11000:I:34,20::cYY1152100tYY1042200TB1B2B3:PPT:"TRIPLE!!"B10:B20:B31:4TB2B3:PPT:"DOUBLE!!">B30:B11B31HB21:B10:TB1B2B31:PPT%T4:"GRAND SLAM!!!!":22306"HOME RUN!"LT;" RUNS SCORE!"eB10:B20:B30:T0:IN2(IN2)BHBH1:RHRH1:IN2(IN2)BABA1:RARA1:1980:T;" RUN";:T1ĺ"S";" SCORE";:T1ĺ"S"; :T0:  L16384 MX12$ A$0. I1(A$)2G8 AD((A$,I,1))48YB AD9ADAD7rL CH((A$,I1,1))48V CH9CHCH7` L,AD16CHj LL1:It MX~ : "030008000A000D0006003C2E000909092D0D0909111B1B1B3B3F1F1B130909092D0D0909111B1B1B3B3F1B1B1309090929090909111B1B1B3F3F1F1B1309092D2D" "2D0D09111B1B3F3B3F3B1F13092D092D0D290D111B3B1B3B3F1B3B13090D092D0D090D111B1B1B3F3B1F1B1309092D09290D09111B1B3B1B1B3B1B1309090D09090D09111B1B3F1B1B3B1F1300"/ ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::V 4:A$"ADVANTAGE COMPUTING'S":5: A$"PUBLIC DOMAIN SOFTWARE":5::A$"BASEBALL":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:K48K523005S A((K)):A3ık A3100,3050,0,3030w :3000 :(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:K80K813055J K81ın (4)"PR#1":3100:(4)"PR#0": ::"THE OLD CLASSIC IS BROUGHT TO LIFE ON":"YER COMPUTER. USE THE PADDLES TO PAY."! 23::A$"PRESS A KEY":5::49152,128:49168,0:60000:2000:2-(42(A$))2:A$:G ELEMENTARY ADD/SUBT\ DRILL AUG 1980s BY STEVE SHANK  REVISED BY LESLIE GRIMM CONVERTED TO APPLESOFT BY TOM McCORD CAUTION!!!DON'T RENUMBER THIS PROGRAM % '16368,0:16300,0:16298,0- (:] 25:"ELEMENTARY ADDITION/SUBTRACTION DRILL"z <7:12:"BY STEVE SHANK" >:6:"(REVISED BY LESLIE GRIMM)" F12:"WHEN YOU HAVE 20 CORRECT ANSWERS, A FIRECRACKER WILL EXPLODE!"R H:"WRONG ANSWERS POUR WATER ON THE FIRE- CRACKER, AND THE EXPLOSION WON'T BE AS IMPRESSIVE."r P::13::" GOOD LUCK! ": Z200:1000 b ** GRAPHICS ROUTINES ** c ** 100,109 = 0 TO 9 ** dY,Y7X:X,X5Y:X,X5Y7:Y,Y7X5: eY,Y7X5:6 fX,X5Y:Y,Y3X5:X,X5Y3:Y3,Y7X:X,X5Y7:f gX,X5Y:Y,Y7X5:X,X5Y3:X,X5Y7: hY,Y4X:X,X5Y4:Y,Y7X5: iX,X5Y:Y,Y3X:X,X5Y3:Y3,Y7X5:X,X5Y7: jX,X5Y:Y,Y7X:X,X5Y3:X,X5Y7:Y3,Y7X5: kX1,X5Y:Y,Y7X5:2 l103:Y,Y7X:F m103:Y,Y3X:Y nX3,X5Y9: xX2,X2Y3:Y1,Y5X:: PLUS X3,X3Y3:: MINUS U150:G1(16336):U:: RASPBERRY 1:G13:29,3935G:G:15:8,2837:G7:: FIRECRACKER$ ** REDRAW FIRECRACKER **@ 0:G19:0,3929G:GT 15:GH1,2837s 1:G13:29,3935G:G: GHGH1:0:37,GH:1:37,GH1:U13:Z(16336):U:: FUSE BURNS DOWN ** EXPLOSION ** 170G1A:Z1((40)(1)):Z2((40)(1)):((16)(1))GZ1,Z2:Z(16336)(16336)(16336):G:s0:I130:5,39I:I:: ERASE PROBLEM ** POUR WATER **8:K0:I13:J12:4I,4I30K:KK1:J,I7:36,7:I132:K110:K:G((3)(1)):36G,7I:I:I23:"PLEASE PRESS . ";:16368,0:756::((16384)13)0200:z936:"TRIES = ";CN;:20:"CORRECT = ";C2:"ONLY USE POSITIVE NUMBERS PLEASE!":"PLEASE TRY AGAIN. ";A$:300,FLAG0:(A$"")0390-((A$,1,1(1)1)"-")0386.((A$)2)0370*0((A$)2)0310X2(((A$)128)176((A$)128)185)0380p4A((A$)128)176:6((((A$,1,1(1)1))128)176(((A$,1,1(1)1))128)185)03808((((A$,2,2(2)1))128)176(((A$,2,2(2)1))128)185)0380+@TENS((((A$,1,1(1)1))128)176)10QBONES(((A$,2,2(2)1))128)176cDATENSONES:rI1(A$):K(((A$,I,I(I)1))128):K176K185FLAG1sI:(FLAG1)0380t385|"WHOOPS! ONLY NUMBERS, PLEASE.":"PLEASE TRY AGAIN. ";A$:300G"WHOOPS! ANSWER IS TOO BIG! ":"PLEASE TRY AGAIN. ";A$:300"PLEASE ONLY USE POSITIVE NUMBERS!":"PLEASE TRY AGAINA. ";A$:300FLAG1:::1506:X15:Y5:CN0:C20:GH7BX15:Y5:170:6 LT((10)(1)):B((10)(1)):V((2)(1)) N(V1)011103P(TB)01100FV1014,0:100T`WYY10:1014,0:100BxX110: DRAW PROBLEMX(V1)01116ZXX5:130:XX5:1118\XX5:120:XX5^STB:V0STB `:"YOUR ANSWER IS ... ";A$:300:(FLAG1)01120:936(bCNCN1:(AS)01140Ld140:180:I1100:I:152:210ofASA$"TRY A BIGGER NUMBER."gASA$"TRY A SMALLER NUMBER."hV1ATBA$"YOU SHOULD HAVE ADDED."iV0ATBA$"YOU SHOULD HAVE SUBTRACTED."jA;" ISN'T IT. ";A$Ql24:"PLEASE TYPE IN A NEW ANSWER. ";A$:300::(FLAG1)01132:1122mtYY13:C2C21:160:13v(S10)01146xM((S10))(S10):XX7:1014,0:M100yR((S)((S10))(10))(S10):XX7:1014,0:R100z1150z1014,0:100S"~210:(C220)012001200:1090F ** YOU WIN! **VI1100:In::18::"BANG":A200(CNC2)30:A10A10162:23:"PLAY AGAIN (Y/N) ";:16368,0:756((16384)89(16384)78)01266((16384)78)01300"16368,0:1000016368,0a::12:7:" * * * T H E E N D * * *":23v(4)"RUN HELLO"::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":1:%A$"PUBLIC DOMAIN SOFTWARE":1::A$"DYNOMATH":111: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ıA2100,2050,0,2030: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."49152,128:K(49152)128:49168,0:K80K812055 K81ıPF1:(4)"PR#1":2100:PF0:(4)"PR#0":j4::"THIS PROGRAM IS AN ELEMANTARY ADDITION":"AND SUBTRACTION DRILL.":"HAVE FUN"t8PFı923::A$"PRESS A KEY":1::49152,128:49168,0:`1013,76:1015,3:A$"300:20 7B DD 20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"jI1(A$):(511I),(128((A$,I,1)))::72,0:144:d * BY DARREL RAINES *9n * LAST UPDATE 8/4/83 *Kx28928:34,20g9:16::"BLACKJACK":11:12:"BY DARREL RAINES"OD(51),SD(52),N$(1),PT(4),AC(4),MN(1),BT(4),CD(5),SP(1),FE(1),LN(1) 14:5:"HOW MANY PLAYERS (1 OR 2)? ";:A$:(A$"1")(A$"2")160' :NP(A$)} 17:"INPUT A MAXIMUM OF NINE CHARACTERS FOR":"EACH PLAYER--> ";:"#1: ";N$(0) NP2Ė18:"#2: ";N$(1) I01 (N$(I))9N$(I)(N$(I),1,9) I MN(0)1000:MN(1)1000:R1(78):R2(79) 1000 2000#  * PLAY LOGIC *1 K0NP1F PLK:SP(K)0:L0W "LSP(K)590f ,A$"":ND2n 616 @5360,43(K72)L35 J0 TINPLL3 ^PT(IN)21ND5:520 h(CD(PL)(CD(PL)13)13)(CD(PL3)(CD(PL3)13)13)SP(K).1 rJ02O |PT(IN)21PT(IN)PT(IN)((AC(IN))10):AC(IN)AC(IN)1:AC(IN)0510_ A$"S"510e  :N$(K);:15::"YOU MAY: S)TAND" 25:"H)IT" C(J0)(MN(PL)(BT(PL)BT(PL3)BT(IN))) CĖ25:"D)OUBLE DOWN" C(SP(K).1)Ė25:"SPLIT P)AIR";/ 24:1:"ENTER OPTION--";:A$ (A$"D")CJ2:A$"S":X136:Y18(K72)L35:4000:X60:Y33K72L35:ER1:VL$(BT(IN)):6000:ER0:BT(IN)BT(IN)2:VL$(BT(IN)):6000 C(SP(K).1)(A$"P")İ8000:510 (A$"S")(A$"H")4608 A$"H"X136(J28):Y18(K72)L35:4000:NDND1? JG 16a 5360,43(K72)L35h 0 &(PT(IN)21)(AC(IN)0)PT(IN)PT(IN)10 0PT(IN)21İ3000:580 :ND5İ3300 DLL1:290 NK X b(BT(0)0)(BT(1)0)(BT(3)0)(BT(4)0)8606lSD(NC1)CD(5):SD(NC2)CD(2):NCNC2_vX238:Y30:IN2:PL2:PT(2)0:AC(2)0t4:18238,45:74000:YY15:4000:ND2PT(2)21ND5:740K02PT(2)21PT(2)PT(2)((AC(2))10):AC(2)AC(2)1:AC(2)0730(PT(2)17)(AC(2)0)710&PT(2)167307I12000:ISY60K15:4000:NDND1ZK(PT(2)21)(AC(2)0)PT(2)PT(2)10PT(2)21İ3000:770ND5İ3300PL0NP1 L0SP(PL)INPLL3 BT(IN)0850*:22:10:N$(PL);", ";,4PT(IN)PT(2)ĺ"YOU WIN!!":3700Q>PT(IN)PT(2)ĺ"YOU LOSE!":3040}HPT(IN)PT(2)ĺ"YOU PUSH...":WL0:3050RL,PL\4fI04p1880(I28),18z1880(I28),531880(I28),901880(I28),125II0418238,90(I15)I$732500:260M * SHUFFLE ROUTINE *S\7:gI08oLTLT100(I10),20$I.1685380,19B48L53200,19V0`202,R1:203,R2jI051:OD(I)1:ItI051 ~NU((1)52)OD(NU)011502OD(NU)0:SD(I)NUF5210(I5),50kNU(16336)(16336)(16336)(((I1)13)((I1)13))0Ĕ13(I1)13(I5)15,100II1500:I:NC51: 41,30,43,28,28,34,31,36,29 * INITIAL DEAL ROUTINE * :7!220,14220,1598NP2ē0,86220,86f0,00,159279,159279,00,0:0,14279,14qI08y LTLT100(I10),8 I*I0755:I,0I7,14:I,14I7,0:I4I1972725:I,0I7,14:I,14I7,0:I>I05HLTRLT230(I8),22\I'fJ0NP1MpX36:Y50J72:VL$(MN(J)):6000azI0(N$(J))1zLT((N$(J),I1,1))(LT65)(LT90)LT93LT427(I8),22(J72)I,J 24,34,23,25,33,32,23,25,33 26,27,23,34,27,40 1STDEALRTN I04# PT(I)0:AC(I)0* I4 7000\ X80:Y18:IN0:4000:CD(0)SD(NC1) NP2X80:Y90:IN1:4000:CD(1)SD(NC1) NC1İ4500 18238,30:CD(2)SD(NC):IN2:4080 X108:Y18:IN0:4000:CD(3)SD(NC1)( NP2X108:Y90:IN1:4000:CD(4)SD(NC1)!2 4B< 238,47240,44261,44263,47IF 7rP X238:Y45:IN2:4000:CD(5)SD(NC1)xZ  BUSTED :22:15:"* BUSTED *" 5300 PL2PT(2)0: WL1 ER1:X60:Y33PL72L35:VL$(BT(IN)):6000" X36:Y50PL72:VL$(MN(PL)):6000` MN(PL)MN(PL)(BT(IN)WL)(WL0)(BT(IN)WLFE(PL).99)} ER0:VL$(MN(PL)):6000 BT(IN)0 I12000:I&  * BLACKJACK * :22:14:"* BLACKJACK *" 5700 PL2PT(0)0:PT(1)0: WL1.5 3050%t * REGULAR WIN *.~WL183050T * CARD DRAW ROUTINE *eNC1İ4500q18X,YSU(SD(NC)13):NUSD(NC)(SU13)4(SU2)14SUX12,Y2571NUX5,Y55000NU9NU9 NU0NU10:AC(IN)AC(IN)1$PT(IN)PT(IN)NU10NCNC1@"I1100:IF,f * SHUFFLE DURING A HAND *l22:10:"I NEED TO SHUFFLE..."I12000:I230,64:62450:49237,0:49234,0102049236,0:49235,0:230,32 * DEAL CARD SOUND *:28672,1:28673,32:28674,255:28675,1C768I^ * BUST SOUND *v28672,10:28673,16I0164:28674I,205:28675I,1:28676I,200:28677I,1:I768D * BLACKJACK SOUND *N28672,10:28673,16XI09b28674I2,40I3*l28675I2,11vI:768@^p * VALUE PRINT ROUTINE *kzER1Ē4yLS(VL$)N0LS1LT((VL$,LSN,1))LT2LTLT49LTXN7,YN7X * BET INPUT *bI1NPl(MN(I1)0)(FE(I1).95)9000vMN(I1)0FE(I1)FE(I1).05:LN(I1)LN(I1)1000:MN(I1)1000:::"I HAVE LOANED YOU $1000, BUT WILL TAKE ";FE(I1)100;"% OF YOUR WINNINGS FROM NOW ON...":J13000:J:X36:Y50(I1)72:VL$"1000":6000MN(I1)5BT(I1)MN(I1):7080G:22:N$(I1);", WHAT IS YOUR BET (0=QUIT)?"^17:"-->";BT(I1)(BT(I1)500)((BT(I1)5)(BT(I1)0))(BT(I1)MN(I1))ĺ"":7050BT(I1)09000X60:Y33(I1)72:VL$(BT(I1)):6000R1(78):R2(79)I !@ * SPLIT PAIR *WJCD(PL)52:PT(IN)PT(IN)2AC(IN)4.5:SP(K)1:J1qT4:18108,18K72:7^X108:Y18K72:4000hSD(NC1)CD(PL3):NCNC1rX80:Y18K7235:INPL3:4000|X108:4000BT(IN)BT(PL):X60:Y33PL7235:VL$(BT(IN)):60004INPL:PT(IN)21ND5:J2:Q(# * END PROGRAM *]2#::21k<#N0NP1F#MN(N)MN(N)1000LN(N):A$" LOST "P#MN(N)0A$" WON "Z#MN(N)(MN(N)):N$(N);", YOU";A$;"$";MN(N);"."d#Nn#:(4)"RUNMENU"Q5:Z15A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:"6";::2:2:"6";:39:"6":X222:X:1:"6";:40:"6":F22:2:"6";:39:"6":23:2:X239:"6";::: 60 X1Z:A$(X):( X1Z:B$(X):;  PLANETSP  BAR GRAPHm  STOCK MARKET GAME  BOOZE N YOU  SAT PREPARATION  BLACKJACK  CHEMICAL SEARCH  BOGGLE II  ECONOMIC SIMULATION  FOOTBALL APPLE1  ROULETTEG  TOWERS OF HANOI[  DYNOMATHo  SPEED READINGz  MENU :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: 49152,128:K(49152)128( 49168,0e K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1r CZC1 K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 1033 :(4)"RUN "B$(C)  PLANETS)  BAR.GRAPHE  STOCK.MARKET.GA]  BOOZE.N.YOUy  SAT.PREPARATION  BLACKJACK  CHEMICAL.SEARCH  BOGGLE.II  ECONOMIC.SIMULA  FOOTBALL.APPLE  ROULETTE#  TOWERS.OF.HANOI8  DYNOMATHL  SPEED.READINGW  MENUD AND REMAINING FUEL" g h"(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR, BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL YOUCONTACT THE LUNAR SURFACE.": :"BEGINNING LANDING PROCEDURE.....": : "G O O D L U C K ! ! !" PFı? ::"PRESS ANY KEY TO BEGIN MISSION"G A$Q 936~ "SEC FEET SPEED FUEL PLOT OF DISTANCE"  T0:H500:V50:F120 T;4);H;10);V;16);F;22);"I";H2922);"+" B B0650 B30B30 BFBF V1VB50FFB(:HH.5(VV1)6DH0670@NTT1IXVV1VbF0490cgB0640l"**** OUT OF FUEL ****"T;4);H;10);V;16);F;22);"I"H2922);"+"B0540"**** CONTACT ****"HH.5(VV1)B5720#D(V(VVH(102B)))(5B),7306DHVGV1V(5B)Dn:"TOUCHDOWN AT ";TD;" SECONDS."t"LANDING VELOCITY = ";V1;" FEET/SEC." :F;" UNITS OF FUEL REMAINING."V10810 "CONGRATULATIONS! A PERFECT LANDING!"/%"YOUR LICENSE WILL BE RENEWED......LATER."@*(V1)2840k4:"***** SORRY, BUT YOU BLEW IT !!!!"q9>"APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."H::R"ANOTHER MISSION ";A$\A$"YES"390f:"CONTROL OUT."::(4)"RUN MENU"/(42(A$))2:A$:h 23::A$"PRESS A KEY":1000::49152,128:49168,0:~T :(4)"RUN MENU" ::49168,0: SP$" "::X139:SP$;:::X222:X:1:SP$;:39:SP$::23:X139:SP$;::M 4:A$"ADVANTAGE COMPUTING'S":1000:6:A$"PUBLIC DOMAIN SOFTWARE":1000:8:A$"LUNAR LANDER":1000 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU" 23:39:A:A1A43020 A160,3050,3035,2900 FL03000  FLFLFL:5+ FL1:L 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")ı :5 (4)"PR#1":PF1:160:PF0G (4)"PR#0":S16336936 12(14=("SPEED READING"M2I1750:ISnhx INITIALIZATIONnxW120B120IN120AD120EX120W$(W)B$(B)I$(IN)AD$(AD)EX$(EX)X1WW$(X)X X1B B$(X) X% X1IN0 I$(X)7 XC X1ADO AD$(X)V Xb X1EXn EX$(X)u "X| , - INTRODUCTION . 6 J"THIS PROGRAM IS DESIGNED TO IMPROVE" O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YOU R READING SPEED."C Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT"n ^"PERIOD OF TIME, AND YOU WILL TRY TO"~ c"READ IT." h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD" m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND DISPLAY TIMES."< |:"1. WARM-UP 1. VERY SLOW"b "2. BEGINNER 2. SLOW" "3. INTERMEDIATE 3. MEDIUM" "4. ADVANCED 4. FAST" "5. EXPERT 5. VERY FAST"  "PHRASE LENGTH ";PL "DISPLAY SPEED ";SP STPLSP) 470/ C  SELECT PHRASEI W PL1429v PL1P(W(1)):P$W$(P) X110 P$PP$(X)425 X:450 PL2434 PL2P(B(1)):P$B$(P) X110 P$PP$(X)430 X:450 PL3439! P(IN(1)):P$I$(P)- X110@ P$PP$(X)435L X:450Z PL4444u P(AD(1)):P$AD$(P) X110 P$PP$(X)440 X:450 PL5450 P(EX(1)):P$EX$(P) X110 P$PP$(X)445 X:PP$(10)PP$(9):PP$(9)PP$(8):PP$(8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)PP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PP$(1):PP$(1)P$ BASIC PROCEDURE900950420I1750:I8:(20((P$)2))SP0SP0P$ I0SPI!55 "WHAT WAS IT?"?:A$G:VA$P$540p"THAT'S NOT RIGHT":"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"SPSP10545:"THAT'S RIGHT"::"THE NEXT ONE WILL BE DISPLAYED FOR A SLIGHTLY SHORTER LENGTH OF TIME"OSPSP10:RARA1`SP20SP20l!TT1:":"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."#T10T20T30T40T50549$564%I120:SOUND(S)(S)(S):I&::"DO YOU WANT TO STOP? ";ST$,'(ST$,1)"Y"5535(564L)SC((10RAT)ST)i*::"YOUR SCORE IS ";SCo+,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"-SCST10SCST8ĺ"THAT'S VERY GOOD!").SCST8SCST6ĺ"YOU DID ALL RIGHT. BUT YOU NEED MORE PRACTICE."c/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."0SCST4ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"300 3:(4)"RUN MENU2"94::"TYPE THE RETURN KEY TO CONTINUE";I5I1750:IQ6C$Z8950j:I1750:Is<420|?490 INITIAL TIME DETERMINATIONSP1SP600SP2SP500SP3SP400SP4SP300SP5SP200   SET UP SCREEN%+66:10R"--------------------"^10:10z"--------------------" PROGRAM DATA WARM UP DATA "67354","23655","84561","48796","74865" "63045","7698","87256","14346","6532"A "28566","37675","76407","62345","4675"o "12345","23456","34567","45678","56789" "01256","02375","01235","87965","34675" "67890","78901","89012","90123","01234" "09876","98765","87654","76543","65432"' "54321","43210","32109","21098","10987"U "13579","97531","24680","08642","75756" "8417","6521","33225","9384","1430" "11111","22222","33333","44444","55555" "47653","89456","46757","49855","75652"  "66666","77777","88888","99999","00000"> "111111","444444","888888","999999","555555"g "5647","5712","8381","9821","7547"  "76544","8574","87234","36535","26543"$ "8465","8769","9062","2116","8790") "6546","8423","1011","1023","1017". "1019","9909","9969","9960","9099"83 "9009","9999","6999","6606","3555"a8 "7447","2233","8000","4568","3883"= "60415","436759","10390","91321","19234"B "78132","01654","12065","46751","9183G "98456","46753","98546","89545","38954"LV BEGINNING DATA `"j "IN THE NIGHT"8o "DURING THE DAYLt "AT THE TIME"by "NOT THIS TIME"w~ "IN THE HOUSE" "TEN DAYS OLDER" "TEN YEARS OLDER" "GO WITH HER" "EXCUSE ME" "COME WITH US" "COME WITH ME"  "GO WITH HIM" "THE LAST DAY"3 "I KNOW THEM"H "A RED TURTLE"] "A YOUNG GIRL"u "HIS BACK POCKET" "HER TENNIS DRESS" "ONE YEAR AGO" "TEN YEARS YOUNGER" "LAST MONTH" "HIS BACK ACHES" "A YELLOW TIE" "ONE YEAR BEFORE"' "OF HIS HAT"> "ONE YEAR TO GO"Q "ON THE WAY"i "DO YOU KNOW HIM"| "I KNOW YOU" "SIX RAW EGGS" "AN OLD LADY" "SIX RED HENS"  "A PURPLE FINCH" "SIXTEEN YEARS" "THE TENNIS MATCH" "SIXTEEN ACRES", "BEGIN AT ONCE"A# "IN THEIR WAY"U( "AT MY WATCH"j- "ON THEIR WAY"2 "HE WAS HUNGRY"7 "BEGIN AT ONE"< "SHE IS TIRED"A "AT MY WALLS"F "THE FOOTBALL GAME"K "HE WAS HARRIED"P "I AM FINE"U "I AM FIRST".Z "YOUR WHOLE FAMILY"B_ "GO DOWNTOWN"Zd "HIS RIGHT WRIST"oi "TRY IT AGAIN"n "HER LEFT ARM"s "TRY IT MY WAY"x "YOUR RIGHT HAND"} "HIS RING FINGER" "MY LEFT LEG" "HER LIMP DRESS"  "HE WAS CRUEL"  "A DULL SUMMER"8 "A WHITE SWEATER"M "A YOUNG PONY"b "A BLACK CROW"u "IT IS JUST" "MY BROWN COW" "IT WAS JUSTICE" "HER RED SCARF" "HE WALKED AWAY" "OUR ORANGE RUG" "HE TRIED TO WALK" "A YELLOW SKIRT"- "HE WALKED AGAIN"E "THE GREEN GRASS"] "HE WALKED SOUTH"r "THE BLUE SKY" "HE WALKED NORTH" "THE WHITE SNOW" "I LOST TRACK" "DEEP BLACK NIGHT" "I LOST MY WAY" "THE BROWN DIRT"  "A GOOD ORANGE")  "HOT RED FLAMES"=  "UP THE HILL"T  "A TASTY ORANGE"h  "TO THE MILL"  "HIS YELLOW STREAK"  "JOHN FELL DOWN" " "MONEY IS GREEN" ' "BILL CAME LATE" , "I AM BLUE" 1 "MARY WAS LATE" !6 "SHE SPOKE QUICKLY"!!; "MARY HAD A DATE"6!@ "ABANDON SHIP"M!E "JILL IS PRETTY"f!J "ABANDON ALL HOPE"{!O "JILL IS PINK"!T "IT WAS ABLAZE"!Y "ANN CAME HOME"!^ "THEY WENT ABOARD"!c "VERY POOR ADVICE"!h "THEY WENT ABROAD" "m "ANNE CAME HOME" "r "HE WAS ABUSIVE"7"w "COME DOWN HERE"M"| "HE WAS ABUSED"c" "COME UPSTAIRS"z" "SHE HAD ACCESS"" "ANN WAS DEAD"" "SHE HAD SUCCESS"" "ANNE WAS PRETTY"" "IT IS MAY"" "JOHN KNEW MARY"" "IT IS MY OWN"# "JILL KISSED JACK")# "ON HIS WAY"@# "BOB GOT A RIDE"Y# "VERY GOOD ADVICE"q# "BOB KILLED MARY"w## INTERMEDIATE## "WE ATE DINNER LATE"# "WE HATED HER DINNER"# "SHE LOVED HIS SUIT"# "LET'S GO HOME EARLY"$ "HERE COMES THE DOG"5$ "THE WATER IS COLD"Q$ "LOOK IN THE CLOSET"o$ "TRAFFIC IS HEAVY NOW"$ "THE STORE IS CLOSED"$ "BILL READ THE BOOK"$ "BILL LEADS THE BAND"$  "AN IMPRESSIVE BUILDING"$ "HIS CUP IS EMPTY"% "LOOK FOR THE RAINBOW"8% "THE DOG HAS FLEAS"T%  "I CAN READ QUICKLY"r%% "JOHN READS MAGAZINES"%* "THE PAGE IS BLURRED"%/ "JANE COOKS DINNER"%4 "HE'S TIRED AFTER WORK"%9 "THE ASHTRAY IS FULL"%> "LOOK AT THE MOUSE"&C "ANIMALS IN THE ZOO"1&H "THE PAINT IS DRY"J&M "THE MEAL IS OVER"d&R "SOFT AS A FEATHER"&W "THE LAMPSHADE IS BENT"&\ "THE MAIL IS LATE"&a "COLOR TELEVISION SHOW"&f "BABY TAKES A NAP"&k "SATURDAY AT THE PARK"'p "WRITE HIM A NOTE"!'u "MARY VISITS JANE"='z "A BOTTLE OF PERFUME"Z' "THE PAINTING IS GOOD"r' "LET THE CAT OUT"' "ANIMALS IN THE WILD"' "A MUSEUM EXHIBIT"' "MARY VISITS A FRIEND"' "LOOK UNDER THE BED"' "LIVE LONG AND WELL"( "WINE AND CHEESE PARTY"1( "RIDE IN THE RAIN"N( "HEAVY TELEPHONE BOOK"k( "THE PHONE IS RINGING"( "SHE SPILLED PERFUME"( "A FLOCK OF SHEEP"( "TINY SPECKS OF PAINT"( "THE ENGLISH TEACHER"( "HE MAILS THE LETTERS") "JANE FEEDS THE CAT",) "THE LATEST FASHION"I) "JOHN AND JANE TRAVEL"d) "BILL WEARS GLASSES") "JANE TYPES A LETTER") "THE HOLIDAY SEASON") "AN INSECT BITE") "ICE CREAM IS COLD") "UNDER THE ROOFTOPS"* "A FLOCK OF PIGEONS"* "A BALANCED CHECKBOOK"<* "FAMOUS ARTISTS GROUP"X* "A HEAVY WINTER COAT"p* "HORSES FOR SALE"* "WASH THE DISHES"* "WALK IN THE WOODS"* "THE LION PACES"*$ "THE FIRE CRACKLES"*) "THE LATEST STYLE"+. "EMPTY PACKING BOXES"+3 "RAINBOW COLORS"9+8 "A SHOTGUN WEDDING"Q+= "FOUR YARDS LONG"k+B "JIM CARRIES ROCKS"+G "LEARNING TO SWIM"+L "THE NIGHT IS DARK"+Q "JANE RIDES TO WORK"+V "TOO MANY CHAIRS"+[ "HORSES TO RIDE",` "TIED UP WITH STRING",e "UP THE STAIRCASE"6,j "SMALL WOODEN BOX"Q,o "BILL TAKES LESSONS"l,t "CHILDREN IN SCHOOL",y "JIM LEARNS DANCING",~ "WELL-DRESSED LADY", "COURTROOM BATTLE", "TOO MANY CHILDREN", "RIBBONS WITH LACE"- "FENCE BY THE ROAD"!- "LETTERS TO WRITE":- "THE DOOR IS OPEN"S- "MARY EARNS MONEY"i- "SINGING ALONG"- "TEACH LITTLE KIDS"- "THE BRIDGE IS OUT"- "SIGNS OF SPRING"- "THE LIGHT IS BRIGHT"- "HOLIDAY MEALS". "MAGAZINES TO READ". "SHE HAD 5 KITTENS"8. "THE FRAME IS CRACKED"T. "NATIVES SELL CRAFTS"n. "THE EDGE OF SPACE". "FILLED THE SKY". "A VERY OLD STORY". "FLEETS OF WAR SHIPS". "A VERY OLD MANSION". "A DOG'S RED COLLAR" / "CAN YOU SEE THEM?"&/ "THREE SHADES OF RED"?/ "SHE HAD TWO DOGS"[/ "JOHN TAKES MARY OUT"t/ "A FURNITURE SALE"/ "SHE LOST HER GLOVES"/ "THE CLOCK STRIKES 5"/ "DO MICE LIKE CHEESE?"/ "SHE WAS DAY-DREAMING"0# "THE CLOCK STRIKES 2"0( "TRIMMED WITH SILVER"$0 30 ADVANCED90 ]0 "DID YOU ENJOY SCHOOL TODAY?"~0 "I HAD A MAGNIFICENT TIME"0 "REMEMBER TO BUY SOME MILK"0 "LET'S GO OUT FOR A BEER"0 "IT REALLY WAS A GREAT SHOW"1 "I CAN'T FIND MY BLACK SOCKS"/1 "WHY DID GEORGE KILL HIS FATHER?"W1 "I DON'T UNDERSTAND WHAT HE SAID"}1 "IT WAS A FULL MOON LAST NIGHT"1 "WHAT ARE WE HAVING FOR LUNCH?"1 "THE ONLY SATISFACTORY ANSWER"1 "LEARNING DEMANDS PRACTICE AND CONCERN"!2 "SO SURROUNDED BY FALSE CONCEPTIONS"G2 "SELF-LOVE AND THE LOVE OF GOD"o2 "A REASON TO ABSTAIN FROM TRYING"2 "MY PLANE LEAVES ANY MINUTE"2 "MY TRAIN IS OVER AN HOUR LATE"2 "WHY DID THE MAILMAN COME LATE?"2 "IT'S TOO LATE TO GO NOW""3 "WHY NOT STAY OVER TONIGHT?"F3! "WHERE DID YOU PUT THE BOOK?"j3& "THAT STORY WAS VERY AMUSING"3+ "THIS IS A SET OF VALUABLE CRYSTAL"30 "HE MAKES JEWELRY OF CORAL"35 "ALL THE WALLS WERE PAINTED"3: "SHE CROCHETS AFGHANS ALL DAY"&4? "HAS THE SHIPMENT OF PAPER COME?"K4D "I THINK THE INVOICE IS WRONG"p4I "DOES YOUR TV SET STILL WORK?"4N "HAVE YOU LEARNED SPANISH YET?"4S "THERE'S A HAUNTED HOUSE THERE"4X "HAS YOUR LETTER BEEN RECEIVED?"5] "THE LITTLE GIRL WAS PRETTY"%5b "A NIGHT AT THE THEATRE"D5g "HE DOESN'T LIKE TO FLY"d5l "THEY HAVE TOO MANY PETS"5q "WHY DON'T YOU WAIT HERE?"5v "LONG DISTANCE PHONE CALLS"5{ "HOW MANY OF THESE DO YOU HAVE?"5 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON TV"86 "WHEN DO YOU THINK WE'LL GO?"Z6 "THE PLAY WAS WELL WRITTEN"|6 "HOW DO YOU GET THIS OPEN?"6 "WHICH ARE THE BEST BUYS?"6 "WHAT WOULD YOU LIKE IN YOUR SOUP?"6 "I THOUGHT OUR GUESTS WERE FUN"7 "I'M GOING SHOPPING LATER"37 "LOOK IT UP IN THE DICTIONERY"U7 "PIGS OFTEN MAKE GOOD PETS"z7 "LET'S GO TO THE SHOW TONIGHT"7 "THE LIBRARY HAS MANY NEW BOOKS"7 "THE CLOSET IS TOO FULL"7 "PACK EXTRA CLOTHES FOR THE TRIP" 8 "JOHN GRADUATES THIS SPRING"18 "FIRECRACKERS ARE FUN TO WATCH"W8 "DO YOU THINK THIS IS CORRECT?"y8 "HOW MANY MORE MUST WE DO?"8 "WE WILL SEE THE BEST OF THEM"8 "THE HAT WAS TRIMMED WITH FEATHERS"8 "I'LL MAKE SANDWICHES FOR LUNCH"9 "I THINK THAT IS GOOD ENOUGH"79 "THE NEIGHBORS ARE VERY NICE"W9 "THIS NOVEL IS VERY GOOD"y9 "HE HAS TWO DOGS AND A CAT"9 "YOUR DINNER WAS DELICIOUS"9 "PLEASE COME AGAIN SOON"9 "PLEASE TRIM THE FAT FROM THE MEAT" : "HER HAT LOOKED OLD FASHIONED".: "SOMEDAY WE MAY BE ABLE TO GO"Q: "HIS VACATION WAS CUT SHORT"w: "HE'S BEEN A TEACHER FOR YEARS":% "THIS TAPE SEEMS DEFECTIVE":* "WHAT GAME WOULD YOU LIKE TO PLAY?":/ "SHE'S A GOOD CARD PLAYER";4 "THE QUEEN'S GOWN WAS GREEN"0;9 "WHAT GAME WOULD YOU LIKE TO TRY?"R;> "WE HAVE 2 CATS AND 5 FISH"x;C "THIS SET OF BOOKS IS FOR SALE";H "LET'S ROW ACROSS THE RIVER";M "DO YOU THINK IT'S A GOOD IDEA?";R "HE HAS TRAVELED AROUND THE WORLD" "THE MUSEUM WAS ROBBED LAST NIGHT"H> "I DIDN'T GET THE RIGHT CHANGE"m> "WHICH ISLAND WILL YOU VISIT?"> "WHEN WILL IT STOP RAINING?"> "SOME BIRDS MIGRATE EACH YEAR"> "SHE HAD LOTS OF SHOPPING TO DO"> "STARS COME OUT AT NIGHT"? "THE WATERS ARE CALM AGAIN"D? "SHE HAD AN OPERATION RECENTLY"f? "THE WEDDING WAS POSTPONED"? "BLUE IS THE FAVORITE COLOR"? "THE WEDDING WAS CALLED OFF"? "HOW MUCH FARM LAND IS LEFT?"? "POLLUTION CONTROL IS DIFFICULT"@ "A TORNADO TOUCHED DOWN HERE"<@ "IS ANY FOOD LEFT FOR ME?"]@ "THEY MUST HAVE MORE ROOM"@ "THE CHILDREN HAVE MANY PETS"@ "THE PHONE KEEPS RINGING"@ "ELEPHANTS DO NOT FEAR MICE"@ "HE HAS 3 NIGHT CLASSES"A  "THE SAND WAS PURE AND WHITE",A "THEIR VACATION WAS A SUCCESS"2A?A EXPERTEAtA "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"A "THE SUBJECT OF EVERY VARIETY OF MISERY"A "BOTH ARE EXAGGERATED BY POSTERITY"A "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMOTE POSTERITY"JB "THE STYLE WAS SO PECULIARLY MY OWN"uB "WHO GROANS BENEATH THE PUNIC CURSE"B "AND STRANGLES IN THE STRINGS OF PURSE"B "BEFORE SHE MENDS MUST SICKEN WORSE"B "HER LIVING MOUTH WILL BREED BLUE FLIES"&C "AND MAGGOTS CREEP ABOUT HER EYES"QC "NO MAN SHALL MARK THE DAY SHE DIES"{C "WHO GROANS BENEATH THE PUNIC DIRT"C "AND STRANGLES IN A STRING OF CURSES"C "HER LIVING MOUTH SHALL SPEAK NO TRUTH"C "AND MAGGOTS CRAWL ABOUT HER EYES"+D "HIS RIGHTOUSNESS CAUSED HIS DOWNFALL"TD "THE RIGHT IDEA AT THE WRONG TIME"D "WHY DID THE CHICKEN CROSS THE TRACKS?"D "AND MAGGOTS CREEP ABOUT HER EVES"D  "HER HAIR LAY SILKEN AND SHINY BRIGHT"E "DENIED THEIR RIGHTS BY THE GOVERNMENT")E "HOW CAN IT LAST UNSPOILED?"ME "A DIVERSE AND UNIQUE CORNER"tE "SUCH A VARIED EXPANSE OF SPACE"E" "THE PACIFIC HAS WITHSTOOD EXPLORERS"E' "SUCH AN EXPANSE OF TIME AND DISTANCE"E, "DID PETER PIPER PICK A PECK OF APPLES?" F1 "WHERE IS HE? - I DON'T KNOW"JF6 "THIS WAS MADE POSSIBLE BY A GRANT"yF; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"F@ "HE OPENED THE DOOR AND LED THE WAY"FE "THE STRANGE CASE OF THE MISSING DOVE"FJ "WITHDRAW, MY DEAR, WHILE YOU CAN"$GO "GET UP, I TELL YOU, GIRL, GET UP!"OGT "RISE IN YOUR GOWN OF SHINING BLACK"qGY "AND IT ALSO BAGGED BEHIND"G^ "HOW FAST HE GOES - HOW MANY WHEELS"Gc "HARK TO THE WHIMPER OF THE SEAGULL"Gh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AGE"=Hr "IN A HOTEL DINING ROOM IN ALABAMA"jHw "I AM ABOUT TO VOLUNTEER A DEFINITION"H| "SWANS HAVE CYGNETS, SEALS HAVE PUPPIES"H "BUT GUPPIES JUST HAVE LITTLE GUPPIES"H "A MAN WHO CAN'T SLEEP WITH THE WINDOW"$I "AND IF YOU WANT TO NAME YOUR OWN RATION"SI "THEY SCATTER ADJECTIVES HITHER AND YON"I "PRAISE THE SPELLS AND BLESS THE CHARMS"I "APRIL SOFT IN FLOWERED LANGUOR"I "AND OFTEN TRAMPLED ON HIS OWN SHADDER"J "GO SOAK YOUR HEAD IN BOILING ADS")J "I ROAM WHERE MAGIC CASEMENTS OPE"QJ "AND I HOPE TO DO SO NEVER AGAIN"zJ "BEING A FATHER IS QUITE A BOTHER"J "AND THEN ONE MORN A CHILD IS BORN"J "THE FRIENDLY EMBERS WARMER GLEAM"J "MUTTERING SPELLS LIKE AN ANGRY DRUID"%K "AND WHEN THEIR ORGY AT LAST ABATES"NK "THE BLOWFISH NIBBLE AT YOUR TOES"{K "ALL LADIES THINK THEY WEIGH TOO MUCH"K "WHEN HIS FACE IS APOPLECTIC"K "BUT JOY IN HEAPING MEASURE COMES"K "WHOSE SOUPS ARE SOUNDLY PEPPERED"L "A SHIVER GOES RIPPLING UP MY BACK"DL "THE DRY OUTER COVERING OF FRUITS"sL "A COLLECTION OF WATERY FLUID IN A HOLE"L "THE SLAIN NINE-HEADED SERPENT"L "ANY ONE OF A NUMBER OF THINGS"L "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"M "A QUARTER-HORSE IS THREE-QUARTERS MULE"LM "IT IS HARROWING, BROWBEATING AND CRUEL"sM  "IS ANOTHER MAN'S REMINISCENCES"M "DID YOU READ THIS RIGHTLY OR WRONGLY?"M "ORIGINS OF AMERICAN PLACE NAMES"M "EXPERIENCE IS A FRUIT TREE FRUITLESS"!N! "EXPERIENCE IS A SHOE-TREE BOOTLESS"HN& "EXPERIENCE IS A FUTILE TEACHER"oN+ "EXPERIENCE IS A PROSY PREACHER"N0 "DEPEND, MY BOY, ON EXPERIENCE"N5 "MEN STAND IN LINE TO GAMBLE AGAIN"N: "FOR STERILE WEARIENCE AND DREARIENCE"O? "THE BURNT CHILD, URGED BY RANKLING IRE"GOD "HARDLY WAIT TO GET BACK AT THE FIRE"rOI "WHO SAYS THAT HE CAN DRINK OR NOT?"ON "THE NATION BANKRUPT BY A WAR"OS "THINKS TO RECOUP WITH JUST ONE MORE"OX "THE WRETCHED GOLFER, DIVOT-BOUND"P] "PERSISTS IN DREAMS OF A PERFECT ROUND"IPb "LIFE'S LITTLE SUCKERS CHIRP LIKE BIRDS"tPg "WHILE SPENDING THEIR ALL ON LOSING"Pl "PEOPLE WHOSE INSTINCTS INSTRUCT THEM"Pq "WILL NEVER LEARN BY SUFFERING ONCE"Pv "BUT EVER AND EVER PLAY THE DUNCE""Q{ "EXPERIENCE! WISE MEN DO NOT NEED IT!"MQ "EXPERIENCE! IDIOTS DO NOT HEED IT!"uQ "I'D TRADE MY LAKE OF EXPERIENCE"Q "FOR JUST ONE DROP OF COMMON SENSE"Q "SHE STRUNG HIM UP ON THE NEAREST TREE"Q "THE COATS DISPLAY NO WASPISH WAIST""R "TO SURVIVE A DAY OF MEDIUM LENGTH"QR "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"}R "THIS IS THE DAY THAT WON'T GET DARK"R "NEVER AGAIN SHALL WE GET TO BED"R "DUSK IS AN EXILE, NIGHT HAS FLED"R "MIDNIGHT LIES WITH THE BURIED CZARS"&S "YOU BUY THEM THUS BECAUSE YOU THINK"QS "THEIR TOES AND YOURS ARE FAR APART"{S "YOUR WOOLLEN SOCKS CANNOT BE WORN"S "AND WHILE HIS SOCKS ARE HUNG TO DRY"S "AND YET THE IDIOTS KEEP ON LIVING"S "IN WOE AND PAIN THROUGH LIFE THEY GO"+T "TO CONFIRM THROUGH SACRIFICE INTENSE"ZT "MY ATTENTION HAS RECENTLY BEEN FOCUSED"T "GIRL LOCUSTS DON'T MAKE ANY NOISE"T "WHOSE FLAVOR REEKS OF RANCID BUTTER"T "FIVE STORIES TALL THIS MANTRAP STANDS" U "THEY PASS UNWARY THROUGH ITS PORTALS"9U "YOU SEARCH IN VAIN FOR A BEDSIDE LAMP"cU "A CENTURY LATER THE NIGHT IS PAST"{U MORE OR DIFFERENTU DATA STATEMENTSU MAY EASILY BEU ENTEREDU U THE DIMENSIONSU IN LINES 135-139U MUST BE CHANGEDV TO REFLECT ANY&V ADDITIONS OR ;V DELETIONS FROMUV THE CATAGORY TOTALS[V0pV1 APPLE T.A.R.T.V2 SOFTWARE BANKV3 V4 ENTERED BYV5 WILLIAM DAVISV6 ANDV7 ELUISE MARVINV8V9 AUGUST 19,1979