' +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*`"FACE","SHORTS","FOOT-STEPS","ADDING MACHINE"S ***** B DATA ***** "FLY IN ","RUN IN ","INFEST ","SLEEP IN ","DIE IN ","GOO-GOO IN ","FOLLOW IN ","GLUE TO ","TICKLE ","SMELL IN ","LUST IN ","BURP IN " ***** C DATA *****-  "ARM PITS","HAIR","NOSE","HOUSE","CARPETS","CAR","BED",$(C,3) J ::::"WANT ANOTHER GREETING ? (Y OR N)";Y$:Y$"Y"70[ Y$"N"180a } ***** A DATA ****** "FLEAS","MONKEYS","TOADS","SNAKES","MOSQUITOS","BUZZARDS","DEAD CATS","SEPTIC TANKS","IN-LAWS","TURKEYS","BATS","ELEPHANTS" nA112:S$(A,1):A+ xA(12(1)1)C B112:S$(B,2):BV B(12(1)1)n C111:S$(C,3):C C(10(1)1) "GREETINGS TO THE I.R.S. FROM AN ANONYMOUS TAX PAYER !! " :::"*** MAY A THOUSAND ";S$(A,1);" ";S$(B,2);" YOUR ";S.# 8)"*****************"?8)"* GREETINGS *"[8)"* BY AL LAST *"w(8)"* CS-28 *"28)"* 5/5/80 *"<8)"*****************"FX11500:X:::::P12)"*** GREETINGS ***"Z:: dS$(20,10)AME WORDS(Y/N)?";Y$#Y$"Y"2208936:Y$"N"60f"COME ON NOW---JUST A Y OR N.";Y$::940y936:"END":BASIC COMPUTER GAMES. PAGE:110DTHAT WILL ALLOW MY HUSBAND TO SLEEP"TxB$(4)" AND WON'T MAKE HIS ";C$(10)" SORE."|::25:"YOURS ";B$(5)",":25:F$" "G$900ASK IF DIFFERNT STORY WANTED"WANT ANOTHER STORY (Y/N) ?";Y$Y$"N"990:"DO YOU WANT THE S"S IN THEM MAKE HIS ";C$(3)Hl"ACHE. WHEN THE BED ARRIVED MY HUSBAND"tn"TESTED IT ";B$(2)" AND SAID THAT THE"pA$(8)" ";C$(5)" WAS BENT AND KEPT"r"PRESSING INTO HIS ";C$(6)". I WOULD LIKE"t"TO EXCHANGE THIS ";A$(9)" BED FOR ONE"$v"0)".":900W900"X936:3]"DEAR SIRS"cb"LAST WEEK I PURCHASED A ";A$(2)" CONTOUR"d"WATER BED IN YOUR STORE. I GOT IT FOR MY"fA$(4)" HUSBAND WHO SLEEPS VERY ";B$(1)h"AND SAYS THAT ";A$(6)" WATER BEDS THAT"j"HAVE ";C$(1)LL, WHEN THE ";A$(8)" SERGEANT":"CALLS YOUR NAME. SHOUT ";J$" LOUD AND CLEAR."+"YOU WILL BECOME FAMILILAR WITH WEPONS":"LIKE THE .30 CALIBRE ";C$(8)" AND"0"THE AUTOMATIC "C$(9)". FOLLOW THIS":"ADVICE AND YOU MAY WIN THE ";A$(7)" CONDUCT ";C$(1AYS SAY ";C$(4)" AND SAY IT":B$(5)". IF YOU GET A ";A$(9)" HAIRCUT,""KEEP YOUR ";C$(6)"S SHINED, AND SEE":"THAT YOUR ";C$(6)" IS CLEAN AT ALL TIMES,"!"YOU WILL BE A CREDIT TO THE SLOGIN":" THE ARMY BUILDS BETTER ";C$(7)"S!"O&"AT ROLL CAOME A ";A$(10)" SOLDIER."e "THE ARMY IS MADE UP OF OFFICERS,":"NOM-COMS, AND ";C$(1)"S. YOU CAN""RECONIZE AN OFFICER BY THE ";C$(2)" ON""HIS SHOULDERS AND THE FUNNY-LOOKING "C$(3)"S ON HIS CAP. WHEN YOU ADDRESS AN"E"OFFICER, ALWOF ";I$"."^"TEX SAID, 'I HATED TO DO IT BUT HE WAS":"ON THE WRONG SIDE OF THE "C$(10)"."g900t936:5"*** A STORY ABOUT THE ARMY ***""IF YOU PLAN ON JOINING THE ARMY, HERE":"ARE SOME ";A$(11)" HINTS THAT WILL HELP""YOU BECBUT":"BEFORE HE COULD GET IT OUT OF HIS ";C$(5)"THE KID FIRED, HITTING TEX IN THE ";C$(6):"AND THE ";C$(7)". AS TEX FELL HE PULLED""OUT HIS OWN ";C$(8)" AND SHOT THE KID":(50(1)3)" TIMES IN THE ";C$(9)"." "THE KID DROPPED IN A POOL UBLE. HE KNEW"{"THAT HIS ";A$(1)" ENEMY, "E$" THE KID":"WAS IN TOWN. THE KID WAS IN LOVE WITH":"TEX'S HORSE, ";F$".""SUDDENLY THE KID CAME OUT OF THE ";A$(7):"NUGGET SALOON. 'DRAW TEX', HE YELLED "B$(3)"."0"TEX REACHED FOR HIS ";C$(4)", SEEN"4N"IT WAS CARRING A ";C$(5)" IN ITS MOUTH."ZP"A ";A$(11)" REWARD IS OFFERED."c900q936:10"AN ADULT WESTERN"::"TEX ";G$", THE MARSHALL OF ";D$" CITY""RODE INTO TOWN. HE SAT ";B$(2)" IN THE":"SADDLE, READY FOR TRO$(7)" ";C$(3)".":?"WE WILL CONSIDER TAKING A SLIGHTLY"Y@"USED ";C$(4)" IN TRADE."aB:J"LOST IN THE VECINITY OF ";H$", A ":A$(8)" FRENCH POODLE WITH "A$(9)" HAIR AND A"LA$(10)" TAIL. IT WILL ANSWERE TO THE":"NAME OF ";F$". WHEN LAST ) 8"FORMELY OWNED BY A ";A$(3)" SCHOOL"V :"TEACHER WHO ALWAYS DROVE IT ";B$(1)"." <"THERE IS A ";A$(4)" ";C$(1)" IN THE BACK SEAT.":"IT HAS A CHROME ";C$(2)" ON THE HOOD">"A ";A$(5)" PAINT JOB, ";A$(6)" TIRES":"AND THE BACK OPENS INTO A ";AHICH ONE (1, 2, 3, OR 4)";N, N0N5270W :"COME ON NOW---1, 2, 3, 4 ?";N:250t 936:N300,400,500,600 ,::5 ."THE HAMMOND DAILY CLASSIFIEDS" 1: 6"FOR SALE: 1978 SEDAN. THIS ";A$(1):"CAR IS IN A ";A$(2)" CONDITION. IT WAS"WORD ";J$ 936:11:14, "VERY GOOD"4 :e "WOULD YOU LIKE A NEWSPAPER AD.........1": "A WESTERN.............................2": "A STORY ABOUT THE ARMY................3": "OR A TALE ABOUT A WATERBED............4": "W I110:C$(I):I@ :"HOW ABOUT TWO FIRST NAMES OF MEN":H D$P E$v :"THE FIRST NAME OF A GIRL ";F$ :"AND SOMEONE'S LAST NAME ";G$ :"A GEOGRAPHICAL LOCATION ";H$ :"A LIQUID ";I$ :"AND FINALLY, AN EXCLAMATORY"::"F F"ADJECTIVES MODIFY A NOUN, E.G., RED,"::"DIRTY, LARGE, ETC."^ P:I111:A$(I):I U:"NOW I NEED 5 ADVERBS. THEY MODIFY VERBS"::"AND END IN 'LY' (SLOWLY, GREEDILY, ETC.)" nI15:B$(I):I x:"OK, NOW 10 NOUNS, (BALL, BAT, ETC,) 93611:12."*** MAD-LIB ***"? D12000:DXA$(11),B$(5),C$(10)`23"O.K. WE'RE GOING TO WRITE SOME MAD-LIB": "STORIES TOGETHER. YOU SUPPLY THE WORDS, """I SUPPLY THE PLOT." <:"FIRST I NEED 11 ADJECTIVES.":     "PLEASE LEAVE MY FEE ON THE KEYBOARD.":X13000:X:"DID YOU LEAVE THE MONEY?":I$:(I$,1)"N"5000# "YOU ARE HAVING DELUSIONS. YOU NEED "# "ANOTHER SESSION. GOODBYE.": 6000#"THAT'S A VERY SANE ANSWER. YOU'RE CURED. GOODBYE."#p"RUNM"ORATE ON THAT?"2"~ "THAT IS QUITE INTERESTING."f" 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3" 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9" 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4" 80,3,83,7,90,3,93,6,99,7,106,6f# T IS IT ABOUT MACHINES THAT WORRIES YOU?"^!B "DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"!L "WHAT DOES THAT SUGGEST TO YOU?"!V "I SEE."!` "I'M NOT SURE I UNDERSTAND YOU FULLY."!j "COME COME ELUCIDATE YOUR THOUGHTS.""t "CAN YOU ELABU?"3  "ARE YOU TALKING ABOUT ME IN PARTICULAR?"[  "ARE YOU FRIGHTENED BY MACHINES?"  "WHY DO YOU MENTION COMPUTERS?" $ "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" . "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?")!8 "WHATHE TOPIC OF FRIENDS?"9 "DO YOUR FRIENDS WORRY YOU?"^ "DO YOUR FRIENDS PICK ON YOU?" "ARE YOU SURE YOU HAVE ANY FRIENDS?" "DO YOU IMPOSE ON YOUR FRIENDS?" "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."  "DO COMPUTERS WORRY YO",z "WHAT OTHER CONNECTIONS DO YOU SEE?"[ "COULD THERE REALLY BE SOME CONNECTION?"h "HOW?" "YOU SEEM QUITE POSITIVE." "ARE YOU SURE?" "I SEE. PLEASE GO ON." "I UNDERSTAND. PLEASE CONTINUE." "WHY DO YOU BRING UP "* "WHAT ARE YOU THINKING OF?":4 "REALLY, ALWAYS?"Z> "DO YOU REALLY THINK SO?"|H "BUT YOU ARE NOT SURE YOU*"R "DO YOU DOUBT YOU*"\ "IN WHAT WAY?"f "WHAT RESEMBLANCE DO YOU SEE?"p "WHAT DOES THE SIMILARITY SUGGEST TO YOU?E YOU SAYING NO JUST TO BE NEGATIVE?"K "YOU ARE BEING A BIT NEGATIVE."\ "WHY NOT?"r "ARE YOU SURE?" "WHY NO?" "WHY ARE YOU CONCERNED ABOUT MY*" "WHAT ABOUT YOUR OWN*""CAN YOU THINK OF A SPECIFIC EXAMPLE?"  "WHEN?"EAMS?"0 "ARE YOU DISTURBED BY YOUR DREAMS?"[ "HELLO...PLEASE STATE YOUR PROBLEM." "YOU DON'T SEEM QUITE CERTAIN." "WHY THE UNCERTAIN TONE?" "CAN'T YOU BE MORE POSITIVE?" "YOU AREN'T SURE?" "DON'T YOU KNOW?"% "ARLEASE DON'T APOLOGIZE."<N "APOLOGIES ARE NOT NECESSARY."rX "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"b "DON'T BE SO DEFENSIVE!"l "WHAT DOES THAT DREAM SUGGEST TO YOU?"v "DO YOU DREAM OFTEN?" "WHAT PERSONS APPEAR IN YOUR DR "NAMES DON'T INTEREST ME."M "I DON'T CARE ABOUT NAMES--PLEASE GO ON."n "IS THAT THE REAL REASON?"& "DON'T ANY OTHER REASONS COME TO MIND?"0 "DOES THAT REASON EXPLAIN ANYTHING ELSE?": "WHAT OTHER REASONS MIGHT THERE BE?"D "P "WHAT DO YOU THINK?"F "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"w "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" "HAVE YOU ASKED ANYONE ELSE?" "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"MEAN TO YOU IF YOU GOT*"1 "WHY DO YOU WANT*"O "SUPPOSE YOU SOON GOT*"n "WHAT IF YOU NEVER GOT*" "I SOMETIMES ALSO WANT*" "WHY DO YOU ASK?""DOES THAT QUESTION INTEREST YOU?" "WHAT ANSWER WOULD PLEASE YOU THE MOST?" COME TO ME BECAUSE YOU ARE*"=@ "HOW LONG HAVE YOU BEEN*"gJ"DO YOU BELIEVE IT IS NORMAL TO BE*"T"DO YOU ENJOY BEING*"^"WE WERE DISCUSSING YOU--NOT ME."h"OH,I*"r "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"|"WHAT WOULD IT "WHY CAN'T YOU*"K "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*"r"WOULD YOU PREFER IF I WERE NOT*" "PERHAPS IN YOUR FANTASIES I AM*""HOW DO YOU KNOW YOU CAN'T*"" "HAVE YOU TRIED?", "PERHAPS YOU CAN NOW*"6 "DID YOUROUBLE YOU?"5"TELL ME MORE ABOUT SUCH FEELINGS."O"DO YOU OFTEN FEEL*"l"DO YOU ENJOY FEELING*" "DO YOU REALLY BELIEVE I DON'T*""PERHAPS IN GOOD TIME I WILL*" "DO YOU WANT ME TO*" "DO YOU THINK YOU SHOULD BE ABLE TO*"Z "WHAT MAKES YOU THINK I AM*"Ld "DOES IT PLEASE YOU TO BELIEVE I AM*"rn "PERHAPS YOU WOULD LIKE TO BE*"x "DO YOU SOMETIMES WISH YOU WERE*" "DON'T YOU REALLY*" "WHY DON'T YOU*" "DO YOU WISH TO BE ABLE TO*" "DOES THAT TR ","MY "F " IVE "," YOUVE "," IM "," YOURE "," ME ", " HUMANS "k2"DON'T YOU BELIEVE THAT I CAN*"< "PERHAPS YOU'LD LIKE TO BE ABLE TO*"F"YOU WANT ME TO BE ABLE TO*"P"PERHAPS YOU DON'T WANT TO*"U "DO YOU WANT TO BE ABLE TO*" . "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"v8 "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE"B " NO","YOUR ","ALWAYS","THINK","ALIKE","YES","FRIEND"L "COMPUTER","XXX"  " ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUK): F$:X5bR%(K)R%(K)1:R%(K)N%(K)R%(K)S%(K)Xl(F$,1)"*" F$:P$I$:200ov (F$,(F$)1);C$P$I$: 200 "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL"$ "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM ";S$)1)LL(R$)5404L(R$)(C$)540O(C$,L,(R$))R$540yC$(C$,L1)S$(C$,(C$)L(R$)1)LL(S$)L&X+(C$,2,1)" " C$(C$,(C$)1)N: X1 N1%N2%: Z$: X: 15: 12,1318: 22,2318 XX1R%(514:KmS%0KS%:LT:420-rK36:590]:X1N1%:Z$:X: 0: 12,1318: 22,2318~C$" "(I$,(I$)(F$)L1)X1N2%2 S$,R$L2(C$)1L(S$)(C$)510(C$,L,(S$))S$510C$(C$,L1)R$(C$,(C$)L(00# ": 15: 12,1318: 22,2318, 'S%0: , K1N1%B 6K$P ;S%0360g @L1(I$)(K$)1 T(I$,L,(K$))K$S%K :TL:F$K$ ^L: 11: 10,1514: 20,2514: 15: 10,1512: 21,2512h 11: 10,1512: 21,2512: 15: 10,1514: 20,2 YOUR PROBLEM?"::= 0: 12,1318: 22,2318:"";:I$P I$" "I$" "V \ n L2 (I$) (I$,L,1)"'"I$(I$,L1)(I$,(I$)L):230 L4(I$)ĭ(I$,L,4)"SHUT"ī 3000 L I$P$ĺ"PLEASE DON'T REPEAT YOURSELF!":229: 11,2430: 12,2331: 12,2332: 12,2333: 13,2234: 14,2135 7: 11,1416: 21,2416: 11,1417: 21,2417: 12,1318: 22,2318 0: 16,1920: 17,1821: 1: 14,2126: 14,2127 0: 12,1318: 22,2318 "HI! I'M FREUD. WHAT'S5: 4,2216: 4,2217: 4,2218: 4,2219: 4,2220: 4,2221: 4,2322: 4,2423 5,2524: 6,2625: 7,2626: 8,2527: 9,2428: 15,1829 15: 10,1514: 20,2514: 14,2123: 13,2224: 12,2325: 11,2426: 10,2527D 10,2528: 11,24 d S%(36),R%(36),N%(36)3 nN1%36:N2%14:N3%112S x X1 N1%N2%N3%: Z$: Xc X1 N1% S%(X),L:R%(X)S%(X):N%(X)S%(X)L1:X : 11: 15,186: 9,247: 8,258: 7,269: 6,2610: 5,2511: 4,2412: 4,2313: 4,2214Q 4,221 p 1: 3,717: 18,233: 4,520: 10,1417: 18,2310: 11,1420: 18,1914: 12,21: 13,22: 14,23 17,2117: 18,2317: 18,1920: 18,2123: 17,2324: 25,2723: 17,2328 17,2331: 32,3417: 18,2235: 32,3423P""          120120,30180,12045,65195,6560,120, '@ 'B$"CROSS"::3b '120,30120,120:65,60170,60h ' <(B$"TRIANGLE"::3 F(60,120120,30180,12060,120 n( (B$"SQUARE": (60,12060,30180,30180,12060,120 ( 15āI14000:I' X20āI14000:I> X25āI14000:IU X30āI14000:I[ a  "DO YOU WISH TO TRY AGAIN (Y/N) ";Z$ Z$"Y"20 CTTR2000 ' ' ---SUBROUTINE FOR IMAGES--- t'B$"STAR"::3& ~'60,O :24:"SCORE=";100(MICT100);"PERCENT":"PRESS ENTER TO REVIEW ANSWERS"W Z$b ::5 X1CT:"TRIAL #";X:"SYMBOL = ";B$(X):"RESPONSE = ";A$(X); A$(X)B$(X)ĺ" * CORRECT * "  X5āI14000:I X10āI14000:I X YOU ARE SEEING AND TYPE HIS/HER RESPONSE":"(TRIANGLE, SQUARE, CROSS OR STAR)";A$n ^A$"END"CTCT1:2000} h1000:290 A$(CT)A$:B$(CT)B$::24:A$B$ĺ"CORRECT RESPONSE" A$B$MIMI1:"INCORRECT RESPONSE" N1500:::A1180 $290R :24:"TYPE WHAT THE SYMBOL WILL BE":"(SQUARE, TRIANGLE, CROSS OR STAR)"b TR0İ3000j A$} A$"END"2000 "TR0İ3000 ,:24:CTCT1:B(4(1))1:B10100,10200,10300,10400 @:A1āN11000::1000R T"ASK THE SUBJECT WHAT%d::CT0:B$(100),A$(100)x17);"E S P TEST"::::::"PRECOGNITION------------ 1"::"TELEPATHY--------------- 2"A"TO LIMIT RUN TO A SELECTED NUMBER OF TRIALS, ENTER THAT NUMBER.""TO USE 'END' ENTER '0'";TR A2    ;:CF0:1p#'ER(222)-'""a$'ER45ER220ĺ:"ENTRIES OUT OF RANGE!!"::90gt'COPYRIGHT MAY 1979 BY BILL BLUE OK TO COPY PROVIDED THIS NOTICE STAYS INE OF 300""KWHR. IF YOU HAVE ELECTRIC HEAT IN THE":"HOUSE YOU GAIN AN ADDITIONAL 550 KWHR,":"AND 250 KWHR IF YOU HAVE ELECTRIC HOT""WATER. THIS WILL YIELD YOU A MAXIMUM OF":"1040 KWHR ALLOWANCE FOR AN ALL ELECTRIC":"HOME" "C/R TO RUN "HR FOR ANY AMOUNT OVER""YOUR 'LIFELINE' AMOUNT"::"THE LIFELINE AMOUNT IS DETERMINED BY ":"WHAT MAJOR ELECTRICAL UTILITIES YOUR" "HOUSEHOLD USES. A GENERAL HOUSEHOLD":"WITH GAS WTR HEATER AND HOUSEHOLD HEAT":"WOULD HAVE A LIFELINE ALLOWANC"RATE TOTAL, EXCLUDING METER AND SERVICE"g"CHARGES, OF YOUR ELECTRICAL POWER CON-":"SUMPTION.":"IT IS BASED ON THE SAN DIEGO AREA RATES":"OF $0.03932 PER KILO-WATT-HOUR IF YOU""ARE UNDER YOUR 'LIFELINE' ALLOWANCE AND":"$0.05613 PER KW$";! TP(TP100)100,& TP$(TP):TP$;A( TPLN%0:3120W+ LN%(TP)(10)1t0 LN%(TP$)ĺ".00":31505 (TP$)LN%2ĺ"0":3150: N :1010*::"THIS PROGRAM IS USEFUL FOR CALCUALTING":"COST PER ITEM PER MONTH, AND A GENERAL":" KWHRS"$ :"C/R TO CONTINUE";A$o :"YOUR TOTAL POWER CONSUMPTION FOR ITEMS":"LISTED, IS ";KH;" KWHRS" KHLLTPKHUL:3100 KHLLTPLLUL:TPTP(KHLL)OL :"BASED ON THE FIGURES DESCRIBED EARLIER":"YOUR TOTAL FOR THESE ITEMS IS PTP1:".0";"(HM$)TPTP14KH(IC)2045FTP);KH(IC);nTP((KH(IC)(KH(IC)))100.5)100LS((TP)):LS1ĺ".00";LS2ĺ"0";KHKHKH(IC)ICEC130004ICIC1:2030 :"YOUR LIFELINE ALLOWANCE IS ";LL;"KWHRS/MO" X140:"-";:: EC$(IC);:TP22(EC$(IC)):HM$((((HM(IC)100.5)100))):HM(HM$):HN((HM(IC)HM)100.5)100 HMTPTP1 TPTP(HM$) TP);HM(IC); HM$((((KH(IC)100.5)100))): TP11(HM$)((HN)):HNT0":450 PTI1PTĺ"0":4501 PTI2ĺ"0"D :ICIC1:300 :"DO YOU WANT A SUMMARY AND TOTAL ";:1:(A$,1)"Y"2000 :"DO YOU WANT TO START AGAIN ";:1:(A$,1)"Y"Ľ:90  :IC0:KH0 :PT0 "ITEM";15);"HRS/MO";5);C)(HDDM10)10:KH(IC)(WTHM(IC))1000I KH(IC)(KH(IC)100.5)100w :"CONSUMPTION = ";KH(IC);" KWHRS/MONTH" TCKH(IC)UL:TC(TC100.5)100 TP$(TC) PT0 "AT A COST OF $";TP$;:I1(TP$):(TP$,I,1)"."PTI :PT0ĺ".01;" ";:CF0:1:EC$(IC)A$:(EC$(IC))ICECIC:1000F 6(A$)300 @"POWER CONSUMED (WATTS) ";:CF1:1:WT(A$):WT320 T"HOURS PER DAY ";:1:HD(A$):HD0HD24340 h"DAYS PER WEEK ";:1:DW(A$):DW1DW7360 rDM(DW7)30) HM(I WANT TO SUMMARIZE YOUR ENTRIES":"TYPE C/R IN RESPONSE TO 'ITEM'"::x "DO YOU HAVE ELECTRIC HEAT ";:CF1:1:EH$A$ (EH$,1)"Y"LLLL590 "DO YOU HAVE ELECTRIC WATER ";:1:EW$A$ (EW$,1)"Y"LLLL250 "IC06 ,:"ITEM #";IC 90A$Z:3_D$(4):10000VdEC$(100),HM(100),KH(100):CF1unUL.03932:OL.05613:LL300{"******* ELECTRICITY CONSERVATION *******"::"DO YOU WANT INSTRUCTIONS ";:1:(A$,1)"Y"İ5000:F :"WHEN YOU  5, 28, 7, 2, 4, 28, 8, 2, 4, 28, 8N  2, 4, 29, 7, 2, 5, 30, 5, 2, 6, 31, 3}  2, 7, 29, 4, 2, 9, 25, 6, 2, 12, 19, 9  3, 15, 5, 3, 5, 12Z $:6 )" AMERICAN SOFTWARE PUBLISHING COMPANY"< .  3, 14, 1, 12, 1, 12, 3, 16, 1, 8, 3, 12, 3, 18, 1, 5, 4, 12  3, 19, 1, 3, 4, 13, 5, 14, 2, 4, 1, 2, 3, 3, 2, 9  5, 10, 9, 2, 1, 1, 1, 2, 9, 5, 2, 8, 29, 3"  2, 6, 29, 5, 2,  255 ,(1155)Č1184*1000;XP12500:PC:W (4);"CATALOG"]s34,19:35,19::Z034215A039:A,Z:L10:L0:L20:0LOPS:A1LOPSL1L1LL2:LALOPSćL2 BL1L1L1:B,Z:  ; 936 17);"WEEKDAY"M" CREATIVE COMPUTING MORRISTOWN, N.J.W::d"WEEKDAY IS A COMPUTER DEMONSTRATION THATGIVES FACTS ABOUT A DATE OF INTEREST TO YOU."x"ENTER TODAY'S DATE IN THE FORM: 3,24,1978 "; M1,D1A1(A32)59::A;" DEGREES F = ";(10A1.5)10;" DEGREES C"Dm:"ENTER DEWPOINT IN DEGREES F: ";Aw1670::"PRESS ANY KEY TO CONTINUE";:Q$::RF"16301|"ENTER TEMPERATURE IN DEGREES F: ";AA1670:1694A150ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE."::1660A70ĺ:"BRRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE."::1660>ST BE CONVERTED TOONE OF THE ABOVE."::"WHEN YOU HAVE DONE THIS, TYPE 'RUN' AND"j;"PRESS 'RETURN'.":@::"WHICH TEMPERATURE UNITS ARE YOU USING?":J" F = FAHRENHEIT":T" C = CELSIUS":^"(C OR F)? ";Q$:hQ$"C"1700rQ$"OPASCALS":1600M"ENTER BAROMETRIC PRESSURE IN MILLIMETERSOF MERCURY: ";AfA650ĺ:L$::1540A850ĺ:H$::1540"A1A.13332::A;" MILLIMETERS OF MERCURY = ";(10A1.5)10:28:"KILOPASCALS":1600,1600Q6"YOUR PRESSURE UNITS MU460A1200ĺ:H$::1460VA1A.1::A;" MILLIBARS = ";A1;" KILOPASCALS":1600"ENTER BAROMETRIC PRESSURE IN INCHES OF MERCURY: ";AA26ĺ:L$::1500A33ĺ:H$::1500A1A3.3164::A;" INCHES MERCURY = ";(10A1.5)10;" KILn" 3 = MILLIMETERS OF MERCURY":<x" 4 = KILOPASCALS":\" 5 = NONE OF THE ABOVE":y"(1, 2, 3, 4, OR 5) ";QQ1Q5(Q)Qĺ:1420:Q1460,1500,1540,1580,1590"ENTER BAROMETRIC PRESSURE IN MILLIBARS: ";AA800ĺ:L$::1NVERT ANY OF YOUR DATA TO METRIC UNITS? ";Q$A<(Q$,1)"N"ė:qF(Q$,1)"Y"ĺ:"YES OR NO, PLEASE.":1330P:5:"YOUR BAROMETRIC PRESSURE READINGS ARE INWHICH OF THE FOLLOWING UNITS?":Z" 1 = MILLIBARS":d" 2 = INCHES OF MERCURY":" 255:3 *** METRIC CONVERSION SUBROUTINESv::"ONLY METRIC UNITS WILL BE ACCEPTED BY THIS PROGRAM.":"BAROMETRIC PRESSURE IS IN KILOPASCALS.":("TEMPERATURE AND DEWPOINT ARE IN DEGREES CELSIUS."-,2::"DO YOU NEED TO CONE." t~1280*A41A441190@A45A481220J1230"RAIN WITH HIGH WINDS, FOLLOWED WITHIN ONE DAY BY CLEARING, AND IN WINTER, COLDER."1230"CLEARING AND COLDER."::"THANK YOU"::"HAVE A NICE DAY!"LL OR NOT FALL FOR SEVERAL DAYS."+B1140jL"SUMMER: LIGHT TO MODERATE WINDS, GOOD CHANCE OF RAIN."V"WINTER: RAIN OR SNOW, WITH INCREASING WINDS, OFTEN WILL SET IN WHEN THE"`"BAROMETER BEGINS TO FALL AND THE WIND SETS IN FROM THE N OR SING TEMPERATURE."%1280;A42A441070OA46A471040cA41A481100m1140"FAIR WITH SLIGHT TEMPERATURE CHANGES FOR1 TO 2 DAYS."$1140!."GOOD CHANCE OF RAIN WITH WIND INCREASINGIN FORCE. HOWEVER RAIN MAY FA"YOU WILL BE ASKED TO INPUT THESE PLUS"lz"DEWPOINT AND TEMPERATURE."::"THIS FORECAST IS 77% ACCURATE."I11000:I:1300"FAIR. SLIGHT POSSIBILITY OF RAIN IN TWODAYS IF BAROMETER IS RISING RAPIDLY.":"OTHERWISE, FAIR WITH SLIGHTLY RI101.6A2102.6830%A2101.6850/ 12808*950B41250L>1000VH1250`R1160j\1250f:90:"THIS FORECAST INFORMATION DEPENDS ON VARIOUS FACTORS, AMONG THE MAIN FACTORS"'p"ARE BAROMETRIC PRESSURE AND WIND DIREC- TION."::CI140:" ";:I::A8((A3A6)121.92.5)IA80A80"CUMULUS CLOUDS COULD FORM AT":8);A8;" METERS"I14:J110:" ";:J::I16)"FORECAST"I130:J15:A(16336)(16336):J,I:A2102.6810 A2";A6;" DEGREES C":> :5)"BAROMETRIC PRESSURE ";A2;" KPA":d N:"HEIGHT(M) TEMPERATURE( C)" X"--------- ---------------":4 lV1A33.18 vC5003000500 C;19((((V1))(10))).5(1(V1)));(10V1.5)10 V1V13.183THEAST":480 rM$"EAST":4807 M$"SOUTHEAST":480K M$"SOUTH":480c M$"SOUTHWEST":480v M$"WEST":480 M$"NORTHWEST" 90::5:12)"PRESENT WEATHER": 5)"WIND ";M$: 5)"TEMPERATURE ";A3;" DEGREES C": 5)"DEWPOINT E FOLLOWING CODE?":k " N = 1, NE = 2, E = 3, SE = 4,"::" S = 5, SW = 6, W = 7, NW = 8":| :4:"?";A4 ::"WHAT IS THE DEWPOINT IN DEGREES CELSIUS?" A6 A4330,350,370,390,410,430,450,470 JM$"NORTH":480 ^M$"NORREES CELSIUS "; A3s A350ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE.":130 A340ĺ:"BRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE.":130  "WHAT IS THE WIND DIRECTION USING TH(Q$,1)"Y"80; <(Q$,1)"N"ĺ:"YES OR NO, PLEASE.":40C F90L P870Y Z1330:5 d"WHAT IS THE BAROMETRIC PRESSURE IN KILOPASCALS (KPA) "; xA2 zA285ĺ:L$::100 |A2118ĺ:H$::100 ~ "WHAT IS THE TEMPERATURE IN DEG ::10s6)"THE ATECC WEATHER FORCASTER":6:I127:"-";:J15:A(16336)(16336):J,I:I11000:I#:L$"TOO LOW, UNLESS YOU'RE FLYING IN SPACE!":H$"TOO HIGH UNLESS YOU ARE UNDER WATER!"(15:"DO YOU WANT INSTRUCTIONS? ";Q$ 2           FEET FOR HARNESS !LL2= ("MAST H.","DIST","STAY"W 2" ","TO CHAIN PLATE"] <c Fq PA,B,(L)y Z10 _8 LENGHT OF STAYS3 WRITTEN BY BEN REDMONP AND MARY ELLEN REDMONe 30 MARCH 1979 "MAST HEIGHT?";A:"DISTANCE?";B FIGURE HYPOTENEUSE OF TRIANGLE WITH SIDES A,B,AND LL(AABB)  SUBTRACT 2  ӬĠΠŠԠŠ̠Š٠ԠϠŠŠӠƠŠԠҠΠŠԡ̠ӠԮΠҮȠ̠٠ԠŬӮΧӠŠŠӠ٠ŠŠӠŠˠĠϠҠΠŠĠϺҮҮΠˠԠԮƠ̠΍ҠՠɠŬӮҍ٠ӮΠµΠĠǮŭРӠέԠĠӠĠԠǠŠĠŠӠΠӮӠĠ٠ĠϠŠŠҠӠ̠ԠΠǠ٠̠ŠŮ٠ӬӬӬҠӠҠРΠŬƮҠҠؠƠӮƠŠӠŠĠ٠ӠΠŠԠΠӠҠӠ٬ԠӠ׮Š̠ԠĠ̠ӠԠϠԠŠӠҠŠԠƠŠˠĠӠԡŠŠέǠԠҠŠŠҠԠҠĠƠǠӠȠŠ٠ԠŭӠΠˠ͠ΠΩĠǠȠŠĠǠӮŠ٠ҠӠ͠ŠԠȠĠϠŠΠƠŠĠ١ӭŭСԠӠ٠ĠҠ̠ӠĠ̠ӬԠ٠ƠŠӠΠĠ٠Š٠ŠΠ٠ŠƠӭ٠ŠŠĠŠȠӠӠŠĠנȠɠĠĠϠŠĠǠϠˠԡҠҮˠĠɠĠӠƠŠŠ٠٬ŠŠϠŠԠԠӠ٠Š٠ϠŠӠҠԠϠԠũŠϠŠӠȠŠΠĠϠŠĠΠŠͮ٠ӠΠɠԠԠ٠ŠĠӠ٠ǠΠŠŭ̠ŬɠԠԠ̮ŠӠŭРŭРӠ̠ŠŠĠԠӮŠ٠٠ҮҮΠˠԬĠ٠ӮάµήŠŠƠŭРӠϠנӠӠ       ŠàͮŠӠנϠӠԮՠΠŠ٠ŠӮΠӠҠŠȻӠĠŠҠŠήŠƠŠĠΠӠŠӠƠŠҠͮŠàӢŠкŠ̠ήŠҠԠ٠ŠŠӠΠŠƠҠĠ̮ԠӠŠŠΠŠҠȠͮӠĠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠ΍ΠĩŠĠΠ٠ӠĠٮϠԬנŠӠΠŠ̠ΠӠĠĠ­ŠŠǠΠŠŠŠŠŠŠΠĠŠɠŠ̩ȠŭԠàĠƠҠìŠĠԠԠΧԠˡŠ̮ŠŠƠӠŠӠ٠ŠŠӠŠŠĠΠŠŠ̠ԠŠȨЩĠծĠ͠ōŠŠŠŠōЮϮؠΠϬŠΠ٠ӠΩƠՠŠĠϠŠŠŠŠŢӠ    ˠաԧӠ̠ŠŠԠŠΧԠΠŠ٠͠ӠӠԠƠҠǠӮԠΧ٠٠ҠϠŠ͠ΠԠӠϠŠԠġҠŠΠſ٠ŠϠŠ٠ƠӠ̠ΠŠ͠Ӡ͠٭ġՠŠŮϠԠΡŠà٠Ġźɧ͠٬ɠ٠ĠŠӠӠĠϮŠРŠ٠ǠҠŮĠŠǠˠϠӠϠŠΠΠϠЮȠԠŠӍϠŠǠϠȠԠՠήŠӠΠŠĠŠΠΠӠàӠŮɠԠ̠ՠנԠŠȬԠɧ̠ԠՠΧԠӠՠŠΠčҠȠ٠ӠƠŠǠҠҠԮŠŠŠŠŠՠԩĠҠͮӠŠԠҠӮҮϠҠˬŬҠǮԠҠčԮΠΠĠ٠ήĬɠԬĠŠӠҠήŠӠӠǠנԠՠΧԠȠŮԧӠ٠ϠˠԠՠĠԠŠƠӠΠҠӠ٠ŠϠҠĮŠӠӠȠӠӭŮ٠ŠҠϠĠčŠǠŠȠҮƠՠĠƠԠԠŠՠŠŠϠϠΠΠРĠԠ٠͠ŠϠԠӠԬԠԠϠΠŠΠ٠ΠՠϠˠϠԠ̍ӠҠӠҮ٠ĠԠΠĠˠԠŠ͠ՠŠԠϠˠΠŠՠŠ٠ŮԠ̠נŠ̠͠ŮŠΠϠĠōϠȠҠ٠ĠŮȠɠ̠ԠӠȠƠŠŬɠԠҭŠŠĠҠ͠ӠΠҠӮӠԠ٠РŠŠĠԠҠ͠ӠĠ׮ǠӍŠŠ̠ӠԠȠŠӠҠǠנϠͮŠԠŠĠӠàĠŠ̠Ң٠ҠΠԠӠԠҠŠ٠ΠҠŠ        Š͠ȠҠŠӮ̠Ӡŭٍ̠Š΍̠Šč̠Ġԍ̠ԠĠҠҍƠՠĠŠŬĠ͠ΠϠŠŠԠҠϠŠŭЪŠĮԠǠנŠȠǠנŠРǠנŠ͠ǠנŠŠϠϠҠҍŽˠӠҠŠΠŭԮŠŠƠЭԠ̮ˠƠŠӠŠΠΠҠ٠ӠԮźŠŭŠˠ̠ŠԠΠ̩ƠҮˠ̠ŠƠΠ̩ƠҮˠ̠ŠԠƠϮ̽ǽ   ΠǮŠϠԠՠӬĠɠŠϠŠŠϠŠȠŠΠŠŠϠŠŠԮšŠŠϠˠԠŠŠΠŠŠŠĠĠӠҠӡ̠ŠµΡŠ͠ȠӠ٠ҠϠҮԮŠΠӠԬɠ͠ΠϠ٠ŠȠԠԠΠŠǠƠ٠ƠŠԠӬ٠ӭŠӠϠРŠ̠ӠƠӠġĠӠӬŠˬĠ̠ŠҠӠԠŠŠٮŠӠƠ٠ɠȠŠǬǬǬӬٯӬĠԠ٠ƠŠŠ٩ĠŠŠħӠԠԠάĮĬ٬ӠŠŠϠȠԠɠŠ٠ĠȠŠǠӠˠŠϠӠŠϠΠ͠ΠӠ̠ˡĬŠӠԠĠ͠ԠӠϠҠĬ̠ŠͬĠƠŠŠҧӠĠͮŠŠϠŠΠҠҠŠҠ̠ΠҠŠԠĠǠŭҠԩɠ͠ĠϠԠԠԠȠŠŠӡϬɠ٠ŠԠԡҠ͠ΠӠˠŠȠ̠ˠӬҠҠҠĠȠŠ͠ϠĬԠĬӫčԠĮîӠ͠ՠŠԠԠƠĠԠɠϠϠРŠˠĠŠӠ١ɠȠҮȠ̠̠ӠϠԠȠӠԠΠҮȠŠΠŮӠ̠ҠӠ٠ȠҠϡ٠ŠӠ٠ΠµήȠŠӺōŬӮɠԠɠĠŠŠԠǠ͠ΠӠˠϠ        ĠĠŠԠ͠ҠˮРƠ٠ĠŠĬƠũϠŠԠĠӠԠĮˠԠנȠ͠ӠάǠŠ͠ԠӠӠԠŮՠ̠ĠŠ͠ԠӠӠԠŬϬϠԠՠΠԠՠΠՠŠҠήԠӠŠԠŠŠՠĠΠӠˠ٠ŠՠΠҠ٠ǠРҠƧŠ̬٠ŠŠƠӠˮԠӠĠ٠ҠŠԠȠȮŠƠŠӠɠנƠǠŠĠĠӠϠРǠĠӠҠŠàϠšŠŠ̠ӠĠРҠŠŮӠՠŠŠҠȠǬŠ̠ŠΠӬŠĮϠŠŬ̠ՠŠϠϠӠϠԠŠ͠Ġˠ͠ԮƠӬӬĠӠϠ٠͠ĠŠ٠̠Ϡ̠ƠӠϠŠĠΠŭǠŠӠˠŠŠҠՠϠ٠Ġ٠ȮŠƠŠԠӠϠ͠ӠϠŠŠӠƠ͠ĠŠŠӭӮՠ٠ŠԠӠŠΠŬĠΠΠ̠ӠӠƠӠԠΠŠԠ٠Š٠ҠՠϠŠΠ̠ŠǠԠӮŠԠӠӬȬԠ٠ԠŠٮ٠ԠԠԬĠƠԠӠΠ٠ԠΠȠŠ̠ŠӠΠӠӮנϠŠӠˍӠˠӠĠϠΠΠٍŠɠǠŠɫԠӍŠƠǠӮŠӍŠ̠ȠϠԠŠԠƠ٠ӠԠĮƠՠŠԠΠˬΠ    ٠Ӯ$]µ.]8]B]ŬӮL]V]`]Ҫª]B]ŬӮL]V]`]ҠNd6?e_DS]ŠԠ Xd6?ebM6_]]ŠננϠ]Ӡ͠ǿ"]ŠĠŠȠQ]]]]]R@]ĠԠ&a@]ԠԠ +]ӠҠ,]ή0`.?%r$5]ҠנŠϬ-:ca(ŠԠ٠ҠϠ)?]ˠҠҠD`.?6@r$XI]Ϡ_6@p(Ԡנ)_@@p(Ԡ)_"J@p(ԠˠŠ)_T@p(Ԡ)_^@p(Ԡ)_h@p(Ԡ)_r@p(Ԡ)_ M6 @p()a@E(Π)E@a@E(Ġ)E@r9()$T`@*#r9()$^`@*#r9()$h`@*#r9()$r`@*#r9()$;!]̠ǠΠԠƠŠӠ̠ϠǮH"a(٬ŠҠҠ͠Š)UVW Y_ ,@p(Ԡ)c+a(ŠźҠԠŠ))a(Ӡ͠ӮԠŠ)a(ϠŮ)cc"S(ҠΠź)&@`@*#r9()$,`@*#r9()$6`@*#r9()$@`@*#r9()$J`@*#a()2cc<a(Ԡ)Fa(Ԡנ)Pa(Ԡ)!Za(ԠˠŠ)da(Ԡ)na(Ԡ)xa(Ԡ)a(Ԡ)a()c]Ġ͠]٠٠Ƞ]Ġ͠]Ġ٠]ŠƠΠϮ!@p()]̠ĠҠө M6]ҠN@"rN@"rccP a()(P        ǠӮϠϠĠŠǠĠ)+La(ŠŠԠŠԠΠŮ)McN\Pa@E()E@ZQR@`;@r$a@E(Š)E@a@_[ @p() N@"rC@"r%a(Ӡ̠͠נՠ))(a(ŠԠӠΠҠî)-c.UVWY%2a(ŠҠŠŠҠ)<a(Ԡſ)GFR@Ga@E()E@YKa(ŠŠՠԠΠŠ  xd6?e yM6_<a(ԠƠ)a@E(Š)E@Q G]ӠĠ M6 @p() N@"r N@"ra(Š)GR@(a@E(Π)E@2a@E(Ġ)E@<]AR@F`.?r$Pa@Z`.?%r$<da(ŠàϠ)n`.?6@r$xsd6?e_n ɰ$0 $` d'R gɯ; Y ?ɀ> А H >Ii>?Ii> А,L gʆ ɯɰɹ)3} & &ee &}થi @ HIiIi @⩰# 祝.=D5֤4 J :3 g YɯLɠɤ ɓΊ x=    &B&C= 4ݴ ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL㎹ɠ`ޅ3 gʆ ɯY[ Y( Lh:h; G :LhHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8LyLjJ?>ʊ:>Ș;k/=:   S;:L O4 40K14 L= BC D.(ʈ3 g Y ɨH40 ^4Lم O4LHH11`HLiLˏ4Hh uLLLqli h,h-~<,ɓ,ɯL:B/ \`HL_l\@8)I:< ?L<EhH 0l  "THAN THOSE CONTAINED IN THE SUPPLEMENT"8"IS USED."c::"THAT'S IT, FOLK!! NOW, ENJOY..."o29440u''23:7:"PRESS ANY KEY TO CONTINUE ";:A$:: XSH IS USED TO RETURN TO THE"16"SUPPLEMENT.":`>"CONVERT WILL STAY IN THE MODE SET UNTIL"H"ITS COUNTERPART OR A SLASH IS ENTERED."R10000\9"PLEASE NOTE THAT CONTROL IS RETURNED TO""THE MONITOR WHEN ANY FUNCTION OTHER"(FC58":""WOULD BE DISPLAYED."-10000Z:"HEX VALUES ARE CONVERTED BY ENTERINGj:"^H":"THEN THE VALUE TO BE CONVERTED" :"^FC58":"WHICH RESULT IN" :"64400 -936":*"BEING DISPLAYED.":4"THE SLAVALUE -936, YOU WOULD ENTER",:"^T"s:"(THIS IS A NORMAL "(34)"T"(34)", NOT A CTL ";::"T";::")""THEN ON THE NEXT LINE":"^936"::"(MINUS SIGN NOT ALLOWED OR NECESSARY)":"AND THE CONVERTED VALUES":"03A8 "^"(34)", YOU MAY SET THE DECIMAL";H"MODE BY ENTERING"KN:"^T"{X:"FOLLOWED BY THE DECIMAL VALUE YOU WISH"b"TO CONVERT."l10000::"FOR INSTANCE, IF YOU WERE IN THE""SUPPLEMENT AND WISHED TO CONVERT THE""DECIMAL ERSELY, IT WILL CONVERT A DECIMAL"N&"VALUE IN THE RANGE OF 0-65535 TO ITS"x0"HEX AND TWOS COMPLEMENT HEX VALUE."2:"CONVERT IS REACHED FROM THE SUPPLEMENT"4"BY ENTERING A CTL ";::"T";::". ";:"ONCE YOU SEE THE"#D"PROMPT "(34)SED."10000?2:"A NEW FUNCTION HAS BEEN ADDED TO THE"p"SUPPLEMENT -- "(34)"CONVERT"(34)". THIS""ROUTINE WILL CONVERT A HEX VALUE""IN THE RANGE OF 0-$FFFF TO ITS DECIMAL""AND TWOS COMPLEMENT DECIMAL EQUIVALENT."""CONVE MINI-ASSEMBLER BACK TO"3 r1:"THE SUPPLEMENT."9 to |"THE "(34)"TRACE"(34)" FUNCTION ALSO USES THE" "SLASH TO TERMINATE. A CTL ";::"S";::" ENTERED" 1:"WHILE IN THE TRACE MODE WILL CAUSE A"1:"PAUSE UNTIL ANOTHER KEY IS PRES(34)" AND"9 @1:"ALL MONITOR COMMANDS CAN BE ENTERED"k J1:"FROM WITHIN THE SUPPLEMENT, EXCEPT THAT" T1:"THE MINI-ASSEMBLER IS REACHED BY ENTER-" ^1:"ING A CTL ";::"A";::". A SLASH ("(34)"/"(34)") WILL CAUSE" h1:"AN EXIT FROM THIC AND THE REGULAR F8 ROM."N :1:"THE SUPPLEMENT MAY BE ENTERED FROM THE" 1:"MONITOR VIA THE CTL ";::"Y";::" FUNCTION IF YOUR" "1:"HELLO PROGRAM CONTAINS LINES SUCH AS":100110 ,10000 65:"THE SUPPLEMENT'S PROMPT IS A "(34)")"1 "APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"^ 6:4:"THIS PACKAGE MAKES AVAILABLE TO" 1:"APPLESOFT/AUTOSTART ROM USERS THE MINI-" 3:"ASSEMBLER, STEP AND TRACE FUNCTIONS" 3:"PREVIOUSLY ACCESSIBLE ONLY THROUGH" 2:"INTEGER BASCONTROL CHARACTERS DISPLAYED IN INVERSE"X ^:3:"CARRIAGE RETURN REPRESENTED BY " b(4)"BLOAD SUPPLEMENT.X": $8D00.$912F c10000 d29440: HIMEM SET TO $8D00 n1016,76:1017,0:1018,141:SET UP JUMP TO $8D00 AT $3F8 p ::8  :=8:"APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"a2::10:"ORIGINAL ROUTINES BY"|<:13:"STEVE WOZNIAK"F::10:"APAPTED BY & "(34)"CONVERT"(34)P:15:"WRITTEN BY"T:15:"GUIL BANKS"V:X140:".";::( \:1:"     5]Ӡ͠ԠŠĠŠǡˠТM]ӠϠˠТ٠ŠŠS]Ӡ͠٠Ščέ٠ׯϠӊP]ҬԠԠӠԍŠ٠rY[kde.?Jrde.?Krl\pca()mQn\pM62o\g`@:()$ \hde˲de˱ _pdJedKe [q]l]Ԡé٠ŠĠ͠٠ŠӠ_&2gdePM6da@*#rGR@Br[Vhde.?Lrde.?Mr˱q.?Mr8.?Lrr˲q8.?Lrr[=iq.?6@r`$id6?e`%q [;jqUVW;@rq8<@*#rrr 8;@r)G\i#_`$`q8r_\ `dede_ paPa()ca(̠ĠԠŨө)a()bM  cc_ dPa(Ǡ)eMfqede]de@\M6˱q*˲q˱)8r˳q˱88˲˱rrm]UV˱W˲q8˳r`˱˳%odePtco.?%rPa()GPdeMcY?^oPa(ΠϠԠ٠Ҡ٠Ϡ` $Va@*#rGq_UVd2ea()Gd2e%Wa()Jq.?r.?r_R3XdJe.?rdKe.?rde.?rde.?rY[BZqq.?r.?rde8rde8r?[dedecdrqRQN@"@r@p()IRq.?r`@%q`$Xa@*#rGq`.?r$R?Sa()G`$Tde.?rde.?rbG_W Tq:Uq.?r_AK\MdJe.?rdKe.?rqq q.?r.?r$Lq.?r.?r\Qc_ MPa(Š)5Nde.?Jrde.?Krde.?rde.?r[OdJe.?rdKe.?r8Pqq.?r.?rq.?r.?\hdMe˱dLe˲a()E@E(ְ)dLe.?rdMe.?rC_,D\g`@:()$ \hde˲de˱EdLe.?rdMe.?r FM-GPS(ŠԠŬӠ)&@H\hdMe˱dLe˲I JdLe.?rdMe.?rԠŬӠ)&@M_ ?PS(Ԡ)&@]@de.?Lrde.?MrdLe.?rdMe.?ra(Ġ)E@dLe.?rdMe.?r_ NAPa(Š٠)F.?r.?r8.?r.?rrE()_ ZBPS(ŠŠ)&@ 9c_ 5:qqqa@*#rE@*#rG[B;PS(Һ͠Ϡ)''o.?%rP S(Ԭ)''[PS(Ġ.3oa(ҠӠ)oPQ4q_1A5PS(Š)'\"`$6a(Ϡ)FE(Ġ)_ 6q.?rq17q8ra()G\:q8r\:a()G=8UVWq.?ra()G\:q`$9Yc_7S(ţҠ)''`@*#r:()$/\q_0/\j 0q V1qM6UVWXcca()FE()GUVWa(Š)FE()F.?rE()GY[2q q Ycca(Ϡ)oPa(ϠŬ٠ŠϬԠ).?r$ q.?r)P6*q.?r.?r`$ t+`.?%r$,_(,a(Ԡ)G\iR-`$ `$k`$(`$'\g\jq_&g.PS(Šӿ)&@o.?%rP !b[ a()_ !a()_ "`$#w_ #q.?r.?r=$q.?r`%[q.?r`%[q.?r_$%PS(Ԡ)'M6o&\"q_*!'`$ M6ot&(`-a()Gde.?rde.?rMc_ o.?%rP a()GRqqUV;@rWX6q<@*#rr` %q`$D`$ de88rr.?rq(Y`.?r.?r$`$K`$a`$d_\g`$c\_ o.?%rP a()G8qUVW;@rq<@*#rr` $0`86 r6 $ q 2Y`@*#r9()$`6$ q6M6dM\i7`$k`8r$Q`$>`$Z`$?`$B`$5`$A7`$n`$D`$%`$o*`$.`$;`$G*Ԡ˩)a(ˠ)a(Š)a(Š)< a(РϠ)a(̠ЮĮЮ)a(Ԡ٠)a()i a(Š)a()a(ŠϠ)a(Š)a()a(ڠҠ)G d eco Pa()G?UVW'a()GYcUVWa()GP'a()Y%UVW'a()GYd2eo)Pa(͠Ԡ)c/Pa(ĮȠ֮Ǡή)#oa(Ӻ)d e oc a(Ġũ)a(à)a(d ed ed ede.?Lrde.?Mr`.?Mr%  _ \M_O.?r.?rKqN@"$rN@"r@p()q.?Jr.?Krq4qca()HKM6d2ed ed e d ed ed ed ed ed ed e ]d ed ed ed ed ed ed ed e d ed e|]d ed ePd exd ed e_d ed eLd end eHd ed e d ed e d ed eu]d ed ed ed ed e d ed ed ehd ed e]d eHd ed ed ed ed e d ed ed ed e]d e e d ed ed e]d ed ed e$d ed e!d ed ed e d ed e]d ed ed e d eJd ed ed e d ed e d e ]d ed ed ehd ed e ]d ed e d ed ed ed ed ed ed eqd e]d ed ed eed ed ed ed ed ed ed e]d e d e d ed ed ed edds edt edu edv e dw edx e]dy edz e(d{ e]d| ed} ed~ e]d ed ed ed ed ed ed e]]d ed e d ed ed ed ed ed ed eedX edY edZ e d[ ed\ ed] e]d^ e d_ ed` eda edb edc edd e de edf edg e]dh edi edj edk edl edm edn edo e0dp edq e]dr ed< ed= eLd> ed? eM]d@ edA edB edC edD edE e dF edG edH edI e]dJ e dK edL e dM edN edO edP edQ edR edS e]dT edU edV edW d! e]d" e`d# ed$ e d% ed& ed' ed( ed) ed* ed+ e]d, ed- ed. ed/ e0d0 eDd1 ed2 e d3 ed4 ed5 e]d6 ed7 ed8 ed9 ed: ed; e z# ŠҠ "ĠҠ" ŠҠ ԠӠ  ҠԠ ԠŠ ĠҠĠ ӠŠӠӠà ҠŠ٠   ԠŠŠ ԠϠ ԠנϠ ԠϠ ԠˠŠ̠ ԠǠ Ԡˠ  ˠŮؠ Ӡ͠ΠԠΠɠ ͠ԠŠ6ԠɠҠԮؠ ԠŠĠ  ӮЮîϠ ٠Ԡé"ŠɠϠ!àŠ РԠˠŠ]ˠŠΠ&d ed ed e d ed e d ed ed ed e]d eqd ed ed ed eed ed ed ed ed e]d ed eLd ed eMd ed ed ed e d eedededededede]dededededehdeLdededeLde]dededejdedejded ed ed ed e]d edededede]dededededededededede]dede6dededede7de`deHdede]dedededeude]dededeLdededdeudedededet]dede deXdedeLdededeBdedeq]dedeLde,dededede dedededeLdededde2de]dededededededde3de!dede]de de3dededededede"d{ed|e*d}ed~ededede]de+deqdedeLdede,dedeqdede ]de:dede`dededede de-dede`]ded`edaedbedce]ddedee)dfe2dgedhedie1djedkedledmeh]dnedoedpe!dqedredsedte!due:dve$dwe;]dxe)dye<dzede)dEe8]dFedGedHe"dIedJe4dKedLedMedNedOe]dPedQedRedSedTedUedVedWe dXedYe]dZed[ed\ed]ed^ed_e$d)e8d*e9d+ed,eHd-ed.ed/ed0ed1e4]d2eDd3ed4ed5ed6e'd7ed8ed9ed:e$d;e]d<e9d=ehd>e1d?ed@eddAedBedCedD ede:dede5dedede]dedeJdededeLdedefde6de2deg]de7de"d ed!ed"eYd#eBd$ed%ed&ed'e"]d(edeLdedeK{de dededede(de|dede`|deLdede]}dededededededededed e]~d e d ed ed8dedededeiKxde|dede dededeLdedeTydede`dedede dedededeTzde dedede`dede`ede]ude$dededede dededededet]vdedede dedede<dedede de]wdededeNdededeedeGdedede dededededeg]sdedededeGdedededede]de]tdededededededededdqegdre=dse%dte;due!dvedwe,]pdxedye<dze+d{ed|ed}ed~ekdedede]qdede,dewdede(dededegdede]rde;dVe dWedXedYe]mdZed[eLd\ehd]ed^ed_eLd`ekdaedbedce]nddedeedfedgedhediedjedkedle'dme]odnedoecdped:ed;e]jd<ed=e d>ed?ed@edAedBe dCedDedEe]kdFedGedHedIe dJedKedLe dMedNedOe ]ldPedQedRe+dSe<dTedUedeFd e:d!e&d"ed#ed$ed%e8d&eJd'e]hd(e9d)ejd*ed+ed,e*d-ed.ed/ed0ed1e0]id2evd3ed4ed5ed6ed7ed8e d9edede3de4dedede d e]ed ed ed eLd edehde8dededede]fde5de6de!de;de<dede7de9de)de]gda()Pa()"oPa(Π)\K qtu\KqpM6otu\K M6M6M6 2 _d KUVW`.?6@r$LYLd6?eM6M6[]dde dedeŠԀ٠ΠȠҠӠ٠̠Ƞ5]ӠӠ٠ή٠-KM6d e cotud e q\Kdqd2e?o Pa(ЊĊ)d2eo Pa()PŠà٠ΠӠ_ ]ŠҬŬ֠Ԡ٠̠Ǡ^ ]͠٠Π٠٠ĠŠ٠Šɠb]64]]]]]]]ŠŊ]^]ͯĠ٠Ӯˠ                296/A(X1)89MTCH0A(X1)78MTCH113909XX3C(1010ZnXX1:A(X)13295ds1390p"+";:v''::8:"+TINY PILOT VERSION 1.0+":34,1':8'"***FOR HELP, TYPE 'H'***"$'100 A:Y$""VX$:X$;%`(X$)132952eY$Y$X$<j1110FXX2PG$""bA(X)441270tA(X)131270G$G$(A(X))XX11220G$Y$MTCH1:1296MTCH0 A(X)13295G$"":1240A(X)13295XX11OMMENTS (BE KIND--IT'S MY FIRST INTERPRETER!) CALL SCOTT KNASTER AT 355-2379 (HOME) OR 759-4685 (WORK). THANK YOU.":"TYPE RETURN TO GO BACK TO CONTROL MODE";X$:100XX2(A(X));A(X)13295XX11010LXX2IER MATCHING ROUTINES AND MORE COMMANDS.""QUESTIONS ABOUT PILOT CAN BE ANSWERED IN MAGAZINE ARTICLES ABOUT THE LANGUAGE, SUCH AS IN THE MAY 1979 CREATIVE COMPUTING.""TYPE RETURN TO GO ON";X$:{"FOR QUESTIONS, SUGGESTIONS, CPROMPT IS ONE PLUS SIGN""ALL PROGRAM COMMANDS MUST BE FOLLOWED BY A COLON. FOR EXAMPLE, 'T:HELLO' WOULD PRINT THE WORD 'HELLO'."*:"THIS INTERPRETER IS ALWAYS BEING EXPANDED AND IMPROVED. GOALS FOR THE NEXT VERSION INCLUDE SPEEDCH WAS TRUE ('Y') OR FALSE ('N').B:"TYPE RETURN TO GO ON";X$H"TO EXIT PROGRAM ENTRY MODE, JUST TYPE TWO CARRIAGE RETURNS AFTER YOUR LAST PROGRAM LINE. PROGRAM ENTRY MODE IS SIGNIFIED BY TWO PLUS SIGNS (++) WHILE THE CONTROL MODE A STRING (JUST LIKE PRINT) A ACCEPT AN ANSWER (LIKE INPUT) M MATCH WITH AN ANSWER"!"IN ADDITION, THE TWO CONDITIONERS 'Y' AND 'N' (YES AND NO) CAN BE ADDED TO THE'T' STATEMENT, THUS EXECUTING THAT STATEMENT OLY IF THE PREVIOUS MAT" " N NEW PROGRAM ENTRY L LIST PROGRAM G 'GO' (EXECUTE PROGRAM) X RETURN TO APPLESOFT"` "PROGRAM ENTRY MODE PROVIDES THE FOLLOWING COMMANDS: T TYPE 13002 ":(A(X));" IS AN ILLEGAL COMMAND":1009 'XB +100H ,Y 6X1COUNT1g @(A(X));m Jv T100 :"THIS PILOT INTERPRETER HAS TWO MODES: CONTROL MODE AND PROGRAM ENTRY MODE. CONTROL MODE PROVIDES THE FOLLOWING COMMANDS:5000 xA$ }A$& A$"L"3006 A$"G"200E A$"N"10W A$"X"ĉ::g A$"H"400 :"ILLEGAL COMMAND":100 X1COUNT1 A(X)84A(X1)581000 A(X)65A(X1)581100 A(X)771200 A(X)84A(X1)58OUBLED FOR 32K, TRIPLED FOR 48K* 10000K :"READY FOR NEW PROGRAM":W COUNT1g #5000:"+";t (B$:B$; *A(COUNT)(B$) -(B$)13A(COUNT1)13100 7(B$)8COUNTCOUNT2 <COUNTCOUNT1 F(B$)1335 P40 d:"READY" n  VERY TINY PILOT BY SCOTT KNASTER. SORRY ABOUT THE LACK OF REM STATEMENTS.IF YOU HAVE ANY QUESTIONS, PLEASE CALL ME AT (303) 355-2379." *************************** A(1000): NUMBER OF PROGRAM CHARACERS--CAN BE D      A M":INPUT YOUR PROGRAM NAME"::">0 PRINT '@OPEN XXXX':POKE 33,33"!">10 PRINT '@WRITE XXXX':LIST:PRINT '@CLOSE':END":::"@=CONTROL D XXXX=PROGRAM NAME":10!:"HIT ANY KEY TO CONTINUE SELECTION"::A$:936:" 936:" E N D O F P R O G R2 PROMPT AND WAIT FOR INPUT":"CALL -657 WAIT FOR INPUT" " ALL THESE RESPOND TO ESCAPE AND ARROW KEYS":"TO FIND INPUT CHARACTERS---LOOK AT THE INPUT BUFFER BY" :"PEEKING 512 TO 767 ($200 TO $2FF)":10>!"PROGRAM FOLLOWINGS, THEN RUN AFTER :"CALL -8192(OR KILL) END & CLR WORK SPC""CALL -167 SET TEXT MODE":"CALL -155 RESET BEEP":"CALL -151 RESET NO BEEP":10"CALL -321 (A=XX, X=XX, Y=XX, P=XX, S=XX)":10: "CALL -665 LF PROMPT AND WAIT FOR INPUT":"CALL -66-1008 BACK SPACE CURSOR":"CALL -998 CURSOR MOVE UP""CALL -922 CURSOR MOVE DOWN":"CALL -912 SCROLL SCREEN":"CALL -868 CLR TO END OF LINE"*"CALL -958 CLR TO END OF SCREEN":"CALL -756 WAIT FOR KEY PRESS"0 RUN INTEGER"g"CALL -3776 BASIC SAVE INTEGER":"CALL -3973 BASIC LOAD INTEGER":10"CALL -1998 CLEAR GR SCREEN":"CALL -1953 CHANGE COLOR+3":"CALL -1233 RESET TEXT MODE"?"CALL -1036 ADVANCE COSOR":"CALL MODE":"CALL -384 INVERSE MODE":"CALL -321 DISPLAY REGISTER""CALL -155 ENTER MONITOR":"CALL -198 RING BELL":"CALL -182 SAVE REGISTERS""CALL -144 SCAN INPUT BUFF":"CALL -8117 LIST INTEGER":"CALL -609`"POKE 37, VT (VERT TAB)":"POKE 32, L1 (LEFT)":"POKE 33, W1 (WIDTH)":"POKE 34, T1 (TOP)""POKE 35, B1 (BOTTOM)":10"CALL -936 CLEAR SCREEN":"CALL -922 LINE FEED":"CALL -912 SCROLL SCREEN"I"CALL -380 NORMAL LOW ORDER ADDRESS)":"POKE 63, END OF SOURCE/256 (HIGH ORDER ADDRESS)""POKE 66, BEGINNING OF DESTINATION MOD 256 (LOW ORDER ADDRESS)":"POKE 67, BEG OF DESTINATION/256(HIGH ORDER ADDRESS)""CALL -468 MOVE COMMAND EXP: 800<4000.5000M":10RDER ADDRESS)"a"CALL -458(VERUFY COMMAND)":"EXP: 800<1000. 1FFV MONITOR VERIFY FORMAT":10"POKE 60, BEGINNING OF SOURCE MOD 256 (LOW ORDER ADDRESS)":"POKE 61, BEGINNING OF SOURCE/256 (HIGH ORDER ADDRESS"F"POKE 62, END OF SOURCE MOD 256 (ER BEGIN ADDRESS)":"POKE 61, BEG /256 (HIGH ORDER BEGIN ADDRESS)""POKE 62, END MOD 256 (LOW ORDER END ADDRESS)":"POKE 63, END/256 (HIGH ORDER END ADDRESS)""POKE 66, VERIFY START MOD 256 (LOW ORDER ADDRESS)":"POKE 67, VERIFY START/256 (HIGH OMOD 256 (LOW OERDER END ADDRESS)":"POKE 61, BEGIN/256 (HIGH ORDER START ADDRESS)"z"POKE 62, END MOD 256 (HIGH ORDER END ADDRESS)":"POKE 63, END/256 (HIGH ORDER END ADDRESS)"{"CALL -307 WRITES OUT TO TAPE":10B~"POKE 60, BEG MOD 256 (LOW ORD * 256,CHS: CHR$ = "_": RETURN )s10t"POKE 60, BEGIN MOD 256 (LOW ORDER START ADDRESS)":"POKE 62, END MOD 256(LOW ORDER END ADDRESS)"u"POKE 63, END/256(HIGH ORDER END ADDRESS)":"CALL -259 READS THE TAPE/IN PORT"v10Ry"POKE 62, END PEEK (224):LC2 = PEEK (225) - (LC1 > 243): POKE 79 + LC1 - 256 * (LC2 > 127) + (LC2 - 255 * (LC2 > 127)) * 256,CHS: CHR$ = "_": RETURN !rLC1 = PEEK (224):LC2 = PEEK (225) - (LC1 > 243): POKE 79 + LC1 - 256 * (LC2 > 127) + (LC2 - 255 * (LC2 > 127))":10e"POKE -16300,0":107j"POKE -16299,0":10o1135,1138: FOR TYPEFACE = 0 TO 2: POKE 50,64 * 2 ^ TYPEFACE - 1: FOR CHR = 192 TO 255: GOSUB 1136: PRINT CHR$ ;: NEXT CHR,TYPEFACE: GOTO 1138 pCHS = CHR + 128 * (CHR < 128) q LC1 = OR HI BITE=1) WAIT -16384,1,1(LOW BIT IS ZERO)":10JB"CALL -958":10_G"CALL -868":10L"X=PEEK(-16384) AND FOLLOWED BY POKE -16368,0"M3000:10Q"POKE -16304,0":10V"POKE -16303,0":10["POKE -16302,0":10`"POKE -16301,0"CALL 54514":10%)"CALL 3314":10."CLR":"START=.....":"STEP=....":"CALL -10531 OR CALL -10521 USIN FROM AND TO":103"LOAD....CALL -11076....CALL -11059":108"SAVE.....CALL -10955":105="POKE -16368,0(FOR KEY) WAIT -16384,128(F0 TO CLEAR SCREEN":10+"CALL -868":10@"CALL -922":10c "CALL -912 ----SCROLL UP":10"CALL -958 ---- TEXT":10"A=CM-LM"::"CM=PEEK(202)+PEEK(203)*256":10"CALL 976":"OR PR#6":10"CALL -151":"OR >POKE 72,0":10$ PEEK(105)+PEEK(106)*256""AUTOMATIC LOMEM= ":"POKE 74,3072 MOD 256: POKE 75,3072/256:POKE204,PEEK(74):POKE 205,PEEK(75)"10"PRINT PEEK(204)+PEEK(205)*256":"END OF VARIABLE TABLE"10"POKE 33,33":10"CALL -936 OR CALL 64600,1065,1070,1075,1080,1085,1090,1095,1100,1105,1110,1115,1120,1125,1130,1135,1140,1145,1150,1155,1160,1165,1170,1175,1180,1185936:"END OF PROGRAM"::"KUNIHIRO TANAKA"::I140:"-";:"PRINT PEEK(115)+PEEK(116)*256"10"PRINTISPLAY REGISTERS..........36"B"GET A LINE OF INPUT........37"g"INTEGER TO APPLESOFT.......38" "TO END.....................99""I140:"-";:'Q+Q1Q10010~,Q1000,1005,1010,1015,1020,1025,1030,1035,1040,1045,1050,1055,106INE LANGUAGE LOAD......29"? "MACHINE LANGUAGE SAVE......30"d "MACH LANGUAGE VARIFY.......31" "MACH LANGUAGE MOVE.........32" "WINDOW FORMATION...........33" "MONITO DIRECT CALLS........34" "ADDITIONAL CALLS...........35""DDE TO GR MODE.......22"< "GR MODE TO TEXT MODE.......23"a "MIX MODE TO FULL GR........24" "FULL GR TO MIX MODE........25" "PAGE 2 TO PAGE 1...........26" "PAGE 1 TO PAGE 2...........27" "SEE THE ENTIRE CHARACTERS..28" "MACH.......15"/ "APPEND.....................16"T "VARIFY A TAPE .............17"y "PAUSE OR WAIT..............18" "CLEAR INSIDE TEXT..........19" "LINE FEED..................20" 2000 "KEY CONTROL................21" "TEXT MO.....8", "ESCAPE F....................9"Q "MEMORY USED ...............10"v "REACTIVATE DOS.............11" "ACTIVATE MONITOR...........12" "RAM TO ROM ................13" "ROM TO RAM ................14" "RENUMBER..............1") i"FIND LOMEM..................2"N n"FIND VARIABLE TABLE.........3"s p"LIST FOR EDIT...............4" s"ESCAPE @ ...................5" x"ESCAPE E ..................6" }"CONTROL J...................7" "SCROLL UP .............  INPUT A$: GOTO 10 ":2180:(7);T" DOS SYSTEM INSTRUCTION"u" BY AND FOR HIRO TANAKA" CREATED ON JUNE 17, 1979I140:"-";(7);:255"HIT ANY KEY TO CONTINUE":A$ d"FINDING HIMEM.............          HHHȱ<     LM   !     hhh`,0,``  hhh`,,`]Ԡ]]ԠĮԠ]!]ˠŠݧ] d6?e`.?6@r$[Ġ˧)Gc c%\ *M/cca(Š)4c9a(ԧӠ̠ӡ)>cHKMQf]w]ΠϠŠŠƠΠϠҠŠƠӠ٠ҮΠ٠ŠӠخɽԠ)'a(Ьî)-a(ϠӠ)*a(ˠŠ)) a(ȠΠŠ),a(ĠϠŠ)0a(Ҡ)c-a(ӠŠ))a(ƠŠϠ)-a(͠ϠŠ)c)a(ӠŠ)/a(ӠҠŭ)G+a(Š)ca(ˠҠ)c,a(̠̠ĠϠŠ)'a(ӠӠӠé)=ca(Ԡ٠٠ϠŠ)\Mcca(Š)cc$Pa(ԠӠΠ)c$a(ˠ̠٠)-ba(Ӡ)/ga(ҠǠ)G'la(Ӡî)qc{a(̠ӡ)ca(Ԡ٠٠ϠŠ)\ Mcca(Ů)5c :a(ˠҠ)?c-Da(àӠŠ))Ia(ӠϠŠ)-Na(٠ŠԠ)/Sa(Р٠)GXcc+]a(ΠՠĠΠҠҡ)cc7d2ea(Ԡ٠٠ϠϠΠϠŠԠ)G d2e\ M cca(Š)P a(Ԡ)&c,+a(ŠǠӠԠƠԠ)"0a(ҧӠΠ٠ӠŠ̠٠ˠƠ),a(ŠҠՠȠϠҠ)*a(ӠŠԠҠή))a(٠ҠĠΠ̠Ԡ)-a(ŠŠӠƠŠ),a(Ҡԧ̠̠ҠƠ)*a(ӠƠ٠Π)Gr\ wM|cca(Š)c-a(ӠϬĠŠΠ)+a(٠ΠӠԠϠ)+a(ŠҠ̠ŠΠԠ͠)a(ŠƠҮ)c-a(ź٠Ԡө)Kc+Oa(٠ŠՠŠҠǠ)/Ta(ˠŧӠŠŠ)G-Ya(ŠҠӠĠϠҠ),^a(ϠƩŠԠӠΠԠϠ)&ca(Šˠ͠Š͠Ү)hc/ma(ƠŠϠҠŠԠΠ)0'a(ҮȠƠՠŠҠ)G+,a(ԠҠ٠ŠՠΠ))6a(ҠԠ٠٠ǠŠ);a(٠š)Dc-Ea(נӠŠΠĠŠҠ)&Ja(٠ŠŠ)'a(Š̠Ӡ)c7d2ea(Ԡ٠٠ϠϠΠϠŠԠ)G d2e\ Mcc a(Š)cP a(Ǡ)c,a(ŠŠŠƠˠŠӠŠ)+"a(٠c+a(̠ŠǠӠŠ٠Ǡ)-a(ӠخϠŠŠӠƠ),a(٠ΠŠĠŠ) a(נžΩ)c,a(ƠՠΧԠננϠŠŠƠ)-a(ŠҠՠĠˠԠŠϠ٠Ԡ)(a(ԠԠŠҩĠŠ)-a(İǧԠ̠ŠՠΠŠ),a(Ҭ̠ՠŠŠ)-a(ҠӬנՠϠΠϠ)-a(Š͠٠Ǡ̾٧Ġ)a(ή)̠)Aa(ĠԠɠή)FcKc Pd2e/Ua(Ԡ٠٠ϠϠΠϠŠԠ) Zd2e_\ dMicncsa(Š)xc}P a(Ǡ)c.a(ӠΠӠԠΠϠԠŠ),a(Ҡ̠ԠΠŠŠ٠٠ǠŠ)a(̧ٮ)c*#a(ΠՠԠŞ̌٠ŠŠ),(a(̠ϠíԠҠԩƠ)-a(Š͠Ү)2c,7a(ΠΠӠӠ٬)+<a(ΠԠŠՠϠíԠէ Mcc a(Š)cP a(Ǡ)c.a(ԠŠŠҠҠŠǠˠ)*a(Šՠ̠ĠԠ٠Ϡ)* a(ĠԠԠɠӠŠ),a(ΠŠҠՠŠĠή).a(ӠՠŭŠԩ)-a(ҠՠԠĠԠΠ)*a(ΠҠˠ ԠŠՠ)-a(ŠŠ˧ӠĠҧӠԠ)a(Ԡĩ)ccc6d2ea(Ԡ٠٠ϠϠΠϠŠԠ) d2e\)ecoct\ yM~cc a(Š)c+a(źԠӠ٠ӠϠ),a(ŠӠƠՠŠҠŠ)+a(ϠšƠՠŠΠҠ)(a(ĠΧԠȠԬՠˠ٠)3a(ŠŠ̠Š͠ҩ)Bc-Ga(ƠՠԠ٠Ҡ٠ŠҠ)-La(̠ˠՠҠŠˠĠҠ)(Qa(ՠԠϠŠǠŠŠ),Va(ŠԠԠĠΠǠ)+[a(ҠŠˠĠҠՠĠ)`a(ϠĮŠŠ)0$a(̠ˠՠƠՠԠϠŠˠ)G*)a(Ԡ٠įΠ˾)*.a(ҠԠ٠įΠ),3a(Ҿ٠٠Ǡ٧Š),8a(Š̠ŠԠˠϠŠ)(=a(Šˠ͠ΧӠϠŠ)a(Πծ)cc d2e/a(Ԡ٠٠ϠϠΠϠŠԠ)\ d2e Mcc a(Š) cP a(Ǡ)c,a(͠ŠΠՠҠŠŧ)*a(ŠԠŠקҠՠĠԠϩ)c+a(Š̠ŠĠϠҠ)/a(ǠԠ͠ĠǠԠ͠)Gc a()\ Mcc a(Š)c-a(ŠŠ̠ΠԠҠՠϠ)-a(Ԡ٠ŠԠԠ̠Ԡ).pa(ΠŠǧΠŠРƠŠ)-ua(άĠŠˠĠҠ)-za(ĠΠũΠŠŠƠ)a(ή)-a(ŠŠ̠ΠĠΠӠ)*a(ƠΠ͠ŠˠĠ)a(ΠŠŠ)-4a(Š̠ԠԠԮԧ̠٠)9\ >MCcHc Ma(Š)Rc(Wa(ΠŠҠΠŠԠ)\a(ҠƠŠŮ)ac-fa(ҠՠŠҠ̠ӠҠ)*ka(ŠҠŠҠ).a(ԠԠӠŠҠƠŠҠ).a(ՠȠϠĠҠӠ).a(ƠˠΧƠŧ) c*%a(ŠҠԠŠ͠ϠϠ)+*a(ŮƠՠҠҠӠ),/a(ΠϠҠҠΠŠԠҠƠŠ)a(ԠŮ)c)a(ǠӬǠՠŠ)-a(Ġ̠ҬŠŠ)-a(ΠŠҠҠŠŠ)a(ҧ)c. a(ӠӠŠŧӠ٠ƠǠՠΠŠԠƠӠӠ)/a(ƠԠөΠ˩)\Mcca(Š)c-a(ƠՠҠҠҠΠ))a(ҠӠΠŠŠ̠Ԡ)/a(ԠԮԠ̠٠Π)Gc,a(Ԡ)!a(נŠŠ˧)/ca(ŠŠɠנӠՠϠҠ)%a(ҠǠ͠ϠϠ)&a(٠ҮӠҠ̠)(a(ŠȠˠŠ)-a(ŠŠ̠͠Ġή),a(ӠŠ͠ҠŠ))a(ĠŠԠŠҧ٠ΠŠ)a(Πթ)c*a(ŠҠ̠ԠΠŠ)'a(ħΠŠРƠŠά).a(ŠŠӠ˧Ġҧ).a(Ġ̠ΠΠԧ)\ Mcc a(Š)&c,0a(נӠŠˠԠԠȠƠ)*:a(ŠӠϠĠנϠŠ)N]$XKa(Ԡ٠٠ϠΩ)\ bMlcvca(Š)cP a(Ǡ)c-a(ǠŠΠħ)a(Ϡ٩)c.a(ԠҠǠŠҠ)a(Ԡͩ)c.a(ҠӠΠƠŠ).a(̠ŠȠӠ)/a(ϠҠŠԠΠҩŠ),6a(ŠȠӠԠϠϠŠ)@a(ǠӠ)Jc*Ta(ĠΠŠӠĠ)^a(Ӯ)hcra(ŠԠ)|c,a(ԠӠŠŠӠ)+a(ҠŠԧӠ٠٠ϠΠŠ)\]àԧ d2e] q.?6@r`%q `$]Πˠŧ] Mcca(Š)c."a(ΠՠΠˠŠŠԠũ).,a(ԠӠΠ̠ŠנϠŠ) xP a(ԠŠ) P a(Ơ) P a(ˠŠ) P a() P a()UVW(Y`$ o \2Y6Kd2ea(Ԡ~$ q6 q?q Mc(o 1_P02a(ˠŠΠΠ٠)3d"e oM<[F]PUVW2o cQd"e M ZP a() dP a() nP a(          Š ]Ԡ ] ]ԠĬԠ ] ]da(ΠȮ)nQ)nQ e1y d ed ed ed ed!e| [T Kd2ea(Ԡ٠٠ϠΠϠŠΠ)Md2e`}$_w ]ΠϠŠŠƠΠϠҠŠƠӠ٠ҮΠ eUp d ed ed ed e!d e d ed ed e d eUs d ed ed ed ed ed ed ed ed e_Uv d ed ed ed e@d ed ed e d ed e Ug d ed ed ed ed ed eLd ed ed eLUj d ed ed ed ed ed eed ed ed etUm d ed ed efd ed ed eld ed edd eU^ d ed ed ed ed ed ed ed ed eUa d ed ed ed e_d ed ed ed e9d e Ud d ed ed ed ed ed ed ed edd eUU d e d ed e@d ed ed ed ed ed eUX d ed eJd eJd eJd e d ed e d ed e@U[ d ed e+d e`d ed e>d eLd ed e dt e`UL du e&dv e<dw eJdx e&dy e*dz ed{ efd| e d} eUO d~ e@d ed ed e*d e)d ed ed ed e UR d ed e@d ed ed e<d e)d ed e dY eUC dZ ed[ e d\ ed] ed^ ed_ ed` eda e=db eUF dc eCdd ede edf edg e>dh edi eBdj edk eUI dl e`dm edn edo edp edq e dr eds e d> eU: d? ed@ edA e@dB edC e<dD edE eAdF edG e=U= dH edI edJ edK e<dL e dM edN edO edP eU@ dQ edR edS edT edU edV edW edX eed# eU1 d$ ed% ed& ed' ed( ed) ed* ed+ ed, e<U4 d- ed. e@d/ ed0 e=d1 ed2 eAd3 e d4 ed5 eU7 d6 ed7 ed8 e d9 ed: ed; ed< ed= e ed eU( d ed ed e d ed ed ed eLd eid eU+ d ed eBd ed e?d ed eCd ed ed eU. d ed ed ed ed e d ed! ed" ] ] c K M a@E() c _  ] ]Ԡ ] a@E(Πìɬ) K  Mcc a(ŠҠ׮) K Q" ]ӠҠU% d ed eLd ed ed ed ed ed ]Ϡ ] de ] ]ĠŭŠ ] de M ] ]Ϡ̮ ] _6 Ma()( ca(ՠҠħӠҡ) q}_  Q ] q.?r ] ]ĠΠӠ ]ϠˠԠ ] de de de M ] ]ŠƠŧӠš ]2 `.?r$ ]נŧӠš ] ]ŠӠŠؠh ]Ԡ٠ˠk ]n ]$q dededeMt q.?Mr]w `%q6j]ˠz `f%q f]} `U%qV] `6%q6] `&%q&] `%q] ] ]ٮ)J M`.?r$ M M2P o a(ҠŠҠՠȠϠҠ)%S o Pd2ea()d2eV q.?%rY o\ PTo_ ` $e 8b oa(ŮҠӠΠĠ)_Y  e M) ], ]Ҡ/ ]͠Ҡ2 ]65 Ma()8 c0; a(ӠŠ̠ŠĠ)G> a(ӠϠҧ)A c-D a(ϠŠȠӠŠԠŠ)G a(ç de.?r  de  de  M ] ]ϠˠϠ٠ ] _  M0 a()/ ca(ŠҠՠŠǠϠŠӠ) a(٠ΠΡ) # q}& _  ]ŠӠΠ ]ˠԠŠ ]ҠŠԠϠ ]2 `.?r$ ]ԠҧӠΠΡ ]" ]נŧŠԠ$ ]٠ǠŠҠ% ]ԠϠŠԠҠ ]r] `%q6j]ˠ `f%q f]ˠ `U%qV]ˠ `6%q6]ˠ `&%q&] `%q] ] q.?r ] de de de M ]נˠϠŠe q.?%r o PT o ` $ < oPa(Ů٠ӠΠĠ)_  M ] ]ĠҠ ] de de de de de M q.?MŠ)Gl a(ΠӠũ)o c)r a(ƠՠȠϠŠȠӠ)!u a(ŠԠŠçٮ)+x M`.?r$]٠ { M5~ o Pa(ҠŠҠՠȠϠŧ)" cd2ePa()d2)Z cPa(Ҡ)c-] a(ӠŠ̠נՠϠŧ).` a(ŠҠΠŠ٠ŧө).c ca(ŠŧӠ̠ԠנРΠŠ),f a(ǠҠ̠٠Ġ̠)0i a(ՠŠ͠ȠŠq6]ˠ$ `&%q&]ˠ' `%q* ]- q.?r0 q.?r 3 de 6 de 9 de < M? de B de E MH _K ]N ]ҠQ ] T M0W a(ŠŠҠԠŠç٠)" M`.?r$M  de dede M]ĠΠàϠ ]Ġ ]  q.?Mr `%q6j] `f%q f] `U%qV]! `6% a()]> Ma()ccPJ a(ŠҠ)ca(ӠŠ̠٠ؠŠ)* a(ǠȠŠŠҠ)$ a(ƧӠРΠũ)@ ca(ϠŠ] `6%q6]ˠ `&%q&]ˠ `%q ] q.?r q.?r de de de M de de de de M _ ]# ]ŠҠ֑ M `.?r$ M- a(נǠŠŠҠ) c de dede M]ĠΠ ]ϠԠŠ ] q.?Mr `%q6j]ˠ `f%q f] `U%qV)y a(ҠӠĮ)| c0 a(ϠΠŠҠӠՠԠ)G0 a(ƠŠŠҠȠŠ)G/ a(ĠΠŠ٠ΠƠ)G ca(ͩ) c/ a(ԠŠç٠ϠŠŠ)ŠϠ),a a(ŠĠҠĠҠάΠ))d a(ŠҠӠǧξ)g c-j a(Š٠٠ϠԠԠƠӠӠϠ)m a(ԠԮ)p c-s a(źŠͧӠҠŠԠ)-v a(ӠԠŠΠƠŠ q_7 ]: ]= ] @ MC a()]F ]ŠҠI ]L ] O M/R a()U P a(Š)X c*[ a(ŠŠҠ̠ŠŠ).^ a(ԠӠΠΠĮ) c. a(ϠҠӠŬŠŠҠ). a(ҠŠԠ̠٧Ӡ)* a(ƠŠŠӠΧȠӠ) a(ũ)" ]% ] ( de#+ d-̲r e.?-̲rr. d-̲re 1 M4 q}\-̲rrq`;%q@Brp@*#r Y!`@*#;@rr9@$Y̲ Y_]]ĠԠ ] ]  Mcc c Mcc. a(נIǠ)E@E(e de M]P-rq-rq1-rqT-rqw-rq-rq-rq]1U̲VW`;@r%@p@*#r2@p()UVWq.? de M] q.?Mr`%q6j]ˠ`f%q f]ˠ`U%qV]`6%q6]`&%q&]ˠ`%q]q.?rq.?r] deUVWX6 dԠ)Gtca(͠Ӯ)Pwca(ƠՠȠϠŠȠ)a(ŠԠŠçٮ)M&z`.?r$]٠}] M]]Mo P S(ҠŠŠ)&@ M de deba()eccPa(ŭ).hca(ӠŠ̠נՠϠŠ),ka(ԧӠϠǠԠŠ)8na(ġӠӠŠ)Gd2ea()d2e/qa(ǠŠӠĠӠ/c2a@E(àٮ)5]8];]>a@E(Ġ)E@A`%q6j]D`f%q f]G`U%qV]ˠJ`6%q6]ˠM`&%q&]ˠP_S]V]ŠY]\] _M0`-r%a()GP d2ea@G qc[ Ma@E(Πٮ)a@E(Šٮ)a(Ġ)E@a(Š)E@" a(ĠˠŠŠ)#a(ͺ) &a() )a(͠),a@E()Wq.?-̲rrq`<%q@Brp@*#rY`%[&`@*#r9(ٮ)%[bE()Gd2eP`-r%a()G`-r%a()G`-r%a()G M-̲rq-rq\@p@q5`-r-r$]Ҡ`-r$`-r$5]­]-rq.?-̲rr-rq-rq-rq-̲r @p()UVrr%\Y̲Y`$hccd eca(ȠŠĠɠ٠Ϡέ)a(ҠϠƠŠƠŠũ)GT`$$de-rde-rde M)d-re.?-r rd-r e deˠ{`%q~q.?rq.?r qUVWX6]]P-rq -rq.-rqQ-rqt-rq-rq-rq] de de de MU̲VW`.?-H] KM Nd2eQc$Ta()GPa()GP a() Wd2eZc ]de `de cde fM iq.?Mrl`%q6j]o`f%q f]ˠr`U%qV]ˠu`6%q6]ˠx`&%q&])-!a(ĠӠΠҬŠ͠)%$a(§ΠΠ٠ŨҮ)'c.*a(ϠŠȠӠŠԠ)-a(٠Ġç)0c3M6]9q.?r<q?`$B]E](٠Š͠ԠԠ)c.a(ΠՠĠŠŠ˧Ӡ).a(ҧӠԠӠŠĮӠ)*a(ԠŠ˧ӠӠŠ)-a(ԠҠƠǠΠҮ),a(ȬƠ٠ҠŠ M0a()c%P a(Ġ͠)c.a(ӠŠԠŠԠ)-a(Š̠͠٠ҧ)0 ca(ŠǠӠƠΠƠ)( a@r$@p@*#;@rrUVW deYUVW;@rq;@r@p@*#rde<@r Y de de de M_]]Š] q.?Mr]`%q6j]`f%q f]ˠ`U%qV]`6%q6]`&%q&]`%q] o P8d2ea(Ҡ)Gd2ePa(ԠҮ)o.?%rPR@`;ŠƠŠˠŠ٠) a(ŠӠˠӠĮ)c0a(ϠŠȠӠŠԠ)Ga(٠Ġç)"M`.?r$M M de de dedede ] M׭)!mcP a(ˠ)c.pa(ӠŠӠՠϠŠŠ),sa(ӠˠŠȠ٠)*va(ƠՠΧԠŠԠŠũ).ya(ҠŮŠŠ̠Ҡ),|a(Π7]:UVW=@p@*#r@de<@r CY Fde Ide Lde Ode Rde UMX_ [q^]ˠŢa]Ҡd]gMa()G]̠/ja(cd2ecq.?rq`;%q;`%q6a@*#rGd2ea()Gd2ec"]%d2e@p()(q qq+oPR@Br.qq`$+1K4]ŠΠנ)Gcc d2eq.?rq`%q`<%q/a@*#rGd2ea()Gcq.?rq d2ec `%q `<%q8a@*#rGd2ea()GV]`6%q6]ˠ`&%q&]ˠ`%q]]IMd2ePa(Ġ)GPa(נ)Gd2ed e o  co.?%r d2eq.?rq`%q/a@*#rGd2ea(٠Ҡ٠ϠΠϠ)a(Š٠ՠ)GM`.?r$] M de de de de deM]ĠΠ ]] q.?Mr ]н]`%q6j`U%qŠŧӠ)Wa(ŠĮΠՠԠҠŠ)a(נŠŧӠŮŠӠԧ)-a(ՠҠΠاԠŠŠˠ)]a(ӠĠا̠٠̠Ԡ)a(Ӯ)ca(ԠŠç٠ϠŠӠ)]a(Ŭ]5Ma()!cPa(ŠŠ)c-a(ӠŠ̠ŠŠӠ).a(ƠŠӠԠŠĠΠՠ)Ra(ϠǠŮРɽԠ½٠)a(îŠĠe Pde  SMV]Y]\]Ԡ_] bM)ea(ԠŠӠˠӠĠŠ)%ha(͠)E@E(̠ŠΡ) kM_n]q]ŠŠt]wa()]z]ϠΠӠŠ}]()GR@#UVW&dte])Y,UVW;@r/@p@*#r2dte<@r5Y8];]נŠנ>]ӠΠ٠ͩA]ԧӠŠԠΠD] Gde Jde Md%q]]UVWq.?trq`%q@Brp@*#r Ycc d2e o P $a(Ġ)Gd2ea()Ga@co P + d2ea(נ)Gd2eaŠŠħӠΠ]ˠҠԠ]ŧӠŧӠĠ]]ˠҠ]] q.?Mr`%q6j]`f%q f]`U%qV]`6%q6]`&%q&]`ˮ)cc)a(ƠՠȠϠŠȠӠ)(a(ŠԠŠ٠Ġç)cM]&`.?r$]٠]] M de de  de de de M]]ŠϠ͠{]Π~] M0a()cP a(ԠŠ)c0a(ӠŠ̠נՠϠ)G+a(ŠŠƠŠŠԠӠΧӠ)%a(٠ŠՠԠ)$n ]`@*#r9()$  ``@*#r9()$[ c`@*#r9()$5  f`@*#r9()$S i`@*#r9()$[ l`@*#r9()$  o`@*#r9()$r_3 uM!x]q.?r?`<$3B]E]H] K`@*#r9()$ N`@*#r9()$C  Q`@*#r9()$  T`@*#r9()$u W`@*#r9()$K  Z`@*#r9(Ů)a(ŠԠ٠)$a(ɠŠҠҩ)%a(ϠŠҠҩ)"!a(ŠҠө)&$a(ҠŠҠө)'a(à)*a(ѠԠ)-]0]3M6] 9q}<ū)c d2e,a(ĠԠϠҠĠ)+ a(ΠŠϠ͠ŠΠ)" a(̠ŠŠ)a(Ƞŭ))a(РŠŠҠϠΠ)Pa(ҠΠ٠] MMde  ]q _K Mcc d2e0a()Ga()GP(a()G1a()GP a(ˠŠ)GP(a()Ga()GP(a()G/a(q\kMo d2e!P a(נ)d2e%P a(ˠ)FE(Ҡ)Fc]ϠŠ̠]]dedede de]!]נŠԠŠ] de]Ԡ]Ҡũ] M d2ec3oPa(ŠՠŠՠԠϠҠ)3d2eMq.?r`@*#r:()$`Mo a(ϠՠԠϠҠˠ)Fa(Ҡ)FMq.?r`Y$?goa(٠̾٧ĠΠϠΠ)Go d#ej]m]ŠΠΠŠp]sdeL]àvde6]yde]ŸŸ|]]Š˯êdede M6]]]Ҡ٠]C]"FM ]ԠƠŠŠIKLccO_  RM0Ua(ŠҠ֠ŠĠΠנӠ)G"Xa(Π٠ΧӠ)G![`.?Mr%a(Ġ)!^`.?MrU%a(Ġ)!a`.?Mr%a(Ġ)dc]Ҡ] M`.?r$o_ ]]ԠŠ"]%] (M +d2e..Pa(Ԡ٠٠Ϡ̠Š) 1cd2e#4d"e]РƠΠϠ7]:d<ed=e.?Mr=d>ed?e.?Mr@P`%a()`%a()o %P a(ˠ)FE(Ҡ)F d2e]ŠΠ̠Ӡ]Ҡү׮]] de de de de]ҠҠ deˠϮˮנԠ]o PTo]]ˠϠŠ"]àӠΠԧӠԧ]`6 $_#`%[]٠]àϮˮϠΠȠ] Mo d2e)`%a()`%a()]o !Pa()GPa() d2eq.?%roP To]]ˠϠŠ]ˠӠȠΠ]ԧ]`6#$_]!]#r:()$k VMYod2ePa()\o %_P a(ˠ)FE(Ҡ)Fb] ed2eh_]ŠΠӮk]n]ĠƩq] tMwo zd2e}P`%q`%a($)`@*#r9()%q,]/]2b&i 7m#:f0ePa()d2e;o  >P a(ϠՠԠϢ+.CRf0gc*ˠ)FE(Ҡ)F Dd2eG]JMM]Ps,=p"QbB*ŠȠ)_ ]]`$ ]]ŠĠ] Mo !a(ŠĠ)_  ]] d2e_"]]үנ] M#]$&`@*#r9()%q] Mo Pa(ŠҠ),Pa(ǠϠŠӠ̭)c,a(Ǡ٠ŠӠǧ)c_ ]` $]]̮ȠҠ] M&o a(a(ϠĠˠ)FE(Ҡ)FE()ccc-a(źĠҧӠ٠ҠΠ)-a(ҠӠҠΠΠ)a(ϠŮ)cc_ ]ԠΠϠ]`@$]]ŠҠҤZ]]_!`]c]ӠҠŠf]i] lMoq.?rr`$u]x]ĠҠ{] ~Mo a()-Pa(ĠҠҠ)'Pa(ŠӠŠӠ)1P#r9()$ ?`@*#r9()$ B`@*#r9()$R E`@*#r9()$  H`@*#r9()$  K`@*#r9()$ N`@*#r9()$Q]T]ŠƠŠŠW]Ԡa(ҠԠΠҠ)GP a(ѠĠ)"P a(ՠҠ٠)cc!M$]']ȠŠ*]-]0]03q.?r`%q6] 9`@*#r9()$ <`@*eoq.?%r&oP a(ԠˠӠ)F"P a(ԠҠӠ)Fo P a(ҠĠΠ)"P a(נŠԠ) P a(̠ԠҠ) P a(ŠԠ)P a(à)-P )G'a()GPa(ˠ)GP(a()Ga()GP(a()G/a()q.?%r*oPa(),UVWPa()GP a()Y%a() d2(Πìɬ) q q@p(ˠŮ)q?]q]]]]] Kq q de dpe] Mc d2e0a()Ga()GP(a(drC@"drC@"drC@"drC@"drN@"drC@"dr O4drN@"dr q6N@"drF@p()$@p()@p@ @p()]a@EͬĠԠ[]ӠҠӠӠ^]ԠҠӠa]͠ԠϮd]g]j]m]Ơ٠Ġp]РϠΠs]v]y`$|]](O4drD4drC@"drD4dr7O47]ź:]Ԡ=]@]C]F]̠ҠI]ӠĠƠL]٠٠Ĭ O]ΠîǠҠR]ŠҠӠΠU]נϠԠŠX]_[ ' \" @p()a@E(ĠˠŮ)]c]͠Ԡנ]ӠͺΧԠ ]"]%]ˠŠ(]+]Ġ.]٠1]Π4]                              *BBEAUCARNEA-PONY TAIL PALM,3,5,1,4,65RCDRACENA S.-RIBBON PLANT,2,4,1,4,65vDCISSUS R.-GRAPE IVY,2,4,1,4,65ESENECIO M.-WAX IVY,2,4,1,4,65FGIBASIS-TAHITIAN BRIDAL VEIL,3,5,4,4,60GAECHMEA F.-SILVER VASE B,2,4,7,4,60HPILEA C.-ALA,3,5,1,4,658<MIMOSA P.-SENSITIVITY PLANT,3,5,1,4,65]=SCILLA-SILVER SQUILL,2,4,1,4,60>HEMIGRAPHIS-PURPLE WAFFLE,1,3,1,1,65?ABUTILON-FLOWERING MAPLE,3,5,1,4,60@DAVALLIA S.-RABBIT FOOT FERN,2,4,1,1,65AHOWEIA-KENTIA PALM,2,4,1,4,655SEDUM-JELLY BEANS,3,5,2,4,60D6ZEBRINA-INCH PLANTS,2,4,4,4,60l7CALATHEA Z.-ZEBRA PLANT,2,4,1,1,658PEPEROMIA C.-EMERALD RIPPLE,2,4,4,4,659FICUS B.-WEEPING FIG,3,5,4,4,65:BOWIEA-CLIMBING ONION,2,4,4,4,60 ;POLYSCIAS F.-MING ARALI,3,60/.RHOEO-MOSES IN THE CRADLE,3,5,1,4,60J/PODOCARPUS,3,5,1,4,60m0HELXINE-BABY TEARS,2,4,1,1,601PILEA M.-ARTILLERY PLANT,2,4,4,1,652CRASSULA A.-JADE PLANT,3,5,4,4,603KALANCHOE,3,5,1,4,604ECHEVERIA-CHICK & HENS,3,5,2,4,60 $'LITHOPS-STONE PLANTS,3,5,4,3,65J(BEGONIA M.-IRON CROSS,2,4,1,1,60q)CALADIUM-ELEPHANT EARS,2,4,1,4,65*SCHEFFLERA-UMBRELLA TREE,2,4,1,4,65+CEROPEGIA-ROSARY VINCE,2,4,4,4,65,BROMELIAD FAMILY,2,5,7,4,60-MAMMILLARIA CACTUS,3,5,2SAXIFRAGA-STRAWBERRY BEGONIA,3,5,4,4,55L !COLUMNEA M.-GOLDFISH,2,4,4,2,65x "AESCHYNANTHUS-LIPSTICK VINE,2,4,1,1,65 #FITTONIA-NERVE PLANT,2,4,1,1,65 $COLEUS,3,5,3,4,60 %PLECTRANTHUS A.-SWEDISH IVY,2,4,4,4,60 &HOYA-WAX VINES,2,4,4,4,60IUM-STAG HORN FERN,2,4,7,1,65I CHRYSALIDOCARPUS-ARECA PALM,2,4,1,4,65r SPATHIPHYLLUM-WHITE FLAG,2,4,1,4,65 ASPARAGUS SPENGERII,2,4,4,4,60 YUCCA TREE,3,5,4,3,60 CODIAEUM-CROTONS,3,5,3,1,65 CISSUS A.-KANGAROO VINE,2,4,4,4,60' ( DIZYGOTHECA-FALSE ARALI,2,4,1,4,65N HEDERA H.-ENGLISH IVY,2,4,1,4,60y SAINTPAULIA-AFRICAN VIOLET,2,4,1,4,60 GYNURA-PURPLE PASSION,3,5,1,4,60 FATSIA-JAPANESE ARALIA,2,4,1,4,55 ADIANTUM R.-MAIDENHAIR FERN,2,4,1,1,65 PLATYCERESS AGAVE,3,5,2,3,659 MARANTA-PRAYER PLANT,2,4,1,4,60h PEPEROMIA O.-BABY RUBBER PLANT,2,4,4,4,65 FICUS E.-RUBBER TREE,3,5,4,4,65 CACTUS FAMILY,5,5,2,3,60 AEONIUM-PINWHEEL SUCCULENTS,2,5,4,3,60 TOLMIEA-PIGGY BACK PLANT,2,4,1,1,60ANTIA-WANDERING JEW,2,4,4,4,60G ALOE VERA-MEDICINE PLANT,2,4,4,3,60q CHLOROPHYTUM-SPIDER PLANT,2,4,1,4,60 DRACENA M.-DRAGON TREE,2,4,1,4,65 HAWORTHIA P.-PEARLY DOTS,2,4,2,3,60 SANSEVIERIA T.-SNAKE PLANT,1,4,4,4,65 AGAVE P.-PRINC ****** PLANTMAN ******LARAUCARIA-NORFOLK ISLAND PINE,1,3,1,4,60rDIFFENBACHIA-DUMBCANE,2,4,4,4,60MONSTERA D.-SPLIT LEAF PHILO,2,4,1,4,60PHILODENDRON-HEART LEAF,2,4,1,4,60SYNGONIUM P.-TRILEAF WONDER,2,4,1,4,60 TRADESC          00 (N$)42000* AKCKDK2100< (N$)52000V AGCGDGKG2070h (N$)62000 AHCHDHKHGH2050 Z$(A);Z$(C);Z$(D);Z$(K);Z$(G);Z$(H);" ";:(N$)5ĺ" "; (N$)6ĺ" "; (N$)32300 (N$)42200 N$ Y1(N$)' ,Z$(Y)(N$,Y,1). Y= XA1(N$)L C1(N$)^ (N$)31000m D1(N$) %(N$)41000 K1(N$) (N$)51000 G1(N$) (N$)61000 H1(N$) AC2300 (N$)32000 LADCD22---------"/ J:8:"ADAPTED FOR THE APPLE II"X K:8:"BY: CHRIS MASSIMO - WD6CQM":j L17:"AGE 12" P14:" TO >STOP< ENTER A CONTROL 'C'........." d:"TYPE IN ANY WORD OF 6 OR FEWER LETTERS" n"--------------------------------------"  J15!I123:2500:I9I2311:2500:IDJ:20i : PROGRAM NAME "J U M B L E S" : REVISED BY CHRIS MASSIMO-WD6CQM-AGE 12 (: FOR THE APPLECORPS OF SAN DIEGO<:3:8)"<*> J U M B L E S <*>" F10)"----------  T51800I4C4I6C418205C5I7C5I81820NA$:LL1:L181840Tr&:7:S$;"THAT IS ALL";S$0:"0=CONT. LIST OR 1=END ";I9:I911000DIT11720N::XL1:1820@ NAME,LIGHT,WATER1, WATER2,AIR,TEMPERATURERLY"%,"7=SPECIAL WATERING NEEDED"O6:"ENTER TWO WATERING CODES: ";I3,I5i@I5I3I31I571590oJTS$;"ATMOSPHERE CODES";S$:^"1=HUMID"h"2=HUMID WITHOUT SPRAYING"r"3=DRY"|"4=ROOM AIR":"5=ANY":"ENTER TWO ATMOSPHE FOR YOUR ROOM: ";I1,I23I2I1I11I2514909TS$;"WATER CODES";S$:j"1=EVENLY MOIST""2=DRY":"3=MODERATE, CAN'T DRY OUT""4=MODERATE LET DRY OUT""5=SEASONAL MORE - SUMMER, LESS - WINTER"""6=REST PERIOD NEEDED YEA1:"0=CONT. LIST OR ENTER PLANT NUMBER ";I7FI01150VI1T11370dL1:1400}A$,C1,C2,C3,C4,C5::S$;"LIGHT CODES";S$:"1=SHADE""2=SEMI-SHADY":"3=SEMI-SUNNY":"4=INDIRECT":"5=SUNNY":"ENTER MIN,MAX CODD"&"ATMOSPHERE: ";:C41ĺ"HUMID"J(C42ĺ"HUMID WITHOUT SPRAYING"[2C43ĺ"DRY"q<C44ĺ"ROOM AIR"FC45ĺ"ANY"P"TEMPERATURE: ";C5::1140Z:"CODE PLANT"::L1dI11T1:1450:I1;"-----";A$:LL1nL221410xATER: ";:C31ĺ"EVENLY MOIST"/C32ĺ"DRY"TC33ĺ"MODERATE, CAN'T DRY OUT"vC34ĺ"MODERATE LET DRY OUT"C35ĺ"SEASONAL, MORE IN SUMMER,":" LESS IN WINTER" C36ĺ"REST PERIOD NEEDED YEARLY"C37ĺ"SPECIAL WATERING NEEDE"1370 j)t"PLANT CODE NUMBER? ";I7~I11370FIT11030LrI11I:1450:::A$:"LIGHT: ";C12ĺ"SHADY ";C13C21ĺ"SEMI-SHADY ";C14C22ĺ"SEMI-SUNNY ";C15C23ĺ"INDIRECT ";C24ĺ"SUNNY";:"WT177S$" * * * "1:S$;"PLANT MAN";S$:O:"PLANT GROWTH NEEDS=1""PLANTS FOR YOUR HOME=2":"FINISHED FOR NOW=3"$:S$;:"OPTION? ";I.I3Ā8I21460BI11070LV"PRINT LIST OF AVAILABLE PLANTS? ";I$`I$"YUMINUM PLANT,2,4,1,4,65DIEUPHORBIA S.-CROWN OF THORNS,2,4,4,4,65kJRUELIA M.-MONKEY PLANT,2,4,1,1,65KBEGONIA E.-WATERMELON,2,4,1,4,60LACALYPHA-CHENILLE PLANT,2,4,1,4,65M CANIBIS SAVITA -MARIJUANA,1,1,3,5,76  PROGRAM BEGINS1 C0IX1X1(JY1Y1EA(I,J)1A(I,J)2CC1LJSIeA(X,Y)0800C3C4A(X,Y)2:790 PP1810 C3A(X,Y)3:PP1*Y4X>X1X11:Y1Y11:X2X21:Y2Y21H440RP);"*";&XX3X3X$0XX4X4X3:YY3Y3YBDYY4Y4YINYPXXdbXX2124::XlX1X3:X2X4:Y1Y3:Y2Y4vX13X13:I91X222X222:I91Y13Y13:I91Y238Y238:I91P0XX11X21YY11Y21YX::R"GENERATION: ";G,"POPULATION: ";P;:I9ĺ"INVALID ";pX324:Y340:X41:Y41:P0zGG1X1X11::XXX1X2YY1Y2A(X,Y)2A(X,Y)0:590A(X,Y)3A(X,Y)1:540A(X,Y)1590YB$(C)"DONE"B$(C)"":320L "(B$(C),1)"."B$(C)" "(B$(C),(B$(C))1)V ,CC1_ 6270m @CC1:L0z JX1C1 T(B$(X))LL(B$(X)) ^X hX110C2 rY118L2 |X1C Y1(B$(X))(B$(X),Y,1)" "A(X1X,Y1Y)1:PP. "YOU MAY ENTER ANY PATTERN OF ORGANISMS,"\ "THE COMPUTER WILL TELL YOU ITS FUTURE." "TO ENTER YOUR PATTERN, START EACH LINE" "WITH A '.', AND TYPE 'DONE' TO START. " X11:Y11:X224:Y240 A(24,40),B$(24) C1 B$(C)  DIE FROM "7 " OVERPOPULATION WHILE ORGANISMS "e " WITH LESS THAN TWO NEIGHBORS DIES" " OF LONELINESS ": " 3) BIRTHS- ANY SPACE WHICH HAS " " EXACTLY THREE NEIGHBORS WILL " " PRODUCE A NEW ORGANISM. ":ND "1 P"LOCATION OF EACH FUTURE GENERATION OF"Z Z"THESE ORGANISMS. THE RULES ARE: " d:" 1) SURVIVALS- ANY * WITH TWO OR " n" THREE NEIGHBORS WILL SURVIVE." x " 2) DEATHS- ORGANISMS WHICH HAVE " " FOUR NEIGHBORS* AND LISTED BY: *7  * TED M. SNOOK *? :H (8)` 16);"L I F E":: (PAUSE12500:PAUSE: DELAY 2"THIS GAME TAKES ANY PATTERN OF " <"*'S ON THE VIEWING SCREEN. THE COMPUTER" F"THEN PREDICTS THE POPULATION A  * THE GAME OF LIFE *? * BY: JOHN CONWAY *^ *'SCIENTIFIC AMERICAN' *} * OCTOBER, 1979 *PROGRAMMED BY CLARK BAKER *'BASIC COMPUTER GAMES'* * PAGE 100 * * ADAPTED TO APPLESOFT *          (L(C15)100.5)100, 3L% 7L0 <327676 E84"******** LADDER ANGLE SAFETY ********"<:O C3.14159180YL36"LADDED BASE MUST NOT BE OUT FROM THE HOUSE IN FEET:"#("NOT LESS THAN-NOT MORE THAN-LADDER LENGH"-L36202 2(L(C14)100.5)100, DISPLAY..RUN AT LINE 20.J PRINT : 20(X$)2)X$& :A  RETURN FOR THE NEXTO  STRINGU :[ AX$B$:320 X$C$:320( X$A$:320. 4 ":Q , GET LENGTH OF LONGEST_ - STRINGe 6:t @LS(C$)2z J: T SET UP LOOP TO BUILD U STRING ^: hX$"*"X$"*" r(X$)LS360 |:  NOW CENTER STRING ON  SCREEN AND!!! *******,@ WRITTEN BY MATT CLELAND,KA9DSQUJ AND DONATED TO ANYONE THAT DESIRESfT TO HAVE IT^************************** mb WITH A 9 IN. MONITOR SET ON TOPJl ON THE LEFT AND A DISK DRIVE SETov ON TOP ON THE RIGHT AND A TAPE RECORDER ON THE TABLE ON THE LEFT MODELED AFTER THE OUTLINE ON P. 57 OF THE SEPT. 1978 KILOBAUD?*******************'P2$"HAM CONVENTION TICKET WINNER"F P2$=ANOTHER PROGRAM NAMEdD$"JIM, BETTY, AND MATT" D$=MEMBERS OF YOUR FAMILYL$"A MONTH" L$=APPROX. LENGTH OF TIME YOU HAVE OWNED THE COMPUTERX THIS IS SET UP FOR THE APPLE II#RAM OR""*"MY ";P2$;" PROGRAM."F4:"HAVE FUN ";A$;"--BYE BYE!!"W9X17000:X]>cH THESE MUST BE SET FOR YOUR OWN PERSONAL CHARACTERISTICSB$"CLELANDS" B$=YOUR FAMILY NAMEP1$"INVENTORY" P1$=A PROGRAM NAME THE RIGHT PROGRAMMING."D"IT ISN'T HARD, ONCE YOU GET THE HANG"R"OF IT."cX15000:X::"NOW THAT YOU KNOW A LITTLE MORE ABOUT" "ME, GO AHEAD AND PLAY SOME GAMES, OR""ASK ONE OF THE ";B$;" TO SHOW YOU" "MY ";P1$;" PROG""FAVORITE COLOR......."/X13000:X5<UHY039T0,39Y[Y}:22:10:"ISN'T THAT NICE?"$X15000:X.:8"I LOVE t tttttvTAPvxtttt THE STARS...."LX13000:XVN67Bĺ"YOU ARE MISTAKEN..THE CORRECT ANSWER IS":::12::67BQ:::820 "VERY GOOD... YOU ARE ALMOST AS SMART AS"*"I AM. (HA HA HA)"4X15000:X>A$;" WHAT IS YOUR FAVORITE COLOR?"HC$RC$">ED"U1\C$"BLUE"U6RE ";B;" YEARS OLD?"3V$:V$""O"ĺ"WELL I DO."_:"YOU SAID YOUR AGE WAS ";B;" YEARS.":"NOW I WILL TEST YOUR MATHEMATICAL""ABILITIES. PLEASE ADD 67 AND YOUR AGE.":"NOW TYPE THE TOTAL AND PRESS RETURN." N:N67Bī800B{"SEPARATED BY A COMMA."#C,DC"HERE ARE YOUR NUMBERS..."W:"ADDED:";CDp:"SUBTRACTED:";CD:"MULTIPLIED:";CD:"DIVIDED:";CD:"ISN'T THAT JUST UNBELIEVABLE?":"HEY ";A$;", REMEMBER WHEN YOU SAID YOU ""WESOR UNIT."80:"BELIEVE IT OR NOT, MY MAIN PROCESSOR"e:"UNIT WEIGHS ONLY 11 POUNDS...AMAZING,"xD"ISN'T IT???"NX110000:XXb"NOW FOR SOME PRACTICAL USES..."l:"HOW ABOUT SOME MATH.."v:A$;", PLEASE TYPE TWO NUMBERS, ":"HEY ";A$;",DID YOU NOTICE ALL OF MY"= "ACCESSORIES?"C K "V$] ,V$"NO"ī320 6"WELL THEN I WILL TELL YOU WHAT THEY " ;"ARE USED FOR." =330 @"OH... LOOK WHERE I POINT THE ARROWS..." JX13000:X T ^22:"HERE IS MUGHT ME TO DO..THEY HAVE ONLY HAD ME"O "ABOUT ";L$;", BUT ALREADY I CAN DO"p "ALL SORTS OF NEAT THINGS." X110000:X :: "FOR OPENERS, I WOULD LIKE TO KNOW WHO" "I AM TALKING (PRINTING) TO." :"WHAT'S YOUR NAME";:A IS THE ";B$7 F"APPLE II--I BET YOU THINK COMPUTERS"a P"ONLY MESS UP YOUR BILLS...RIGHT???"k U::| WXXMԌ֌6˭666! 92000:X n"I AM GOING TO SHOW YOU SOME OF THE " x"THINGS THAT ";D$;" HAVE"% "TA6 READ REMS AT END TO CUSTOMIZE FOR YOUR OWN USE@5000J::P "****************************************"10:"APPLE II DEMONSTRATION"(:"****************************************"2"" <:"HELLO THERE, THIS""""""""!!! ! ! ! ! !!!!!!VUTITLE$"INSERT TITLE":::12:X20(TITLE$)2:X:TITLE$:A$::(4);"CATALOG","YOUR NUMBER IS ";A(2,4) A "PRESS ANY KEY TO DO IT AGAIN"I A$O U _ 1000h >110n x :11 "APPLE II MIND READER": 13 "BY CHRIS OBERTH" :: ,7) B(3,5)A(T,1)' B(1,6)A(T,2)9 B(2,6)A(T,3)K B(3,6)A(T,4)] B(1,7)A(T,5)o B(2,7)A(T,6) B(3,7)A(T,7) L13 L117 A(L,L1)B(L,L1) L1 1 L 0COCO1 :CO3700 D1000 X200 1000 "T4T1 B(1,1)A(F,1)+ B(2,1)A(F,2)= B(3,1)A(F,3)O B(1,2)A(F,4)a B(2,2)A(F,5)s B(3,2)A(F,6) B(1,3)A(F,7) B(2,3)A(S,1) B(3,3)A(S,2) B(1,4)A(S,3) B(2,4)A(S,4) B(3,4)A(S,5) B(1,5)A(S,6) B(2,5)A(S"" " " "