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`)_p7 @p(٠ϠՠǠРŠàƠӿ)_p( @p(ϠҠӠ٠տ)_p* @p(ϠҠӠˠΠտ)_p0 @p(ŠՠŠՠŠ٠ӿ)_p, @p(ϠՠŠΠҠӿ)_p8 @p(ӠҠ٠ԠϠտ)_p0 @p(ԠҠӠϠՠſ)_p4 @p(ĠŠ٠ŠŠο)_p @p(׿)_p& @p(ՠ͠ŠŮ)_p @p(Šՠſ)_p @p(ɠŮ)_p @p(ɠp(ԠŠՠǠƿ)_p @p(٬ӿ)_p% @p(Ϡՠ٠ˠϿ)_p& @p(ԠՠŠԠŠ)_ @p(ϠՠԠ)_ @p(ΠԠٿ)_p* @p(ԠŠϠՠſ)_p6 @p(ԠӠՠŠǠԠŮ)_p @p(٠Կ)_p @p(Šՠſ)_p @p(٠Ͽ)_p, @p(٠ŠՠĠԠ)_! @p(ԠԠҠ)_2 @p(ΠՠˠƠàſ)_p @p(ο)_p' @ͮ)_p+ @p(ՠΧԠ͠Šή)_p% @p(٠ŠΠſ)_p) @p(ΧԠՠŠŠſ)_p @p(ՠΧԠſ)_p @p(ΧԠՠ׿)_p4 @p(ŠՠǠϠԠϠŠſ)_p+ @p($ @p(ΧԠŠϠš)_p2 @p(ԠӠԠ͠ԠϠտ)_p! @p(Ϡՠ͠ο)_p1 @p(ԠӠҠΠҠӿ)_p/ @p(ŠՠĠ٠Ҡӿ)_p7 @p(נϠՠϮŠŠŠϠĿ)_p5 @p(ӠԠΠΠǠſ)_p0 @p(ԠҠӠԠŠſ)_p% @p(ŠΧԠš)_p* @p(ӠŠԠٮ)_p; @p(ԠӠϠՠŠΠՠŮ)_pՠĠȠӠſ)_p8 @p(ԠŠӠϠĠΠՠˠԿ)_p& @p(ӠΧԠԠŮ)_p7 @p(ɠΧԠŠԠӠŠϠή)_p& @p(ӠԠŠ̠ο)_p3 @p(ΧԠ٠ҠǠտ)_p4 @p(ԠҠĠŠՠŠԿ)_p @p(ԠϠՠ˿)_p4 @p(ŠȠӠΠҠĠο)_p6 @p(ԠӠԠԠՠ٠ԠϠ׿)_p) @p(ŠՠĠŠſ)_p3 @p(Šտ)_p2 @p(ԠĠԠΠϠՠƠՠ)_ @p(٠Ϡՠ)_" @p(ŠՠΠ)_# @p(ԠƠՠҠ)_# @p(ɠӠϠ)_ @p(٠Ϡՠ˿)_p. @p(ӠԠΠԠŠŠՠ)_$ @p(נǠŠՠ)_/ @p(ϠՠŠԠӠ̠Ϡ)_ @p(Ϡՠ٠)_/ @p(ŠŠǠՠԠŮ)_p @p(Ȭ)_: @p(էŠԠ٠ǠԠŬŠϠՠĠΠҠҠԠɠ)_, @p(ĠՠҠƠɠŠ)_, @p(ӠΠҠӠɠ)_' @p(נϠՠנՠΧ)_ @p(ŠՠĿ)_p! @p(ӠՠΠ)_0 @p(ĠՠŠϠΠ)_" @p(Ϡՠ٠)_+ @p(Ϡՠ٠ŠɠΧ)_) @p(ӠΠĠŠɠ)_ @p(ϠՠԠŠ)_0 @p(ϠՠˠՠĠŠŠ)_ @p(٠ΧԠ)_; @p(٠ĠŠϠ)_, @p(ϠՠӠȠՠ)_ @p(ΧԠՠ)_ @p(٠ΧԠ)_' @p(ϠՠȠϠŠŠ)_$ @p(ӠԠŠտ)_p/ @p(̠ŠŠԠȠӮ)_p @p(ϠĠŠϠŠŠ)_' @p(ՠԠŠϠŠŠ)_' @p(ӠՠΧԠԠ)_' @p(ϠՠԠϠŠŠ)_' @p(ԠӠՠˠɠ)_0 @p(ӠԠŠՠϠŠɠ)_* @p(Ӡՠճ /?rY%UVW`-r%_ /?rY%UVW`-r*%_ /?rY%UVW`-r.%_ /?rY6UVW`8-r-r-r-r!$X_" /?r* @p(ΧԠՠŠԠɠ)_2 @p(ӠՠENAME":41105@ NR1ĺD$"DELETE BASENAMEFILE":1000CJ ISNR1UT R$(I)R$(I1)\^ Inh NRNR1:4280xr 2470| ***REPORT*** T90 WIDE40 :E0 I03NH2:K(I)0:I I0NH1:AC(I)0:I:HC0:GT0 PAGE0 E3160 D$;"DELETE"DB$" "F$"FILE"+ I1NRT D$;"DELETE"DB$" "R$(I)" RPTFMTFILE"[ I 1013:D$;"OPEN";DB$;" RPTFMTNAMEFILE" D$"DELETE"DB$" RPTFMTNAMEFILE" D$"DELETE"DB$" INDEXFILE"" D$"DELETE"DB$" HEADERFILE", DB$"" 6 F$"BAS;(34);".":5 "ONCE DELETED, THIS DATA CANNOT BE"^ "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE IT? (Y/N) ";:"";S$ S$"Y"2470 :12:11::(91);" DELETING DATABASE ]": 2830 DB$R$(S) F$"RPTFMTNAME" 4110AME FOR NEW DATA BASE FILE :";R$(J)>K ((R$(J),1))02630MP NRJ:4280cZ DB$R$(J1):1140d *** DELETE A DATA BASE ***n :"DELETE WHICH : ";S$:S(S$)x S1SJ1ĺ(7);:(37)1:868:2670  :(9):"READY TO DELETE "(34);R$(S) J1NR:J" "R$(J):J:< J" CREATE A NEW DATA BASE"_ J1ĺJ1" DELETE A DATA BASE"e ~ "WHICH ";S$:S(S$) SJ12660 S1SJĺD1$;:(37):868:2540 DB$R$(S) SJ1140 ( 26202 1013< J0J1#F "N]Ǡ]ˠ]?]àέԠ̠̠ͧӠĠ٠ ]&]ŠӠɠ̠Ǡ+ ]ĠΠҠ͠Ҡ ]٠ΠĠ@9()r$D0\Ba@E@E@#D`.?6?r$Nd6?e_  NY_ AQ>BUVW$d.?Jr.?Kre=>r=>rY7Cq.?%roPa()GPa()o[Q]ˠǠ]ٺΠ9Pa(ԠϠŠĠ)GM6dM6-q.?6@r`$d6?e`$ ;PM6da()E@E(ǠˠԧçϠ)GM6)qUVWq8r̲I&q=>r`8 8@9()@9()rr8;@rrp()pcбqq;@r=zвqб'`в$UвVвWбX6`@*в#вr9()$Yв!a@*б#вrбqв_za@*б#r_.Xccca(ˠծɧŠĠҠˮ)bUVWYM6'Q;_n@Brp()_n@Brp()_n@Brp()_n@Brp(ɧ)_n@Brp(ɧ)_n@Brp()_n@Brp()_n@Brp(ɧ)_n@Brp(ɧ)_n@Brp()_X@Brp()nYo@B_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp(Χ)_n@Brp()_n@Brp(Χ)_n@Brp()_n@Brp()_n@Brp()_n@Brp())_n@Brp(է)_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp(Χ)_n@Brp(Χ)_n@Brp()_n@Brp(է)_n@Brp()_n@Brp()&q@Brp@*ױ-r#ײ-rr_n@Brp()_n@Brp()_n@Brp()_n@Brp(է)_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp()_n@Brp(է)_p2% @p(ɧ͠ԠŠɠĠՠٮ)_p2& @p(ŬŬŠҠӮ)_p(' @p(ΠՠŠΠԿ)_p(( @p(ԠӠŠǮ)_pH`$oUVW@B;@rrp()q;@rq-r`%_ϠȠՠͿ)_p8 @p(ΧԠՠˠӠΠРſ)_p9! @p(ԠӠԠԠӠԠӠտ)_p:" @p(٬ϠՠŠ٠̠ӿ)_p,# @p(ԠӠԠԠϠտ)_p$ @p(ɠŮŠҠӠӠծ)_p% @p(ϠӠ٠տ)_p5 @p(ŠՠǠԠŠΠҿ)_p- @p(ŠՠĠ٠ӿ)_p+ @p(٠ϠՠΠӿ)_pE @p(ԠϠՠˠӠŠJ1NR+FF4390"+I1NH2+N$(R(J),I)9+IC+4400N+&R$(J)U+0Jd+:D$"CLOSE"m+DFF0s+N+X*** SAVE REPORTNAMEFILE ***+bNRNN+lF$"RPTFMTNAME"+vI1NR:R$(I)RN$(I):I+4280+NRNS:+ *** LIST ***+L0F$"FILE"*6NR*@J1NR)*JFF42305*TI1NHB*^N$(J,I)I*rIT*wR(J)J^*|4240i*R$(J)p*J*D$"CLOSE"*FF0***** SAVE FILES ****F$"INDEX"FF1*D$"OPEN"DB$" "F$"FILE"*D$"WRITE"DB$" "F$"FILE"*NR +:3810)4100>)1013::"NO REPORT FORMATS ON DISK...":I)216,0R)NN1)"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810)3880:NRNS:3010)*** READ FILES ***)F$"INDEX"FF1)"D$"OPEN"DB$" "F$"FILE"*,D$"READ"DB$" "NR:RN$(I)R$(I):I*(:"SELECT FROM:":F(I1NR:I" "R$(I):I:l(I" CREATE A NEW REPORT FORMAT":(I1;" DELETE A REPORT FORMAT":("WHICH ";S$:S(S$):S1SI1ĺD1$:4030(SI1İ150:3940(NNS)SIRN$(S)R$(S):E1:NRNS'(*** SUB MENU ***-'2:"SELECT FROM:":B'<MF0ĺ"0 "H$(0)^'FI1NH:I" "H$(I):I:g'PMF0m'Z'd*** READ REPORTNAMEFILE & SELECT REPORT ***'nNN0:I021:RN$(I)"":I:NSNR'xF$"RPTFMTNAME"'4070'4110'216,0(I1RPTFMT"&NR3RH52&I1NR:R$(I)(K(I)):IF&R$(I2)(K(0))V&4280:4440\&&*** SET-UP TO READ RPTFMTFILE ***&F$RN$(NN)" RPTFMT"&4110&RH(NR5)3:I1NR:K(I)(R$(I)):I& K(0)(R$(I2))&NRNS&3880::3160K(3(RH2)1)%LI1RHI%VN1(H$(K(3I2))):90:36,N:H$(K(3I2));P%`Iu%jK(0)1N15:110:36,N:"TOTAL"{%o%t130%~L5:%*** SET-UP TO SAVE RPTFMTFILE ***%:"ENTER THE REPORT FORMAT NAME ";RN$(NN)%NSNR&F$RN$(NN)" 3650*$$RN$(NN)" REPORT FOR "H$(S)":"Q$;;$.X$"@"3650P$8"AND"H$(X)":"X$$BPAGEPAGE1:SPACEWIDE(RN$(NN))(H$(S))18:SPACE1ĺ: TESTS IF PAGE # & TITLE OVERPRINT$D36,WIDE6:"PAGE";PAGE$FSPACE0ĺ$H130 %JK(0)0K(3(RH1)1)0 # LL1# :# N3I2L# V(N$(R(J),K(N))):AC(I)AC(I)V:HCHCVR# [# 130g# I1RHy# AC(I)03580# NAC(I):10:90:36,N:A$;# I#GT0NGT:10:110:36,N::A$#:#$Q$"@"ĺRN$(NN)" REPORT (ALL RECORDS)";:R :"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$W"\ L$"Y"İ3880:E1:2980a"f 4810m"p I1RH"r N1(N$(R(J),K(3I2)))"t 90"v 36,N:N$(R(J),K(3I2));" K(3I)3510" I# K(0)1ĭHC0NHC:10:110:36,N:A$;:GTGTHC:HC0#! (N$(R(J),X),(X$))X$3330-! 3440I! PF1ĭL18İ2060:3610^! JNRL55İ3610m! L0İ3610t! J! T93540!* "PR#0"!4 E3410!> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$!H L$"Y"E1:3720;" COLWK(RH35)$ COLW40PF26 COLW80PF3Z WIDE40((PF2)40)((PF3)80)f I1RHy K(3I)1T91 I PF5230,5250,5280:3610 J1NR N$(R(J),0)(J) Q$"@"3320 (N$(R(J),S),(Q$))Q$3330! X$"@"332(S$)b (S$)0Q$"@":3225Yl :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200v :"ENTER # OF 'AND' HEADER ";X$:X(X$) :"@ WILL SELECT ALL RECORDS." :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$";A$#: (A$)0K(0)0:T91:3150bD K(I1)(A$):K(I1)K(I2)K(I1)131ĺD1$:(37)1:3120N "ENTER TOTAL WIDTH OF OUTPUT: ";A$:K(RH35)(A$):K(RH35)K(RH32)K(RH35)131ĺD1$:(37)1:3150X "SELECT RECORDS BY WHICH HEADER # ";S$:S "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)A I13070Z K(I1)K(I2)3060x K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I! 34,0& K(0)13150+ 0 "ENTER TAB FOR TOTAL: 3940' NH19ĺ"========":34,NH5c :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13014~ E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:K(I)(K$) K(I)0K(I)NH30403 ";I1,I2 )I2I1I10I2621103 2050d>(12);S$;"WATER CODES";S$:"1=EVENLY MOIST"R"2=DRY":"3=MODERATE, CAN'T DRY OUT"f"4=MODERATE LET DRY OUT"p"5=SEASONAL MORE IN SUMMER LESS IN WINTER"z"6=REST PERIOD NEEDED YEARLY"0=CONT. LIST OR ENTER PLANT NUMBER ";I4BI0300DCI1T11000RDL1:1060kjA$,C1,C2,C3,C4,C5:(12);S$;"LIGHT CODES";S$:"1=SHADE""2=SEMI-SHADY":"3=SEMI-SUNNY":"4=INDIRECT":"5=SUNNY":S$;:"ENTER MIN,MAX CODE FOR YOUR ROOM41ĺ"HUMID"7C42ĺ"HUMID WITHOUT SPRAYING LEAVES"HC43ĺ"DRY"^C44ĺ"ROOM AIR"oC45ĺ"ANY""TEMPERATURE: ";C5::290(12);"CODE PLANT"::L1I11T1:1130:I1;"-----";A$:LL1L141070$&.:S$;:""EVENLY MOIST"NC32ĺ"DRY"DOC33ĺ"MODERATE, CAN'T DRY OUT"fbC34ĺ"MODERATE LET DRY OUT"lC35ĺ"SEASONAL, MORE IN SUMMER, LESS IN WINTER"vC36ĺ"REST PERIOD NEEDED YEARLY"C37ĺ"SPECIAL WATERING NEEDED" "ATMOSPHERE: ";:CT CODE NUMBER ? ";I!,I11000/-IT12005.[JI11I:1130:::A$:"LIGHT: ";qC12ĺ"SHADY, ";C13ĭC21ĺ"SEMI-SHADY, ";C14ĭC22ĺ"SEMI-SUNNY, ";C15ĭC23ĺ"INDIRECT, ";C24ĺ"SUNNY";0:"WATER: ";:C31ĺ$;"PLANT MAN";S$:Y"PLANT GROWTH NEEDS=1":"PLANTS FOR YOUR HOME=2":"END PROGRAM=3"_y:S$;:"OPTION ? ";II33050I22000I1230"LIST OF AVAILABLE PLANTS ? Y/N ";I$I$"Y"1000I$"N"260""PLAN3,55,46,45,5,004F$"HEADER"4"4280!4,*33"PR#1" 3" K132N"&3C3 ****HEADER CHANGES****L3300r3"HEADER TITLE TO CHANGE ";HT::3HT1HTNH53203"FROM ";H$(HT)3"TO ";H$(HT)33003"MORE CHANGES (Y/N) ";S$3(S$,1)"Y"53104(S$,1)"N"5372 :"WHICH ";PF$:PF(PF$)02PF1PF35130:24810I2(PF0:4810O22s2<*** APPLESOFT ONERR CORRECTION2FI10131022:PP:I,PP:I2PI02Z2d104,168,104,166,223,154,72,152,72,962n"PR#1"2x" K":2"PR#1"2" K 80N"LL RECORDS"1"10 QUIT"91"11 CHANGE HEADER TITLES"R1"WHICH ";S$:S(S$)e1S1S1148101S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170,531011"PRINTER OPTIONS:"1"1 40 COLUMNS"1"2 80 COLUMNS"1"3 132 COLUMNS"R IS OFF"0B*0L"1 SELECT DATA BASE"N0V"2 SEARCH AND/OR CHANGE DATA"f0`"3 ENTER RECORDS"0j"4 DELETE RECORDS"0t"5 GENERATE/DELETE REPORTS"0~"6 SORT "0"7 TURN ON PRINTER"0"8 TURN OFF PRINTER" 1"9 LIST (PART) OR A****** DATA BASE MANAGEMENT I *******"J/" APPLE COMPUTER INC"P/p/"CURRENT DATA BASE: "DB$:/"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"/$/.PF1ĺ"THE PRINTER IS ";::"ON"::4930 08"THE PRINTE .F4672.H:L0*.RPF5230,5250,52804.\4620:.fZ.p *** INPUT ROUTINES ***d.zI$""~.COMMA$"NO"Ą"";I$:.A$:.A$(3)ij.A$;.A$(13)ı.I$I$A$.4750.*** MAIN MENU ***.4840.1013.&/"*I1NH%-I" "H$(I)": "N$(R(J),I)/-LL16-IB-:LL1T-LNH204660[- Jh-"PR#0"- "HIT RETURN FOR MENU...";L$-*4810-4"PR#0"->"PRESS RETURN TO CONTINUE, ESC FOR MENU";-@L$:-B(L$)274810-D(L$)134680,6,"DO YOU WANT TO LIST ALL OR PART (A/P)?";S$M,S$"A"SR1:4530_,S$"P"4521{,"STARTING RECORD? ";SR,SR14524,SRNRĺ"ONLY ";NR;" RECORDS AVAILABLE.":4524,JSRNR,PF5230,5250,5280," "H$(0)": ";J:LL1-T "TRADESCANTIA-WANDERING JEW",2,5,3,1,62Cd AUTHOR PAT TURNERf MODIFIED BY KIM CIMMERY, 1365 KATHY ST S, SALEM OR 97303h SOURCE -- PERSONAL COMPUTING, FEBRUARY 1979, PP 60-62T184P17A$(50):S$" *** "(12);15);SCAST IRON PLANT",1,2,3,1,50IO "CHAMAEDOREA E.-PARLOR PALM",1,2,3,2,62P "NEPHROLEPIS EXALTATA B.-BOSTON FERN",2,3,1,1,50Q "PELLIONIA-PELLIONIA",1,2,1,1,50R "RHAPIS EXCELSA-LADY PALM",1,2,3,3,40S "SCINDAPSUS-DEVIL'S IVY",2,2,1,3,62+NT",2,4,1,4,65>I "EUPHORBIA S.-CROWN OF THORNS",2,4,4,4,65hJ "RUELIA M.-MONKEY PLANT",2,4,1,1,65K "BEGONIA E.-WATERMELON",2,4,1,4,60L "ACALYPHA-CHNILLE PLANT",2,4,1,4,65M "AGLAONEMA-CHINESE EVERGREEN",1,2,1,1,50N "ASPIDISTRA E.-ALM",3,5,1,4,65:C "DRACENA S.-RIBBON PLANT",2,4,1,4,65aD "CISSUS R.-GRAPE IVY",2,4,1,4,65E "SENECIO M.-WAX IVY",2,5,4,4,60F "GIBASIS-TAHITIAN BRIDAL VEIL",3,5,4,4,60G "AECHMEA F.-SILVER VASE B",2,4,7,4,60H "PILEA C.-ALUMINUM PLA= "SCILLA-SILVER SQUILL",2,4,1,4,60S> "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,65A "HOWEIA-KENTIA PALM",2, 4,1,4,65B "BEAUCARNEA-PONY TAIL PCALATHEA Z.-ZEBRA PLANT",2,4,1,1,65R8 "PEPEROMIA C.-EMERALD RIPPLE",2,4,4,4,65z9 "FICUS B.-WEEPING FIG",3,5,4,4,65: "BOWIEA-CLIMBING ONION",2,4,4,4,60; "POLYSCIAS F.-MING ARALIA",3,5,1,4,65< "MIMOSA P.-SENSITIVITY PLANT",3,5,1,4,65&ARS",2,4,1,1,60;1 "PILEA M.-ARTILLERY PLANT",2,4,4,1,65e2 "CRASSULA A.-JADE PLANT",3,5,4,4,603 "KALANCHOE",3,5,4,4,604 "ECHEVERIA-CHICK & HENS",3,5,2,4,605 "SEDUM-JELLY BEANS",3,5,2,4,606 "ZEBRINA-INCH PLANTS",2,4,4,4,60#7 "+* "SCHEFFLERA-UMBRELLA TREE",2,4,1,4,65T+ "CEROPEGIA-ROSARY VINE",2,4,4,4,65x, "BROMELIAD FAMILY",2,5,7,4,60- "MAMMILLARIA CACTUS",3,5,2,3,60. "RHOEO-MOSES IN THE CRADLE",3,5,1,4,60/ "PODOCARPUS",3,5,1,4,600 "HELXINE-BABY TEA-NERVE PLANT",2,4,1,1,653$ "COLEUS",3,5,3,4,60b% "PLECTRANTHUS A.-SWEDISH IVY",2,4,4,4,60& "HOYA-WAX VINES",2,4,4,4,60' "LITHOPS-STONE PLANTS",3,5,4,3,65( "BEGONIA M.-IRON CROSS",2,4,1,1,60) "CALADIUM-ELEPHANT EARS",2,4,1,4,65 "YUCCA TREE",3,5,4,3,60?  "CODIAEUM-CROTONS",3,5,3,1,65j  "CISSUS A.-KANGAROO VINE",2,4,4,4,60 "SAXIFRAGA-STRAWBERRY BEGONIA",3,5,4,4,55 ! "COLUMNEA M.-GOLDFISH",2,4,4,2,65 " "AESCHYNANTHUS-LIPSTICK VINE",2,4,1,1,65# "FITTONI-JAPANESE ARALIA",2,4,1,4,55K  "ADIANTUM R.-MAIDENHAIR FERN",2,4,1,1,65y  "PLATYCERIUM-STAG HORN FERN",2,4,7,1,65  "CHRYSALIDOCARPUS-ARECA PALM",2,4,1,4,65  "SPATHIPHYLLUM-WHITE FLAG",2,4,1,4,65  "ASPARAGUS SPRENGERII",2,4,4,4,60 HEEL SUCCULENTS",2,5,4,3,60G  "TOLMIEA-PIGGY BACK PLANT",2,4,1,1,60r  "DIZYGOTHECA-FALSE ARALI",2,4,1,4,65  "HEDERA H.-ENGLISH IVY",2,4,1,4,60  "SAINTPAULIA-AFRICAN VIOLET",2,4,1,4,60  "GYNURA-PURPLE PASSION",3,5,1,4,60  "FATSIAERA T.-SNAKE PLANT",1,4,4,4,65I "AGAVE P.-PRINCESS AGAVE",3,5,2,3,65q "MARANTA-PRAYER PLANT",2,4,1,4,60  "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-PINWF WONDER",2,4,1,4,60B  "TRADESCANTIA-WANDERING JEW",2,4,4,4,60n  "ALOE VERA-MEDICINE PLANT",2,4,4,3,60  "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 "SANSEVI5# ******** PLANTMAN *********T "ARAUCARIA-NORFOLK ISLAND PINE",1,3,1,4,60 "DIFFENBACHIA-DUMBCANE", 2,4,4,4,60 "MONSTERA D.-SPLIT LEAF PHILO",2,4,1,4,60 "PHILODENDRON-HEART LEAF",2,4,1,4,60  "SYNGONIUM P.-TRILEA     (C C)C L L D.C#C-C H(CC-C#CJCL*MC(C C)C L D.C$C-C H(CC-C$CJCL*MC(C C)C LD.C%C-C H(CC-C%CJCL*MC(C C)C L LD.C&C-C H(CC-C&CJCL*MC(C C)C LD.C'C-C H(CC-C'CJCL*MD`DCi>C` K`ECi>C`ECi>C` .L`FCi>C`FCi>C` `L`GCi>C`GCi>C` L`HCi>C`HCi>C` L`0LC`C(CC)C L D.C!C-C H(CC-C!C ~KJCL*MC(CC)C L D.C"C-C H(CC-C"CJCL*MC" , " m1C=C " `>C ?C", >Cm@C >C?Ci"?C , `AC>C?C`?C\`?C[LJLbKMLJLFK?LJL*K1LJLK#E%`BCi>C`BCi>C` K`CCi>C`CCi>C` K`DCi>C :11:15:"THANK YOU":24' 22- 3 L'~ C2I23000 I3C32440/ I5C33000? I4C42450P I6C43000` C5I73000p C5I83000 A$:LL1:L143020  S$;"THAT IS ALL" :S$;:"0=CONT. LIST OR 1=EXIT ";I9  I90200 IT12400 L1:3000"ENTER TWO ATMOSPHERE CODES ";I4,I6*HI40I46I60I662305R2280 (12);S$;:"ENTER YOUR MIN,MAX ROOM TEMP. ";I7,I8  I7I82305` (12);7);S$;"I RECOMEND THE FOLLOWING PLANTS";S$j :L1t I1T1:1130:C1I13000&"7=SPECIAL WATERING NEEDED"::S$M"ENTER TWO WATERING CODES ";I3,I5SqI30I38I50I582220{2190(12);S$;"ATMOSPHERE CODES";S$:"1=HUMID""2=HUMID WITHOUT SPRAYING LEAVES":"3=DRY""4=ROOM AIR":"5=ANY"::S$$F YOUR LOAN.":6"$";R1;" WAS YOUR ANUAL PAYMENT."<e"$";R2;" WENT TO PAY THE INTEREST."k"$";R3;" WENT TO PAY THE PRINCIPAL.""HIT RETURN TO CONTINUE.";:K$ 936IS ROUTINE ACCUMES. YEARLY FIGURES.4:&J0MC14ī690Z:MC12ī630dDMC0nNR10xXR20bR30lR40vMCMC1R1R1P1R2R2P2R3R3P3R4PMC12ī790"IN THE ";M12;" YEAR O "TOTAL YEARS PAID ";D> "TOTAL MONTHS PAID ";Aa "YOUR MONTHLY PAYMENT IS ";P1 I1ĪII100:"THE INTEREST RATE IS ";I;" %" :: "WANT TO DO ANOTHER":" ANSWER Y OR N ";:X$ 34,0 255:X$"Y"10  TH)P2;20)P3;31)P T5101 ^AM0:BP1B:CP2Cw hJ$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I CAN !! **":::K1~ rM |J$"D"MC12ĪMC14:510 "ORIGIONAL LOAN AMOUNT ";E "TOTAL INTEREST PAID ";C BBP:"TOTAL PAYMENTS MADE ";B"PAYMENT";14)"INT";21);"PRIN RED.";31)"PRIN BAL."@ :34,2j P1P(I12)(1(1(1(I12))(L12))) P1(P1100.5)100 M1L12 P2PI12 "P2(P2100.5)100 ,P3P1P2 6P((PP3)100.5)100 @J$"S"ī350 JM;5)P1;12NY YEARS ";:L DL:` "DO YOU WANT FAST OR SLOW PRINT:":" ANSWER F OR S ";:G$q G$"S"ĩ100 :"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D OR S ";:J$:936 J$"S"ī2404 "PER";4)*************************************":::S n"HOW MUCH IS THE MORTGAGE ";:P:[ xEP "WHAT IS THE INTEREST RATE ";:I I1ī170 II100 "# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF A YEAR;":" HOW MA  936A0B0&(C0/2D08<E0BFF19KPK0VZMC13, d"***************************************** ** -MORTGAGE CALCULATION- ** ****     ̍)QSH CSuFTY LDA FS CMP # BEQ FTؐ RTӕFTX LDA FS CMP # BEQ SHT RTSHTX JSR SHT  RT%LODX LDA X0 STA SZ5 LDA X@ STA SZE LDA XP STA SZU LDA X` STA SZe LDA Xp STA SZu LDA X STA SZ LDA X STA SZ JSR THI RTTA HIP LDA #$4U STA SND` JSR SNe LDA #$Fp STA SNDuCS2 LDA H STA Hڅ LDA V STA Vڕ LDA HI STA HI LDA FS STA FS JSR DSH  LDA H% STA H0 LDA V5 STA V@ LDA FSE STA FSP JSR LODUSHT3 LDA FS` CMP #e BEQ FTp JMP,D$(C )C"   ~K ~KD,  `ICIC`P JSR DSHU LDA H` STA He LDA Vp STA Vu LDA FSڀ STA FS JSR LODؐSHT2 LDA FS CMP # BEQ TS JMP CSTS2 LDA SW BMI SS  JMP SHT%SS2 LDA #0 STA FS5 INC SHC@ LDA HIE SII I211+P$P$H$(I)2I@P$P$" "Fv:23:"PRESS SPACE BAR FOR ANOTHER SEARCH"&24:"PRESS RETURN TO END PROGRAM";:A$0A$(13)Ā:A$(32)1820D1050,AA(A1V):VVB16I"@4J TO NEW BASE?TI15c^BA((AB2)B2)48:B57BB7|hH$(I)(B):A(AB2)rI| FOUND ITAJ:1610AD$"":I411AD$AD$H$(I)III1NMAK(II):16101770J(6)256(7)$(6)255148086,(6)1:1490K6,0:7,(7)1U1670u:AD$;":";P$;31);"DEC ";JAD$"":P$""1430::" SEARCH COMPLETE"1820 TO BASE 10I1(A$)"A1((A$,I))48:A19A1A1750 <SW0:AD$"":P$""" FB1B3S PI21NM:A0:V1:A$K$(I2):1550:K(I2)A:I2q ZSH(ST256):SLST256SH dEH(EN256):ELEN256EH n6,SL:7,SH x768,EL:769,EH 780,NM:781,0 I1NM:770I1,K(I):I 782 (781)1530":D1300:D:1050/ ST53248EN4915113209 1340 (::"CAUTION:REFERENCING HEX ADDRESSES C000":"TO CFFF (DECIMAL 49152 TO 53247) MAY ":"ACTIVATE INPUT/OUTPUT DEVICES! " 2::"DO YOU WANT TO MAKE ANY CHANGES? ";A$:(A$,1)"N"10"H"A$"D"1220( B310:A$"H"B316p "IS ADDRESS HEX OR DECIMAL? ";A$:A$(A$,1):A$"H"A$"D"1240 B110:A$"H"B116 B216 A0:V1:A$ST$:1550:STA:A0:V1:A$EN$:1550:ENA STEN1300 :"SORRY: I CAN'T COUNT BACKWARD tA$(A$,8) ~NM(A$)? I1NM:K$(I)(((A$,I,1))):I| "HIGH ORDER BIT 0 OR 1? ";A$:A$"0"A$"1"1170 A$"0"1200 I1NM:K$(I)((K$(I))128):I  B310:1240 "IS DATA HEX OR DECIMAL? ";A$:A$(A$,1):A$ ";ST$:"ENDING ADDRESS OF SEARCH? ";EN$Q ."ASCII SEARCH (Y/N)? ";A$g 8(A$,1)"Y"1130 B"NO. OF BYTES IN SEARCH KEY? ";NM LNM8NM8 V:I1NM:"BYTE #";I;" ";:K$(I):I `:1220 j:"STRING TO SEARCH FOR? ";A$:  MULTI-BYTE SEARCH5 BY MEL KNOYLE M APPLE CONVERSIONi BY TOM PEKAREK   SALEM (OREGON) AREA  COMPUTER CLUB (4);"BLOAD BSEARCH":"MULTI-BYTE MEMORY SEARCH":* $"STARTING ADDRESS OF SEARCH?    ̍ we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- I,J J:I  6 MACHINE LANGUAGEK ROUTINES BYf RICHARD F. SUITOR| PUBLISHED IN MICRO NO.8   TOM PEKAREK 250 BOONE RD. S.E. SALEM, OR. 97302 : C40470,39C  C& F RANDOM INITIAL PATTERNM$ j. 936::16302,0:1998~8 I116(9(1))B I224(9(1))L J116(9(1))V J224(9(1))` X(6(1)2)j II1I2:JJ1J2t 11~ (X(1))Ġ0fD110000:Dp:936:zX1((0)6):X139X139XY1((1)6):Y139Y139tX1,Y1)15C1X1,Y1)15:X1,Y1B1(16287)127:B2(16286)127C1B1Ġ11B2Ġ0X1,Y1(16384)128217016302,00 "POSITION AND PADDLE 1 CONTROLS THE"@"VERTICAL POSITION"F s*"GAME BUTTON 0 WILL PLOT A POINT WHILE"4"GAME BUTTON 1 WILL DELETE A POINT">:H"WHEN YOU ARE FINISHED PRESS ANY KEY"R"ON THE KEYBOARD (EXCEPT RESET)"\FL1:A$A$"N"A$"Y"19401A$"Y"ī1990=:1760G::h PLOT OF STARTING PATTERNw:FL2160"TO PLOT THE LIVE POINTS OF YOUR PATTERN""USE YOUR GAME PADDLES AND BUTTONS""PADDLE 0 CONTROLS THE HORIZONTAL"'YPE A 0 TO SET UP YOUR OWN PATTERN"N:"OR A 1 IF YOU WANT A RANDOM PATTERN"VDP$yNP$"0"P$"1"P$(3)1860XP$(3)ijbP(P$)lPİ2330vPİ20001060:3:"WOULD YOU LIKE TO RUN ANOTHER""LIFE PATTERN? "IALIZATION OF PATTERN:I"WE WILL NOW SET UP YOUR GAME OF LIFE"Ow"RATE OF GENERATION IS CONTROLLED""BY ADJUSTING GAME PADDLE 0""LIFE WILL CONTINUE TO BE GENERATED""UNTIL YOU PRESS THE PADDLE BUTTON"&#0"T 9,1225 21,2416' "21,24175 ,21,2420C 621,2421Q @29,3216_ J29,3217m T29,3020{ ^29,3021 h29,3224 r29,3225 |D11000:D K150 D16:D GEN D12:D MOP K 1140 INITHS WILL OCCUR IN THE", d"NEXT GENERATION"> nD115000:DH x1740\  LIFE TITLEb p 16302,0{ 1998 11 16,257 16,258 16,2515 16,2516 16,2519 16,2520 16,2527 16,2528 9,1224 TION IF IT HAS", "MORE THAN 3 NEIGHBORS"2 ^ ("AN EMPTY CELL WILL GENERATE NEW LIFE" 2"IF IT HAS EXACTLY 3 LIVING NEIGHBORS" < F"BLUE PLOTTED POINTS SHOW WHERE NEW LIFE" P"IS ABOUT TO BE BORN AND BROWN AREAS" Z"SHOW WHERE DEAT SOME"4 "CELLS WILL BE BORN AND OTHERS WILL DIE"\ "ACCORDING TO THE FOLLOWING RULES"b  "EACH CELL HAS EIGHT NEIGHBORS. "  "A CELL DIES FROM ISOLATION IF IT HAS" "FEWER THAN 2 LIVING NEIGHBORS BUT IT" "DIES OF OVERPOPULA070 t DESCRIPTION OF GAME, ~:936Y "THIS IS JOHN CONWAY'S GAME OF LIFE AS" "AS DESCRIBED IN SCIENTIFIC AMERICAN" "MAGAZINE, OCT AND NOV 1970."  "THE GAME INVOLVES PATTERNS OF CELLULAR" "GROWTH. IN EACH NEW GENERATION (10)1001030@(4);"BLOAD L R": L R A$3800,L$105L10,100T:lGEN14376:MOP14553v1410$ LIFE GENERATION SUBROUTINE.T3(0)8GENBD0T3:DLMOPVD0T:D`(16287)127(16286)127ı j1         ::::"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 ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4       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/[҅n3p*8ii i'R`8 8 8`'@9p9@9p9)@9p9)p9@9Π&g9mf99m9y?98B9 )P 0yo98r9 )P L+8h99` 8 8`' )0  )j  J?>ʊ:>Ș;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[` 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   89 H 0 0hL 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ޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL svy|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&   ߅ 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 ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  MISMATCH) ` (READ ERROR) `  婬   ݍ`T  L$  LL, ,ɛLc $ 0  `$ 0 PT LEN START BLEN NAME Lȑ     `ȑ`  .ɀA (DRIVE ERROR) ` (WRITE PROTECTED) ` (VOLUME ɠ$ 08 i ɠ $ 0 @  , #L  L %(!"L,,,`hh L HH`, PRESS RETURN TO CONTINUE% s ɍ ` `$ Ld )<  IN SUB DIRECTORY  * LL  LȱLL LȱL  L  BAD POINTER L   IN DATA SECTOR  * LL  L LȱL LȱL eiĐ$ 0 X"L4 TURN ON PRINTER !! VOLUME=  FREE SECTORS=  (effff  K)0 $ R   IN DIRECTORY  * LL LMȑ eLc LL ȱȱ = FILE NAME ( = ABBREVIATED) PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2048 DECIMAL OR HEX BASE? s ע CRT OR PRINTER? s ᢀ      IN VTOC Lc 8 BL[   X IMPROVED CATALOG LAWRENCE HALL OF SCIENCEABBREVIATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) LEN = SECTORS USED ON DISKSTART = BINARY STARTING ADDRESS BLEN = ACTUAL BINARY LENGTH NAME     / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >70n16368,0xF112902"BRAVO! YOU MADE A PERFECT SCORE!"_"TELL YOUR FRIENDS HOW GOOD YOU DID!!!" :"PLAY AGAIN (YES OR NO)";A$A$"NO"1340:230(2<:"SO LONG FOR NOW.":FP KEYBOARD INPUTZK(16384)dK12813BBLT101120(VT(A,C)01330/`A>jXC1C1FtT0U~YR1R1dTTT(Y,X)kY{T101200T(R,X)01330XCR *** GAME IS OVER"THE GAME IS OVER.""YOU HAD ";F;" PIECES REMAINING." 440(T(X2,Y)5:T(X1,Y)0:B(C9)3<B(Z)3:B(P)7NT(X,Y)0:980XCC1_YfXl *** CHECK IF GAME IS OVERF0R28C28T(R,C)51210FF1AR1R1$T0.BC1C18TTT(A,B),Y1)0440T(X,Y2)53 T(X,Y1)0:B(C1)3<*930M4C18P860a>T(X1,Y)1440HT(X2,Y)5:T(X1,Y)0:B(C9)3R930\C2P900fT(X,Y1)0440pT(X,Y2)5:T(X,Y1)0:B(C1)3z930C18P950T(X1,Y)0620 X(X4)(X5)(X6)0640=b(Y4)(Y5)(Y6)0640ClLv680_T(X,Y)5670oY2);"!";x680Y2);"O";YX *** UPDATE BOARDC1:X19Y19CZ950C2P820  T(X:420"TO WHERE ";P(B(P)04409B(P)7440FZP420d((ZP)2)((ZP)2)510m440((ZP)2)((ZP)18)0440730560990&4200 *** PRINT BOARD:X19DY19N(X1)(X9)(Y1)(Y9)0AND CHECK ON LEGALITY!hW133(rMa| 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69B(M)7:WB(41)3"MOVE WHICH PIECE ";ZB(Z)7450"ILLEGAL MOVE, TRY AGAIN.."14: " OK, LET'S BEGIN."3 *** SET UP BOARD> R19I C19f (R4)(R5)(R6)0300 (C4)(C5)(C6)0300 T(R,C)5 "320 ,(R1)(C1)(R9)(C9)0280 6T(R,C)5 @C JR TT(5,5)0:560^ *** INPUT MOVE ! ! !"0 " 67 68 69" "THE GAME WILL BE PLAYED ON A SMALLER BOARD ON THE LOWER LEFT HAND CORNER OF THE SCREEN. USE THE ABOVE BOARD FOR LOCATING THE PEG NUMBERS. "HIT ANY KEY TO START GAME":1360 ::::34, ! ! ! ! ! !"Q x"38 39 40 41 42 43 44"~ "! ! ! ! ! ! !" "47 48 49 50 51 52 53" " ! ! !" " 58 59 60" " " HERE IS THE BOARD:"8 2" ! ! !"Y <" 13 14 15"z F" ! ! !" P" 22 23 24" Z"! ! ! ! ! ! !" d"29 30 31 32 33 34 35"# n"! R AS MANY AS POSSIBLE, BY JUMPING INTO AN EMPTY HOLE--THE JUMPED PEG IS THEN REMOVED." ::"HIT ANY KEY TO CONTINUE":1360 :15);"HI-Q" "CREATIVE COMPUTING MORRISTOWN NEW JERSEY" B(70),T(9,9) ( :"THIS IS A COMPUTERIZED VERSION OF AN OLD EUROPEAN SOLITAIRE GAME OF LOGIC CALLED HI-Q. THE GAME STARTS WITH A PEGBOARD SHAPED LIKE A CROSS HAVING PEGS IN EVERY HOLE BUT THE CENTER."[ "THE OBJECT IS TO REMOVE ALL 32 PEGS, O     `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فŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                 ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ  B(20((A$)2)):B0B1( B:A$:D)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$  z #??Xΰ ٠ŭàҠ Үʰà* ՠ ɠŠ  Ҡˠà Ҡ˺ˠ Š Š ŠŠĠϠ͠٠" ̌Ғ Š ٠Ƞ Š ΠǠΠ Ҡˠ̠ Ǡ!Ҡ˯ؠ"ӠҠ ȭѠĠǠ ҠɭӠӠ ٠Ҡ ҭҠ ˠҠĠ(àŠΠة ĠծРĠծԠҠԠɯؠ.Ϡ͠ĠҠҠҠ™Ƞ̠ҠҠˠŠŠ̍̍̍̍̍̍̍̍̍3,3@ 9 2,3,3,3,2,3,3,2,3,2,3,2,3,3,2,2,1,1,2,2,1,1,2,1,1,1,1,J : 9,9 (BSEC8)ASEC36 LOC,BYTE( LOCA LOC,0:LOC1,0:100w 5 1,1,1,1,0,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1 6 0,0,1,0,0,0,1,0,0,0,0,1,0,1,1,0,1,1,1,1,1 7 0,3,3,3,3,0,3,3,0,3,3,3,3,2,3,2,3,2,2,2,2 8 3,2,2,3,2,2,3,2,3,3,2,3,3,3,3,2,3,232,110:233,31E 8046,1:8047,0:8048,4:8049,0:8050,4:8051,0N 100c 232,110:233,31 8046,2:8047,0:8048,6:8049,0:8050,8:8051,0:8052,4:8053,0 DUM154:I:DUM LOC80548191 ASEC,BSEC ASEC9BSEC92060 BYTE(1)5010:S2S14:INCS18$ 100< 7 32,26,16,38,30,16T 8 33,26,16,42,32,18l 9 33,26,16,44,33,20 : 34,27,16,45,24,18 ; 34,27,16,43,22,12 < 35,28,16,38,18,13 = 35,28,16,32,15,8 > 36,29,16,30,16,12 ? 36,29,16,32,20,12 S120:S25:R00 16302,0' 2005m 2S1:R1:1X,Y:R2:1:R3:S2:1:S1:R4:1X,Y:R5:1:R6:S2:1 <S0:R0:2X,Y: d iI1MAX xR1,R2,R3,R4,R5,R6 3:50 D1(0):D 0:50 XXINC I  X220X20:S1K 8046T AUTHOR MITCHELL WAITE, 111 GREENBRAE BOARDWALK, GREENBRAE CA 94904 MODIFIED BY KIM CIMMERY, 1365 KATHY ST S, SALEM OR 97302 SOURCE -- CREATIVE COMPUTING, DECEMBER 1979, PP 126-128INC2 MAX9 :X140:Y85 S01:     D%  `0CH/CH ,I/C)/Chm/C/Chm0C0C`0&04N/CN0C/C /C0C 0C0 /C*.0C./CLWI` +*-?/T1i3s5Ƀ7ɨ9ɽ;Ґ=?LI1C`1C`1C`1C`1C`1C`1C`1C`1C`1C`1C`1C` ", =C (CC-C%C`D.CC(C C)CD+C&C-C dH(CC-C&C`D.CC(C C)CD+C'C-C dH(CC-C'C`D,(C )C".C$D%  D,(Cm+C(C )C".C$D%  (C(C ` HD(CD-C` H D(CD-C`D,(C )C".C$,J>CC?CCAC:C F`@LC ~KLC` D.CC(CC)C!C-CD+C dH(CC-C!C` D.CC(CC)CD+C"C-C dH(CC-C"C` D.CC(C C)CD+C#C-C dH(CC-C#C` D.CC(C C)CD+C$C-C dH(CC-C$C`D.CC(C C)CD+C%C-C dHAC ,J>CC?CCAC8C F9CLDFa0LtF9CKC1C3C@LC ~KLCC>CC?C3C@C9CAC ,J>CC?CCAC9C F:CLF8C`9C` F`CBCCCCCDCCECCFCCGCCHC vJ`:CLFb0LG:CKC1C4C GC>CC?C4C@C:CAC I/CCCCLE ~G$CL+E$C I/CCCCL;E G%CLSE%C I/CCCCLcE G&CL{E&C I/CCCCLE H'CLE'C I/C C C CLE 6H hI I8CLEb0LF8CKC@LC ~KLC1C2CC>CC?C2C@C8CSZ2#1?M[ 0P`@p  CCCCCC8C9C:Cd/C'&0C!DCDCD CD CD CD CD CDCCCC DCCC!CLD!C I/CCCCLD "G"CLD"C I/CCCCLD PG#CLE#C 2uSD .DE $432ŀRNLO .DE $432ƅRNHI .DE $433HIX .DE $433HI1 .DE $433HI2 .DE $433HI3 .DE $433SW1 .DE $C06FS1 .DE $433 FS2 .DE $433%FS3 .DE $4330GX .DE $4335HZ .DE $433@VZ .DE $433EHIZ .DE $434PFSZ .DE $434USZ1 .DE $434`$431…C3 .DE $431ÐC4 .DE $431ĕC5 .DE $431C6 .DE $431C7 .DE $432F1 .DE $432F2 .DE $432 F3 .DE $432%F4 .DE $4320F5 .DE $4325F6 .DE $432@F7 .DE $432EXD .DE $432PYD .DE $432USTD .DE $432`ID .DE $432eCD .DE $432pFD .DE $43EBLINE .DE $ECSHAP .DE $EDXLO.DE $2XHI .DE $2YLO.DE $2 STLO.DE $2%STHI .DE $20ROT .DE $325SCAL .DE $32@PCOL DE $32EH1 .DE $31PH2 .DE $431UH3 .DE $431`V1 .DE $31eV2 .DE $431pV3 .DE $431uC1 .DE $31C2 .DE @,.%$666&$?><76$$$$6.,(-5-=77??<>>'$??,,,(&.-???...-=?/-,-=7.=?'--?'??-5>?--,%'4>/57'-56$,&-.><-<',.$%5>'46=.-.><??,,,-5,-..>??/->>66$$'',$465--??>6&$'??-CLR.DE $C0ŅPLOT .DE $ECPOSN DE $     dD$;"EXEC SV FILE" n2 xD$;"WRITE SV FILE"A "SAVE":II 85g II1:(37)1:64578:25B 2I1K" 7A$(I)A$(I1)ī120: <D$;"WRITE SV FILE"U F"LOAD ";A$(I):"SAVE"\ PI UD$;"WRITE SV FILE":"DELETE SV FILE" ZD$;"CLOSE SV FILE" ^:: _"TURN ON TAPE RECORDER AND SET TO RECORD"::"PRESS RETURN KEY";B$:D$"MON I,O" $"" A$(25), D$"NOMON C,I,O"::I1Q "PROGRAM NAME # ";I;:" ";A$(I)d A$(I)""200 A$(I)""A$(I)A$(I1):(37):"PROGRAM NAME # ";I;:" ";A$(I1) A$(I)""40 #II1:25 ((37):64668: +D$;"OPEN SV FILE" -KI1hD::9:13:"POWERSOFT, INC.":11:16:"PRESENTS":I12000:I}:9:13:"PROGRAM UNLOAD":11:13:"(DISK TO TAPE) 19:14:"COPYRIGHT 1979":11:"ALL RIGHTS RESERVED":I13000:I:13:"PROGRAM UNLOAD":I139:"-";:I::34,3: D   ̍̍̍̍̍̍̍̍̍̍̍̍ĠҠˠ̍ĠҠɭӠӍͺͺΠҠˠÍ z89LHzh({0z`ɰ0<ɺ8`h ɕ({ɘ%ɍH{{ɺ{hz` -z89 `*))_,J@p(ԡĠϠ)_3T@p(ǡĠϠҠ)_/^@p(ҡĠϠԠ),oa(ҠŠƮ)FE(Ӡĺ)oPa@[oPa@[pKM6a(`,$"`$,`$6`$@`$J`$T_^@p()_@p()_"@p()_(,@p(ԠĮŠ)_,6@p(ĮĠϠà)_0@@p(٠ĮĠϠԠӡ) q[#oPa(ՠԠή)oPbE()E@oPbE()E@o PbE()E@o PbE()E@o PbE()E@o PbE()E@o PbE()E@c`d$`$)q.?6@r`$ + d6?e`<()r$p`<()r$  \0 qdKCe]ԠŠĠƠ2 qqqqqqq_H a(ҠŠƠ)FE(ӠΠ)a(ӠȠŠƠ)F a(*d e|d"eM,d ed"eM.d ed"eM0d ed"eM2d e|d"eM4d ed"eM6d ed"eM[ KM6 `%\ \? oa(ҠοٯΠԠԽ)GPa(Ǯ) d,e"UVWdq/?rq/?xrd ed"eMYd ed"eM d ed"eM"d ed"eM$d ed"eM&d ed"eM(d ed"eMҠ)@p(Π)@p(̠Р)E@p(Π)@p(Š٠)@p(Ҡ)'@p(͠Š)M6q[-oa(ŠԮ)GPa(ӠĮ)*a(֠ȠŽ)FGPa(Ž)(oa(P$M6dbq[-dJCeoP a@GP%a()q+qoP$M6dbq[ oP M6db[QUN@"rC@"rC@"rC@"rC@"rC@"rC@"rC@"rC@"(rC@"rP@p()@p(Šdbq[-dJCeoP a@GP%a()q+qoP$M6dbq[-dJCeoP a@GP%a()q+qoP$M6dbq[-XdJCeoP a@GP%a()q+]q(o7_-ddJCeoP a@GP%a()q+iq2oP$M6dbq[-dJCeoP a@GP%a()q+q(oP$M6dbq[-,dJCeoP a@GP%a()q+1q2oP$M6e]Ԡͺ% a(ĠҠɭӠ) a(ĠҠˠ)\dKCeKMD \_MDq.?JCr`%\dq.?KCr`%\ q(qoPb-`d%\2`d$  ]]Ҡˠà]ϭà]ЮϮؠ]Π]Ԡ]] ]8 dJedKeded    AUTONUMBERING"9 "CALL 773 RESTARTS WHERE INTERRUPTED"? d "IF AT FIRST YOU DON'T SUCCEED"| "PLEASE TRY AGAIN" " Z:50d"INSTRUCTIONS FOR AUTONUMBER.FP"On" TO START THIS PROGRAM "sx"CALL 768 OR BRUN AUTONUMBER."}" ENTER A FIVE DIGIT""LINE NUMBER, I.E. 00100.""SUBSEQUENT LINES WILL BE ""INCREASED BY 10" "CTRL-X STOPS  ̍̍̍̍̍̍̍̍̍̍̍̍̍ @APPLESOF `ߥ `>̍̍̍̍̍̍̍̍̍̍̍̍LISTINGS. ALL YOU HAVE 2 TO DO IS RUN IT. NOWM ALL CTRL CHARACTERS f WILL BE PRINTED INu INVERSE.wl 201,141,240,21,201,136,240,17,201,128,144,13,201,160,176,9,72,132,53,56,233,64,76,249,253,76,240,253~I76876827V:I,V:IP54,0:55,3Z1002d ROUTINE IN DOS MANUALn ON HOW TO FIND CONTROLx CHARACTERS IN DISK  ̍z             ̍̍̍̍̍̍̍̍̍̍OPEN FULL FILE,L256" (II1; 2D$"WRITE FULL FILE,R";IA <I F40[ d(222)255Ħh nI0130 xD$:D$"DELETE FULL FILE" :12:I;" SECTORS AND ";I256;" BYTES FREE"P DISK SPACE FREE --ASII+8 BY DARRELL ALDRICHU CALL-APPLE 2/79- PG 20m CTRL-D IS CHR$(4) TYPED BY ED SIGURDSON (SACC) D$(4):100 "I AM WORKING---PLEASE WAIT FOR ME TO FINISH MY JOB"D$"NOMONC,I,O":I0 D$" ̍̍̍̍̍̍ōӍōNE OF CIPHERTEXT (Y/N) ";Z$+Z$"N"730<Z$"Y"680f"INPUT NEXT LINE OF CIPHERTEXT: ";C$o520"MESSAGE IS COMPLETELY DECIPHERED."I11000:I:"MORE (Y/N)? ";A$A$"Y"80090 dTUT FIRST LINE OF CIPHERTEXT: ";C$-L(C$)8I1LIX$(C$,I,1)Y&X$" "610e0J136|:X$(B$,J,1)600DD$(I)(A$,J,1)N620XJbD$(I)" "lIv" ";I1LD$(I);I:"IS THERE ANOTHER LII)" " |I " ";# I1L/ D$(I);6 I> :r "IS THERE ANOTHER LINE OF PLAINTEXT (Y/N) ";Z$ Z$"N"490 Z$"Y"440 "INPUT EXT LINE OF PLAINTEXT: ";C$ 280 "MESSAGE IS COMPLETELY ENCIPHERED." 740!"INPSH TO DECIPHER OR ENCIPHER A MESSAGE (D/E)";Z$> Z$"D"510O Z$"E"240y "INPUT FIRST LINE OF PLAINTEXT: ";C$ L(C$) "I1L ,X$(C$,I,1) 6X$" "370 @J136 JX$(A$,J,1)360 TD$(I)(B$,J,1) ^380 hJ rD$(RED (Y/N) ";Z$ Z$"Y"180/ Z$"N"130] B$"QWERTYUIOPASDFGHJKLZXCVBNM5674380912"f 240 "ENTER NEW KEY ";B$ L(B$) L36240 "INSTEAD OF HAVING 36 CHARACTERS," "KEY CONTAINS ";L;" CHARACTERS." 180. "DO YOU WI" 6) NONE OF ABOVE"0 t"ENTER OPTION # > ";T? u:T4125O wT1B$T1$_ xT2B$T2$o yT3B$T3$ zT4B$T4$ {A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" |170 }A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" "IS NEW KEY TO BE ENTE5TGB"4 fT2$"M0N9B8V7C6X5Z43L2K1JPHOGIFUDYSTAREWQ"c gT3$"ASDFZXCV1234QWERBNMGHJ765TYUKLIO890P" hT4$"MNBVCXZ0P9O8I7U6Y5T4R3E2W1QASDFGHJKL" j"KEY CODES:" l" 1) TIPPY" m" 2) TOPSY" n" 3) TURVY" o" 4) TURKEY" q" 5) DEFAULT" r P AUTHOR CHARLES J. WILSONKQ ORIGINAL PROG NAME WAS DECODER BADGER MODIFIED BY KIM CIMMERY, 1365 KATHY ST S, SALEM 0R 97302T SOURCE -- PERSONAL COMPUTING, JUNE 1980, PP 78-80Z:dD$(60) eT1$"1QAZ2WSX3EDC8IK9OL0P7UJM4RFV6YHN     ̍̍̍̍̍̍̍̍̍̍̍̍̍M6o!a(ҠǠӠ)a(ŠŠǠ)ca(Š) a(ΠԬ̲)UVWa(ŠԬ)F (a()2Y<]ԠŠrY*UVW`-r"-r$ Y%UVW`-r#%_ /?rY%UVW`-r%_ /?rY%UVW`-r%_ /?rY%UVW`-r)%_ /?rY%UVW`-r%%_ /?rY%UVW`-r%_r-r%_ /?rYRUVW`-r-r -r-r&-r-r%_ /? rY%UVW`-r%_ /?rY%UVW`-r%_ /?rY%UVW`-r$%_ /?rY%UVW`-r %_ /?W`-r-r%_ /?rY=UVW`-r8-r-rr%_ /?rY2UVW`-r-r%_ /?rY.UVW`-r-r %_ /?rY%UVW`-r%_ /?rY2UVW`-r8-r-rr%_ /?rY2UVW`-r-r%_ /?rYNUVW`-r8-r-rr-r%_ /?rYNUVW`-r8-r-rr-r%_ /?rY2UV-rq_`%_" /?r2UVW`-r -r%_ /?rY2UVW`-r -r%_ /?rY2UVW`-r-r%_ /?rY2UVW`-r'-r+%_ /?rY=UVW`-*A`@:()$Bq-rq*_*B`@:(է)$Cq-rq+_*C`@:(է)$lq-rq,_+`@:()$Xq-rq-_,`@:()$lq-rq._9lqױ-rqбײ-rqвqrq#_)`@:()$q-rq$_)`@:()$q-rq%_)`@:()$q-rq&_)`@:()$q-rq'_)`@:()$lq-rq(_*@`@:()$Aq-rq)_q-rq_)`@:()$q-rq_)`@:(Χ)$q-rq_)`@:()$q-rq _)`@:()$q-rq!_)`@:()$q-rq"_)`@:()$q-@:()$~q-rq_(~`@:()$q-rq_(`@:()$q-rq_(`@:()$q-rq_(`@:()$lq-rq_)`@:()$q-rq_)`@:(Χ)$-rq_'`@:()$lq-rq_(x`@:()$yq-rq_(y`@:()$zq-rq_(z`@:()${q-rq_({`@:(ɧ)$|q-rq_(|`@:()$}q-rq_(}`@:()$q-rq _'`@:(ɧ)$q-rq _'`@:()$q-rq _'`@:()$q-rq _'`@:()$q-rq_'`@:()$q-rq_'`@:()$qq-rq_&`@:()$q-rq_&`@:()$q-rq_&`@:()$lq-rq_'`@:()$q-rq_'`@:()$q-rq_'`@:()$q-rq _'`qб`в;@r$U@p@*в#вr`@9()@9()@9()@9()@9()@9()@9()$вqв_=qвб`$`$l@p@*б#вr_d%L`@:()$lq-rq_&`@:()$q-rq_&`@:()$UVWY)M6a(ɡɧ͠)c_/?r a(ԧӠҠͿ)_4a(ԠĠՠŠϠˠԠٿ)_&a(ԧӠΠҠĠٿ)_AcqqвqR@`@9()%_X@B;@rrp() бqв&d]n]٠Šs]Ġ٠ˠ3xN@"drC@"rC@"(rD42rDױ42rDײ42rOM6o P a()o Pa()oPa(Š)oP  a(Ġ٠ˠ)               ̍̍ǠǍĠō͠ō٠Ԡō":7::"FILE ELEMENTS:"#R1E515);CMD$(R)<Rp:"DO YOU WISH TO BUILD ANOTHER FILE ? Y/N";I$&I$"Y"14200:10:11);"HAVE A GOOD DAY !":R140h:"COMMAND #";L:C$1rC$"LAST"1690H|C$"MISTAKE"1540WCMD$(L)C$^LhEL1qOP$zWR$R1ECMD$(R)RCL$VER$LOC$:3:"EXEC FILE NAME:":A40(A$):BA2:CB4::C);"*** ";A$;" ***COMMANDS YOU CAN RESTART BY ENTERING 'MISTAKE' INTHE SAME FORMAT AS YOU ENTERED THE OTHERCOMMANDS.":@13::"**** NOTE ****"::"QUOTES MUST PRECEED EACH COMMAND EXCEPT 'LAST' OR 'MISTAKE'."J23:5)"*** 'RETURN' TO CONTINUE ***":I$T^LL BE USED."Q"THE ENTRY MUST BE IN THE SAME FORMAT AS THE FOLLOWING EXAMPLE:"j":Q$;"BLOAD XXXX":,"THE LAST COMMAND ENTERED MUST BE 'LAST'. YOU MAY ENTER UP TO 40 COMMANDS TO GO INTO YOUR 'EXEC' FILE."e6:"IF YOU MAKE A MISTAKE ENTERING "OPEN "A$",L200,S"S$",D"D$",V0"=WR$CD$"WRITE "A$WVER$CD$"VERIFY "A$oLOC$CD$"LOCK "A$CL$CD$"CLOSE "A$ :"ENTER THE COMMANDS THAT YOU WISH TO HAVEIN YOUR EXEC FILE. THEY MUST BE ENTEREDIN THE ORDER THAT THEY WIL0),LOC$(20),A$(40),C$(40),CMD$(400)/B$(20)65:"WHAT NAME DO YOU WISH TO ASSIGN TO THE EXEC FILE THAT WE ARE BUILDING ? ";A$:"WHICH SLOT DO YOU WANT TO HAVE THE EXEC FILE WRITTEN TO ?";S$:"WHICH DRIVE IN THAT SLOT ?";D$%OP$CD$"HIMEM:8192": <"COMMAND #4"7 FQ$;"LOMEM:4096":I P"COMMAND #5"Y ZQ$;"RUN":k d"COMMAND #6"w n"LAST" x22:5);"**** 'RETURN' TO CONTINUE ****" I$ CD$(4):Q$(34) CD$;"NOMON I,O,C":#OP$(20),WR$(20),CL$(20),VER$(2X";Q$ "50 END"A 22:5);"**** 'RETURN' TO CONTINUE ****"I I$ :"THE FOLLOWING IS AN EXAMPLE OF AN ACTUALCOMMAND ENTRY SEQUENCE:" :"COMMAND #1" Q$;"BLOAD PLANET": "COMMAND #2" Q$;"LOAD RL": ("COMMAND #3" 2Q$;XAMPLE OF A PROGRAMTHAT YOU CAN USE TO CALL THE EXEC FILE THAT WE HAVE BUILT."r :"10 CD$=CHR$(4):REM CTRL D" "20 PRINT CD$;";Q$;"NOMON I,O,C";Q$ "30 HOME" "35 PRINT TAB(10)";Q$;"LOADING PLEASE WAIT";Q$ "40 PRINT CD$;";Q$;"EXEC XXX CPU WITH THE APPLESOFT II FIRMWARECARD INSTALLED." :" THIS PROGRAM WILL ASK WHICH SLOT/DRIVETHAT YOU WANT TO WRITE THE EXEC FILE TOOSO THAT YOU DON'T HAVE TO CHANGE DISKS OR HAVE THIS PROGRAM RESIDENT ON EACH DISK."O :"THE FOLLOWING IS AN ERALPH D GUSTAFSON, B 18095 SW DIVISION STE L ALOHA OREGON 97005\ V TEL:503-649-5744e `:2 j"DO YOU WISH TO HAVE ME PRINT A NARRATIVEABOUT THIS PROGRAM ?":"(Y/N)";I$ tI$"N"1420 ~3 " THIS PROGRAM WAS WRITTEN ON A 48K APPLE :5:Q$(34)=5);"*** EXECUTE FILE GENERATOR ***"Y10:15);"WRITTEN BY:"13:20);"RALPH 'GUS' GUSTAFSON"20);"APPLE USERS GROUP"20);"PORTLAND OREGON"$22:5);"**** 'RETURN' TO CONTINUE ****":I$. AUTHOR: 8      ̍ BY AUTHORS - APPLESOFT CONVERSIOND  BY: TOM PEKAREK_* OF SALEM AREAz+ COMPUTER CLUBC1:4:"(";:6:")":VT1: < DISK CATALOG UTILITYS BY: WEYMAN FONGk GREG ROBBINS CHUCK SOMMERVILLE ABACUS ][ OF SAN FRANCISCO  PUBLIC DOMAIN -- ALL COMM'L RIGHTS  RESERVEDK204K2103402^B$"BRUN":K204B$"BLOAD"e`1:868:198:" WHAT STARTING LOCATION:";SL$c(37)1:B$;" ";A$;" ,A";SL$hD$;B$;A$;",A";SL$:::30ABA$"":X736:A$A$(X,I)X,I1)16):XCVT(37):I2K(16384):K136310.916368,0:K19390?:K192Q310X;OII:II(K193)22i@1,I)2330E198:198:198:198:198:IOI:310J1090:1:868:" BLOAD OR BRUN (L/R) ";:198TK(16384):K128340V16368,0:K15590Y11:868:"DRIVE:";K:NDKASLDR$",S"(NS48)",D"(ND48)I35dK(16384):K128250r16368,0K155ĀK136K14990K177K18410KK176:80+,1:868:" PRESS'LETTER'OF BINARY PROGRAM ";:1986C$:D$;B$;A$;",";C$:10&K141500<K176Q23220O::34,23:30_K1752601:868:" HIT KEY FOR NEW SLOT NUMBER";:198250:K1K7230NSK:1:"SLOT:";NS;" HIT KEY FOR NEW DRIVE";:198250:K1K22405:198:W:10/B$;" ";A$:B$"DELETE"160R12:"HIT '4'TO DELETE";:198mK(16384):K12815216368,0:VT1:1:868::K18010B$"LOAD"B$"BLOAD"B$"EXEC"165D$;B$;A$:10D$;B$;A$:198:"ENTER NEW NAME: ";2Q1807 II(K193)22:1,I)2B$"RUN"B$"BRUN"Y 1,I)2B$"LOAD"B$"BLOAD"y 1,I)4B$"RUN"B$"EXEC" 1090:1:868:B$"RENAME"B$"DELETE"150 0,I)B$"DELETE"150 0,I)B$"RENAME"17010:"FILE LOCKED":W1130 oK177B$"LOAD". pK178B$"LOCK"E qK179B$"UNLOCK"\ rK180B$"DELETE"s sK181B$"VERIFY" xK182B$"RENAME" z1:"PRESS 'LETTER' YOU WISH TO ";:868:K180Ĺ50,127 }B$;:50,255:198:80 K183300 K193K19RIVE='/' "> K1:"RUN ? <- ";(MENU$,ML,26);" ->";:B$"RUN"X PK(16384):K13680f R16368,0} ZK136K149100 _(MENU$)070 `MLML3((K148)):ML1ML1 aML(MENU$)25ML(MENU$)25 b75 dML1:K155Ā nK177K18216:4,R2:4,R1)1060& AQ2270r CVT(37):32,39:33,1:936:5:"HIT ESC TO EXIT":32,0:33,40:VT1:1 FMENU$" LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 VERIFY=5 RENAME=6 BLOAD/BRUN AT=7 TOP OF CATALOG=0 END OF CATALOG='RETURN' CHANGE SLOT/D3" *CG,234:CG1,234:CG2,234V -24:"HIT 'ESC' TO EXIT":1:D$;"CATALOG";SLDR$t .CG,32:CG1,12:CG2,253 /34,0:35,24:I0:P0:Q0 2II2:4,I1)1050 7PI2 <PQ:4:"[ ]":QQ1:RIQ22:(Q128)16:4,R1:Q128((Q128)16){ 7 FOR APPLE DOS VERSIONS 3.2 AND 3.2.1S :16298,0:16300,0:uCG28217:(116)100CG4460134,23D$(4):ML1::D$;"NOMONC,I,O"#TITLE$"SALEM AREA COMPUTER CLUB PUBLIC DOMAIN PROGRAMS" (1:958:6:TITLE$:     .?%rM6d6?e_a(Š)E@E()FE()Fa@E()E@E()FE()FcP a(Ԡ٠)G2q.?6@r`$`%Qd6?ec_ X`%@p()`%@p()`%@p()`%@p()`$_A\Ba@E()E@q.?r.?rq.?r.?rE`.?0r$PM6da(Ǡ)FGPa(Ƞ)FQNPM6da(ԠΠˠΠŠ)P a(ĠԠ٠)G>q.?6@r`$`%QPoDqq`=>r =>r $-a(ӧҧƠ٠)GM6Sq.?6@r`$d6?e`$Z`$qq8r<`=>r$M6M6M6M6M6qe.?MrM6IMN@"rC@"rC@"(rC@"rC@"(rC@"rC@"r@p()hq.?Mrqqqqqq`$q6qq`.?r%q>q`=>r $qq>Tq.?6@r`$Td6?e`$Z`$TQ^@p()`%@p()PM6dM6S(ԠǠκ)&@0co.?%ra@E()E@E()E@ha@E@E@E()E@Q7PM6dd0edJe.?LrdKP+Q9,PM6da(ӧҧƠ٠͠)GM6S6q.?6@r`$6d6?e`$Z`$6qq8r=@`=>r$JM6M6MM6M6q_63J\BPM6da(ĠҠΠ̯ҩ)GM6)GM65\`$P M6da(ź)FqZ@p(ܬ)d.?r.?r e@p@d.?r.?r e_#Wq.?6@r`$d6@e`%Q`$Z`$ q[_נź)&@a@E@E@E()E@_ `$`$/`$M6d"eMI_@`$PM6da(Ԡ٠ҠנԠ)GM6Q\`$qPa(Ժ)FE(Ԡ٠ҠנıP a(Š)UVWM6Y_ ?a@E()E@`@:()$P a(ԠϠ)GM6:q.?6@r`$d6?ePM6dc`$ 6`@9()@9()@9()$a@E@E@_ a@E@E@Q6M6S(ҠP`$,l`$q8r`=>r@9()%@p()`=>r@9()%@p()P`=>r@9()%@p()\BPM6d`@:()@:()$d`7=>r@9()$`7=>r@9()$%q;@r_Fdq`%Qon`$`%@p()`%@p()`%@p()`%@p()`%@p()jx`%@p()Pa(ӠҧՠȠϠ)GM6d`%d2ea@Gd2eM6_B;@rrp(РƠǽŠԯŽΧԠҠ̠ˠՠ)-KPa(Π)E@*#rG@p()"Pq.?6@r`$Pd6?egZ`$d`;@r$Fq0?r`%q`;@r8rgh`=>r $<gA`$Fq.?%rd e'd!eM6oa(ԠàϠ)d ed!e(oPeF@p(ՠĽ˽˽ŽٽŽįΠԽĽٽ)iH@ìɬ)#@p(ŠӠ۠) (oM6Pa@oQ-Pa(ԠçϠ)oa@E()E@d"eqqq(2q`=>r $2qo<oPa(۠)qqf8rghfJ]ҠŠӠӠĠ5 dJedKede.?Jrde.?KrKd6?e.?6?rzd2ejN@"rC@"rC@"(rC@"rC@"rC@"rC@"(r@p()qcca@E(     RNR1V I1NH"[ R(J)R(J1)>` N$(R(J),I)N$(R(J1),I)Ej ILt JXy NRNR1~ :"RECORD NUMBER "DR" DELETED!": "MORE (Y/N) ";L$ L$"Y"2360 F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:":RECORD***PF5230,52500" "H$(0)": ";J<I1NHYI" "H$(I)": "N$(R(J),I)`Ifs LLNH2 D$"PR#0" $ ***DELETE RECORDS***. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDELD YOU WANT":"TO CHANGE ";/R"";S$:S(S$)B\S1SNH2130Hfhp"FROM "H$(S)": "N$(R(J),S)nz"TO "H$(S)": ";:"";N$(R(J),S):2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810 ***PRINT A 701"PRESS RETURN TO CONTINUE, ESC FOR MENU";;L$:N(L$)274810b(L$)132064nL0:: ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$)>:2240H" ENTER THE NUMBER OF THE FI),S),(Q$))Q$İ2240'LNH20İ2060.JK"THAT'S ALL OF THEM. ";_"NOW YOU MAY:"y"1 DO MORE SEARCHES""2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF020NG:" &3880*0:"OR YOU MAY":@:I" MAKE CHANGES"FD_N"WHICH ";S$:S(S$)tXS0SNH11870bSNH12080lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(R(J),0)(J)(N$(R(JR(NR)NR,"YOU ARE ENTERING RECORD # "NR2>I1NHWH$(I)":";:N$(NR,I)^Idz"MORE (Y/N) ";L$L$"Y"1640F$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWIRETURN' TO EXIT TO MENU"Q"HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR)k"R$(NR)""NR201600w,NRNR161560@NRNR1J4280:1160T***ENTER RECORDS***^h"THERE ARE "NR" RECORDS"r"IN THE "DB$" FILE"|NRNR1:ER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450R:"DO YOU WANT TO SORT:":j"1 ALPHABETICALLY""2 NUMERICALLY""WHICH ";L$:L(L$):"SORTING ";:12401013:*** CREATE HEADERFILE ***216,0NR1:"PRESS ' <XR(I):R(I)R(IM):R(IM)X:IIM3 FI11290= PJJ1K ZJK1250U d1280n x:"SORTING IS DONE" "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"(Y/N) ?";L$:L$"Y"F$"INDEX":4280 4810 MF1:38802"ENTN$(B,NH),R(B)# F$"INDEX":4830- 41107 4810I *** SORT ***R MNRm M(M2):"SORTING ";{ M01400 KNRM:J1 IJ I1R(I):I2R(IM) L1330 (N$(I1,S))(N$(I2,S))1360 (1340 2N$(I1,S)N$(I2,S)1360$(21) .Z$(21) 8COMMA$"NO"8 BD$(4): CONTROL DL GD1$(7): BELL] LH$(0)"REC#"} VDB$"":F$"BASENAME":2610 `4110 j2470 tF$"HEADER":1520 ~4110 I1NR:H$(I)R$(I):I NHNR:NR0:MEM(0) B(MEM(13NH)) RN$(J1) J 4440# NRNS) @ ,:"SELECT FROM":g 6I1NH:I;" ";H$(I):R$(I)H$(I):o @:u J 216,0:D$(4):D$"MAXFILES1" D$(4): CONTROL D D$"NOMON I,O,C" : 5180  $R$(65),AC(21),K(65),H$(21),RN$1))N11))K(3I1) d@ nN(((COLWK(3I1))N1))K(3I1)F xa I11WIDE:"-";::: "ENTER REPORT FORMAT YOU WANT DELETED ";RF$:RF(RF$) F$RN$(RF)" RPTFMT":D$"DELETE"DB$" "F$"FILE" FRNR1 NNFR JRFNR1 RN$(J)", LAST UPDATE 3-10-801 BY DICK STEIN;1000O A(N):CN(N)bC0CC.001vA$(A):C$(C)C$C$"00"((C$,1)"."C$(C$,3)2(C$,1)"."C$"."(C$,2)<A$A$C$FN1(A$)P