L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[ P.M. AND"Rz"STARTING ON FEBRUARY 17,1976 AT 6:00, INCREMENTED 24 HRS. DAILY."XiD$(1)"SUN."zD$(2)"MON."D$(3)"TUE."D$(4)"WED."D$(5)"THUR"D$(6)"FRI."D$(7)"SAT.""NOW THEN, ENTER YOUR BIRTH DATE IN MYOUR"ER"EXACT BIRTH. AND FROM THE EXAMPLE EACH DATE WOULD BE FOR"\"MIDNIGHT ON THE DAY LISTED. IF YOU WOULD LIKE IT FOR ANOTHER"f"TIME OF DAY, SAY NOON- ENTER THE STARTING DAY IN DECIMAL" p"FORM. EX:2,17.75,1976 WOULD LIST DATA AS OF 6:007,90,3,93,6,99,7,106,6X'! DATA FOR FINDING RIGHT REPLIES-! ! 1,3,4,2,6,4,6,4,10,4,1 4,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,YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" M 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 ELABORATE ON THAT?" ~ "THAT IS QUITE INTERESTING."! E YOU FRIGHTENED BY MACHINES?"D "WHY DO YOU MENTION COMPUTERS="$ "WHAT DM YOU THINK MACHINES HAVE TO DO UITH YOUR PROBLEM?". "DON'T YOU THINK THAT COMPUTERS CAN HELP PEOPLE?"8 "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"& B "SAY,DO  "DO YOUR FRIENDS PICK ON YOU?"M "ARE YOU SURE YOU HAVE ANY FRIENDS? t "DO YOU IMPOSE ON YOUR FRIENDS?" "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU" "DO COMPUTERS WORRY YOU?" "ARE YOU TALKING ABOUT ME IN PARTICULAR?" "AR WHAT OTHER CONNECTIONS DO YOU SEE?"U "COULD THERE REALLY BE SOME CONNECTIOL?"b "HOW?" "YOU SEEM QUITE POSITIVE." "I SEE." "I UNDERSTAND." "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" "DO YOUR FRIENDS WORRY YOU?"""WHAT ARE YOU THINKING OF?"34 "REALLY, ALWAYS?"S> "DO YOU REALLY THINK SO?"uH "BUT YOU ARE NOT SURE YOU*"R "DO YOU DOUBT YOU*"\ "IN WHAT WAY?"f "WHAT REQEMBLANCE DO YOU SEE?"p "WHAT DOES THE SIMILIARITY SUGGEST TO YOU?"&zOU KNOW?"8 "APE YOU SAYING NO JUST TO BE NEGATIVE?"X "YOU ARE BEING NEGATIVE."i "WHY NOT?"y "WHY NO?" "WHY ARE YOU CONCERNED ABOUT MY*"  "WHAT ABOUT YOUR OWN*" "CAN YOU THINK OF A SPECIFIC EXAMPLE?"  "WHEN?"* DO YOU DO ... PLEASE QTATE YOUR PRO@LEM."J UHY THE UNCEPTAIN TONE?"n "CAN'T YOU BE MMRE POSITIVE?" "YOU DON'T SEEM QUITE CERTAIN." "WHY THE UNCERTAIN TONE?" "CAN'T YOU BE MORE POSITIVE?" "YOU AREN'T SURE?"  "DON'T YES ARE NOT NECESSAP[."LX "WHAT FEGLINGS DO YOU HATE WHEN YOU APMLMGIZE?"kb "DON'T BE SO DEDELQIVE!"l DML'T YOU KNOW?"v "DO YOU DREAM OFTEM?" "WHAT PERSONS APPEAR IN YOUR DREAMS?" "ARE YOU DISTURBED BY YOUR DREAMS?"* "HOW DON'T CARE ABOUT NAMEQ--PLEASE GO OL. H "IS THAT THE REAL REASON="v& "DON'T ANY OTHER REASMNQ COME TO MILD= 0 "DOES THAT REASON EXPLAIN ANYTHING ELSE?": "WHAT OTHER REASONS MIGHT THERE BE?"D "PLEASE DON'T APOLOGIZE!"N "APOLOGI HAVE YOU ASIED ALYOLE ELSE? P "WHAT IS IT THAT YOU REALLY UANT TO KNOW?"t "HAVE YOU AQKED ANYONE ELSE=" "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"  "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" "NAMES DON'T INTEREST ME."' "Ib@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵"YES"3185(l 3210(q #(s 110)(v /( B( "BY-BY----"N$H( N( ^(}PP$:PP$:);"CRITICAL";47);"+";F1+' 27);"PERIOD"1' 7' t' " ";" :....:....:....:....:....:....:....:....:";z' ' '& '( 54,PL:55,PH'0 "-WOULD YOU LIKE ANOTHER * BIO-CYCLE * (YES OR NO)";': Z$'D 'N 'X Z$"Y"3185 (b Z$0 & "C";& L1L11(& L1A124202& 2560<&" "-";I&, L1L11Y&6 L1A12420c&@ 2560m&J "I";z&T L1L11&^ L1A12420&h 2560&r "+";&| L1L11& L1A12420& 2560& 3080& 3020& & 3100& ' 10);E1;26%F (BY)G12770"%P A1325506%Z (CY)G12810E%d A142550Y%n (DY)G12850h%x A152550|% (EY)G12890% A162550% (FY)G12930% 2550% "P";% L1L11% L1A12420% 2560% "E";% L1L11% & 256 W1W$ XI2980'$ D$(W1);" ";C$ D92(XJ4)(3.1415927)R$ A(D923)a$ B(D928)p$ C(D933)|$ YE1G$ " ";$ (YG)12590$ " ";M$(M1);" ";D1;", ";Y2$ 2420$ YYG$( YF12420$2 (AY)G12730$< A1225502# PL(54):PH(55):768"# (# .#$ r#. 19);"THIS IS A BIORYTHM CHART":::23);"FROM THE GRAHAMS"x#3 #8 :::26);N$::::#B "DAY";55);"DATE"#L 3020#V 3080#` #j XHJ#t #~ L10# XXJ# J2X# 1960$D1D1(D810)"HM1M1212L5"RY2100(N49)Y2LO"\WJ27((J27)C9)1]"fW(WC9)c"pi"z{"************"" PLOT ROUTINE"A17"HJ5"IJ6"E11"F11"J1"D1"E0"F1"G(F1E1)40# G1GLJ22483589&!N((4L146097)C9)E!LL(((146097N3)4)C9)g!Y2((4000(L1)1461001)C9)!LL(1461(Y24)C9)31!M1(80(L2447)C9)! D1L((2447M180)C9)!M102090! D1D11!*L((M111)C9)!4D8(10D8.5) ">J2J1((367(M212M9)12)C9)F XJ1J2((3(Y14900M9)400)C9)P bJ2J1j lWJ27((J17)C9)1x vW(WC9)~   **************************   THIS IS THE CALENDAR SUB. CONVERSION J3(J2C9) D8J2J3 J2J3 !CAREFUL TODAY "F6" CYCLES CROSS ZERO***"1F608XB3100L2200Rq*************************w& THIS IS THE JULIAN DATE SUB. CONVERSION0C9.001:M9(1)(((14M)12)C9)DJ1D2447095((1461(Y14800M9)4)C9)! N61720r1740E|D$(W),M$(M1);" "D1;", ";Y2," PHYSICAL ","0"QF6F61[1590D$(W),M$(M1);" "D1;", ";Y2," EMOTIONAL ","0"F6F611620D$(W),M$(M1);" "D1;", ";Y2," COGNITIVE","0"F6F61F621760(" ","1480P23P+E(D928)((D928)C9)<E(28EC9)KE191520VE28ErC(D933)((D933)C9)C(33CC9)C191560C33C"P01660,P1116606@E01690JE141690T^C01720hC1YOUR CRITICAL DAY FOR THE PERIOD"MP" ";" BEGINNING "M$(M);" "D;", ";Y1SZd" DAY"," DATE "," CYCLE ";" (0=CRITICAL DAY) "nxXJ5(J5J7)J2X1960D9XJ4P(D923)((D923)C9)P(23PC9)P19"IF YOU ONLY WANT A LIST OF YOUR CRITICAL DAYS TYPE LIST:";EZ$VZ$"L"1310jZ$"LIST"1310{Z$"P"1300Z$"PLOT"1300"ILLEGAL INPUT PLEASE RETYPE." 12001790(2<!F" ";" THIS IS A LIST OF EAR AS ABOVE"BV"FOR THE STARTING DATE OF YOU BIO-CYCLE PLOT:";N`M,D,Y1Xj1830btJ5J2k~W1Wq"HOW MANY DAYS DO YOU WANT YOUR CHART TO COVER:";J7J6J7J5"IF YOU WOULD LIKE TO PLOT YOU BIO-CYCLE TYPE PLOT"=ONTH, DAY, AND YEAR"6"AS (EX. 11,28,1948) HERE:";BM,D,Y1L1830VJ4J2_W1We$" YOU WERE BORN ON A "D$(W1)."HOW ABOUT THAT!......."38"WHAT IS YOUR NAME?"=N$BG L"NOW TYPE IN THE MONTH DAY AND Y8 ,K:=/(6):"THIS PROGRAM SHOULD HAVE HELPED YOU TO"q0(8):"DETERMINE WHAT YOU NEED TO ACHIEVE WHAT"1(10):"YOU DESIRE."2(12):11:"HERE IS A SUMMARY."34:(16):"DO YOU WANT TO PRINT HARD COPY? (Y/N)":AA$:4AA$AY$Ĺ54,0: YOU REFLECT ON THE PRIN-":(10):"CIPLES ON WHICH YOUR GOAL OR DESIRE"}((12):"DEPENDS. IF YOU DISCOVER A NEW APPROACH")(14):"YOU ARE WELCOME TO TRY AGAIN.":(16):5:"OTHERWISE...IT LOOKS LIKE YOU'RE"*(18):"OUT OF LUCK!":Z15000:Z:57YOU RETURN.":578P (12):"IS THERE AN ALTERNATIVE ELEMENT? (Y/N)":A9$:936"A9$AY$Ė19:(12):"OK":Z12500:Z::A4$AY$:350&(4):5:"YOUR PROBLEM HAS NO SOLUTION AT":(6):"THIS TIME IN ITS PRESENT CONFIGURATION."G'(8):5:"I SUGGEST000:Z::260=936:8:(10):"IS IT POSSIBLE TO GET THE"o10:(12):"INFORMATION YOU NEED? (Y/N)":A8$A8$AY$ė:5:(10):"OK THEN, GO GET THE INFORMATION.":541:544(12):"YOU HAVE TO HAVE AND WE WILL CONTINUE"(14):"WHEN L$(K):A65$J(22):"IS THE INFORMATION YOU NEED HANDY, NOW? (Y/N)";A7$A7$AN$ė:(10):"YOU WILL HAVE GO GET THE INFORMATION YOU":511:520(12):"NEED BEFORE WE CAN CONTINUE.":Z13000:Z:530 (16):12:"GO GET IT PLEASE":Z15THE MISSING"8(8):"ELEMENT,YOU OBVIOUSLY NEED MORE"R(10):"INFORMATION."(12):"PLEASE THINK WHAT INFORMATION YOU NEED."(14):"HIT THE RETURN WHEN YOU'RE READY TO"(16):"CONTINUE." (18):9:"YOU'RE WORKING ON:":(20):10:ME:10:A625$A625$AY$ī315S:(6):"YOU HAVE NOW DETERMINED THAT YOU WILL"i(8):10:ACQ$(K)(16):"TO ACQUIRE:",MEL$(K)(18):"---AND SO THERE IS NO LONGER A PROBLEM!"Z18000:Z::556 (6):"IF YOU DON'T KNOW HOW TO GET ITED"+11:(12):"YOUR EARLIER DESIRE."BZ13000::Z::(10):"WHAT MUST YOU DO TO ACQUIRE THE":(12):"MISSING ELEMENT?":(14):10:ACQ$(K) :(8):5:"STILL NO CONFLICTS WITH OTHER GOALS,":(10):"DESIRES, OR ETHICAL STANDARDS?":(14)"PLEASE USE A SHORTER PHRASE. THANKS.":S******************2S"31160y21000:31010-yA$"P"31180?y22000:31010TyA$(13)31130c}::12:9 }"CALENDAR IS OFF THE AIR"}23@***** CALENDAR *****A* WRITTEN 1980 BY *B* PAUL IRWIN *C* (613) 728-6728 *D**TEN BY PAUL IRWIN"6yT12:10J@y5:"A PERPETUAL CALENDAR PROGRAM FOR"sJy"YOUR CHOICE OF SCREEN OR PRINTER:"Ty:T:"S ... SCREEN"^y:T:"P ... PRINTER"hy:T4:" ... RETURN TO BASIC"yX(0)y20:16:"WHICH? ";:A$yA$"**"Vv" **** "Wv" ** "-Xv" ** ";Yv"** "I\vY$(7,10)UfvI110kpvJ17:Y$(J,I):qzvwy}yy**** MAINLINE MENU ****"y:::255,y3:16:"CALENDAR".y:60y"FROM THE OTTAWA 6502 USER GROUP"2y:9:"WRIT?v"******"@v"* **"(Av" ** "6Bv" ** "DCv" ** "RDv"** "`Ev"** "kHvEIGHTyIv" **** "Jv"** **"Kv"** **"Lv" **** "Mv"** **"Nv"** **"Ov" **** " RvNINESv" **** " Tv"** **"Uv"** &v" ** "'v" ** "%*vFIVE3+v"******"A,v"** "O-v"** "].v"***** "k/v" **"y0v"** **"1v" **** "4vSIX5v" **** "6v"** **"7v"** "8v"***** "9v"** **":v"** **";v" **** " >vSEVEN "** **"v" ** "$v" ** "2v"** "@v"******"KvTHREEZv" **** " hv"** **"vv" **"v" ** "v" **"v"** **"v" **** "  vFOUR!v" ** ""v" *** "#v" * ** "$v"******"%v" ** "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?":SUBG$(L6)TSUBG$":171]":(12):6:"SORRY, NO SUCH LINE NUMBERS!":Z13000:Z:700!](VT):I:(VT):4:SUBG$(I)-!bVTVT2:I3!g>!:600q!(18):"ENTER TWO LINE NUMBERS TO BE SWITCHED"!(20):"SEPARATED BY A COMMA."!(22):10:L5,L6!L51L5N1ī740!L61L6N1ī740!TSUBG$SUBG$(L5)"SUBG$(L5)SUBG$(L6)**********************************":Z18000:Z; ;:600 ?Z15000:Z::(10):"****************************************" @(12):"GOOD LUCK!",,NM$ A(14):"****************************************" B54,240:55,253: XVT1 YI1N355,1921:936>5"********GOAL/ACTION PLAN SUMMARY********"]613:(4):"YOU DESIRE TO:"q713:(6):GOAL$8(8):5:"WHAT YOU DESIRE REQUIRES YOU TO"9(10):"ACCOMPLISH THE FOLLOWING FIRST IN"0 :(12):"ORDER TO ACHIEVE IT.":(14):"******(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,  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,TEMPERATUREERE CODES: ";I4,I6&I41I451670:I61I651670j:"ENTER MIN,MAX ROOM TEMPERATURE: ";I7,I8zI7I81700:S$;"I RECOMMEND THE FOLLOWING";S$:L1I1T1:1450C1I2C2I11820I3C3I5C31820I45I6RLY"%,"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$:LL1nL221410xAME 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""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"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!" WORD ";A$;" ARE "N 90d2  ZN0Id"TYPE A WORD AND I'LL TELL YOU HOW MANY VOWELS ARE IN IT."QnA$`xI1(A$)qB$(A$,I,1)B$"A"200B$"E"200B$"I"200B$"O"200B$"U"200I220NN1I "THE TOTAL VOWELS IN THEM DISPLAY..RUN AT LINE 20.J(N$)52100 (N$)62070% H, G3 4K: DA CH ` Al j ::" ANOTHER WORD Y/N ?";K${ t K$"Y"20 ~ :12:I6)"M":30I)"L":I:I6)"B":30I)"J":18)"U" 24I:I6)"E":30I)"S" X1X1:X: ( : TO SKIP00 (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)"----------  ATER: ";: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 BEGINS*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                :(4);"BRUNMENU" 550 1090K5K51$K60."10904,:6M(FA8)dI5(K1365)-nK1K1(I5365)>xI6(K130)QI7K1(I630)_K5K5I5mK6K6I6{K7K7I7K701480K7K730K6K61K601510K6K612K5K5123);I5;29);I6;36);I7K612140C( TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS.a2 0,3,3,6,1,4,6,2,5,0,3,5< THIS IS THE CURRENT DATE USED IN THE CALCULATIONS.F THIS IS THE DATE TO BE CALCULATED ON.P CALCULATE TIME INB YEARS, MONTHS, AND DAYSZK1A1(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$""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)  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.":          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""           we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::a ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē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      I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 ;: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     z #Xβ ٠͠ ŠҠ ԠӠ Ԡ̠ҠҠΠ ҠԠ ٠ Ӡ ŠӠ Ӡà ҠŠ٠ ŠҠ  Рˠ  ĠҠ ӠΠϠӠ!ΠҠɠ"ΠҠɠ٠ԠéРԠĠ ҠĠ  ϠŠ"٠٠ŠΠՠҠɠҠɠ٠ƠŠˠɠ٠ƠŠˠɠՠɠŠŠҠ ϠԠԠҠ ٠Ӡ1 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 *  D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               6368,0)<(16384)127Ĺ16368,0:13603F1340B(K1)01130Q31250=B(K1)270(90B(K1))(1)QG1260fB(K1)90(90B(K1))(1)Q" DISTANCE (NEGATIVE IF RADIAL)";L(K1)L(K1)01300 (L(K1))(L(K11))1260("HIT ANY KEY TO END PROGRAM"21" ";D1;M;S;" R=";R(D);"A=";R(A1);"C=";R(C1);"T=";R(T)C250KLQ0WVB(K1)0c`L(K1)0j"COURSE ";K1;":QUADRANT,DEGREES,MINUTES,SECONDS";tQ,D,M,S~Q01300FQ41130Q11130B(K1)DM60S3600B(K1)901130415927D2 fC12D(C2R)- pC180910> zTD(C2R)G 920X T999999.999m B0B(K1)B(K11)~ B9180980 B0180960 B00980 AAA1 990 AAA1 D1(C) M1(CD1)60 M(M1) S((M1M)60.5):X X170 A(A2)! K "TOTAL AREA IS ";R(A);" SQ. FT. (";| (A43560100000000.5)100000000;" ACRES)"  1310 C(B(K1)B(K11)) *C180830 4C(180C) >C(180C) HDL(K1) RL(K1)L(K1) \A1C1803.1560 B1$"N" 560- B(K1)B(K1)3606 &300F 0D1(B(K1))[ :M1(B(K1)D1)60g DM(M1)} NS((M1M)60.5) XB1$;B2$;" ";D1;" ";M;" ";S,R(L(K1)),R(L);",";R(D),R(N);",";R(E) bL(K1)L1 lK1 v "ANY MORE COURSES"; K1)0560 TB2$"E" ^560* hB1$"."6 rB2$"E"J |B(K1)180420\ B(K1)90560h B1$"S"q 560} B1$"S" B2$"." B(K1)270480 B(K1)180560 B2$"W" 560 B1$"." B2$"W" B(K1)360540 B(K1)270 / "BEARING","DISTANCE","LAT,LON","N,E"? ,,,N;",";EL K11K2Y L1L(K1)j L(K1)0800{ L(K1)0630 LL(K1)(B(K1)R) DL(K1)(B(K1)R) NNL EED "AAELND ,B1$"N" 6B2$"." @B(K1)90360 JB(5 "MAP CHECK")B(10),L(10)F(R(X)(X1000.5)1000[2R.0174532925199e<K210F"**NEXT SET OF COURSES**"PK11K2Z1100dQ0120nK1xK10"CHANGE COURSE NUMBER";K1K101801100120   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA 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(SN I'LL FIND IT!" 6" L13. 6L117; ;(L4)2H @A(L,L1)P JL1W T6^ ^Lh h14: r2:"1";:6:"2";:10:"3" | 17 "WHICH COLUMN (1,2 OR 3) "; S  S1S3407 FS1:F4F1 TS2:T5T2  <1000dA(3,7),B(3,7)=nR((1)3)1:R1((1)7)1fA(R,R1)0A(R,R1)C:CC1:C22150o110z16:6"PICK A NUMBER FROM 1 TO"16"21. I WILL ASK YOU WHICH":16:"COLUMN IT'S IN THREE"::16 "TIMES. THE  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    ASK?". "DOES THAT QUESTION INTEREST YOU?"W "DOES THAT QUESTION INTEREST YOU?" "WHAT ANSWER WOULD PLEASE YOU MOST?" "WHAT DO YOU THINK?" "ARE SUCH QUESTIONS ON YOUR MILD OFTEN?" "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"."h "OH, I SEE*"Jr "YOU'RE NOT REALLY TALIING ABOUT ME, APE YOU?"x| "UHAT WOULD IT MEAN TO YOU IF YOU GOT*" "WHY DO YOU WANT*" SUPPOSE YOU SOOL EOT*" "WHAT IF YOU NEVER GMT*" "I QOMETIMES ALSO WALT*" "WHY DM YOU KNOU YOU CAN'T*"(" "HAVE YOU TRIED?"E, "PERHAPS YOU CAN NOW*"r6 "DID YOU COME TO ME BECAUSE YOUR ARE*"@ "HOW LONG HAVE YOU BEEN*"J "DO YOU BELIEVE IT IS NORMAL TO BE*"T "DO YOU ENJOY BEING*"^ "WE WERE DISCUSSING YOU-- NOT ME I WILL*"$ "DM YOU WANT ME TO("P "DO YOU THINK YOU SHOULD BE ABLE TO*"f WHY CAN'T YMU*" "WHY ARE YOU INTERESTED IN WHETHER OR LOT I AM*" "UOULD YOU PREFER IF I WERE NOT(" "PERHAPQ IN YOUR FANTASIEQ I AM*" HOW DO YOU LLY(  "WHY DON'T YOU*"? "DO YOU WISH TO BE ABLE TO*"^ "DOES THAT TROUBLE YOU?" "TELL ME ABOUT SUCH FEELINGS." "DO YOU ODTEN FEEL*" "DO YOU ENJOY DEELING*" "DO YOU REALLY BELIEVE I DON'T*"  "PERHAPS IN GOOD TIME,ABLE TO*",P "PERHAPS YOU DON'T WANT TO*"NU "DO YOU WNT TO @E ABLE TO*"qZ "WHAT MAKES YMU THINK I AM*"d "DOES IT PLEASE YOU TO BELIETE I AM*"n PERHAPS YOU WMULD LIKE TO BE* x "DO YOU QOMETIMES WISH YMU WERE*" DMN'T YOU REA "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY "a " I'VE "," YOU'VE "," I'M "," YOU'RE "w " ME "," !YOU "} REPLIES(2 "DON'T YOU BELIEVE THAT I CAN*"< "PERHAPS YOU WOULD LIKE TO BE ABLE TO*" F "YOU WANT ME TO BE ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"l8 "NAME","CAUSE","SORRY","DREAM","HELLO","HI","MAYBE"B "NO","YOUR","ALWAYS","THINK","ALIKE","YES","FRIEND"L "COMPUTER","NOKEYFOUND" STRING DATA FOR CONJUGATIONS4 " ARE$I$:170v(F$,(F$)1);C$.P$I$:1704S --PROGRAM DATA FOLLOWS--Yi KEYWORDSo "CAN YOU","CAN I","YOUR ARE","YOU'RE","I DON'T","I FEEL"$ "WHY DON'T YOU","WHY CAN'T YOU","ARE YOU","I CAN'T","I AM","I'M"2. "YOU ,L1(C$)B -(C$,L,1)"!"C$(C$,L1)(C$,(C$)L):557I .LO 0| : NOW USING KEYWORD NUMBER (K) GET REPLY D N:X1N1N2:Z$:X XX1R(K):F$:X: READ RIGHT REPLY bR(K)R(K)1:R(K)N(K)R(K)S(K) l(F$,1)"*"ĺF$:P$,L,(S$))S$510< C$(C$,L1)R$(C$,(C$)L(S$)1)J LL(R$)S 540j L(R$)(C$)540 (C$,L,(R$))R$540 C$(C$,L1)S$(C$,(C$)L(R$)1) LL(S$) L &X +(C$,2,1)" "C$(C$,(C$)1): ONLY ONE SPACE |/  TAKE PART OF STRING AND CONJUGATE IT]  USING THE LIST OF STRINGS TO BE SWAPPEDc  :X1N1:Z$:X: SKIP OVER THE KEYWORDS C$" "(I$,(I$)(F$)L1)" " X1N22 S$,R$ L1(C$) L(S$)(C$)510 (CREPEAT YOURSELF!":170 9  --FIND KEYWORD IN I$--? E "M 'S0Y ,K1N1a 6K$n ;S0360 @L1(I$)(K$)1 T(I$,L,(K$))(K$)SK:TL:F$K$ ^L hK mS0KS:LT:390 rK36:570:- WE DID NOT FIND ANY KEY WORDSEM?" ) -- USER INPUT SECTION --/ 7 I$J I$" "I$" "j -GET RID OF APOSTROPHIES-y L1(I$) (I$,L,1)"'"I$(I$,L1)(I$,(I$)L):230 L4(I$)ĭ(I$,L,4)"SHUT"ĺ"SHUT UP...": L I$P$ĺ"PLEASE DON'T 18);"ELIZA"%18);"**(**"/::IP ==INITIALIZATION---`dS(36),R(36),N(36)wnN136:N214:N3112xX1N1N2N3:Z$:X: SAME AS RESTOREX1N1S(X),L:R(X)S(X):N(X)S(X)L1X "HI! I'M ELIZA. WHAT'S YOUR PROBL          VUTITLE$"INSERT TITLE":::12:X20(TITLE$)2:X:TITLE$:A$::(4);"CATALOG",XPECT",w"ME TO GO ON WITH MY PSYCHOLOGY"Jz"STUDIES IF MY PATIENTS"h|"DON'T PAY THEIR BILLS?"::"NOW LET ME TALK TO SOMEONE ELSE.""NICE MEETING YOU, ";N$;", HAVE A NICE DAY."6X "PLEASE RESPOND WITH 'YES' OR 'NO'.":315Y^"HEY,CHEAPSKATE, YOU LEFT NO MONEY.....!"c"WHO'S GOING TO PAY MY POWER BILL?"h"RIP OFF,ALARM*****A****************"m390r"THAT'S HONEST, ";N$;","u"BUT HOW DO YOU E1"PLEASE LEAVE THE MONEY ON THE TERMINAL WHERE I CAN SEE IT."R3I12000:I\6::;"I DON'T SEE THE MONEY, ";N$;","<"DID YOU LEAVE IT?"@G$:EG$"YES"350JG$"NO"370O"YOUR ANSWER OF '";G$;"' CONFUSES ME,";N$;"."*TORE PROBLEMS YOU WANT SOLVED, ";N$;"?"0E$:BE$"YES"280SE$"NO"300"JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N$;"."255:"WHAT KIND (SEX, MONEY, HEALTH, JOB)";125,."THAT WILL BE $5.00 FOR THE ADVISE, ";M$;"."AUCH PROBLEMS! OOOOH"J"IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER."S250"WHY ARE YOU HERE, ";N$;"? YOU SHOULD BE""DOWN ON FIRST AND PIKE, OR TOKYO OR NEW YORK OR BERMUDA""OR SOMEPLACE WITH SOME REAL ACTION.":&"ANY MM TOO LITTLE OR TOO MUCH?";D$:6D$"TOO MUCH"220OD$"TOO LITTLE"230s"DON'T GET ALL SHOOK, ";N$;",""JUST ANSWER THE QUESTION""WITH'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT?";D$:210"YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SOMEONE RICH OR STOP EATING"C "SO YOU WON'T NEED SO MUCH MONEY?"L 250o "MY ADVICE TO YOU ";N$;" IS:" "1. TAKE TWO ASPIRIN." "2. DRINK PLENTY OF FLUIDS (CACTUS JUICE, NOT BEER!)" "3. GO TO BED (ALONE)" 250"IS YOUR PROBLEAND SOME OF MY BOSSES"E "LIKE JERRY, REALLY BEAT ON MY KEYBOARD."f "MY ADVICE TO YOU, ";N$;"," "IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN." 250 "SORRY, ";N$;", I'M BROKE TOO. "WHY DON'T YOU SELL AVON OR" "MARRY SB)"; }C$ C$"SEX"2003 C$"HEALTH"180G C$"MONEY"160Y C$"JOB"145 "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME." 250 "I CAN SYMPATHIZE WITH YOU ";N$;"." "I HAVE TO WORK VERY LONG HOURS" "FOR NO PAY - - AYBE, JUST MAYBE, WE CAN "? U"BRIGHTEN UP YOUR VISIT A BIT."I d::s i"SAY, ";N$;", I CAN SOLVE ALL KINDS" k"OF PROBLEMS EXCEPT THOSE DEALING WITH" m"GREECE." n"WHAT KIND OF PROBLEMS DO YOU HAVE" x"(ANSWER SEX, HEALTH, MONEY, OR JOB$"YES"70 7B$"NO"80X <"";N$;", I DON'T UNDERSTAND YOUR ANSWER IS '";B$;"'."{ A"PLEASE ANSWER 'YES' OR 'NO'. B"DO YOU LIKE IT HERE?";:40 F"I'M GLAD TO HEAR THAT, ";N$;".": K100 P"OH, I'M SORRY TO HEAR THAT, ";N$;"," S"M 15);"HELLO HECTOR"=15);"PROGRAMMING BY DOROTHY"I::: "HELLO. MY NAME IS HECTOR, YOUR FRIENDLY NEIGHBORHOOD COMPUTER."::"WHAT'S YOUR NAME?";N$::"HI THERE,";N$;",#"ARE YOU ENJOYING YOURSELF HERE?";(B$: 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   $,C,1); ]((1)2)0975 ^(V$,D,1);(C$,E,1);? a"Y",R dKID:"GEORGE" n -------------- BEAGLE BROS. -------------- VV$"AEIOU"5(C$"BCDFGHJKLMNPQRSTVWXYZ"O2"58 NAMES FOR BABY:"~<"---------------------------------------"FKID157PA((1)21)1:B((1)5)1:C((1)21)1:D((1)5)1:E((1)21)1 Z(C$,A,1);(V$,B,1);(C$,C,1);(C "YOUR ACTUAL BIRTH TIME ENTER THE DAY IN DECIMAL FORM."}4"FOR EXAMPLE: IF YOU WERE BORN 6:00 P. M. ON NOVEMBER 28, 1948">"YOU WOULD ENTER YOUR BIRTH DATE AS 11,28.75,1948. NOW EACH"H"DATE PLOTTED REPRESENTS THE CYCLES ASPECT WITH RESPECT TO JUNE"M$(7)"JULY"'M$(8)"AUG."8M$(9)"SEP."JM$(10)"OCT."\M$(11)"NOV."nM$(12)"DEC."} S51900" THE DATES LISTED ARE FOR MIDNIGHT, THE BEGINNING OF" "THE DAY PRINTED. IF YOU WOULD LIKE THE CHART PLOTTED FOR"8*60%! THREE TIMES THAT OF A"bv"NORMAL DAY. ON DAYS WHERE TWO CYCLES CROSS ZERO YOU ARE ONLY 6""TIMES ACCIDENT PRONE AS NORMAL."32000M$(12)M$(1)"JAN."M$(2)"FEB."M$(3)"MAR."M$(4)"APR."M$(5)"MAY"M$(6)"UR"KN"20% OF THE TIME, OR ONE DAY OUT OF EVERY FIVE. A STUDY WAS MADE"X"ON 1000 RANDOM ACCIDENTS AND DEATHS, THIS STUDY UNCOVERED THAT"b"ALMOST 600 OF THESE ACCIDENTS OCCURED ON A CRITICAL DAY FOR THE"l"PERSON INVOLVED. THIS IS ALMOST A GOOD IDEA TO STAY IN BED. FOR YOUR CHANCES OF"r0"HAVING AN ACCIDENT IS ** 9 ** TIMES THAT OF A NORMAL NON-":"CRITICAL DAY. ON ALL CRITICAL DAYS YOU ARE HIGHLY ACCIDENT PRONE"D"AND SHOULD AVOID DANGEROUS CIRCUMSTANCES. THESE DAYS ONLY OCC""CYCLE."32000a" THE DAY WHEN EACH RHYTHM OR CYCLE CHANGES SIGN, CROSSES ZERO""REPRESENTED BY 'I', IS A CRITICAL DAY FOR YOU. WHEN ALL THREE""CYCLES CROSS ZERO ON THE SAME DAY REGUARDLESS OF THE DIRECTION"1&"IT WOULD BE "C"IN THE AREAS GOVERNED. YOU SHOULD USE THIS PERIOD FOR THE""RECUPERATION OF THE LOW RHYTHM. THE THREE CYCLES ARE""REPRESENTED BY THE LETTERS 'P' - FOR THE PHYSICAL CYCLE""'E' - FOR THE EMOTIONAL CYCLE, AND 'C' - FOR THE COGNITIVE THE POSITIVE SIDE OF THE CYCLE.",320002v" WHEN ANY OF THESE CYCLES ARE POSITIVE YOU ARE MOST ABLE IN""THE AREAS GOVERNED. WHEN THEY ARE NEGATIVE AND OR FALLING""(GOING FROM POSITIVE TO NEGATIVE) YOU LOSE SOME OF YOUR ABILITIESTIVE. ON THE DOWN CYCLE OF THIS RHYTHM"j"YOU SHOULD REVIEW OLD CONCEPTS AND AVOID SPENDING TOO MUCH""TIME BEING CREATIVE, AS YOU WOULD BE CONSIDERABLY BETTER AT SUCH""TASKS ON THE RISING PORTION OF THIS CYCLE ESPECIALLY IF IT IS"!"ONLY STUBBORN." Y32000] ^" 3. YOUR COGNITIVE CYCLE. THIS CYCLE AFFECTS YOUR THOUGHT" h"PROCESSES, AND YOUR ABILITY TO ANSWER QUESTIONS RAPIDLY" r"AND ACCURATELY, AND YOUR ABILITY TO ABSORB NEW INFORMATION"(|"AND TO BE ORIGINAL AND CREAITY. THIS EFFECTS"X 6"YOUR FRIENDLINESS, COOPERATIVENESS, AND YOUR OPTIMISM. WHILE" @"THIS CYCLE, WHICH IS REPRESENTED BY THE CURVE DRAWN WITH THE" J"LETTER 'E' , IS NEGATIVE YOU ARE LIKELY TO BE IRRITABLE, EASILY" T"FRUSTRATED AND POSSIABNGTH AND ENDURANCE, WHILE THE VALLEY (THE MINUS"v "SIDE - TO THE LEFT) IS THE POINT OF LEAST PHYSICAL RESISTANCE." 32000 "" 2. YOUR EMOTIONAL CYCLE. THIS CYCLE IS RELATED TO YOUR NERVOUS" ,"SYSTEM AND IT AFFECTS YOUR EMOTIONAL SENSITIVNDURANCE, STRENGTH,"] "AND PHYSICAL WELL BEING. EFFECTS WORSEN ON THE DOWN CYCLE (MINUS" "SIDE OF THE CURVE) AND LESSEN ON THE (POSITIVE SIDE). THE PEAK" "OF THE CURVE (POSITIVE - TO THE RIGHT) REPRESENTS YOUR GREATEST"0 "PERIOD OF STREDEED! IT CONSIST OF THE THREE"a "RHYTHM'S THAT YOUR BODY IS CONSTANTLY GOING THROUGH. THESE" "RHYTHM'S ARE AS FOLLOWS:" " 1. YOUR PHYSICAL CYCLE. THIS CYCLE AFFECTS THE MUSCLE FIBERS" "IN YOUR BODY. IN TURN THIS EFFECTS YOUR E`  d THIS IS BIO-CYCLETn"*WELCOME TO * BIO-CYCLE * - IF YOU WOULD LIKE"|x"INFORMATION TYPE A -1, ELSE -2";S5S51650" HELLO. I AM GOING TO DRAW A GRAPH OF YOUR BIO-CYCLE!!!!" "WHAT IS A BIO-CYCLE! IN           BMXT(J1)LJSJ1VJ1+`R(JS)J7jP(J)JSGtT(JS)9999N~JTh:39);" "::1NH%RO(PO(J))0.9RO(PO(0))950;"AND ";A$(PO(J))BJr::"ANOTHER RACE TO HANDICAP (YES/NO)";R$R$"NO"990"WHICH RACE NEXT ";NR:360 ---SORTING SUBROUTINE---J0NH$MX999.J10NH8T(J1)MX1110ON COMPOSITE SCORE"%D*"RANK NAME COMPOSITE SCORE"J/V4J0NHm>J1;5)A$(PO(J));C30);(RO(PO(J).005)1000)1000HJR:::"HIT RETURN WHEN REVIEW COMPLETE";Z$f:10z"PERSONALLY, I LIKE "A$(PO(0))JISH FACTOR"9"RANK NAME FACTOR"?KJ0NHbJ1;5)A$(PP(J));25);(KP(PP(J).005)1000)1000J:::"HIT RETURN WHEN REVIEW COMPLETE";Z$ "RACE # ";NR;" AT ";C$;" ON ";D$ "RANKING BASED NINGS" q5v"RANK NAME $WIN/RACE";{GJ0NH^J1;5)A$(PW(J));30);(KW(PW(J).005)100)100J:::"HIT RETURN WHEN REVIEW COMPLETE";Z$"RACE # ";NR;" AT ";C$;" ON ";D$ "RANKING BASED ON FINNH:RW(J)R(J):PW(J)P(J):J4J0NH:T(J)P(J):J>1000c&J0NH:RP(J)R(J):PP(J)P(J):J:J0NH:RO(J)KW(J)KP(J):T(J)RO(J):JD1000NJ0NH:PO(J)P(J):JXb"RACE # ";NR;" AT ";C$;" ON ";D$l"RANKING BASED ON $$$$$ WINIS PERIOD ";W< "FINISHES THIS PERIOD (1,2,3) ";M1,M2,M3L KW(NH)WMRi KP(NH)(3M12M2M3)MR "ANY MORE HORSES TO EXAMINE (YES/NO)";B$ B$"NO"490 B$"YES"440 NHNH1:2000:370 J0NH:T(J)KW(J):J 1000J0 ";D$= ^"WHICH RACE DO YOU WANT TO HANDICAP ";NRF hNH0L jV m2000 r"NAME OF HORSE TO BE EVALUATED ";A$(NH) |"NUMBER OF RACES RUN THIS PERIOD ";MR MR0ĺ"NO RACE HISTORY. REJECT.":I11000:I:2000:370 "WINNINGS TH THEN COMPARE THE WINNERS WITH 'TOUT I.THE RESULTS ARE NORMALLY POSTED IN THE FOLLOWING DAYS FORM." ::" YOU MIGHT BE IN FOR A SURPRIZE "::25);"GOOD LUCK" "HIT RETURN TO START ";R$ :I11000:I J"NAME OF TRACK ";C$ T"DATE ELP YOU PICK A WINNING HORSE AT THE TRACK! IF YOU'VE EVER MULLED OVER A RACING FORM THEN THISIS THE PROGRAM FOR YOU." :" TO REALLY GRASP HOW WELL THIS PROGRAM RUNS, JUST USE AN OLD RACING FORM, AND FILL IN THE INFORMATION AS REQUESTED.":d " . "* <====> T O U T I <====> *"] "* *" "* *" "***************************************" :::: I15000:I w "'TOUT I' IS DESIGNED TO H inMM11=xA$(MM),KW(MM),KP(MM),T(MM),R(MM),P(MM)lRW(MM),RP(MM),PW(MM),PP(MM),RO(MM),PO(MM)r"***************************************""* *""* *"    C100.5)100+ K" ";B;:20:C;:26:"%"? PAA(365B)365V ZB(B16)16İ120\ db nn xB80Ā :"HIT 'RETURN' TO CONTINUE...";A$ :H/:: JERRY JENKINS OCT.1978V "NUMBER OF","PROBABILITY THAT AT"t" ","LEAST TWO HAVE THE"" PEOPLE","SAME BIRTHDAY""^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"(34,5:2A.997260274<B280 FC100(1A):C(   ";A$:$;", AND"-0"ENTER YOUR REAL WEIGHT.":2905:~ "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080:"YES OR NO, PLEASE.";:2010 ::"'BYE FOR NOW,09 "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."D 1980i "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290 &"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";ASERIOUSLY AFFECTED." 1980h: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION." 198>z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"I 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 1980: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES BLOOD ALCOHOL IS ABOUT ZERO.". 1050[  "YOUR PER CENT OF BLOOD ALCOHOL IS ";Bn* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910p: 7) "+++++ REST IN PEACE +++++"194((W100)10.00009): R .765(((W100)10).015)] B (D1000(W16R))(60X)v B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015) B0 800# "YOUR PER CENT OF "HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;3& Hc0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD X .00ARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"M "B = BEER (12 OZ)"] "W = WINE"c  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530 510 +S ";K;" KILOGRAMS.)":430g "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM."s WW2.2y   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"5 "M = 'MIXED' (H @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"E JB$:(B$)0360Z T(B$,1)"P"380o ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5) :"(";W;" POUNDS ION. MEDICATIONS,"` "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830017:"BOOZE" i "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL" "TOLERENCE. FOOD IN THE STOMACH AFFECTS THE RATE OF ABSORPTI  BOOZE 9 A PROGRAM ON THE PHYSIO-R LOGICAL EFFECTS OFm ALCOHOL ON THE HUMANx BODY~ BY DICK CARTER AND JIM HUNGERFORD APPLESOFT VERSION BY JOHN COOKd:70: 5:      6 GALLONS"6r"WASHING MACHINE 35 GALLONS"^|"OUTDOOR WATERING AVG. 10 GALS/MINv6,20,15,16,6,35,10 A -F 6"THE FOLLOWING TABLE WAS USED TO DETERMINE AVERAGE USE:"n @"SHOWER 6 GALLONS" J"TUB BATH 20 GALLONS" T"DISHWASHING 15 GALLONS" ^"DISHWASHER 16 GALLONS"h"TOILET FLUSH SUMPTION OVER 8000 GALS/MO., A PENALTY IS ASSESSED, CAUSING THE RATE TO JUMP TO $1.00/100 CUBIC FEET." $"YOUR BILL FOR THE MONTH WILL BE:" %T8000295 &T8000297 ' )K2.85(((80007.5)100)0.50) *"$"K(((T8000)7.5)100)1.00 ,H, OR ";T7.5;" CUBIC FEET# ::Q "THAT IS AN AVERAGE OF ";T30;" GALS/DAY :::::::::"PRESS ANY KEY TO CONTINUE" A$ 936 ""BASED ON A METER CHARGE OF $2.85/MO. AND $O.50/100 CUBIC FEET UP TO 8000 GALLONS OR:"f #"FOR CON0 xX TT(S(MX))30% X7 TT(BX)30> XP TT(DX)30W Xi TT(AX)30p X TT(FX)30 X TT(WX)4.2 X TT(HX)30 TT(V30)  ::: "YOU USE APPROX. ";T;" GALLONS/MONTB, 2"NO. OF HAND DISHWASHING JOBS/DAY ";DW <"NO. OF AUTO DISHWASHING JOBS/DAY ";A{ F"NO. OF TOILET FLUSHES/DAY ";F P"NO. OF WASHER LOADS/WEEK ";W Z"NO. OF OUTDOOR HOSE MINUTES/DAY ";H d"ENTER NO. OF VARIOUS GALLONS USED/DAY ";V nTx 936::::G"***** WATER CONSERVATION *****"c::::::::::: "PRESS ANY KEY TO BEGIN" A$936"ENTER NO. OF SHOWERS PER DAY ";S"NO. OF MINUTES PER SHOWER ";M ("NO. OF TUB BATHS PER DAY "; 28 TO 29 (3RD GROUP)'::360:620Z:"AFTER CHANGES ARE MADE, TYPE 'GOTO 170'":`3 &D2M(N)590 0W :& DDDG- NN3 XA bI16:IG gw l 0,31,28,31,30,31,30,31,31,30,31,30,31,999 v999 :: "THE FOLLOWING PROGRAM CHANGES SHOULD BE MADE:" :"LINE 360 - CHANGE 365 TO 366.":"LINE 620 - CHANGE ^I19 _"*";:I5 h" ";365S;37);"**":380c |" S M T W T F S"x I139:"*";:I~  W16 (10) 1)  G17 DD1 D2DS D2M(N)580 D20ĺD2; 16G); G ";:350 " FEBRUARY";:3505 " MARCH ";:350L " APRIL ";:350c " MAY ";:350z " JUNE ";:350 "" JULY ";:350 ," AUGUST ";:350 6"SEPTEMBER";:350 @" OCTOBER ";:350 J" NOVEMBER";:350 T" DECEMBER";L$ L$"YES"165 170' 640- B N012:M(N):NU 936:18);Y$a N112t ::SSM(N1)| : 255 A$ :"** ";S;6); I19 "*";:I N230,240,250,260,270,280,290,300,310,320,330,340 " JANUARY INPUT DAY OF WEEK USE: (SUN=0, MON=-1, TUE=-2, WED=-3, THUR=-4 FRI=-5, SAT=-6)." :"TYPE DAY OF WEEK FOR JAN 1 "; D :S0: "TYPE IN THE YEAR DESIRED "; Y$ 936:18);Y$:::: :"IS THIS A LEAP YEAR "; a 936  16);"CALENDAR"(:3nM(12)IxI16:(19);:I"THE COMPUTER MUST BE TOLD THE DAY OF THEWEEK FOR JAN 1 OF THE YEAR FOR WHICH YOUDESIRE THE CALENDAR READOUT. THE PROGRAN'WEEKDAY'MAY BE USED TO DETERMINE THIS."^ "TO       ZEROu" **** "!u"** **"/u"** **"=u"** **"Ku"** **"Yu"** **"iu" **** " sv ONEv" ** "v" *** "v" ** "v" ** "v" ** "v" ** " v" **** " vTWO v" **** "v"** **"vE YEAR!PuF0(12):0,31,61,92,122,153,184,214,245,275,306,337:I112:F0(I):uMO$(12):MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERuJANUARY,FEBRUARY:I112:MO$(I):uLINE$(7)uT(3):T(1)1:T(2)28:T(3)55u STN J -- OTTAWA -- K2A 1T3"0WI18:(32):8WCN?W0EY^0u**** CONSTANTS ****z:uD03:PHASE DAY OF WEEKbuSTART THE YEAR ON MARCH FIRST AND TABLE THEduFIRST DAY OF EACH MONTH. THIS WORKS WHENfuFEBRUARY IS THE LAST MONTH OF THV(32):(32)V(32)$VA03.V6010<VLINE$(7)YVA$"S M T W T F S"V" ";A$;" ";A$;" ";A$VI16:LINE$(I):WI13:(32):WAW"<<< HAVE A GREAT YEAR! >>>"W"OTTAWA 6502 USER GROUP -- POB 6283RINTER, THEN"(@V"PRESS A KEY ";:A$GJV::15:"... STANDBY ..."QTV::[VSLOTkV(9);"80N"yVCN1NC%V(32)V(32)VL17VI120:(32);:VY$(L,Y11);" ";Y$(L,Y21);" ";Y$(L,Y31);" ";Y$(L,Y41)VCH YEAR?(YYYY): ";Y0$*$V(Y0$)422050n&VY1((Y0$,1)):Y2((Y0$,2,1)):Y3((Y0$,3,1)):Y4((Y0$,1)){(VY(Y0$),VY1582Y2999ĺ(7);"PARDON?":22050.V0V"HOW MANY COPIES?(1-20): ";NC%:NC%1NC%20220622V: 6V"START UP THE P21150RA$(13)21900-R21150:IGNORE3UOU**** PRINTER MENU ****U"OTTAWA 6502 USER GROUP -- POB 6283 STN J -- OTTAWA -- K1P 5R3"U:U6V"PRINTER SLOT? (1-4) ";SLOTVSLOT1SLOT4ĺ(7);"PARDON?":22020V:"V"WHIN> ... RETURN TO MENU"%R23:1:A$9RA$(8)21180ORMM1:M121174^RM12:YY1oR5000:21150RA$(21)21190RMM1:M1321186RM1:YY1R5000:21150RA$(32)21210R3000: CHOICER5000: DISPLAY MONTHR);:,&RI118:I:1:(32);:39:(32);:I0R18:1:I139:(32);:O:RbDR3000: CHOICE|NR5000: DISPLAY MONTHXR:20:T8bRT:" ... LAST MONTH"lRT:" ... NEXT MONTH"vRT:" ... ANOTHER CHOICE"RT:" 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         AY" "340 ,N5330) 6"THURSDAY"2 @340@ J"FRIDAY"F TN ^40_ h"RUNHELLO" M17 ND2M(.6(M1))Y(Y4)(Y100)(Y400)2R N((N7(N7))7.5)_ N0180o "SATURDAY"x 340 N1210 "SUNDAY" 340 N2240 "MONDAY" 340 N3270 "TUESDAY" 340 N4300 "WEDNESDa  :936$ "DAY OF THE WEEK"= "--- -- --- ----":Cg"(ENTER 0,0,0 TO END PROGRAM)"q::{ 34,5("MONTH, DAY, YEAR (7,19,1979) ";2M,D,Y<M0100FD0100PY0100Z360dM2130nMM12 xYY  Peq`%qdcPedkPe`$&dcPedkPe0_a@Gde<@rM[PdM M Yc~_Sa(ϠՠԺ)a()a()a(͠)a(٠Ŀ)T`$ _ q_ q _ q2 S(ԠĠ)'q_JdCPedJPedSPedZqd@ed@eq.?@r.?@r@p()R@`@*#r9()$RUVW;@rde<@*#rrYq;@rd@ed@ed8re<@r_q.?@r.?@r$S(ŠϠ)'`%~UVWde.?r Šԧ)%<S(ҠŠӠ)&@`@9()$F`@9()$dP`@9()$Z_dUVWnUVW/?rxq/?(r@p@*#r\Y@p()\Yc`.?6@r$dd6?e_S(נԿ)&@`@:()$p+ N@"(rC@"rq0Pq@qrP a(̠ׯ)1@p(ڰ) de@M6a(ŠΠ)cc d Pe0 a(ϠԠĬŠӧ))(a(ҠŠŠӬŠЧ)2a(ҠԬ MONTH, DAY, YEAR.  E.G. SEPTEMBER 12, 1975 WILL BE ENTERED AS (9,12,1975), MAKING CERTAIN THAT COMMAS, NOT SLASHES OR DASHES, SEPARATE THE FIGURES.MTHURSDAY" @340 J"FRIDAY"& T> ] - RESTART PROGRAMF ^40L hr  ******* DAY OF THE WEEK *******  THIS PROGRAM CALCULATES THE DAY OF THE WEEK THAT A GIVEN DATE FALLS ON.  YOU MUST ENTER THE DATE IN NUMERIC FORM & IN THE ORDER OF- FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT? N0180O "SATURDAY"X 340e N1210s "SUNDAY"| 340 N2240 "MONDAY" 340 N3270 "TUESDAY" 340 N4300 "WEDNESDAY" "340 ,N5330 6"100 FD0100 PY0100( Z360V c - NEED TO ADJUST INPUT FOR CALCULATIONSc dM2130x m - ADJUST INPUT nMM12 xYY1 - CALCULATE DAY NUMBER ND2M(.6(M1))Y(Y4)(Y100)(Y400)2 N((N7(N7))7.5)2 ;::"FOR INFO ON PROGRAM SEE LINE 500 TO 535",E::\ "DAY OF THE WEEK"b{ REQUEST USER INPUT"(ENTER 0,0,0 TO END PROGRAM)"("MONTH,DAY,YEAR";2M,D,Y7Y100YY1900; - TEST F