' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`" |$I113$N$;$I-$"123456":;$I$;"80F"L$D$;"PR#0":R$X$L#N$; #I #:" #I$;"80F"3 #D$;"PR#0":9 #? #U # 80 COLUMNS[ #j $D$;"PR#1"x $I$;"80F" $I18 "$N$; ,$I 6$: @$I$;"80F" E$D$;"PR#0": J$ O$ T$ 136 COLUMNS ^$ h$D$;"PR#1"r$I$;"136F b 36,TN:HT$ l I$;"80F"+ v D$;"PR#0"2 I@ @I$;"80F"Q JD$;"PR#0":W "] "c " (# SSSSSSSSSSSSSSSSSSSSS 2# SUBROUTINES <# SSSSSSSSSSSSSSSSSSSSS F# # 40 COLUMNS # #D$;"PR#1" #I$;"40F" #I14 "HOW MANY HEADERS";:NH$  I1NH0 & HNHN1a 0 "WHAT IS THE TITLE OF #";HN;" HEADER";:HT$ : "WHAT TAB COLUMN NUMBER";:TN D LL40ĺD$;"PR#1" I I$;"40F":3170 N LL80ĺD$;"PR#1" S I$;"80F":3170 X LL136ĺD$;"PR#1" ] I$;"136F" HEADERS! HN0: HEADER NUMBER> TN1: TAB COLUMN NUMBER\ HT$"TEST": HEADER TITLEb  VVVVVVVVVVVVVVVVVVVVVV "WHAT LINE LENGTH 40, 80, OR 136";:LL LL40İ9100:250 LL80İ9200:250 LL136İ9300  X- F XXXXXXXXXXXXXXXXXXXXXXX3 P9 ZV d VVVVVVVVVVVVVVVVVVVVVVr n INITIALIZE VARIABLES x VVVVVVVVVVVVVVVVVVVVVV } LL80: LINE LENGTH D$(4): CTRL D I$(9): CTRL I N$"1234567890" NH1: NUMBER OFZ XXXXXXXXXXXXXXXXXXXXXXX= X X[ X PRINTER AND COLUMN Xy( X HEADER TAB CONTROL X2 X PROGRAM JMS 16DEC83 X< X X> X XA X FILENAME=PRINTER.JMSX C X   X11965"FOOD";%X21975?"NATURAL RESOURCES";NX31985h"INDUSTRIAL OUTPUT";wX41995"POLLUTION"; E8:"FOOD";>G%C2%Ė11:"NATURAL";::" ";::"RESOURCES";r!G%C3%Ė11:"INDUSTRIAL";::" ";::"OUTPUT";&G%C4%Ė15:"POLLUTION";+G%C5%Ė15:"POPULATION"0:X11945"BIRTH RATE";X01955"DEATH RATE"; --1000--- 150"A16:"------- 50--- 25 --- 250--- 500--- 75"|21:"------- 0--- 0 --- 0--- 0--- 0":23:50:21:"KEY":Z15:G%Z:1815::YCT%:H82604:YYC1%:855:H:Y11000:Y,Z:50:HC0%:570 23:C1%:868::G%C1%Ė1:1055f:"------- 200---100 ---1000---2000--- 300 ":"GRAPH FOOD NAT. IND. POLUT. POP.";"SCALE";15);"RES. OUTPUT":" IN":"------- 150--- 75 --- 750---1500--- 225""PERCENT":"OF 1978":"VALUES": "------- 100--- 50 --- 500-%C2%15301485:570s::"YEAR FOOD RES. IND. POLLUT POP ---- ---- ---- ---- ------ ---":::"BY THE YEAR ";T1980;", POPULATION HAS""FALLEN TO LESS THAN HALF THE 1978 LEVEL INDICATING A WORLD MODEL COLLAPSE."::501980R(X2)Q100Xw:5:12)"WHICH DO YOU WANT?"::14)"G = GRAPH"::14)"T = TABLE"::14)"B = BOTH":(12):"G, T, OR B?";A$(A$,1)"G"A%C1%:1115(A$,1)"T"A%C2%:1115(A$,1)"B"A%C3%:11151455 A-----------" KX1C4%:LC1%*U19356Z"","";K_26:Q:Q01435dd(Q50)L1501400i"THAT'S UNREALISTIC. PLEASE RECONSIDER.":LC0%:1365x((37)):33:A%A%1979A%UC1%ĺ"IT MUST BE BETWEEN 1979 AND ";U:1400T(X2)A%AR MUST BE BETWEEN 2000 AND 2100."::1315<:"FOR EACH OF THE FOLLOWING VARIABLES, INDICATE THE PERCENT CHANGE (+ OR -),"="THEN THE YEAR IN WHICH THE CHANGE WILL TAKE EFFECT."A" VARIABLE","CHANGE: PERCENT, YEAR" F"--------","--------,CT%,CZ%,C24,C01,C5T,CF%,U5:"STANDARD RUN? ";A$K(A$,1)"Y"1450a(A$,1)"N"1315:"YES OR NO, PLEASE.":1295#"WHAT IS THE END YEAR? ";U-(UCT%)UCT%ĺ:"EVEN MULTIPLE OF 20, PLEASE."::1315*2U2000U2100ĺ:"END YE,250,24E11,.01,.5,158,2100=:8:13)">>> LIMITS <<<":11h11)"WORLD GROWTH MODEL":Z12000:Z:G%1:Z15:T(Z)200::1255:1265D,F,C,V,E,J,P,K,T(6),TZ15:S(K,Z),Z(Z)::IM(0):G1A(0):C0%,C1%,C2%,C3%,C4%,C5%,C6%,CD%OME: $";(S(K,3)8E4S(K,5).5)100;"/PERSON/YEAR."g~"THE DEATH RATE IS: ";(D1E3.5);"/ 1000"::T2Ģ23:50:::147016298,0: .012,0,24E11,.04,.029,.012,4.22,1,200,-2 1,78,1,156,1,15.6,1,7.8,1,52 0,1,2,3,4,5,6,10,20:"THE WORLD IN THE YEAR ";T1980;":":Z`"THE POPULATION IS ";R(S(K,5)P);" BILLION."oeS(K,4)101135j"POLLUTION ROSE TO ";R(S(K,4));" TIMES ITS 1978 LEVEL."o"FOOD SUPPLY IS ";(S(K,1)2E3.5);" CALORIES/PERSON/DAY.";3t"AVERAGE INCC2%Ģ23:1:868:50:3TT1:::A%C3%1115=$1485P)K1TCT%C1%`.196020K;37)(S(K,1)2E3.5);13);R(S(K,2))100;419);R(S(K,3)1.6);25);R(S(K,4))100;33);R(S(K,5)P)BA%C2%1030GKLK(T201.96)'[:23:C5%:"OFF THE GRAPH IN ";T1980;<WG%C1%G%C4%ĒC2%T\G%C2%G%C5%ĒC3%maG%C3%ĒC1%:HHC1%fG%C2%H11ēH%(G%),Y%(G%)H,Y:H%(G%)H:Y%(G%)Y:kH,YHC1%,Y:H11ıpH%(G%)H:Y%(G%)Y::TTC1%:TU1979570A%3 ::C1%:YC2%CF%39:H11261C4%:H,Y:H,Yw%21:2)1980;8);2000;15);20;20);40;26);60;32);80;36);2100*C3%:YCF%:HCT%26040:H,Y:H,YC2%:MH14C2%T:Z15:G%Z:850:Z:1030$RL(S(K,G%)Z(G%)C5T):YCF%L:LCF%YC0%:))Z(C1%))! S(K,C1%)C2%6952 S(K,C1%)C2%I S(K,C5%)C5T1510c (TC2%)TC2%1030| (TCT%)TCT%750 K7735 KKC1% ZC1%C5%:S(K,Z)S(KC1%,Z): A%C2%795 T1980;6);:1075 A%C2%1030HC1%845)) {SGS(K,C3%)# GGX(C6%): WS(K,C4%)A(C0%)X S(K,C4%)V(S(K,C4%)SW)u NY(C4%)S(K,C3%)ICZ% S(K,C2%)W(S(K,C2%)N) FFC01:VVX(C5%):CC(C1%M(C0%)V) S(K,C1%)V(Y(C3%)B(C0%)C(S(K,C4%))D(C0%)(C1%FD(C0%CT% IMS(K,C3%)S(K,C5%)I. NEEX(C1%)> SJJX(C2%)b XBW(EE(C0%)F(C0%)H(C0%)) ]DV(JI(C0%)J(S(K,C4%))K(C0%)L(S(K,C5%))) bI(C0%)CD%620 gDV(DCD%I(C0%)) lDC1%630 qDC1% vS(K,C5%)V(S(K,C5%)(BDC1%5 V(Z)Z((Z.01)1).01((Z.01)1)(Z.01)L W(Z)Z(1(Z))o X(Z)1R(Z)(1((TT(Z)))) Y(Z)1R(Z)(1(TT(Z))) Z(Z).95(Z)10:1230 :S(K,C3%)V(CM(C0%)S(K,C5%)Z(C3%)C24) ?S(K,C3%)CT%585 DS(K,C3%)S(K,3)) E(Z)(1M)2.58 F(Z)1.05S(K,5)20Q H(Z)(S(K,4)60)d I(Z).3.7M J(Z)((Z10)1)Z101.067 K(Z).3S(K,1)7.7 L(Z).902.109Z.279Z2.097Z3.012Z4 M(Z)S(K,2) R(Z)(1E3Z.5)1E3 (12522"PRESS 'RETURN' TO CONTINUE ";A$:_}L(11),Z(5),T(6),R(6),S(7,5),H%(5),Y%(5)yA(Z)S(K,4)21801B(Z)(((1S(K,5))2)2.5)S(K,5)C(Z)1.02(3930Z1950Z246Z3.318Z4)1E6 D(Z)((F2)(1(S(K,3))))2(       TURKEY,QUIT 3120,90140,90E 150,74142,90140,90150,70160,90:144,82156,82 $170,74162,90160,90170,70:163,84177,84180,90160,90 .  NEWTON-2,ECO-1,DIFFUSION,FORECAST,DECAY,POLUT,LIMITS,OREGON,APPLES,PLANTS,LEMONADE,MARKET,TWONKY,GRAPHING,JIVE_ 75,102193,102194,10076,100:96,60214,60215,5897,5875,10277,10299,58101,5879,102 189,102211,58213,58191,102193,102215,58 110,74102,90100,90110,70120,90:104,82116,82 130,74122,90120,90130,70134,78:124,82130,82:AEA-6 CONTRIBUTED PROGRAMS ***"::D I1X:(64I);". ";N$(I):n 6:IX1N:20:(64I);". ";N$(I): 22:"WHICH DO YOU WANT? ";:A$:A$ (A$)65(A$)64Nĺ"":240 (A$)64NĖ30:"DONE": D$;"RUN ";N$((A$)64): :3d:D$(4)&n1000: AEA-6 LOGONx21:7:"AREA EDUCATION AGENCY SIX"z23:5:"EDUCATIONAL SERVICES DIVISION"I13000:IN16N$(N)I1N:N$(I):X(N2.5)1:D$;"NOMON I,O,C"::16298,0:# :" *** 400": (4);"BLOAD CHARACTER TABLE-A$4000-L$400,A$4000"@ AM$QJ10J2(J2)ĺJ1;:1150:VJ10ĺ" ";:1150P`J2(J2)1150njJ4(J4)ĺ" ";:1150vtJ;~~:: HI-RES ROUTINES54,0:55,68:" ";:972,64 (4);"NOMON I,O,C": (4);"BLOAD CHAR.GEN-A$4400-L$100,A$4 510: "A WATER TEMPERATURE OF ";T;" DEGREES": "CELSIUS IS HIGH ENOUGH TO DESTROY MOST LIFE. TRY A NEW TEMPERATURE.") 425.: "YOUR BODY OF WATER IS A BLOCK OF ICE, AND CAN'T ACCEPT ANY WASTE. TRY A NEW TEMPERATURE.": 425LJ2 (Q$)0 10304(Q$,1)"Y"ė:10:255:320M (Q$,1)"N" 1035w: "PLEASE ANSWER YES OR NO.": 1005 16298,0:255:: "NEW YORK CITY ONLY POLLUTES ITS WATER AT THE RATE OF 12 PPM/DAY. MAKE YOUR RATE BETWEEN 0 AND 14."ENT IN WHITE".1:I415450:29,I279,I:L3:30,(1542.5W(1).5)WJ2My237J,(1542.5W(J).5):2:30,(15410X(1).5)J2M237J,(15410X(J).5):24:1:1006:"ANOTHER RUN? ";:" ";Q$:0:u:18:"OXYGEN";:28:"WASTE"Bz18:"CONTENT";:27:"CONTENT"a18:"(PPM)";:28:"(PPM)"}7:18:" 10 40"13:18:" 5 20"20:18:" 0 0" 21:"DAY 0";:1100::22:"OXYGEN CONTENT IS IN BLUE;":"WASTE CONTN' TO CONTINUE TABLE. ";`_"ENTER 'S' TO STOP. ";A$:A$"C"CV(37):CV2:1:958:866u`(Q$,1)"B"875a1005b60:Jf(Q$,1)"T"1005h:"PRESS 'RETURN' TO CONTINUE ";A$k2000: SET UP HI-RESp:18:" 15 60"G"875XH" TIME OXY. CONTENT WASTE CONT. DAYS PPM PPM"R" ---- ------------ -----------"W J1 M\3)J1;:16)(100X(J).5)100;:32)(100W(J).5)100]J16866^: "PRESS 'C' THEN 'RETUR(Q$,1)"G"(Q$,1)"T"(Q$,1)"B"795T"PLEASE ENTER 'G', 'T', OR 'B'":770d K1 820l :*"AFTER DAY ";T2;" THE GAME FISH BEGIN TO DIE,":"BECAUSE THE OXYGEN CONTENT OF THE WATER HAS DROPPED BELOW 5 PPM."4200::9(Q$,1)"1NW1)W2W2T1(D2HW2). X5 7408KK1H K1 740UT2(T9)] IhX(J)XwW(J)W1W2 J255:10:"WHICH DO YOU WANT?"::" G = GRAPH"::" T = TABLE"::" B = BOTH"Q$""::10:"? ";Q$:(Q$)0775*1)"S" 645;: "PLEASE ENTER 'N', 'P', OR 'S'.": 625ND2.1D2: 660[D2.5D2j:255:10 "LET ME THINK ABOUT THAT"; J2 M "."; I1 10T9T9T1XXT1(C(X9X)NW1HW2) X0 X0W1W1T1(D:W(1)W1W2:X(1)X:M31il::: "PLEASE SPECIFY THE KIND OF TREATMENT USING THE FOLLOWING CODE:":n " N = NONE": " P = PRIMARY": " S = SECONDARY"q: "KIND OF TREATMENT = ";Q$v (Q$,1)"N" 660x (Q$,1)"P" 655 z (Q$, (Q$)0 490& (Q$,1)"S" 505> (Q$,1)"I" 495f: "PLEASE ENTER 'I' OR 'S'": 475vH.25: 510H.75::: "PLEASE ENTER THE DUMPING RATE (PPM) ";D2  (D27)7 1040!W1D1N:W20:XX9D1CDT20:T90:K0:T1.1US)";T T32 1055) T0 1070: T10 465OX915.4T: 470cX911.2(T10)::: "PLEASE SPECIFY THE KIND OF WASTE USING THE FOLLOWING CODE:":: " I = INDUSTRIAL WASTE": " S = SEWAGE": "KIND OF WASTE = ";Q$:^: "BODY OF WATER = ";Q$* hD12:N.75> r (Q$)0 420X | Q$"FR" C3: 425t  Q$"SR" C1.5: 425  Q$"LL" C1: 425  Q$"LP" C.4: 425 : "PLEASE ANSWER LP, LL, SR, OR FR.": 350::: "WATER TEMPERATURE (CELSIEMOVE DISSOLVED AND COLLOIDAL ORGANIC MATTER)"< ,70B 6 @:"PLEASE SPECIFY THE KIND OF BODY OF WATERUSING THE FOLLOWING CODE:": J " LP = LARGE POND": " LL = LARGE LAKE" T " SR = SLOW-MOVING RIVER": " FR = FAST-MOVING RIVER" MILLION (PPM)/DAY.":N  "E. THE TYPE OF TREATMENT OF THE WASTE: NONE"  " PRIMARY (SEDIMENTATION OR PASSAGE THROUGH FINE SCREENS TO REMOVE GROSS SOLIDS)"4 " " SECONDARY (SAND FILTERS OR ACTIVATED SLUDGE METHOD TO R RIVER, OR FAST-MOVING RIVER.":` "B. THE WATER TEMPERATURE IN DEGREES CELSIUS": "C. THE KIND OF WASTE DUMPED INTO THE WATER:" " INDUSTRIAL OR SEWAGE": 70  "D. THE RATE OF DUMPING OF WASTE IN PARTS PER (Q$,1)"N" 310- (Q$,1)"Y" 180V : "PLEASE ANSWER YES OR NO.": 150\ "IN THIS STUDY YOU CAN SPECIFY" "THE FOLLOWING CHARACTERISTICS:": "A. THE KIND OF BODY OF WATER:"" " LARGE POND, LARGE LAKE, SLOW-MOVING B : 3005!#255:1355<XX1500:XX:pF22::" PRESS ANY KEY TO CONTINUE ";::Q$:Q$::4: X(51),W(51),Q$(15),A$(4) 37,9: 10) "WATER POLLUTION STUDY": 37,14: "DO YOU WANT INSTRUCTIONS? ";Q$ (Q$)0 170          E ORDER OF---CASH---$";Y::H`" THE NEW CLEA CASINO A. TOM MICK"vj26:"GENERAL MANAGER":I140:"-";:I:t:"DON'T SPEND IT ALL IN ONE PLACE.":255:I GUESSES.":_"CONGRATULATIONS!"::"YOU MUST KNOW A LOT ABOUT RADIOACTIVITY AND THINGS.":"THANKS FOR PLAYING.":I11000:I:I125::I:1802:I140:"-";:I:23:"CHECK NO. ";BD:15:"DATE: --------19--":" PAY TO TH00]\"OOOOPS... SORRY PAL, THE LAST CHIP JUST DISINTEGRATED. THE HOUSE IS CLOSED."::970z255::"YOU BROKE THE HOUSE!"::I11000:I:90::"YOU NEEDED ONLY ";Y1.001E6:B5940"THE MINIMUM NUMBER OF GUESSES!"::950 B;":400Y(YAY2)& HY1890Z255::"YOU WON!";:90:Y200000ĺ::840u*" TRY AGAIN."::4004"IT SEEMS YOU JUST CAN'T GET THE HANG OF IT. SAVE YOUR BREAD."::970H"YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT."::4ACTUAL NUMBER OF CHIPS LEFT IS ";D5A2P.2:710HA4P.1:710RP.05]T10Br(DG)PD770Y(YY2)Y50820:255:"TOO BAD, YOU LOST.";:I140:X(16336)(16336)(16336)(16336):I90:" TRY AGAIN.":OUR MONEY: $";Y::5:"HOUSE'S MONEY: $";HY::5:"TIME: ";T;" MIN":u"ODDS (2, 4, OR 8) ? ";:A$:A(A$):A$:A2A4A8610:"SORRY, PAL, WE DON'T OFFER THOSE ODDS.":DC1820NC1:530b"HOW MANY CHIPS ARE LEFT? ";G"v:"MBER 2, 4, OR 8 FOR THE ODDSWHEN ASKED."::K G0:D0:A0:B0:T0:Y1000Y H1.001E6c C0:x (GD)1500450 G5:D2 BB1 I13A(GD) T3(100(1))10 I TTT3 D(100000(.0693T)) D0860F:5:"YUSE BEFORE THE CHIPS RUN OUT.":::I11000:I "THE HOUSE OFFERS THE FOLLOWING ODDS:"::" 2) 2 TO 1 ODDS FOR GUESSING WITHIN 20%" " 4) 4 TO 1 ODDS FOR GUESSING WITHIN 10%" " 8) 8 TO 1 ODDS FOR GUESSING WITHIN 5% ", "ENTER THE NUY CHIPS ARE LEFT."::"TO FURTHER THE INTEREST OF THE GAME," "YOU WILL START WITH $1000 AND THE HOUSE WITH AN UNSPECIFIED AMOUNT. HALF THE" "MONEY YOU HAVE WILL RIDE ON EACH GUESS YOU TAKE.":I1500:I:2 "LET'S SEE IF YOU CAN BREAK THE HOE PLAYING CHIPS AT HIS TABLE.":r "THEIR HALF-LIFE IS 10 MINUTES. EACH CHIP TRANSMUTES SPONTANEOUSLY AND" "COMPLETELY IN A RANDOM FASHION.":: "AT VARIOUS TIMES T, AFTER T=0, YOU MUST DETERMINE WITHIN A CERTAIN PERCENTAGE"< "HOW MAN H.S. PATCHOGUE- d THIS IS A GAME BASED ONE e RADIOACTIVE DECAYv n::4:6:"*** THE NEW CLEA CASINO ***":: xI11000:I 90:"MR. A. TOM MICK, GENERAL MANAGER OF THE NEW CLEA CASINO HAS, AT TIME T=0,"! "DISCOVERED 100,000 RADIOACTIV  *** DECAY ***5 ** **O ** APPLE II **i ** VERSION BY **( ** JOHN COOK **2 ** 2/79 **< ** **F *******************P ORIG. 11/68Z RICHARD PAV AND _  B Ƶq [ede0dededededed ed e]}d ed ed ededededeLdedede`; }q q qqqq(}Ʊq Ʋq Ƴq! ƴqĠΠ٬)E@ccEa(ӠӠԠŠԠƠǠĠԠԮ)a@E(Š)SoPa(ŠҠ׮)UVWqq\(UVW YYQ NUVWY[0uUVWY[T}dĠŠ͠ӠԠ͠Šͮ)N a(٠ƠŠŮ)`X a(ŠƠŠŮӠŠĮϠ٠٠ҠҠŮ)b \ \2\ NXM6o a(ɠŠՠĠǠŠƠŠӠӧӠŮĠ̠ŠŠӮ٠ή)_ A \2cca(٠٠ҠΠ͠͠ή)c;0 a(ԠӠΠŠ͠ĠӠĮ)-: a(ȠĠӠĠϠŠͮ)MD a(Š͠ӠРŠƠŠŮӠŠĮϠҠ٠ҠҠŮ) \ _ . cS(Ҡ)'`$ K c`$ a(ǮӠŠԠĮ٠ή)_ b `%[a(ԧӠԬԠҠΠ): a(ŠƠŠ͠ĠԮ٠ή)_ A \2cca(Ҡ٠ҠΠ͠͠ή)c a(ȠĠӠĮ) a(ҠӠĮ) a(ŠȠŠĮ) a(٠ƠŠŮ)` a(ΠŠͮ͠٠ή)_ _ `$ a(ŠƠŠӠΠŠԠŠӠҠΠ)" a(ͮ٠ή)_ ^ `$ a(ӠŠŠӠΠŠήŠƠŠƠŠͮ): a(Š̠ӠƠŠ̠Ӯ)A a(ŠҠӠƠҠٮ)a(٠ƠŠŮ). cS(Ҡ)'`$ o c`$ a(ԧӠϠǮԠӠԠŠ^ `$h a(Ǯ٠ή)_J 4h \2\ Ncca(ȠƠŠǠĠ);r a(ŠӠҠΠ͠Ϳ)c*| a(ŠӠӠƠŠͮ)S a(Π٠ŠƠҠرر͠ΠŠ͠ӠΠŠΠƠ٠ŠȠĠӮ)4@ a(̠ƠŠŮ)a(ŠƠŠŮ).J cS(Ҡ)'`$J ZT c`$^ a(ԧӠԬԠŧӠŮĠ̠ŠŠӮ)_J )ӠƠӠǠŠӠΠ) a(͠Ϳ)cW" a(ӠŠҠƠȠӬŠԠƠĠΠӮ)&, a(ŠȠԠŠ̠Ӯ)u6 a(ŠǠΠŠӠƠŠŠŠΠŠ͠ӠЮ) a(̠ƠŠŮ). cS(Ҡ)'`$ Z c`$ a(էŠԬԠŧӠŮĠ̠ŠŠӮ)_ b \2\ Ncca(ȠƠŠǠ2q\ Ncca(ȠƠŠǠĠŠԠƠŠ͠͠Ϳ) ca(ȠӮ)( a(ǠȠӠҠŮ);( a(ӠΠŠ͠ΠϠٮ)V a(ӠŠ͠ӠҬŮ) cS(Ҡ)'g c`$ `$ a(ҠԬԠŧӠŬĠ̠ŠŠӮ)_ q `$ a(ӠҠҠĠԠƠŠǠĠΠŠͿ٠ή)_ d \ͮȠƠŠ); a(ĠŠĠӠԠƠŠͿ)c; a(̠ŠǠӠΠŠͮ)$ a(ŠҠΠŠͮ) a(ҠҮ) a(ĠŮ) a(̠ƠŠ ĠϠĠԠΠȠҮ)cW a(ӠŠӮ)ca(ӠŠԠĮ)cc\ F M6ca(ԧӠŠԠՠĠԠӮ)ccQ a(Ҡ͠͠ӠΠĮ)cc\ it M6a(Ϡź)ca(Π͠ӠǠĠΠӠӮ)Z~ ca(Π͠ӠǠԠӠΠӠӮ)d a(ŠӠΠΠ͠ŠӠĠٮ)ciV a(Ġ̠٠٠ϠҠҠŠΠŠ͠ƠĠҠǠӠҠӮ)K` ca(ŠנƠ٠ȠӠӠ̠ҠŮ)ccAj a(ӠՠΠŮӠŠԠ٠ҠӮ)@8 ca(Ӡ٠ŠŠ͠ȠҠҠҮ)cSB a(ŠӠΠŠΠҠԠƠŠ͠ҠҠΠҮ)cc G \ ccgL a(٠٠ҠŠ͠ΠŠ͠ƠԠĠŠӠȠҠĠ٠ӠŠӠƠΠͮ)ccT$ a(Ҡ٠ҠӠΠҠέƠ͠ҠĮέƠҠ٠)u. a(ӬĠԠҠ̠ҬĠǠӮҠ٠ϠŠĠΠŠŠҠ̬ԠԠԠŠŠԠƠӮ)\ cca(ŠӠƠҠĠ͠ĠŠǠŠŮ)a a(ŠӠƠԠ͠ĠŠŠŠӠĮ)o\ M6oN a(ŠΠŠҠŮ)cga(ӠĠӠҠĠĠή)a(ӠŠŠΠŠĠ٠Ӯ)Rca(ՠ̠Ġ٠ŠӠƠРĠŮ)io\ M6oa(Π͠٠)R@a@E(Š)^M6oa(ǠΠΠ͠ӠĠϠĠԠΠǠŮ)Sca(ӠĠԬ̬ĠҬ̠ӠĠ٠ŠӠ)Ia(ӠĠӬĠӠ٠[4a(Ԭ)E@[5a(Ҭ)E@[6a(Ԭ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[,KM6N@"rC@"r@p()]̭a@E(ΠɬϬ) M6 d6?ea@E(ΠŬְ)a@E(Ġ ]ϭԠ]٠Π ]] \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM[$2qq\(\8/?r3r[3a(ì)E@              edeLdedede`; }q q qqqq(}Ʊq Ʋq Ƴq! ƴqB Ƶq [ƠŠ)N@"r@p()]̭Ma@E(Πϱ)Q NUVWY[0uUVWY[T}dede0dededededed ed e]}d ed ed edededq(qqqqƵ\P\0u\0u;qqqqqƴ\PqUq\P\ N-oM6dP a(ԠӠ)\(\0u/q\PqUq\P\0uq\PO\0uM6oa(̠ŠӠԠΠŠԠUVWUVWq/?rʱqn/?(rUVWʱXqUq\FMq\FM1qq\FMq\FMYY?qqqqqƴq\PqUq\PYVoM6dP a(ŠΠ)\(qƴ\PWfqZqeqqqƲ\PqKqqqƱ\P\ Nq\PqKpq\PqqZqeqƲ\P\ Nq\Pqq\POz\ Nq\P\ NqqKqƱ\P\(oM6dP a(Ԡ)j NqKqqƱ\PXRUVW\ NUVW UVWq /?rq /?}rqqƱ\PYEWUVWq/?}rq/?rqqƲ\PYYY[\(N\oM6P a(Ӡ)\ NMqqqUq88rr rq\P%UVWYq\PY, q\PoP a(ӠԠ)\(@*\ NqZqeqqƲq\P\ Nqq\P,>oM6P a(Ӡ)\(?Hq,\ NqLqqƳ\P\\(\0u\0uM6\oa(Π͠ӠǠԠӠΠӠӮ)\(\( \0u\0u6qZqeqqƲq\Pqq\PP a(Ӡ)\(\0uqƱq6UVWrX6qKq}q\FMq\FMSqq\FMqA\FMqnq\FMq\FM+qq\FMq\FM%qqqUqƴq\P8a(ĠǠ)a(Š̠ĠҮ)͠ӠǠĠΠӠ)gq(qF\(q\0u1lqZqeqqƲqqM\Pva(Ӭ)G\(\0uqKqqqƱ\Pa(Ӭ)G\(\0uSqdq\FMqK\FMɬ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[)Fd"ed!ed ed,e[;Pd$ed%ed&ed'e\FMM[5M6]ӠӠŠǠƠŠΠ\ ObM6oa(ΠŌ \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM[$2qq\(\8/?r3r[3a(ì)E@[4a(Ԭ)E@[5a(Ҭ)E@[6a(       yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpsvy| m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`|if&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeRU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&h"6v------------u6------266$$$(mIrc $M --=??0$D` $$466?N6??/--M 6` pN9/ .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&% d E-m ? lhD5Da5ֶ56v v266 ????????'d--e@vM@'66g$dD(-?$ V - 8?g$ 8???eee ?$$$da ?$$$36<ܷq56>?w-$ % <7.(%?'$)-:?n5-----e--- ---- ee $?????????????????????????????       Ʊq Ʋq Ƴq! ƴqB Ƶq [VWY[T}dede0dededededed ed e]}d ed ed ededededeLdedede`; }q q qqqq(}ҠŠӠŠ٠)\0u X  S\ ^@p()]̭ba@E(ΠŬְ)la@E(Š)va@a@E(Š).a@E(Ġӭְ̤)a@E(Πϱְ)Q NUVWY[0uUԠΠӠӮ)cnDa(ǠΠΠ͠ӠĠϠĠԠΠǠŮ)cRNa(Π͠ӠӮ)ca(Π͠ӠԠĮ)c@S\ M6o a(ԧӠϠŭ)Ka(Š͠ӠŠԠ)a(ԠΠŠ٠Ơٮ)=&ca(ŠŠŠӠƠΠͺ)cE0a(ӠǠĠΠӠӮ)cL:a(ӠǠԠӠa(ҠӠԠǠԠ)a(̮٠ή)c\ M6_Qa(̠ӠԠǠ)a(Ҡ̮٠ή)c\ M6_9a(ԠԠŠĮ)a(٠ή)c\ M6_\2cc\ a()a(̠ƠŠŠӠŠ)0ca(ŠҠĠӠΧ)(qT`$`$3M6a(٠ӠƠ̠Š)Pa(ĠӠǠҠΠ)a(Ů)G`$`$Pa(ӠƠŠ̠ĠƠҬ)a(ĠŮ)c\ M6-a(ȠƠŠǠӠĠ)6a(͠͠ĠŠ)a(ٿ)c7a(̠Š)a(̠ŠǠ)>a(̠Š)a(+Ja(ҠŬŠ٠Π)(Ta(ĠŠ̠ŠӬ),^a(ӬӬӠĠ)-ha(ӬӠӬӬӬ),ra(ӬĠ٠ҠӬȭ)%|a(ӬӬӬĠ)-_MM6a()a()a(٬ӠŠΠԠΠ٬)-"a(ӠƠ̠ŠӠĠ)(,a(ǠҠΠΠŬ)-6a(ǠŠӠǠ)@a(Ӯ)c\ cEo M6dcӠƠΠӠΠ)Fa(̠ͮӠԠŮ)ca(٠ή)\ M6_]M6a(ΠĠŠ̠Š)a(ƠΠӠΠŠͬ)Ea(ҠŬ̠ŠȮ)ca(٠ή)\ M6(̠Š)a(ŠԠ̠Ġħ)/ca(ŠҠĠӠή)2T`$`$`$`$(ca(ԧӠ)\2c\ _ZM6a(ΠĠŠ̠Š)a(ҠŠӠΠ)a(̠ή)cc\ o M6d*ca(ˠԠͮ͠)*a(ȠƠŠǠӠ)-a(ΠŠ͠ĠŠο)9ca(̠Š)a(̠ŠǠ)AaĠΠ))Za(ӠŠ̠ΠƠ)-da(͠ԠҠ̩ΠŠ)(na(ǠĮӠƠ)-xa(ӠĠźŠˠ)*a(ΠŠԧ̠ˬ̠Š).a(ӠΠĬ)a()7qUVW(a()GYa()a()GP*(a()qUVW(a()GYF2a(­àӠ)a(άάî) <c\ %FM6a()a().Pa(ŠԠԠϭ)GPa(),a()a()GPa()-a(Ҡ)qUVW(a()GY7a()a()a()GPa()+ a()qUVW(a()GY;a()a()a()GPa()a(ΠàӠҠӮ)+a(ŠƠŠàӠƠ)(a(ŠĠΠŠǠ)+a(ΠҠƠŮŠŠ)*a(ĠŠŠ٠)cc\ 'cca(à)GPa(Ġ)#a(Πՠ̠)a(ŠǠӺ)&tccP a(Π)c=~P a(٠)cP a(͠) cc\ oM6d.cca(ΠӠŠŠ)&a(Š٠ˠΠӠ)h gh +$gh ghl mng h.[!8qUVWf \Y0Ba(ŠҠҠԠ)N@" rR@LKM6a(ˠՠ)E@+Vca(ӠӠŠԠΠŠ)`a(ӠΠٮ)>jca(ΠӠ̭a@E(ΠɬϬ).LUVWUVWf\YY_8<l mnij k gh gh ij k<l mn i jk i jkgh gh7l mnijk ijkl mng[$2qq\(\8/?r3r[3a(ì)E@[4a(Ԭ)E@[5a(Ҭ)E@[6a(Ԭ)E@[7a(̬)E@[$8a(էŠǠ٠̬)E@[5M6]ӠӠŠǠƠŠΠN@"r@p()]#]]ϭ]]٠Π]ά]]٬] \}_4 q(qF\(a(ϠŬӠ٠٩)UVWY `.?6@r$d6?e[(dedeM             E:"BRRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE."::1660A1(A32)59::A;" DEGREES F = ";(10A1.5)10;" DEGREES C":"ENTER DEWPOINT IN DEGREES F: ";A1670::"PRESS ANY KEY TO CONTINUE";:Q$::= FAHRENHEIT":%T" C = CELSIUS":<^"(C OR F)? ";Q$:MhQ$"C"1700_rQ$"F"1630|"ENTER TEMPERATURE IN DEGREES F: ";A1670:1694A150ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE."::1660SA70ĺRCURY = ";(10A1.5)10:28:"KILOPASCALS":1600;,16006"YOUR PRESSURE UNITS MUST BE CONVERTED TOONE OF THE ABOVE."::"WHEN YOU HAVE DONE THIS, TYPE 'RUN' AND";"PRESS 'RETURN'.":@::"WHICH TEMPERATURE UNITS ARE YOU USING?":J" F 0A33ĺ:H$::1500gA1A3.3164::A;" INCHES MERCURY = ";(10A1.5)10;" KILOPASCALS":1600"ENTER BAROMETRIC PRESSURE IN MILLIMETERSOF MERCURY: ";AA650ĺ:L$::1540A850ĺ:H$::15401"A1A.13332::A;" MILLIMETERS OF ME0,1540,1580,1590B"ENTER BAROMETRIC PRESSURE IN MILLIBARS: ";A[A800ĺ:L$::1460uA1200ĺ:H$::1460A1A.1::A;" MILLIBARS = ";A1;" KILOPASCALS":1600"ENTER BAROMETRIC PRESSURE IN INCHES OF MERCURY: ";AA26ĺ:L$::150CH OF THE FOLLOWING UNITS?":5Z" 1 = MILLIBARS":Ud" 2 = INCHES OF MERCURY":zn" 3 = MILLIMETERS OF MERCURY":x" 4 = KILOPASCALS":" 5 = NONE OF THE ABOVE":"(1, 2, 3, 4, OR 5) ";QQ1Q5(Q)Qĺ:1420:Q1460,150("TEMPERATURE AND DEWPOINT ARE IN DEGREES CELSIUS."<-2::"DO YOU NEED TO CONVERT ANY OF YOUR DATA TO METRIC UNITS? ";Q$<(Q$,1)"N"ė:F(Q$,1)"Y"ĺ:"YES OR NO, PLEASE.":1330P:5:"YOUR BAROMETRIC PRESSURE READINGS ARE INWHI" 1230'"CLEARING AND COLDER."-X::"THANK YOU"::"HAVE A NICE DAY!"c255: *** METRIC CONVERSION SUBROUTINES::"ONLY METRIC UNITS WILL BE ACCEPTED BY THIS PROGRAM.":"BAROMETRIC PRESSURE IS IN KILOPASCALS.":6LL SET IN WHEN THE"\`"BAROMETER BEGINS TO FALL AND THE WIND SETS IN FROM THE N OR NE."btl~1280A41A441190A45A4812201230"RAIN WITH HIGH WINDS, FOLLOWED WITHIN ONE DAY BY CLEARING, AND IN WINTER, COLDER." $1140y."GOOD CHANCE OF RAIN WITH WIND INCREASINGIN FORCE. HOWEVER RAIN MAY FALL OR NOT FALL FOR SEVERAL DAYS."B1140L"SUMMER: LIGHT TO MODERATE WINDS, GOOD CHANCE OF RAIN."V"WINTER: RAIN OR SNOW, WITH INCREASING WINDS, OFTEN WIAIN IN TWODAYS IF BAROMETER IS RISING RAPIDLY."m:"OTHERWISE, FAIR WITH SLIGHTLY RISING TEMPERATURE."s}1280A42A441070A46A471040A41A4811001140"FAIR WITH SLIGHT TEMPERATURE CHANGES FOR1 TO 2 DAYS.ACTORS, AMONG THE MAIN FACTORS"p"ARE BAROMETRIC PRESSURE AND WIND DIREC- TION."::"YOU WILL BE ASKED TO INPUT THESE PLUS"z"DEWPOINT AND TEMPERATURE."::"THIS FORECAST IS 77% ACCURATE."I11000:I:1300/"FAIR. SLIGHT POSSIBILITY OF R6)"FORECAST":I130:J15:A(16336)(16336):J,IN:A2102.6810k A2101.6A2102.6830}A2101.6850 1280*95041250>1000H1250R1160\1250f:90:"THIS FORECAST INFORMATION DEPENDS ON VARIOUS F00500BC;19((((V1))(10))).5(1(V1)));(10V1.5)10QV1V13.18X3_CvI140:" ";:I:A8((A3A6)121.92.5)A80A80"CUMULUS CLOUDS COULD FORM AT":8);A8;" METERS"I14:J110:" ";:J::I 1THER": 5)"WIND ";M$:E 5)"TEMPERATURE ";A3;" DEGREES C":k 5)"DEWPOINT ";A6;" DEGREES C": :5)"BAROMETRIC PRESSURE ";A2;" KPA": N:"HEIGHT(M) TEMPERATURE( C)" X"--------- ---------------":4 lV1A33.18vC50030ELSIUS?" A68 A4330,350,370,390,410,430,450,470L JM$"NORTH":480d ^M$"NORTHEAST":480w rM$"EAST":480 M$"SOUTHEAST":480 M$"SOUTH":480 M$"SOUTHWEST":480 M$"WEST":480 M$"NORTHWEST" 90::5:12)"PRESENT WEAPLEASE ENTER A WARMER TEMPERATURE.":130. o "WHAT IS THE WIND DIRECTION USING THE FOLLOWING CODE?": " N = 1, NE = 2, E = 3, SE = 4,"::" S = 5, SW = 6, W = 7, NW = 8": :4:"?";A4 ::"WHAT IS THE DEWPOINT IN DEGREES CA285ĺ:L$::100- |A2118ĺ:H$::1003 ~l "WHAT IS THE TEMPERATURE IN DEGREES CELSIUS ";t A3 A350ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE.":130( A340ĺ:"BRRRR! IT'S TOO COLD TO COMPUTE!":"$"TOO HIGH UNLESS YOU ARE UNDER WATER!"Q (15:"DO YOU WANT INSTRUCTIONS? ";Q$e 2(Q$,1)"Y"80 <(Q$,1)"N"ĺ:"YES OR NO, PLEASE.":40 F90 P870 Z1330:5 d"WHAT IS THE BAROMETRIC PRESSURE IN KILOPASCALS (KPA) "; xA2 z FORECAST ; APPLE II ADAPTATIONR BY JOHN COOKXd::106)"THE ATECC WEATHER FORECASTER":6:I127:"-";:J15:A(16336)(16336):J,I:I11000:I( #:L$"TOO LOW, UNLESS YOU'RE FLYING IN SPACE!":H                --------";31);"----------"g I1N:N$(I);23((MW(I))(10)));MW(I);35((DR(I))(10)));DR(I)n I "::"ANOTHER RUN? ";K$:(K$,1)"Y"150 ,::"END":H))100$ DR(I)(DR(I)100.5)100+ I 255::"PERCENT RELATIVE DIFFUSION RATE":"BASED ON ";R$:"WHICH HAS A MOLECULAR WEIGHT OF ";A: 19)"MOLECULAR % RELATIVE";:5)"GAS";20);"WEIGHT";31);"DIFFUSION" 33);"RATE":5)"---";19);"-E NUMBERS, PLEASE.":160q ::"HOW MANY GASES DO YOU WANT TO TEST? ";N:N12ĺ"NO MORE THAN 12, PLEASE.":170~ N0170 N0300 I1N::"NAME OF TEST GAS? ";N$(I) :"M. W. OF ";N$(I);"? ";:MW(I):MW(I)0210 DR(I)((A)(MW(I)USE AS MANY AS 12 TEST GASES."::"THE NAMES CAN CONTAIN NO MORE THAN 20" "CHARACTERS, AND MUST NOT CONTAIN ANY COMMAS." ::"ENTER THE NAME OF THE REFERENCE GAS: ";R$ :"ENTER THE MOLECULAR WEIGHT OF":R$;"? ";:A:A0ĺ"ONLY POSITIVdMW(12),DR(12),N$(12)zn:90:"THIS PROGRAM PRINTS THE RELATIVE RATE OFDIFFUSION OF A GAS IN PERCENT BASED ON A";x"REFERENCE GAS."::"YOU WILL ENTER THE NAME AND MOLECULAR WEIGHT OF THE REFERENCE GAS AND EACH TEST GAS."I :"YOU MAY   T THAT'S PHYSICS.".R8"SEE IF YOU CAN IMPROVE YOUR ABILITY LATER, ";A$cB255:34,0: SUCCESS IS, ";A$;"!!!!!":1070M"YOUR TIME IS UP."_X10000860"YOU HAVE NOT REACHED THE CHANNEL, AND ARE ONLY ";((X2Y2).5);" METERS FROM WHERE YOU""STARTED. YOU MUST SUFFER RECAPTURE. SORRY, CHUM, BU FOREVER. GOODBYE, ";A$:10704(Y)100950o"AND YOU MIGHT MAKE IT, THOUGH YOU ARE OFF COURSE."y1070(Y)25980"BUT YOU'RE CLOSE ENOUGH TO GET AWAY. GOOD LUCK, ";A$:10705"AND HAVE REACHED THE CHANNEL!":"HOW SWEET )0850*(P$,1)"Y"50014(P$,1)"N"660RR"YES OR NO, PLEASE."::800~\"YOU HAVE REACHED THE OPPOSITE SHORE,"f(Y)200920p"BUT ARE ";(Y.5);" METERS OFF COURSE."z"ALL THAT WORK FOR NOTHING!"""YOU'RE LOST IN THE SWAMPS-- -------"X32T1:2:T1;:9:(X.5);:17:(Y.5);:25:(V1.5);:34:(V2.5)r34,15:24::X0780"NO HELP THAT WAY. YOU'RE GOING":"BACKWARDS!":500 X10000860T151010 "WANT TO CHANGE DIRECTION OR FORCE?":P$:(P$A2(F(A0).717P)M2X(A1T2)2V1TXJY(A2T2)2V2TYYV1A1TV1hV2A2TV2~T1T1.5:34,0:1T1.5750 "TIME X-DIST Y-DIST V(X) V(Y) (MIN) (M) (M) (M/SEC) (M/SEC) ----- ------ ------ ----- BE PRACTICAL.":500O&"IF YOU'RE THAT STRONG, JUMP THE CHANNEL!":500X"IN WHAT DIRECTION (IN DEGREES) WILL YOU PADDLE? ";AbA91A269650l:"YOU'RE HEADING THE WRONG WAY! TRY AGAIN. ":600A0A57.2958A1(F(A0).717P)MOAT WITH YOU ABOARD IS ";M;" KILOGRAMS).":c :"PRESS 'RETURN' TO CONTINUE.";P$::34,15:16i  "WITH WHAT FORCE (IN NEWTONS) WILL YOU PADDLE? ";F::(F100)100600 QQ1:Q21090 Q1550"YOU MUST THINK YOU'RE SUPERMAN! EWTONS ON YOUR BOAT."::"YOU MAY PADDLE WITH ANY REASONABLE FORCE"; "IN THE EASTWARD DIRECTION (ZERO DEGREES IS EAST) TO ACCELERATE YOUR BOAT ACROSS" "THE BAY AND THUS REACH THE OPPOSITE SHORE (AND FREEDOM).":. "(NOTE: THE MASS OF THE BEM.":350@ T:"ENTER 'POUNDS' OR 'KILOGRAMS', PLEASE."::310N ^P18(1)` hP20(P1.5)l |MK100~ T10:T30:: "YOUR SITUATION IS AS FOLLOWS:": "THE WIND IS BLOWING FROM THE NORTHEAST (45 DEGREES) EXERTING A FORCE OF"D P;" N DO YOU WEIGH? ";W:U 6"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?":W$:(W$)0310 @(W$,1)"P"K(W2.2.5)::"(";W;" POUNDS EQUALS ";K;" KILOGRAMS)":350 J(W$,1)"K"KW:"GOOD, ";A$;"! I'M GLAD TO SEE":"THAT YOU ARE USING THE METRIC SYST SUCCEED, YOU MUST REACH A CHANNEL 50 METERS WIDE AND 10000 METERS DUE EASTAT ABOUT (10000,0).": ""IN ADDITION, YOU MUST GET THERE IN FIVE MINUTES OR LESS OR SUFFER RECAPTURE -- (HEH,HEH,HEH--)" '::"PLEASE ENTER YOUR NAME.";A$ ,::"WHATe  /// NEWTON-22 /// APPLE II ADAPTATIONI /// BY JOHN COOKj /// MARSHALLTOWN, IOWA t:90:"YOU'RE TRYING TO ESCAPE FROM DEVIL'S ISLAND ON A SMALL BOAT.":"DEVIL'S ISLAND IS LOCATED AT COORDINATES(0,0).":d "TO    (8H(6*+(n*+6*ȩ*h`HH$hH,5 |(hHI  |X $ i$h` HYXYHJhhj(`  ӠĠԠРŠŠT}dede0dededededed ed e_}d ed ed ededededeLdedede`[Qca(ɠŠՠĠ٠ӧ)Ra(Π)Q$RcccP a(ԧӠԠ)GRUVWq(q`88rr88rr$0Rq2 0R\Y6DRcca(ՠĠ)FE(ӠϠĠ٠Ү)XR_,Q7|]ųqd\PYBQccPa(Ϡġ)ca(ՠĠРҠ٠Ӯ) QccP a(ŠҠӠ)F(,QccS(ϠՠԠϠ٠ο)&@6Q`;@r$JQ-@Q`@*#r9()$LO`@*#r9()$TQ JQca(ӠҠϬŮ)_,Q/TP/dP`$RoPa()qqd\xP_PP`<@*#rr$P4P`$PoPa()qqd\_P,PoPa()qqd\_P4P`$PoPa()qqd\_P'PoPa()qrp@*#r_OOM6\N_O0O`8<@*#rrr8<@*#rrr$PPM6\N_O8PUVW`8<@*#rrr8<@*#rrr$(P_ ca(ŠԠҠӠנҠϠŠԠƠŠŠĠŠĠ)IH a(ӠנҠŠŠŠՠˠŠ c Pa() cc [ \  `@9()$ [ a(٠ϠӠŠŠŠӠǮ)ca(ՠӠ٠ǠŠŠԠ)^ a(ŠՠˠŠŠӠǮŠŠӠԠΠŠԠҮ)* cz4 a(ϠX a(ŠӠǠΠĬŠŠŠ׮)b \v l _ v Pa() c UV WX6 `$ . Pa(Ԡ)G _ " PbE() Y c Pa()ȠŠנ ]Ŭ ] _0 1 ca(ϠŠӬԠ)R@\ [  M6[ & d"eJ0 \ Pa(ĠŠš)o Pa(ĠՠŠŠӿ)G : R@\ D `@9()$ N ]ŠŠŠ: N@"r KM6$ ]Š4 ]ŧӠҠ٬ϠˬA ]Ġ٠̠Ǡ ]ЮЮ̮Ů# ]͠٠Š ]    `@*#r9()$__d2ea@d2e[7d2ea@Gd2ea@Gd2ea@d2e[ҠӠŠĮ)c-a(ŠӠƠŠӠϠŠ),a(ϠĠĠ͠ŠĠΠ)(a(ϠŠӠϧĠͧ))ca(ǠŠ̠ĠŠŮ)+oM6dS(Šՠ٠Ϡٿ)&@`;@r$2ea()G$NYd2eco UVWY%XS(ӠΧϠŮ)&@bUVWoM6dYo'la(ŠӠŠƠŠ̠))va(ϠԠŠҠРƠ).a(̠ҠҠϠԠŮ)&ca(ϠԠӠϠŠŠϠ)&a(ƠӠΠŠԠӮ)\UVWYo&a(ŠŠӠΠŠӠ)&a(ˠŠӮ)0oa()G<:UVWd2e`  %d2ea()Gd2e#D`%da(סՠĠԡΠ٠)FE(ӡ)8oS(ĠՠŠϠ٠ο)&@`;@r%Q`@*#r9()$"a(ӠҠǠ٠Ů)a(Π)Q5M6ca(ŠϠӠŠΠš)c,a(Š\8 8-rrro P\hUVWYrUVWoM6dY|Yq80?rr=oP\oP\8 8-rrroP\"q-rq-r-rq*UVW`-r-r$Y3o>,c`-r-r1?r1?r$@16a(ӡ)UVWYoM6d_)@UVWoPa@Y&J`1?r$Tq_)TUVWX0?r=^o P\o PW bE()GYc%oPa()oPa()[M6\oM6doa(Ϳ)GBq.?6@r`$`$qbd6?eoPa(Ͽ)G>"q.?6@r`$"`$qbd6?e#r9()$_4oUVW a@Gd2ea@Gd2eYc4oUVW a@Gd2ea@Gd2eYcoa()G\UVWd2e`  %d2ea()Gd2e` %d2ea()GYc)oa()GUVu Pd]̠ҧӠΠƠӠҠŠŠɠҮԠ#nO4 rC@"rC@"rC@" r2xUVW-rq-rqY-rq@p()@p()M6o KS(ϠՠԠӿ)&@`;@r$`@* 7,3 }798,96: ::"COME AGAIN TO TWINKY, BUT WATCH OUT FOR THE TWONKY!":255X "RUN MATHPAK":}778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240}788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:79:Z "IF THE TWONKY ABSORBS YOU, YOU LOSE."::"IF YOU LAND ON THE OBJECTIVE, YOU WIN." :"PRESS ANY KEY TO CONTINUE. ":Q$ :"GOOD LUCK! "  *** SUBROUTINE TO GET 2 RANDOM NUMBERS Z((1)15)1 W((1)15)1 B::" YOU CAN:"k "MOVE ONE SQUARE AT A TIME TO FIND THE OBJECTIVE OR ESCAPE FROM THE TWONKY."; "SHOOT AT THE TWONKY ONE DIRECTION AT A TIME. IF THE TWONKY IS HIT HE WILL" " BE MOVED TO A NEW PLACE IN THE MAZE AT RANDOM."AT SETS UP A NEW MAZE AND ALL THAT'S IN IT (1)" "MONSTER CALLED TWONKY THAT CHASES YOU AND WILL ABSORB YOU IF ITS DISTANCE" " FROM YOU FALLS BELOW 2 UNITS.":" (THE TWONKY IS ALSO IMMUNE TO ALL" " TRAPS INCLUDING WALLS.)"YOU ARE IN THE DARK AND"k~ "CANNOT SEE. YOU MUST GET TO THE OBJECTIVE SQUARE AND BE SET FREE.": " HAZARDS INCLUDE:":"SQUARES THAT YOU CANNOT GO INTO (30)" "SQUARES THAT RANDOMLY THROW YOU AROUND THE MAZE (22)"4 "SQUARE THME HAVE SAID THAT IT IS A STROKE OF GENIUS ... (MOSTLY ITS INVENTOR).":` "YOU HAVE LANDED ON THE PLANET OF TWINKY AND ITS KING (KONG -- THEIR KING IS KING";j "KONG) HAS CAPTURED YOU.":t "HE HAS PUT YOU IN A MAZE THAT IS 15 X 15UNITS LONG. :1017)"TWONKY"+I1500:I316^ "DO YOU WANT INSTRUCTIONS? (Y OR N) "f 90 KY(16384):16368,0:2710:KY1282320 KY2062700$ KY217ĺ"Y OR N ?":2320. 8 90L "THIS IS THE GAME OF TWONKY.":JV "SO THE PLAYER2710) A(Z,W)020706*A(Z,W)1>4XZF>YWdH *** PLACE THE OBJECTIVEnR2710\A(Z,W)02130fA(Z,W)5pX2ZzY2W *** PLACE THE TWONKY2710A(Z,W)02190A(Z,W)6X1ZY1W SQUARESvI13027102A(Z,W)01920?A(Z,W)2FIf *** PLACE THE RELOCATIONSrI122|2710A(Z,W)01980A(Z,W)3I *** PLACE THE SPECIAL TRAP2710A(Z,W)02030A(Z,W)4   *** PLACE840*& *** SET UP NEW MAZE ROUTINEO0 *** 1=PLAYER, 2=BLOCKED SPACESu: *** 3=RELOCATIONS, 4=SUPER TRAPD *** 5=OBJECTIVE, 6=TWONKYN *** 0=EMPTY SPACESX *** CLEAR MAZEbI115:J115:A(I,J)0:J,Il*** PLACE THE BLOCKEDX11A(X1,Y1)R9%R9A(Z1,Z2)4A(Z1,Z2)6>X1Z1HY1Z2b:"TWONKY MOVES ..."l1450zD2210:255" > > > S C H L O O R P !!! < < <" D9:P1002556:25::90:"THE TWONKY JUST ABSORBED YOU! YOU LOSE."(X2X)2(Y2Y)2)))/(D110000.5)10000;C" UNITS AWAY."IOh" *** TWONKY'S LOGICv,D217906Z2Y1@Z1X1JXX11680TXX11700^YY11660hZ2Y11r1710|Z2Y111710Z1X111710Z1nA(Z,W)6xR90X1Z%Y1W/145091570g *** PRINT TWONKY AND OBJECTIVE DISTANCEr150:"THE TWONKY IS ";D((((X1X)2(Y1Y)2)))(D10000.5)10000;" UNITS AWAY.":"THE OBJECTIVE IS ";D1(((A(R1,R2)21330+ 15)"BLAST!!!!">P255:D40:25S"YOU HIT WALL."g"SHOT MISSED."q(14302A(R1,R2)61160<17)"OUCH!!"AP30:D35:BZ15:25:BZF"TWONKY RETREATS."PA(R1,R2)R9Z2710dA(Z,W)01370 tR1X~R2YR1R1S1*R2R2S2G:(15)::"- Z A P -":mBZ420:776,BZ:777,BZ2:778:|R111240R1151240R211240R21512401280:" FIZZLE ...""SHOT LEFT MAZE.""SHOT MISSED."14301790 *** SHOOT ROUTINE="WHICH WAY? (F/B/R/L) ";IQ$:Q$ZQ$"F"1030kQ$"B"1060|Q$"L"1090Q$"R"1120210S10S211140$S10.S2181140BS11LS20V1140`S11jS20YOU GOT THE OBJECTIVE BEFORE THE TWONKY GOT YOU!!!";H:Xf"TRY AGAIN? (Y OR N) ";`pQ$pzQ$"Y"160Q$"N"2750:870 *** HE LANDED ON THE TWONKY!!:"YOU STEPPED ON THE TWONKY!"BZ1200:ZZ(16336)(16336):BZUPER TRAP+ :"YOU HIT THE SUPER TRAP!!"\ D40:BZ110:P4080(BZ2(BZ2)):25:BZ} "YOU GET A NEW MAZE.":1830 1430  *** HE WON!! *:P35:D35:BZ130:25:BZ 4"I DON'T BELIEVE IT, BUT"::10)"YOU WON THE GAME!!!":3>" RELOCATION ROUTINEC :"YOU'VE BEEN ";::"RELOCATED";::"!!!"z BZ130:P(255(1).5):D(100(1).5):25:BZ 2710 A(Z,W)2X5Z:Y5W:540 A(Z,W)0680 A(Z,W)1 A(X,Y)0 XZ YW 1430  *** CHANGE ALL, S(X5,Y5)1)550,620,630,660,760,800,920< & *** EMPTY SPACEI 0A(X,Y)0X :A(X5,Y5)1a DXX5j NYY5 X:"MOVE ALLOWED." b1430 l *** IMPOSSIBLE TO GET HERE v *** BLOCKED SPACE ROUTINE :"THAT SPACE IS BLOCKED." 1430  ***R"430 J270 TX5X# ^Y5Y1, h4605 rX5X@ |Y5Y1I 460T X5X1] Y5Yf 460q X5X1z Y5Y X51X515510 Y51Y515510 540 :"THAT MOVE TAKES YOU OUT OF THE MAZE. MOVE NOT ALLOWED." 1430& (A  1830 5 1450& V "MOVE OR SHOOT? ";:255:"(M OR S) ";:150b Q$:Q$r Q$"M"270 Q$"S"950 210 :"WHICH WAY? ";:255:"(F/B/R/L) ";:150 Q$:Q$ "Q$"F"340 ,Q$"B"370 6Q$"L"400 @Q$"9 *** MARK CAPELLA LIVERPOOL HIGH, SYRACUSEk *** OCT., 1975 UPDATE, NOV., 1976q *** CREATIVE COMPUTING *** MAY-JUNE, 1977 32000:140776,P:777,D:778:2250A(15,15)R90          ҠԠҠӮ) ^q_+*ca(ՠԠԠΠ)FE(Ӯ) a()cc"a(ϠՠԠϠ٠ο)GR@`@*#r9()$@p()a@E(Π)Qq+c,a(ԠР)GT6a(ĠР)GTr^q0?r0?rt`6$v`$ x`$,a(٠ҠӠĠ٠ҠӮ)_.a(٠ҠӠҠԠҠӮ)_-a(٠ҠӠa(ҠРӮ) ca()+a(ԭƠՠˠՠ)'a(٠ҬҠҠӠҠ)a(ȪРӮ)cc-a(ɧ͠ǮǮLJ)("a(ȡɠŠҭĠˡ)#q/?cr $ˠҠƠ)'a(ҠӠҠҠҠ)(a(ҠϠРӮƠɠ)*a(ՠԠՠŠĠ٠))a(ԠӠԠ٠ҠӠ))a(ҠРӠҠԇ)'a(٠ҠӠŠŠӠŠƠ)KUVWcYdN@"rN@" r%na(ϠՠԠӿ)GR@x`@*#r:()$0ca(ɠ̠ˠƠҠ͠Ϡ)(a(٠ϠӠ٠ҮҠ)$a(Ӯɧ̠̠ՠƠ)&a(ŠĠ٠)[UVWY M6o $ a(ŭϠŠ)G8 a(ҠٮҠ)B PL a(Ԡ٠Ƞɠ)G` a(ԠϠ٠Π)t P a(ҠР) o @p()a@E(Π)Qea()YPa(ŠҠӠ)F_Tdede0dededededed ed e]4d ed ed ededededeLdedede` >N@"(r0H@p()oa(ŠŠŠР)q`X$0_0M6o P"Da(ŠԠӠΠ)NUVWYSUVW XUVW&d$ea()lY UV&WX6d$ea() YYUVWd$)UVWY qM6d%e/?rcd$e/?#ra(ް)d2e?UVWdo,a(ŠӠԠҠ)@YTd2eM6hq`$|_M6qd%e/?rcd$e/?#ra(ް)#oa()IH()UVW Y M6o #a(ԬԠӠ٠)IUVW Y M6oa(ŠΠ)Ga(ҠӺ)o <a@PcxUVWY a() cccP a(άנɧŠԠVW Y\LfUVWUVW' f/?r gh/?'r g/?'rhde/?(rde/?rMoa(Πנ)Ga()Y$Y8K LM6`UVWde MYjo "ta(ŠҠӠ(ҠΠ)Ga()UVW Y M6o  a()P#a(ҠΠΠ̿)UVW Y M6 d2e o P a(‡) d2e oP4a(נǡ)HU)Ga(Ϡˠ)a(ϠŠΠ)Ga(Ҡ̠)cT'`  $N d2e?E&a(ŠϠ̠ӭ٠ҠҠȠ٠) 0d2eD_ Nq XM6 lo Pna()vaa(ΠŠ) a(̠ĠŠ)Ga(Ӡ)a(Ҡ),cc@a(ŠҠ)GJa(Ԡ)^a(ĠԠ)Gha(ҠȠ)ra(ˡ)cc a(Šՠ̠Š)xcc*a(Šנ̠Ӯ)cPa(ՠ)Ga(ŠĠ)Pa(٭)Pa()G$a(̠ƠŠà)-oS(ԠΠҠԠ)&@ M6oa(Π)G" \ M6 o"P a(Ҡ) ca@cP a(ӠӠ)G#a()(a(ƠŠ)G2a(ŠĠ)<a()GPa(ƠǠ)GZa(ԠĠ)da()Gna(     խԧQ$(d6?e`$<_#<d6?eKM6Kd6?eQ)@S()'S()'dedeM_@J]^T]ΠϠŠŠƠΠϠҠŠƠӠҠ^]h]ԠĠ٠r]|]κYZ_*`$ UVWYq_D UVWde deMqoPa(ӽ)FAYoP d2e?a(̠ūө)FGd2ec.a(Ӡ٠٠Ҡנ)Gd6?e2(q.?6@r`˽)FH(Ž)FGPa(Ž)FGd6?e`$3`DZ$DZqqPM6/d2e?a(Ġ٠)Gad2ePa(Ž)GUVWPP$bE()GdeKdeMUVW ]Š d6?e`$%\]ŠŠƠ\2\]Š d6?e1deFde(`%de M/`%\]ƠРӠˬˠԡ\2M6Gqa(Ӡӭ]Π͠]\]&`$]ƠנŠΧԠ\]Š\]ԠРנ d6?e,\\]ȠӬŠ\2\ ڧǠԠŠŠӠԠ q  q Wq qqqdqqq,qXq qqXq, $qn .DZq[]Ӡϭ'qq]ԠŠϠKM6]Ҡq]ΠŠӠԠ׬ŠӠŠĠϠӠȠԠĠƠ l]ՠĠΠڽΠŠӠ̠٠ededededeLdede`;]ŠӠҠӠĠӠC`$O4 rD4 rD4 rD4 rD4 rD4 rqO4 rD4 rCO4 rD4 r]ԠРӠԠŠՠ)G $d2ed6?ed6?e .`.?6@r$.d6?e[]Š]ŠŠTdede0dededededed ed e deTd ed ed (Ƞ ՠˮ)-a()-a(ĠˬΠ)-a()-a(ŠӠ΢٠Π٠).a(٠ĮƠՠԠŠԠ)W a(ҠЬՠ̠ŠƠҠ)a(ӮϠҠĠŠӬ)W a(̨)a(ΠŠӠϠŠŠӠ)W a(Ġՠ̠ŠĠӠҠ)aȠήƠŠ)W a(ŠӠŬՠ̠Ԡ)a(ΠҠƠӬǠ)W a(ϠנРŠ Ӯ)a(ӠŠӠӠȠՠ)W a(٠٠ŠӠȠŠ)a(נ)- a(͠ɠӠӠɠϠΠՠ ϠԠ)- a(ԠŠҠà)- a()- a(ՠŠŠΠƠĠҠ)W a(ɠҮϠȠȠ)a(ӠŠçϠ),S a(ӠŠŠҠϠŮ)X `.?6@r$v ] `.?6@r$N !b d6?ed6?eKM6[Cv d6?ed6?eKM6o P a(ŠĠ)Q [F M6\2d2e?oa( a@ a() [6 o@p(͠ɠӠӠɠϠΠՠ ϠԠ)\ '! @p(͠ŠҠî)\ & @p(٠à)\ + @p(٠)\ /: c@p(ˠŠӠŠ٠)\ ? @p(هχՇ)\ $N oa(Ӡ YO UVW -rq6-rq6Y\f\\fq\4 ]ԠԠŠĠŠРĠŠ2 oca(ϠԠŬӠŠâ٩)G* d#e]ˢŠԠ [ P;@rd ]٠ԠŠ٠̠ϠŠϠРӠ͠ΠĠӠŠӠ Y_  ]Š LM6- UVW'f`%fij'kYD UVW -rq6]ӠŠӠȠԠӠ̠E qUVW `-r$ f\-rq-r-r< `-r-r#$( qf\Y3 ]ŠŠŠƠŠȠנ8 `/?r%\`%[qf\[( -rq6Y_ -qUVWfij'kY[)UVW`-r$Yq6[4q/?rUVW`-r-r$Y-rq-rq@q/?r-rq-rq6`%-rqq[ ]Šq[-q2?r`$`$_q_q` $$f\qf\`.?6?r%[!$UVW `-r$LY[$L-rq-rq-rq []ŠW`$ijkY'UVWYUVWfij'kYfYRUV W'fij'kYUVW qf\-rq6-rq6Y$UVWY\f\qk-ri-rj-rk-rb_f g-rh-rY[fFM6d2e?a(ՠŠΠˠ) d2eKUVW UVW`$ijkYCUVeM6d6?e[MXUVW `-r$fg-rh-r-rq-r`-r$)Y`=-r>-rr%q-rq6O]fi-rj-rk-ri-rj-rk-rUVWG`Yfi-rj-rqY`/?8rr%[!UVW `-r$Y[IqUVW `1?-rr-r$ñqq1?-rr3Y-rq-rq-ñr-rq-ñr[]Š?d<ed=ed>ed?edBedCUVW YZ7UV6Wfi-rj-rk-rYBq8-rrUVW`-r-r$YY[qf\-rq6$qq_r]Y[?qUVW `-r%UVW `-r$`=-r>-rr$|fg-rh-r-rq-r`-r&$r1`=-r>-rr$|6fg-rh-rY[r-rq6Y[7|UV6Wfi-rj-rk-rY;~UVWdedeM[d]Ši`-r%[Eni-rj-rk-ri-rj-rk-rxg-r-rh-r[5UVWX6ijkY3UVWijkYgh+[d,]] ]Ӡ ] N@"(rKM6\ _2]ŠŠ?<d<ed=ed>ed?edBedCeM6 Fd6?eP`.?6@r$< JdJedKe de.?Jrde.?Kr]ԠͺҠǠŠ]]ȠŠ]٠àҠ]Ԡ]ŠҠà]           ENTERED IN LIBRARY BY LE ROY LARSEN.2E ' CHECKERS 'KCTER GAMES". ADAPTED FOR APPLEII BY ROBERT H. ABBOTT JAN 79z CONTRIBUTION FROM THE AKRON, OHIO APPLE USER'S GROUP THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY SAN DEIGO APPLE CLUB, MAY 12 1979 ENTER ROUTINE."20(CT$)2($CT$2&""8(B* P. 0 LAST MOD.SEPT 1979 FOR CONVENTIONS UPDATE.12 PROGRAM CLASSIFIED - PUBLIC DOMAIN -4 ; ORIGINAL FROM CREATIVE COMPUTING'S "BASIC COMPUPRESS THE 'ESC' TO END"H22:"< PRESS THE SPACE BAR TO CONTINUE...>"`(16384)1554636y(16384)1604624 SPECIAL END ROUTINE.16368,0:936:16298,0::46324634:1010:"* * * THE END * * *":  PRINT C TITLE PAGE ROUTINE.63:CT$"* CHECKERS *":4640ZCT$"BY ROBERT H. ABBOTT":4640sCT$"MAY 1979":4640| :CT$"A VERY GOOD GAME OF CHECKERS":4640CT$"TO PLAY WITH YOUR APPLE":4640    PAUSE ROUTINE.21:" :4CN1,5(7DN)1(COCN:DODN:TTNSZ(16287):Z127Č198:I1100:I:Z(16384):Z127Ĺ16368,0:C1:198:64030CC((0)4)C((CC8(CC8))8)D((0)32) INITIALIZE.CT$(40):4634)2Ġ1:I,I1J:I,I1J2AX S(X,Y)2Ġ12:I,I1J:I,I1J2gb S(X,Y)0Ġ15:J,J2I:J,J2I1pl X,Yvv 16368,0CO0:DO7:T04500CNC:DNDCOCNDODN4100T:4CO1,5(7DO)1TN4CN1,5(7DN)1)6S(X,Y)2Ġ1:I,I1J:I,I1J2G S(X,Y)2Ġ12:I,I1J:I,I1J2m S(X,Y)0Ġ15:J,J2I:J,J2I1v X,Y Y712& X1720 I4X1:J5(7Y)1: S(X,Y)1Ġ1:J,J2I:J,J2I1D S(X,Y)1Ġ12:J,J2I:J,J2I1N S(X,Y0YII4X4308)X,X3Y4 X,Y,ICI53910P YII4^*X0308k4X,X3Yv>X,Y,I|H Y602 X062 I4X1:J5(7Y)1 S(X,Y)1Ġ1:J,J2I:J,J2I1 S(X,Y)1Ġ12:J,J2I:J,J2I1   "+TO ";:4000:A1C:B1D:A10B101810; A1;",";B1g S(A1,B1)0(A1A)2(B1B)21802EA:HB:AA1:BB1:II15:1750B7S(A,B)2&230XI180:J1I:J:Z(16336):Ib::"YOU WIN!"l15I0391"THAT'S AN EMPTY SQUARE, TRY AGAIN":198:1595LT" TO ";:4000:AC:BD^^A0B01580jhA;","BvXA:YBS(X,Y)0(AE)2(AE)(BH)1700198:1620I46S(A,B)S(E,H):S(E,H)0:(EA)21810S((EA)2,(HB)2)0,3000:15900ZUXA:VYB:U0U7V0V71400TdS(U,V)0S(XA2,YB2)0İ910Zxd,3000z6::"YOUR MOVE?";"FROM ";@4000:EC:HD:E0H0ī1580EE;",";HJXE:YH:S(X,Y)0ĺ"PLAY YOUR OWN PIECES!":198:15950OS(X,Y)04))S(R(1),R(2))@S(R(1),R(2))0:(R(1)R(3))2İ3000:1590e2S((R(1)R(3))2,(R(2)R(4))2)0<XR(3):YR(4):S(X,Y)1B2:A224:1370FS(X,Y)2āA224:B224:1370BPA:R(0)99ĺ" TO ";R(3);",";R(4);:R(0)99:1240 UG71080>S(UC,VG)0(S(UC,VG)0(UCXVGY))QQ2p8C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VzLQ0:tR(0)991880:"I MOVE FROM ";R(1);",";R(2);" TO ";R(3);",";R(4);:R(0)99R(4)0S(R(3),R(4))2:1310S(R(3),R(İ910:870 S(U,V)0870A UUA:VVB:U0V0U7V7870T RS(U,V)0İ910Z fs V0S(X,Y)1QQ2 (YV)2QQ5 Y7QQ2 Y0U7QQ1 C112:UC0UC0VG01080 S(UC,VG)0QQ1:1080 UC0UC7V000:3000/ "DO YOU WANT TO MOVE FIRST? ";A$E (A$,1)"Y"1590f X07:Y07:S(X,Y)1350 6S(X,Y)1āA112:BG:650:A JS(X,Y)2āA112:B112:650:B,A ^Y,X:3000:1140 UXA:VYB:U0U7V0V7870 S(U,V)0ENTERED THE BEGINNING OF AN":"INCORRECT MOVE, PRESS ANY KEY TO CLEAR."f F:"HIT 'RETURN'";A$:936 PR(4),S(7,7):G1:R(0)99 Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 xX07:Y07:J:J15170 S(X,Y)J:175 :S(X,Y) Y,X 2R YOUR MOVE."0 ("REPEAT FOR THE 'TO' SQUARE. ^ -"THE MOVE COORDINATES WILL BE DISPLAYED" 2"AT THE BOTTOM OF THE SCREEN." 7:"THE COMPUTER WILL TYPE '+TO' WHEN YOU" <"HAVE ANOTHER JUMP. PRESS ANY KEY IF YOU":"CANNOT JUMP."G A:"IF YOU *******************************"7 I12000:I:936` :"THIS IS THE GAME OF CHECKERS.": "THE COMPUTER IS GREEN, AND YOU ARE RED." :"TO MOVE, MOVE THE CURSER TO THE 'FROM'" "SQUARE USING PDL(0). PRESS PDL(0)" #"SWITCH TO REGISTEL  CONTRIBUTED BY WM.R.DIAL*4600=34,0:936:8" **************************************":" * *" " * CHECKERS *" " * *":" *******     Π]ԠQή]e]ΠϠŠŠƠΠϠҠŠƠӮ ]F]ԠĮԮҠӠŮ]M]͠ĠàŮ)r`.?6@r$|t`.?6@r$pv]̠ĠŮxd6?eM6[zd6?eK_x |\zo "~P a(ŠĠ)Q]ԠҠŮP;@ra@ a()[]ĠԠ)\$`@p(٠ΠҮ)\b@p(٠)\d]0fc@p(ĠŠŠΠŠ)\h@p(Ơՠ)\j]l]ŠŮ$noa(ӠŠçϠ)1poa(ӠŠŠҠϠҠŠ)\p_x)UVWfijkM6YAa(ՠĠҠנĠΠŠ)UVW M6YUVWY_x_|X]ɇŮZN@"(r\z\]ŠŠŮ!^o@p(ϱ`%q!|`'$`$0`$`$`$`$Y&`$`'$_-`$`$`$_`$_`$_ q)a(Ū)FE(m'n'#q/?"rq/?rq UVWfq"lmnlm&n\ ,f\6q.?6@rd6?e;`$|$@`1$J`2$T`3$^Jq_hTq_h^q_h hf\!r`%qŠΠӠٮ)cda(Ҡ̠ƠҠź)a(ŠР)a(ŠԠ)a(ŠΠ)5cca(͠٠ΠҠҠ)c]Š\p[M6f*ij'kij'k'lM6Y[Poa(ҭԠ)c+a(ŠԠƠӠŠӠϠ)"a(ҠŠĠנٮ)a(ԠΠŠŠ)c,a(šŠĠŠРϠ)+a(٠ӠΠҠȠϠٮ)+a(Ҡ٠/ 2\X dqn\ xL\_6ijklmnlmn[ qfghghHqghghfghgh`$[AUVWq/?r q/?$rf gh     USE OF MEMBERS../ V/ LAST MOD.SEPT 1979 FOR CONVENTIONS UPDATE./ PROGRAM CLASSIFIED - PUBLIC DOMAIN -/ / ' SNOW RACER ' /AL END ROUTINE.'/16368,0:936:>/16298,0::12032M/12034:10o/10:"* * * THE END * * *":/ PRINT CENTER ROUTINE. /20(CT$)2 /CT$/""// / GIVEN TO APPLE CORE OF SAN FRANCISCO FOR . 1.:CT$"YOU ARE A RACER SKIING":12040L.CT$"DOWN HILL":12040U. l. PAUSE ROUTINE..21:" PRESS THE 'ESC' TO END".22:"< PRESS THE SPACE BAR TO CONTINUE...>".(16384)15512036.(16384)16012024. SPECI0) TO CONTROL THE RACER'S POSITION."Y'::"HIT RETURN KEY TO START THE RACE";A$:1000m. INITIALIZE..CT$(40):12034. TITLE PAGE ROUTINE..3:CT$"* SNOW RACER *":12040.CT$"BY PEL WHITING":12040.CT$"JANUARY 1979":12040:A$"Y"ī1000T$:':"OBJECT: TO SKI THE FACELESS RACER DOWN-":"HILL THRU THE 10 SLALOM GATES HE WILL":"ENCOUNTER, PLACING THE RACER AS CLOSE"$t'"TO THE CORRECT (GREEN) SIDE OF THE GATE":"WITHOUT HOOKING A GATE OR MISSING IT.":"USE PADDLE (10,L12Y:SKI:L4,L5Y:L7,L8YC#I19ĠPOL:L1,Y:L11,YZ#Y39::I15000:#21:::I14:" >>>>>>>>>> W I P E O U T <<<<<<<<<< ":: $I13000:"$::"AFTER YOU PICK YOURSELF OUT OF THE SNOW WILL YOU RACE AGAIN?(Y OR N)";A$#I9ĠMIT:L1,L2Y:SWT:L4,L8Y:MIT:L10,L11Yi#I9I12ĠPOL:L1,Y:L11,Y:SWT:L4,L8Y#I11I16ĠPOL:L1,Y:L11,Y:SWT:L4,L5Y:L7,L8Y#I15I18ĠPOL:L1,Y:L11,Y:BOT:L4,L5Y:L7,L8Y%#I18ĠPOL:L,L2Y:LL7Y!I18I48ĠSNO:0,39Y-YYI:3 I(# WIPED OUT RACERb*#I039:6:0,39I:~-#I016:6:L,L8YI:2#Y40:L157#:16301,0<#I3901:YYI#I0I8ĠSNO:0,39Y#I8ĠSWT:L1,L2Y:L4,L8Y:L10,L11Y711I16ĠPOL:L1,Y:L11,Y:SWT:L4,L5Y:L7,L8YuI15I18ĠPOL:L1,Y:L11,Y:BOT:L4,L5Y:L7,L8YI18ĠPOL:L,L2Y:L10,L12Y:SKI:L4,L5Y:L7,L8YI19ĠPOL:L1,Y:L11,YI6I8ĠCRS:L6,YI7ĠCRS:L5,4ĠFAC:L6,Y'I5ĠSWT:L3,L9YAI6ĠSWT:L2,L10Y[I7ĠSWT:L1,L11YI8ĠSWT:L1,L2Y:L4,L8Y:L10,L11YI9ĠMIT:L1,L2Y:SWT:L4,L8Y:MIT:L10,L11YI9I12ĠPOL:L1,Y:L11,Y:SWT:L4,L8Y7I::"TOTAL CLEARANCE = ";SUM;" INCHES":::x"DO YOU WANT TO IMPROVE ON THIS RUN?":"(Y OR N)";A$:A$"Y"ī1000~ @ STAND UP RACERJL15TI047:YYI^I0ĠTAS:L6,YhI1ĠCAP:L5,L7YrI1I4ĠFAC:L5,L7Y|I:SUMSUMT(I)::7100_::T(GT)0āI1GT:"CLEARED GATE ";I;" BY ";T(I);" INCHES":"YOU MISSED GATE ";GT1;" BY ";D2;" INCHES.":"YOU ARE AUTOMATICALLY DISQUALIFIED !":::"DO YOU WANT TO RACE AGAIN? (Y OR N) ";A$:A$"Y"ī10000G,G1Y17:" X SCORING ROUTINEN bY3Y9Y15Y21Y27DG(L6):7040 lY6Y12Y18Y24Y30D(L2)(G1):7040 v D5ī7050 D6D1ī9000GTGT1:D0T(GT)D2:GT10ĉ::I1GT:"CLEARED GATE ";I;" BY ";T(I);" INCHES"2Y8Y14Y20Y26Ġ4:Y17,Y18G:1:Y17,Y18G1:z Y5Y11Y17Y23Y29Ġ1:Y17,Y18G:4:Y17,Y18G1:  p ERASE GATES Y1647Y1747ı Y3Y6Y9Y12Y15Y18Y21Y24Y27Y30ī6100  SNO:G,G1Y16:7Y:SKI:L3,Y:L5,YO I11ĠMIT:L1,L2Y:L6,L7Y:SKI:L3,Y:L5,Y}  I0I11I17ĠSKI:L2,L3Y:L5,L6Y  YYI:: I016:SNO:L,L8YI::  GATES Y1747Y1847ı G(39(1)1):G9G9 G30G309 Y16:YYI> I2ĠPOL:L,L2Y:L6,L8Y:SKI:L3,Y:L5,Y} I1I2I6ĠPOL:L1,Y:L7,Y:SKI:L2,L3Y:L5,L6Y I5I9ĠSWT:L1,L3Y:L6,L7Y:CAP:L3,L5Y:I7ĠTAS:L4,Y I9ĠSWT:L1,L7Y I10ĠSWT:L1,L2Y:L6,L13:MIT9:SNO15:FAC11:BOT4:CRS22 :16302,0K I047:6:0,39I:Y Y0:8000t I047:SNO:0,39I: Y031 3000:7000:6000:5000:4000:I11000: :: DOWNHILL RACER L((0)6.5):L0L0 L31L31 I0  12000(d >>>>> SKI RACER <<<<<>n PROGRAMMED BYRs PEL WHITINGlx FOR THE APPLE COREr}}T(10):"INSTRUCTIONS? (Y OR N)";A$:A$"Y"ī10000 INITIALIZATIONG0:GT0:D0:T0:SUM0" SKI2:POL0:CAP9:TAS4:SWT     ]͠ĠàΠ]]ӭӠQ]@ra@ a()[]]٠Πٮ]e]ΠϠŠŠƠΠϠҠŠƠӮ ]F]ԠĮԮҠӠŮ]MϠ)1oa(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$]̠ĠŮd6?eM6[d6?eK_ \o "P a(ŠĠ)Q]ԠҠŮP;@p(ԠŠ)\@p(٠Π)\@p(٠)\],c@p(ԠŠԠӠ)\+@p(ҠӠȠΠ)\@p(ҠŮ)\]ŠŮ$oa(ӠŠçTdede0dededededed ed e_Yd ed ed ededededeLdedede`[]ɇŮN@"(r\]ŠŠŮ$o)oa(Ӡ)Q q6 UVWdq`6|%q6MoPa()!q/?r2q/?2r"\'Y ,M6|1oPa()6[;\T @q EqJdedeMOQTa()#a(٬٬)GPa()&a(٬٬)GPa()cc.a(̠ŠΠĠРϠŠٮ)`2?r$K_8KM6oa(ٮҠԠӠϠҠ)1oa(ĬŠŠŠԠΠe_=KM6P a()cca(ĬĬ)GPa()#a(ĬŬ)GPa()#a(٬Ŭ)GPa()*a(ԬԬ)GPa()'a(ŬŬ)GPa()*a(ŬŬ)GPY,q׳-r`%q` %qfUVW i jkYqq\'q`6d$5M6a(ՠΠ)FPoa(̠)F`%\`2?rd$K`.?6@r$d6?M$}q_}`o%q.Lqױ-r`%q` %qf1UVW ij kYqq\UVWY,qײ-r`%q` %qf1UVW ijkYqq\UVWq`ײ-rױ-r$_q__`ױ-r$dq_;dq׳-rdײ-r ױ-r`z$iq2_)i`ײ-rױ-r$nq_,n`׳-r$`+$sq _s`$xq _x`ײ-rqײ-rqײ- rqײ-rq׳-rq?<׳- rq׳-rq׳-rq׳-rqױ-rqA`2?r$F_AFL-K`2?r$Pq.?6?r`$_K*Pq/?rq/?rq/?r Uq1ZӮ)$\(\T^-UVWXױ-rq׳-rq׳-rq׳-rqױ-rqױ-rq\2ײ-rqYUVWXײ-rqYױ-rqױ-rqױ-rqױ-rqo7ױ- rqײ-rqײ-rqײ-rqj \ Oױ4rDײ4rD׳4r_dedeM[/KM6o P a(ӠӠԠ)0o Pa(Ԡ٠Π)0oa(̠ŠΠĠΠРϠ)+#oa(ȠΠϠŠŠ     ]ӠQ]ΠϠŠŠƠΠϠҠŠƠӮ ]F]ԠĮԮҠӠŮM]͠ĠàΠ$`.?6@r$]̠ĠŮd6?eM6[d6?eK_ \o "P a(ŠĠ)Q]ԠҠŮP;@ra@ a()[]Ġԇή]eΠ)\@p(Ƞ)\]1c@p(ՠ٠٠ӠȠ)\@p(Š)\]]ŠŮ$oa(ӠŠçϠ)1oa(ӠŠŠҠϠŮ)`.?6@rh g hghgh[Sg h gh g hghg hgh[]|]ɇŮ~N@"(r\]ŠŠŮ$o@p(Ӡ)\@p(٠.LfUV Wi jkijkY*qf\ıq \IJ[gh[g h gh[,g h ghgh[9g h gh g hgh[Fg h gY qY_^ıq/?rIJq/?roP&R@q \ qıIJ[/KM6oa(٠Ơ)FE()+oa(Π)FE(Ԡ)F,o `%a(էŠҡ)Qoa(ՠŠՠΧԠŠҠ)t`$wUVWY wq|_2M6a(̠ՠΠΠŠԠ)`$UVWY q_/M6a(ӠՠŠΠŠԠ)`$UVW UVW\`$` $`$"` $('M6a(Š)FE(ҠԠӠ)F,q6\ @`$^J`$rT_6)^oa(ՠΠՠŠҠ)``$cUVWY cqh_1rŮ)32oa(ƠՠŠҠԠŠǠ)+<a(άՠήƠՠ̠)*Fa(ŠǠҠԬՠŮ)Poqq,S(נ٠ӠϠՠԠϠ٠)' M6#oa(ԠΠϠ̠) N@" r\| KM6 oP a()0o Pa(Ԡ٠Π)2oa(Ӡ͠ӠӮŠ)-a(ӠŠŮƠŠ͠ӠҠ),a(ՠήƠŠ͠ӠҠ) (a(     ΠϠҠŠƠӠٺŠɮ٠]=$]ԠĬԮҠӠŮ.]8]٠ҧBQ@r$bd6?eKM6[:d6?eKM6o @p(ŠĠ)\&]]]٠̠ҠĠ٠ ΠĠ٠ԮήҮ]٠]]q]ΠϠŠŠƠa()a()a()a()a()a()a()a()a() a(ң)Q]ԠҠ&P;@r0a@ :a()D[N]$Xoa(ӠŠçϠ)1boa(ӠŠŠҠϠŮ)l`.?6@r$v`.?6)Ha()Ha()Ha())Ha()Ha()Ha()Ha()Ha()Ha()Ha()H^a()Hha()Hra()H|a()H"a(),a()a()a()6a()a()a()@a()a()a()HJa()HTa()a()%a()!a()a()a()a()Ha()9a()5a()1a()-a())Ha()Ea()Aa()=a()HPa()Za()a()a()da()a()a()na()a()a()Hxa()Ha()a()a()a() a()a()a()(a()2a()<a()HFa()a()a()a()a()a()a()a()a()a()Ha()Ha()a()a()F~a()Da()Aa()>a()H`a()Hja()Hta()H8a()HBa()HLa()HVa()Ha()H$a()H.a()a()a()a()a()a()a()a()a()a()a()a()a()Ha()Ha()Ha()Ea()Da()Ba()@a()Ha()Ga()Fa()Jfa()Ipa()Iza()Ha()IHa()JRa()J\a()E a()F*a()G4a()H>a(a().a()?a()A a()Ca()'a()'a()/a()0a()/a()/)Ga()Fa()-a()+a()*a()Jla()Hva()Ga()LDa()LNa()LXa()Kba()I&a()J0a()K:a()Ha()Ha()Ha()Ha()Na()Ha()Ha(La()La()Ka()Ma()Ja()Ka()La()ң)Cra()E|a()Ha()Ia(Ǡ̠) a()a()("a(ԠҠҠϠȠƠ) ,a()a()E6a(Π٠ϠԠŠҬ)H(ŠγĠԠ)c@c.Ja(ҠΠԠҠŠŠ)cTQ"^]٠Ҡ͠  ha($]Ġ٠ˮΠ$]ĠϠŠƠ$]ŠŠ٠Šɠ$]Ҡ $] M6 a()a() a()a()'a(٠&d\X!n]!x]٠̠Ҡ!]!]͠٠ Π)]!]Ġ٠ԠΠҠ!]ΠҠ!]& d6?eKM6 N@"(r]ҠϠ Р%(@p(٠̠)\&2@p(٠ )\&$<@p(Ġ٠Ԯή)\&F@p(Ƞ)\&*Pc@p(ӠŠƠ)\&!Z@p(ȠӠ̮)\          136 * (206) 932 6588 * } MILEAGE MINDER BY DAVID B GARSON D ":10160:8:" DAVID B GARSON ":10160:I12500:::]'8:I124:" ";::: MILEAGE MINDER DISTRIBUTED BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE % 6708 39TH AVENUE SW SEATTLE WA. 98 M Y G":16:"U";:40:"E";@'17:"N":18:"D"'50,63:::10:" ":10:" P R E S E N T S ":10:" "'I12000:B':8:10160:8:" MILEAGE MINDER ":10160:8:" BY P`'"A P P L E":2:"P U R I X"j'3:"P G O B C":4:"L E G R H"t'5:"E T R A A":14:"S A R N"*~'15:"O 3:" "B.'" ";:9:" ";:17:" ";:25:" ";:33:" "{8'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "V'50,255:G((CPG1000))10007 10:"COST PER GALLON: $";CPGc 15:"PRESS RETURN KEY TO GO ON";:676m 3000w'::'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:3GCCPGc G((G100))1009f 10:"GALLONS: ";15);Ge 15:"PRESS RETURN KEY TO GO ON";:676k  :"COST PER GALLON FROM TOTAL COST DIVIDED BY GALLONS" C0:G0:CPG0 5:"TOTAL COST ? $ ";C 7:"GALLONS ? ";G CPGCG CP GAL((GAL100))1002 12:"GALLONS = ";GAL: :b "PRESS RETURN KEY TO GO ON";:676l 3000H :"GALLONS FROM TOTAL COST DIVIDED BY COST PER GALLON"M C0:CPG0:G0R 5:"TOTAL COST ? $ ";C\ 7:"COST PER GALLON ? $ ";CPGa N FROM TOTAL COST DIVIDED BY GALLONS"L "4 - RETURN TO MAIN MENU"r& 14:" COMMAND BY NUMBER ? ";:S$~0 S(S$): S1S43000D S3300,3400,3500,140,:3000  "LITERS TO GALLONS" 6:"LITERS? ";L GAL0 GALL.2641:"*** NO SUCH DATA FILE ***"::Q11500::250J MX PRINT SUBROUTINEQ1Z790a0g m  "COMPUTATION MODE": "1 - LITERS TO GALLONS" "2 - GALLONS FROM TOTAL COST DIVIDED BY COST PER GALLON"- "3 - COST PER GALLO$(((P$,1,QDP1))((".000",DP1)"5"))@`P$(P$,1,QDP)`j(P$)(LE)P$" "P$:1130tQ1(P$):(P$,Q,1)"."WQ~W(P$)P(P$):1040((P$,W1,(P$)))DPP(P$):1040E(222)0E5ĺD$;"DELETE ";T$:23:: R$:P$(P)9Q1(P$):(P$,Q,1)"."Ăc$(P$)1QP$P$(".000",DP1):1130.Q1(P$)DP1P$P$("000",DP1):11308((P$,Q1,(P$)))DP1130B((P$,Q1,(P$)))DPP$P$"0":1080L((P$,QDP1,1))51120,VPL)D(1))(TGG(1)):1040:P$$:6(R$)52050qLNĺ"PRESS THE RETURN KEY FOR COMMAND MODE";:676:"HIT RETURN TO CONTINUE":1030:840Q((R)):R0R1Q1BQ);R;:Q13000:Q:20::" "zPRPRC(J)TPG(J):28:LE4:DP1:1040:P$;:34:P(M$(J)):LE5:DP2:1040:P$cTGTGG(J)i::"TOTALS:";::11:LE7:DP1:PD(L)D(1):1040:P$;20:LE5:DP1:PPRL:1040:P$;28:LE4:DP1:PTGL:1040:P$;:34:LE5:DP2:P(D(830-*R(D(J)D(J1))G(J):T0R99999R0<4M$(J)(R)L>:K17:L0gHKK18:LL18:LNLNR:" DATE ODOMETER COST GALLONS MPG"\TG0:PR0f:JKL:D$(J);:PD(J):11:LE7:DP1:1040:P$;pPC(J):20:LE5:DP1:1040:P$; " K1:LN(D$;"WRITE ";T$;",R";0/L:JKLUD$;"WRITE ";T$;",R";JrD$(J):D(J):C(J):G(J)xZTID$;"CLOSE ";T$ N1Ģ20::"*** NOT ENOUGH DATA ***":1020: M$(1)"0":J2N:G(J)0G(J1)0M$(J)"0":LEASE RE-ENTER ***"::Q11500::4704XR$"F"ıObR$"Y"R$(13)420Xl470vN1Ģ20::"*** NO DATA TO WRITE ***":1020::"NAME FOR FILE ";:T$""660"(DEFAULT=";T$;") ";S$:KNS$""T$S$D$;"OPEN ";T$;",L50OST:";27);C(N):14:"GALLONS:";27);G(N)6 N1560_ P(D(N)D(N1))G(N):LE5:DP2:1040} &:18::"MPG:";27);P$: 018:10::" - IS INPUT OK ? -":: :20:"(Y=YES, N=NO, F=YES AND FINISHED) ? ";:R$ D&NR$"N"NN1:23::"*** PR$. 11:"ODOMETER ? ";R:R0R999999480d D(N)R:12:"COST PER GALLON ? ";R:R0R500490 C(N)R:13:"# GALLONS ? ";R:R0R9999490 G(N)R:10:958:3:"INPUT DATE: ";27);D$(N)) 3:"CHECK ODOMETER:";27);D(N):17:"C NNUM 216,0: L :"ENTER THE FOLLOWING DATA AS REQUESTED:"m 5:" - DATE (E.G. 1/30/78)" " - ODOMETER READING (MILES)" " - COST PER GALLON (CENTS)" " - # GALLONS BOUGHT" NN1:10:958:"DATE ? ";R$:R$(R$,8):D$(N) 17:9585 :"NAME OF THE FILE TO LOAD ? ";T$W "T$""ė:D$;"CATALOG"::280h ,T$"STOP"ı 6D$;"OPEN ";T$;",L50" @D$;"READ ";T$;",R0" JNUM TJ1NUM ^D$;"READ ";T$;",R";J hD$(J),D(J),C(J),G(J) r |D$;"CLOSE ";T$- DISPLAY MILEAGE DATA":"5 - PRINT MILEAGE DATA"M "6 - COMPUTATION MODE"i "7 - TERMINATE PROGRAMw 14:958 15:"COMMAND BY NUMBER ? ";:R$ R$ (R$)1(R$)7200 R(R$) R260,410,630,790,2000,3000,1010:140 1190 2110!d:16298,0:10000-nD$(4)<xN0:MR100aD$(MR),D(MR),G(MR),M$(MR),C(MR):10:"MILEAGE MINDER":::"COMMANDS:":"1 - READ DATA FROM DISK""2 - INPUT DATA FROM KEYBOARD""3 - WRITE DATA TO DISK"1 "4                ˠ PG K(LOCK U(NLOCK N(EW D(ELETE E(XIT ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ؅D$% 0 +DE ` A PCL~@E^E_EZE[` 2 B A PC @`6798 `H|C h|C``2D3DEEiEiA)m3D3D +D 4D +D) 4Dm2D2Dm3D3Dة$eeELCؠ C82D2D3D3Dؠ 3D$C >B$E  ``L#BH$%  hWB\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\E  EmEB&BBNBmBJnBmBeeE` 8EEPEE &B B00   5DEEE B ALT@ BG A CL~@Ъ2'EE &B B B" yD$ >B B A C }CL~@ :L@% E E >B yD AE/5 >Bs r ; >Ba ` `$$(@ @_E%E^EZE[E̍^ZE_[ 0E^ D C1  }CE)ȹE)ȹE) 5D E Bɠ 0   5DL@ M  EТ E XELiLLT@ E &B B B E A EL@ E!!!!!!!!+  :#D$"":D$;"BRUN CAT")SD! ! T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m""" " " " " """""""""!!! ! ! !