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~ JPs୽浍국䵍뵩嵠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[U*U*U*U*U*~say@s?`?T*U*U*U*U*U`@ժժժժaAx?ժժժժxpa@C~`"END OF MESSAGES!""I1500:I8D$"": 'CTRL D'ID$"CATALOG"Q Wq (C) COPYRIGHT 1980 BY DAVID P. ALLEN (617) 545-2696C54!169,138,133,255,162,150,160,0,177,254,42,24,106,145,254,230,254,208,6,230,255,228,255,240,3,76,70,3,104,168,104,170,104,961 h:320:1420 r38400! | 56,72,132,251,160,0,201,32,176,2,105,192,201,96,176,2,105,128,201,128,176,2,105,64,145,252,230!252,208,2,230,253,104,164,251,96,0,0,0,0,169,160,96,104,168,104,166,223,154,72,152,72,96,72,138,72,152,72,169,0,133,2Ĺ36,39:(DE$(C),161,40):LCLC1U,(DE$(C))200Ĺ36,39:(DE$(C),201,40):LCLC1[6h@"PR#0"tJ" 40N"T::"IF MORE, INSERT NEW DISK AND HIT RETURN."::"-OR- HIT ANY OTHER KEY TO RETURN TO MENU";:16368,0:A$:A$(13)1640^:180C1XLC55ĺ(12):LC04T$(C);" ";FT$(C);U36,39:(DE$(C),40):LCLC1(DE$(C))40Ĺ36,39:(DE$(C),41,40):LCLC1(DE$(C))80Ĺ36,39:(DE$(C),81,40):LCLC1(DE$(C))120Ĺ36,39:(DE$(C),121,40):LCLC1!"(DE$(C))160:"HARD COPY VIA PARALLEL CARD IN SLOT #1":d"TYPE ANY COMMENTS FOR TOP LINE OF PAGE ? ";CO$3:958:"TURN ON PRINTER AND SET TO TOP OF PAGE THEN HIT ";:"";A$"PR#1"" 80N"LC0CO$:" ":LCLC2 ANY OTHER KEY WILL REVERSE STATUS ? ";:16368,0:A$:A$(13)1370U<CG1pFSN(C)1SN(C)2:1370|PSN(C)1Z:_ED11390d::"THATS ALL - HIT ";::16368,0:"";A$nCG0260x870CG0260X0300/DN$(C)D$:CG1O 958:TN$(C)T$(C):F2$(C)FT$(C):SN(C)SP(C)::ED11370{(F2$(C),1)"T"(F2$(C),2,1)"T"1370SN(C)1ĺ"WILL NOT RUN FROM SELECTION LIST.":1330("WILL RUN FROM SELECTION LIST."L2:" IF CORRECT, ECTERS FOR PARTS YOUWANT TO CHANGE OR ADD.(6 LINES MAXIMUM)"WED0:CG0:XNX:C1XNp14:958:ED11290FT$(C);" ";T$(C):15:DE$(C)15:"";D$:D$""DN$(C)DE$(C):1290D$"R"260D$"E"CG0260D$"E"ED1:1290 GIVES NO CHANGE TO DESCRIPTION":"'E' & ENDS CHANGES.""'R' & RETURN TO MENU WITHOUT MAKING ANY CHANGES TO FILE."<"OR YOU MAY USE THE CURSOR MOVE KEYS TO COPY PARTS THAT YOU DO NOT WANT CHANGED AND TYPE IN NEW CHARMENT - EDIT' PROGRAM. INSERT THE DISK THAT THE PROG.LIST HAS BEEN SAVED ON AND THEN 'RUN'. WHEN THE MENU APPEARS, CHANGE THE DISK BACK AND ANSWER '1'"t38400:~X0300:"PROGRAMS WILL BE DISPLAYED ONE BY ONE."@:"::16368,0:"INSERT NEW DISK & HIT ";A$AVDF1:880`:"2. TRANSFER ONE OF YOUR PROGRAMS FROM THE DISK THAT IS FULL TO ANOTHER DISK THEN DELETE THAT PROGRAM TO MAKE ROOM FOR THE PROG.LIST FILE"j:"3. LOAD THE 'CATALOG MANAGEb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵ժժժժxpa`C`~?|?U*U*U*U*U*qsayC`~P*U*@BU*U(U*U*U*U*U xa@~?*UժժժժP*U*U*U*U*U*U`@sx?Ъժժժժ`@ժժժժxpapC~x?ժժժժxpapC@~?@*U @V*U(U*U*U*U*U*`a@x?*Uժժժժ@*ՀЪՀU*U*U*U*U*U`say@s~?P*U*U*U*U*U`@ժժժժpaC|?ժժժժxpa`C~x(UP P* U*U*U*U*U*(Uժժժժ@*ЪՊԪՂU*U*U*U*U*xsay@s@?p*U*U*U*U*U`@ժժժժqaA|?ժժժժxpa@C~p@P * U*U*U*U*U*(Uժժժժ@*ԪժժՊ97xLTD ࿩ l(  D TTP@ TD D D @(LԊЀ0`xp >P">"$,&)+`T T ;<` x꽌ɃT TT PT T T T >ȥ&ԊЀ2 0`p &6HĂЂЊЂĂԂЊĂT  "$"$""$ԀЂԂЂԂЂЈ T T PT T T  T  T T J@ȃTTJЂԊ00|`@`p`D TTPTTTT" 0` 8 `DPP PDTP DT " "">$ TPTP@TPPƴЃ TTPTD T D  TT ﳐ ЂԊX Xxp`xxpЃ TP Bê෭ⵍ򷭃b<<xx`ܵ i  >  "&""$ȱBL:ЪЀЀT*T* U* U*8ЀЀЀЀЀЊЀ    .ժ@ժժ@ ժժժ8` ЀЪՂРЀЀЀԂЪՂ   A    ЀЀЪՂЀЀT*T*  U*fЪЀЀT*T* U* U*p`ЀЀЀЀЀЊЀ    8ժ@ժժ@ ժժժ` ЀЪՂРЀЀЀԂЪՂ   A `ЀЀЪՂЀЀT*T*  U*> >">V|xp`@`pp`>>?8|~~~~~|xp ?>"">>""> >$$$$<ÆAIII|w<$<?!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c66$""""">> >G%tRq  .     > >>@ ? ?? >>>>~B@x????????     LͿЂhG ժժժ@G|p@ ЀЪՂРЀЀЀԂЪՂ   A   ЀЀЪՂЀЀT*T*  U*ЪЀЀT*T* U* U*`ЀЀЀЀЀЊЀ    @3ժ`@ժժ` ժժժpx@ ЀЪՂРЀЀЀԂЪՂ   A `ЀЀЪՂЀЀT*T*  U* 0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?6>633?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333 33333?333 33333 ?0 ?>> 0`@>00000>6c$$$??< (c3 ca+.    **> >`0 3;?73  ?30 ?30038<63?00?0333?0 333333>0  0  0>> 0 <~b0 "Apppppppp"AAAAAA>>6>>***~" "w"w>>>>>00@@ !~AAAAAA$H,h&Hh& ,P=i=`xAHHHAH }hɍɃ hhh`L m $ % $ %`HH<nn(nnjJ(nnn(nJ% %hh`,p0<`JH$JhiH%JhiHh` ):(; )8*9(&)m'`'i'`,  "#0 &<'=ʊ >!<& =i=>0ˠ$> $&! >`"% P %%#LXx)=== &= &= &=m<=m= e==,LU M?5e$),0??,p P*?{%? ` TLo``  A``  L~ T  U@`L `, ۰ HɍɊ,0ɘɈɇ, @+hɠ%@ , +  ?,`ɺɰ`۰`hhL% $( oPRTW$6 7L }  2 @ g I n n n n n m n   n   n n n n  `*U<(H'H< `Ɂ,0ɞ) 4H3H`Lo ``,T,Q L 9I`,I`I    ЀЀЀЀЀ    ppЀЀЪЀЀРЀ   U* U*ppժժժ`ЀЀЀЀЀЀЀ   (  ЀЀЀЀЀ    `ypЀЀЪЀЀРЀ   U* U*p8p0` |@ժժժ@`ЀЀЀЀЀЀЀ   ( 0  ЀЀЀЀЀ    ЀЀЪЀЀРЀ   U* U*@ @)G[oPa()GUVW2YoPa()Gq[]ԠҠ]Š]Ŭa]ϠӠ)a(Ϡ)Pa(̠)ra()|UVWY[!q6?UVWYq UVWoPa()Ga()Ga()2UVWq.?r.?r.?r.?r.?r.?rUVWYZ\,oPa()UVWYZa(#roPa@*#roPa()Ga@*#r a()GUVWxYZa()M6a()QUVWY"o ,a()a() 6a()@a() Ja()GTPa()#UcP a(٠)a()^a()hP)Ga()G;a()Ga(ΠϠҠɠǠȠԠӠҠŠӠŠҠ֠ŠĠ)Ga()Gqqq(q;@rUVW-qq`%q`%q `%q`%\`%\BoPa@* @N@" rC@" rC@" ra(ϠԮ)(a(ϠԮ) 2q <Ma()Fa()a()PoZccd@p(٠)n@p(ʠ)x@p(͠)a()o Pa()Pa()Coa()Ga(  Ϣ[]ҠТ6lmnghghgh]Т[]ҠѢ[ghlmnghlmnghgh]Ѣ[]ҠҢYlmnijkghiժժժ0@ ЀЀЀЀЀЀЀ   ( @`|?ЀЀЀЀЀ    0` ЀЀЪЀЀРЀ   U* U* `ypժժժ ЀЀЀЀЀЀЀ   ( ` gW'  `^ :F Y %^LǏLZ^[_\Z][` 1 8tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?AVENTION 80 L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4  %\ []ӠҠ]ϠӺ`%@p()`%@p(Π)`%@p(Ԡ)`%@p()`%@p()`%@p()`%@p()`%@p()`%@p(%\* `%\4& `%\>0 `%\H: `%\RD `%\\N `%\fX `%\pb `%\zl `%\v `%\ `%\ `%\ `%\ `%\ `%\ `%\ `Uijklmnlmnghghijk[ ]ŠҠ ]Ӯ `%\ `%\ `%\ `%\ `%\ `%\  `%\ `%\  `lmnijklmn[]Ҡelmnlmnijkijklmnlmn[]Ҡ4lmnlmnlmn[]Ҡmnijk[]Ҡ!ijklmn[]Ҡ0lmnijklmn[]ҠClmnijkijklmn[]Ҡ0klmnghghgh[]Ҡflmnijklmnijkghghgh[]ҠNijklmnijklhlmna[f]ҠGgijklmnijklmnk[p]Ҡ?qlmnijklmnijku[z]Ҡn{ijklmnijW?lmnghghghlmnlmnC[H]ҠIlmnijkM[R]Ҡ0SlmnijklmnW[\]Ҡ7]lmnghgmnghgh[ ]Ҡ,!lmnijklmn%[*]Ҡ4+ijklmnijk/[4]Ҡ.5ghijklmn9[>]nijkijklmn[]Ҡ7lmnijkijkijk[ ]Ҡ( lmnijkijk[]Ҡalmnijkijklmn[]Ҡ]lmnijkijkijklmnlmn[]ҠNijklmnijkghgh[]Ҡ;lmҠ٢5lmnlmnlmn]٢[]ҠڢEijkghghghijk]ڢ[]ŠҠ­]]ҠCijklmnijkl]բ[]Ҡ֢/lmnghlmn]֢[]Ҡע/lmnghlmn]ע[]ҠآQlmnlmnghlmnlmn]آ[]jkghgh]Ң[]ҠӢGijkghijkghijk]Ӣ[]ҠԢ"ijklmn]Ԣ[]Ҡբ1lmnijklmn)((4);"BRUN HELLO APPLE-VENTION.X"T " FILE$(10)"MASTERMIND"4 FILE$(11)"YAHTZEE"R FILE$(12)"SINK THE SHIP"o FILE$(13)"NIGHTMARE #6" !FILE$(14)"TOWERS OF HANOI" "FILE$(15)"CURVES" #FILE$(16)"SEVEN" $FILE$(17)"TWENTY-THREE BRICKS" %FILE$(18)"CATCH" &FILE$ FILE$(23)CD$""4FILE$(1)"BIORYTHM"OFILE$(2)"CHESS BOARD"hFILE$(3)"STAR WARS"FILE$(4)"HANGMAN"FILE$(5)"COLOR MATH"FILE$(6)"HAMMURABI"FILE$(7)"BLACKJACK"FILE$(8)"SLOT MACHINE" FILE$(9)"MORSE CODE  @p()`%@p()`%@p()`%@p()`%@p()`%@p()`%@p() `%@p(Π)`%@p(Ԡ) `%@p()[Q` %@p()b` %@p()l` %@p()v` %@p()` %@p()` %@p()` %@p()` %@p()` %@p()`%@p()`%@p()`%)` %@p()` %@p()` %@p()` %@p(Š)` %@p()` %@p()&` %@p()0` %@p():` %@p()D` %@p()N` %@p()X@p()|`%@p()`%@p()`%@p()`%@p(Ӡ)`%@p(Π)`%@p()`%@p()`%@p()`%@p(Ԡ)`%@p()`%@p()`%@p()`%@p()`%@p()"`%@p(),`%@p(Ӡ)6`%@p()@`%@p()J`%@p()T`%@p()^`%@p()h`%@p()r`%ˠ PG K(LOCK U(NLOCK N(EW D(ELETE E(XIT ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ؅D$% 0 +DE ` A PCL~@E^E_EZE[` 2 B A PC @`6798 `H|C h|C``2D3DEEiEiA)m3D3D +D 4D +D) 4Dm2D2Dm3D3Dة$eeELCؠ C82D2D3D3Dؠ 3D$C >B$E  ``L#BH$%  hWB\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\E  EmEB&BBNBmBJnBmBeeE` 8EEPEE &B B00   5DEEE B ALT@ BG A CL~@Ъ2'EE &B B B" yD$ >B B A C }CL~@ :L@% E E >B yD AE/5 >Bs r ; >Ba ` `$$(@ @_E%E^EZE[E̍^ZE_[ 0E^ D C1  }CE)ȹE)ȹE) 5D E Bɠ 0   5DL@ M  EТ E XELiLLT@ E &B B B E A EL@ E    TP    -` 0(tp 8p<<xӵԵ  TP   ĈBpp0`   " *ǴҵԵ ERS  TP    ԠƬ~ABR\/8 0`  UAGE NOT TP BUFFhHȃભ6ĈF` hBLOlZlԂЂ "$"$$6@DAEԊЂԊЂȑ@o΃ T T TT P    T ` [LTTT eօ80`  `L D TTTTTPTTTD TTToL õԊԊ| p`p`lV ЃTP ">>")rT PT P്õ8`D TTTTP  D  TઢLꢩ ЃT T T LꢩГx|0`  LT T T TT T PT T T T T T T E ୓ɠԊԊp0 ` ]           ' STARTREK' 2!' MUSIC>' JOHANN.SEBASTIAN.APPLEF' 2R' MUSICj' ANDY'S.SYTHESIZER|_ END OF DATA` -1,XXXXX,LAST ENTRY 7.BISHOPu' 1v' GAME-w' ROCKET.PILOT5' 1@' GAMER' STAY.AFLOATZ' 1e' GAMEx' ONE.MAN.PONG' 1' GAME' PONG.2-D' 1' GAME' SUPER.BRICK-OUT' 1' GAME' STARWARS.APPLE' 1' GAME ";FILE$(A) 936:5$ I20234 I,FILE$(I); IA k "NUMBER OF GAME OR 0 T0 GO BACK :";A} A0A23160 A0100 CD$;"RUN ";FILE$(A)(19)"OTHELLO"& 'FILE$(20)"PINBALL"B (FILE$(21)"DRAGON MAZE"] )FILE$(22)"BALLISTICS"y *FILE$(23)"LIGHT FIGHT" d936:5 nI119 xI,FILE$(I) I "NUMBER OF GAME OR 0 TO CONTINUE :";A A0A23100 A0ĺCD$;"RUN X1:Y10:C0:50 / D$;"RUN";L$(I)  SAVINGS0  FUTURE VALUE OF AN INVESTMENTG  REGULAR DEPOSITSe  REGULAR DEPOSIT ANNUITY~ REGULAR WITHDRAWALS  BASE CONVERTER  MENU SAMPLE BLANK  RESTART  MORE PROGRAMS LXX10:YY10:CC10 VXGAMES1200 `500L$(100)!GAMES10- D$(4): X1:Y10II1GAMESTL$(I)[(Ia2l3IXY<:I;" ";L$(I)FIP:"WHICH PROGRAM NUMBER ? ";GNZIXY_GNC91200dGNC101100iGNI1500nI FINANCE   LE PI BY! APPLE DAYTON GROUP( > DOM GRAPHICS BYO ROD NELSONU s ************************ ************* FROM BASIC" U5 Z8:"OR 'CTRL Y' FROM MONITOR"; _] d9:"EXIT PROGRAM WITH A 'E' c i| n15::"NOT RESET": sW12000:W x" BRUN HELLO APPLE PI.Y" ************************ HELLO APPLE PI.Y CONTRIBUTED TO APPu 16302,05" BLOAD HELLO APPLE PI.X"A(1)7#0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1(X(16384):16368,0:X2730216298,0:16303,0<F9:9:" TO RERUN MENU PROGRAM"K P9:"'CALL 1016'  P*U*U*U*U*U* Uժժժժ`@@*ժժժժU*U*U*U*U*say?@sp?\*U*U*U*U*U`@ժժժժa@p?ժժժժxpa@C~@P*U*U*U*U*U* Uժժժժ`@@*ժժժժU*U*U*U*U*Asay@sx?\*U*U*U*U*U`@ժժժժՂa?@`?ժժժժxpa@C~P*T*U*,U*U ժժժժՀ`@*UժժժժU*U*U*U*U*asayAs|?T*U*U*U*U*U`@ժժժժՂ~a@?@?ժժժժxpa@C@~~P*T*U*A0U*U ЪժժժժՀ`@*Uժժժժ U*U*U*U*U*qsayAs|?T*U*U*U*U*U`@          z#Xղՠɠՠ֠ՠڠ ՠ֠ ǮԠ  Ϡà ϠϠ ϠŠϠ"!ϠҠ" ՠǠ ՠɠ ՠɠ  ϠϠԮؠ ϠĠ ϠΠϠŠϠΠӠϠ͠àϠ͠îؠ" ϠŭΠ Ϡŭήؠ ϠԠ ϠԮؠ  ϠԮ٠ ϠϠԠ ϠϠԠɠ ϠŠΠ!ϠŠήؠ"ϠŠϠϠŠϮؠ"ϠŠɠ͠ϠŠɮؠ" ϠŠɮ٠ ǠԠԠˠĠϠ ˠĠϠɠ ˠĠŠҠ ϠΠɠϠΠɠϠĠԠՠɠŠϠՠϠĠϠĠŠǠԠ 216,0:] 216,0:936:10:8:"THE FILE ( ";A$(I);" )":14:11:"HAS NOT BEEN FOUND."t "I12500:::5: , BLANKA3):1:"********** 0) CATALOG ******************"= 200f CV5:9:"ENTER PROGRAM NUMBER: ";I I0A$(0)"CATALOG":216,0::D$;"CATALOG": 216,0:(IN)(I1) 200 280 936 10:8:A$(I);" IS LOADING." D$;"RUN";A$(I)********"0 F1:(19(T$)2):"- ";T$;" -":H PI1N:A$:A$(I)A$` ZK(K1):N10K.5y d((I))1L2: 120 nL1 x(20KL):I;") ";(A$,15); K1ĺ (K1)(N19)ĺ N10CV(37):: K0CV(37) CV21ĂI2 (CV%16298,0::CLEAR HIRES SCREEN0 30BN188:A$:z216,0::NN1:A$(N):K1:D$"":D$;"NOMONI,O,C":(N36Ģ10:2:"THERE ARE MORE THAN 36 MENU ITEMS":I0:J12000:: 2102T$"G A M E S" <"********************************(K$)48 ,K17KT16130^ 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$| @C212B$"RUN"B$"EXEC" JCH6:1000:CHPP30:B$B$((CH)):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P):0;:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):130a 16368,0:KK176:K1K5300u 1:868:K5Ā " PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::K$:KId:D$(4):D$"BLOAD HELLO AUTO SELECT.X":8192:B(37)1:B22B22nT0:CH2:CV0B:1000:C160ĹP1,219:P2,T193:P3,221:TT1:SCVxCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."> B$"RUN":1:(A$,39)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                ...............,...................L1' ...............,...............N..................,.................O %' .................,.................z '' .................,.................. )' .................,................. +' ................,.................. -' ...............,...................&/'......,...................G ' ................,....... ..........r ' .....................,............. ' ...................,................ ' .....................,............... !' ...................,.................$ #' "RUN";A$(I) 216,0:i 216,0:936:10:8:"THE FILE ( ";A$(I);" )":14:11:"HAS NOT BEEN FOUND." "I12500:::5: ' HELLO,MENU ' ..................,.................. ' .................,................... ' ...........ĂI> (CV3):1:"***(CATALOG=0)**************************"I 200r CV5:9:"ENTER PROGRAM NUMBER: ";I I0A$(0)"CATALOG":216,0::D$;"CATALOG": 216,0:(IN)(I1) 200 280 936 10:8:A$(I);" IS LOADING." D$;********************"< F1:(19(T$)2):"- ";T$;" -":T PI1N:A$:A$(I)A$l ZK(K1):N10K.5 d((I))1L2: 120 nL1 x(20KL):I;") ";(A$,15); K1ĺ (K1)(N19)ĺ N10CV(37):: K0CV(37) CV21M%16298,0::CLEAR HIRES SCREEN0 30BN188:A$:z216,0::NN1:A$(N):K1:D$"":D$;"NOMONI,O,C":(N36Ģ10:2:"THERE ARE MORE THAN 36 MENU ITEMS":I0:J12000:: 2102T$"ENTER TITLE - LINE 50" <"********************16130G 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P):D(16384):K128āK175:K:K(0):130K 16368,0:KK176:K1K5300_ 1:868:K5Ā "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::K$:K(K$)48 ,K17KTȽ3d::D$(4):D$"CATALOG":B(37)2:B22B22}nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCVxCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."( B$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA DRY 6FILES, THE MENU PROGRAM MAY BE MODIFIED TO DO THAT. THIS PROGRAM IS PARTICULARLY USEFUL IF IT IS CUSTOMIZED AND USED AS YOUR "HELLO". @ BY LOUIE MUNARRIZ MARCH, 1980 H.A.U.S 270,280,290 D$;"RUN PROG1"3 D$;"RUN PROG2"G D$;"RUN PROG3"[ "D$;"RUN PROG4" ,THIS PROGRAM DISPLAYS A MENU FOR SELECTION OF A PROGRAM YOU WISH TO RUN. IF YOUR PROGRAMS REQUIRE SETTING "HIMEM" OR BLOADING OF BINAdD$(13)(4)n$x2:180"MENU"76M"1 PROGRAM ONE"c"2 PROGRAM TWO"{"3 PROGRAM THREE""4 PROGRAM FOUR"20:10"YOUR CHOICE? ";:A$A$(13)ĀA$"1"120A$"4"120A$ (A$)260, @F2F2 2 `H' ' hiL!h ئLVOLUME--SECTORS LEFTL!0 LT sL* ` s!`ݺtQ.   d   ȱ  X c!     ! c!8s! HhĐ ! c!u! t!t!   0` s!/+u!0 u!)  ! ! `v!ɠ  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    10' GAME!1' LUNAR.LANDER)9' 14:' GAMED;' TEXTCHESSLC' 1WD' GAMEiE' ACEY.DEUCEYqM' 1|N' GAMEO' TEXTBLACKJACKW' 1X' GAMEY' STARTREK.8Ka' 1b' GAMEc' SAUCER.INVASIONk' 1l' GAMEm' STARWARSA1NUMBER655354900"A1NUMBER;)58A2VOLUME;@10MA3NAME$Wh4060]$}V"PRESS RETURN TO CONTINUE"`A$~1000' 1' GAME' DRAGONMAZE' 1' GAME' RUSSIAN.ROULETTE%' 1&' GAME'' PONG/'"LX139:"-";:X:"" l&, G PRINT A PAGE OF DATAM Sh LIST THE INDEXnt|10"PROGRAM INDEX"X139:"-";:"""NBR";:5:"VOL";:10:"PROGRAM":A1NUMBER,A2VOLUME,A3NAME$TTLPRNTD%;" PROGRAMS LISTED"" X( >  PRINT A HEADINGD J R 12h "PROGRAM INDEX"; 33:"PAGE ";D1PAGE%:D1PAGE%D1PAGE%1 X139:"-";:X:"" "NBR"; 5 "VOL"; $10 ."CTGRY"; 811=20:"PROGRAM NAMER1VOL%;% H9LNPRNTEDH9LNPRNTED1- 109 R2CY$;A 20T (R3NAME$,19)r N5TTLPRNTD%N5TTLPRNTD%1 ! PEEK(37) IS THE VER CURSOR LOC &H9LNPRNTED15430 +H9LNPRNTED0 0:"PRESS RETURN TO CONTINUE" :REPLY$ D420 N:N5R%B1FRSTNBR%550 E B2VOLSELECT%0ĭB2VOLSELECT%R1VOL%550K z (B3CYSELECT$)0ĭB3CYSELECT$R2CY$550  (B4NAMESELECT$)0ĭB4NAMESELECT$(R3NAME$,(B4NAMESELECT$))550   PRINT 1 LINE  A1NBR%; 5 PLY$ o "ENTER THE FIRST LETTER(S) OF THE PRO-":"GRAM(S) TO BE LISTED OR PRESS RETURN:":B4NAMESELECT$u   LIST 1 PAGE   1000: HEADING R1VOL%,R2CY$,R3NAME$ R1VOL%1590 A1NBR%A1NBR%1 B1FRSTNBR%0ĭA1NB1FRSTNBR%(REPLY$) r "ENTER THE VOLUME NUMBERS TO BE LISTED":"OR PRESS RETURN TO LIST THEM ALL":REPLY$x B2VOLSELECT%(REPLY$) "ENTER THE CATEGORY TO BE LISTED OR":"PRESS RETURN TO LIST THEM ALL:":REPLY$ B3CYSELECT$RE   REPLY$(20), B3CYSELECT$(1)410_A1NUMBER(20),A2VOLUME(20),A3NAME$(20)f ~ GET STARTING COND1000: HEADING"ENTER THE NUMBER OF THE FIRST PROGRAM":"TO BE LISTED OR PRESS RETURN:":REPLY$ BD  D$(4)::FM$"HELLO FROM APPLE AVOCATION ALLIANCE "R(15:50z2I140(M$)2:M$(32)M$(32):<J3911FJ:(M$,40J);PI14:X(16336):ZI110:XI:dnI11500:Ix::D$"CATALOG"   ) X1L (SLX 212/ <(A$,X,40);G FS40ĺ(A$,1,39S)V PT1150:` Z:30a?::: BY N.A.ROMANO SES NEWSLETTER ISSUE 7 PG 1-2 MAR 79 EM12"........ THE BILLBOARD SHALL READ ...... ? ";A$A$" "A$:*** THE SPACE BETWEEN THE QUOTATION MARKS IS 40 SPACES  L(A$ ` 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 ISK TO USE AUTOMATIC MENU. SORRY.": V1:958:"WHICH PROGRAM (A-";(64PROGNUM);")?";:A$::C(A$)64:C37Āb _C1CPROGNUM90 dP$"":P2(C1)2:C2736:P$P$(C2,P2)C2,P21)16128): iB(C1)1ĺ(4);"BRUN ";P$ nB(C1)0ĺ(4);"RUN ";P$( :5:"TOO MANY FILES ON D00 (1:TITLE$! 2PROGNUM0:Q 7P2(PROGNUM2)2:7,P2)7,P21)1616085 <A1,P2)1,P21)16128:A("T")V(37):34,V:24:::V1:55 FB(PROGNUM)0:A("B")B(PROGNUM)1 PPROGNUMPROGNUM1:5);(64PROGNUM):55 U:V(37)L Z* /// BY DONALD BROWN8 /// 407 PEERY PARKWAYU/// GOLDEN, CO 80401^///u///AUTOMATIC MENU~///TITLE$ "SYSTEM HELPERS"DK$(4):DK$;"NOMON C,I,O":B(26):DK$;"CATALOG":24:: #(1024)("D")1282    T 255 AF:3:15);"SINE WAVE":::"ENTER TWO WORDS OR SHORT PHRASES":["STATEMENT 1 ";cA$x"STATEMENT 2 ";B$::2B0nT040.25xA(1615(T))A);B1180210A$B1200B$B0   :(4);"BRUNMENU" 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+ 936:I10691099:I,32:I896,32:IRI11971867128:I,32:I30,32:Iw11:9:"MISCELLANEOUS PROGRAMS"(13:9:"FEBRUARY, 1981"214:9:"48K MASTER --- DOS 3.2.1"ZA12500:A_936d"CATALOG"nI"D216,0:T(FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BLOAD":460B CMD$"LOAD"U D$;CMD$;T$(S)[ e 560n ER0 "OPEN PROG.LIST" "READ PROG.LIST" X C1X T$(C):FT$(C):DE$(C):SP(C) &:570 0768:ER1:"CLOSE PROG.LIST,1)"T"(FT$(S),2,1)"T"Ģ20:370[ h18:"'1' RUN THIS PROGRAM":"'2' LOAD THIS PROGRAM" r"'3' RETURN TO LIST":"'ANY OTHER KEY' .. NEXT ENTRY"; |16368,0:A$: A$"1"260 A$"2"440 A$"3"150 SS1:SX1150 3202 CXė: (S$,1)"D"2907 S(S$):S1S70200I SP(S)2200 (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BRUN":280 CMD$"RUN" D$;CMD$;T$(S) "S((S$,2,2)) ,S1SX200 @ JFT$(S);" ";T$(S) T:DE$(S)" ^(FT$(S))2Ė4:"*"; 5:T$(C)- (37)172003 20:958:"'#' OF SELECTION TO RUN (* WILL NOT RUN)'C' TO CONTINUE LIST 'R' TO RESTART LIST 'D' + '#' FOR PROGRAM DESCRIPTION ? ";S$ S$"R"150 S$"C"9,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96a nD$"": CONTROL Dt x"NOMONI,C,O" T$(70),FT$(70),DE$(70),SP(70) 480 :ER1Ģ10::"NO PROGRAMS LISTED IN FILE AT THIS TIME"::: C1X C;".";:SP(C ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z:J d768,104:76     DOWN IF YOU CANNOT REMEMBER THEM, FOR AFTER THE FIRST STEP YOU MAY NO LONGER HAVE INSTRUCTIONS TO FOLLOW."8::8:"HIT TO CONTINUE ";A$:B:"1. INSERT A DISK THAT IS NOT FULL AND HAS ROOM FOR THE FILE NAMED PROG.LIST"3L811:216,0%"CLOSE PROG.LIST">"DELETE PROG.LIST":::12:"THE DISK IS FULL"::6:"FOLLOW DIRECTIONS CAREFULLY":$:"IF YOU DO NOT FOLLOW DIRECTIONS YOU WILLLOSE THE PROG.LIST FILE"t.:"BE ADVISED TO WRITE THESE INSTRUCTIONS :10:15::"WORKING":"p10209z"OPEN PROG.LIST"R"DELETE PROG.LIST"i"OPEN PROG.LIST""WRITE PROG.LIST"XNC1XNTN$(C)F2$(C):DN$(C):SN(C)"CLOSE PROG.LIST"216,0DF11120180 16368,0:"SHOULD USER BE ABLE TO RUN THIS PROGRAM FROM SELECTION LIST ? Y/N ";A$:(A$,1)"Y"SN(C)2:840v>SN(C)1|HR:"EITHER THERE ARE NO NEW FILES OR YOU HAVE JUST ENTERED THE LAST DESCRIPTION."\:16368,0:" HIT ";A$f AS NEEDED. DO NOT EXCEED 6 LINES OF DESCRIPTION."@C1XNRSN(C)0840s5:958:F2$(C);" ";TN$(C)y "DESCRIPTION FOR THIS FILE--":16368,0:"";DN$(C) DN$(C)""DN$(C)"--"*(F2$(C),1)"T"(F2$(C),2,1)"T"830j4:6TN$(XN)(CA$(CA),8,30):F2$(XN)(CA$(CA),7)JCACA1:XNXN1gCA$(CA)""XNXN1:740p660TN$(XN)(CA$(CA),8,30):F2$(XN)FT$(C):DN$(XN)DE$(C):SN(XN)SP(C):7004:"NEW FILES WILL BE DISPLAYED ONE BY ONE, INSERT DESCRIPTIONS(107)7 EN(252)(253)2567LE38:AL57:AH138@&IN3K0PO,LEX:PO1,ALeDPO2,AHrNPOPOINXALALLEbAL255AHAH1:ALAL256lAH256ALEN1640v560821XN1:CA0C1X(CA$(CA),8,30)T$(C)730OSE PROG.LIST"216,0:)811:ER1A"CLOSE PROG.LIST"N216,0:p::8:"UPDATE PROGRAM LIST"10:15::"WORKING":252,0:253,13854,0:55,3:56,40:57,3:1002"CATALOG""PR#0""IN#0"PO(108)256 PROGRAM LIST AT THIS TIME":a,20:16368,0:"SELECTION BY NUMBER ? ";A$:A(A$):A1A4300{6A450,1150,1420,1650@420JER0T"OPEN PROG.LIST"^"READ PROG.LIST"hXrC1X|T$(C):FT$(C):DE$(C):SP(C)"CLVE 48K AND DOS 3.2 BOOTED.IF YOUR DISK HAS MORE THAN 70 FILES DO NOT USE THIS PROGRAM." 9:"<1> UPDATE PROGRAM LIST."::"<2> CHANGE OR ADD DESCRIPTIONS."::"<3> PRINT HARDCOPY CATALOG." :"<4> EXIT PROGRAM.""ER1Ģ18::"NO PROGRAMS INE (OR ARE CURRENTLY USING) THE 'CATALOG MANAGEMENT' PROGRAM ON. THEN HIT -OR- TYPE 'Q' & TO QUIT ";A$ A$"Q"1650 320[ ::"CATALOG MANAGEMENT - EDIT MENU "::"SYSTEM MUST HATHE DISK, AND ALSOPROVIDE A EASY WAY TO RUN OR LOAD A"Y "PROGRAM BY NUMBER SELECTION" :"SYSTEM MUST HAVE 48K AND DOS 3.2 BOOTED.PROGRAM ALLOWS ONLY UP TO 70 PROGRAMS PER DISK TO BE ENTERED." :16368,0:" INSERT THE DISK YOU WISH TO USIS PROGRAM IS ONE OF A PAIR. IT WILL CREATE A TEXT FILE FOR USE WITH THE 'CATALOG MANAGEMENT' PROGRAM"6 "'CATALOG MANAGEMENT' IS INTENDED TO BE USED AS A HELLO PROGRAM WHICH WILL ALLOWTHE USER TO READ A DESCRIPTION OF THE PROGRAMS AVAILABLE ON :IN0:AL0:AH0:LE0! nCA$(70)8 xD$"": CONTROL DK "NOMONI,C,O"d X768863:V:X,V:p X0:: T$(70),FT$(70),DE$(70),BA(70),BL(70),SP(70) TN$(70),F2$(70),DN$(70),BN(70),B2(70),SN(70) :"CATALOG MANAGEMENT INSTR":k "TH ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z35327 dPO0:EN0           I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 *APPLESOFT MENU***, :BY LARRY L. FREEMAND DAND JAMES P. DAVISW N OF ABACUS...D:D$;B$;N$ 20; :10:"THAT IS A TEXT FILE!!!"T PAUSE11000:PAUSE\ 20v  1027,1155,1283,1411  1539,1667,1795,1923  1067,1195,1323,1451  1579,1707,1835,1963  1107,1235,1363,1491 & 1619,1747,1875,2003 0** 6K$"3"B$"DELETE"& @I:1:868K J" PRESS 'LETTER' YOU WISH TO ";Y TK$"3"ğp ^B$;::198:BELLy h240 rISL(K$)65 |X(L(I)2) X194B$"RUN"B$"BRUN" X212470 N$"" J433 N$N$((L(I)J)) J L(I),160:L(I)2,173$ LLISL1933 L(I)1,LL: Ii "RUN ? LOCK=1 UNLOCK=2 DELETE=3 EXIT=4";v B$"RUN"} 6 K$ K$"4"Ā K$"0"K$"4"290 K$"@"K$(LL127)370 240 "K$"1"B$"LOCK" ,K$"2"B$"UNLOCK"X  ::0D$(4):CHR$(4) IS CTRL-DF(D$;"NOMON C,I,O"L2^<D$;"CATALOG"iFL(24)uPI124ZL(I)dInSLSL1xX(L(SL))128X("0")X("2")110ISL24X(L(I))128X("0")X("2")210 X(H)1020HB,0%+4360TA,H:B,N16:A,H16:A,N:^B,32jJ125qJz$B,0.360F;YY24X(5)X(5)8& Y128604*Y24940:4X>"TYPE 12 OR 24 PLEASE! "^HgR780{\"AM OR PM ";X$fX$"PM"X(5)X(5)4pX$"PM"ī940zX$"AM"ī940"TYPE AM OR PM PLEASE! "860H1201N6368,0 N XB,0 b360' lB,0- v6 G12@ B,16O G1201Z Z$(G)a Nl X(G)Ns G "IS THIS A LEAP YEAR ";Y$ Y$"Y"780 Y$"N"780  "TYPE Y OR N PLEASE! "  710 "12 OR 24 HOUR FORMAT "3P$"PM"" X(7)3X(7)X(7)4+ (1)e "THE DATE IS ";X(2);X(3);"/";X(4);X(5);"/";X(0);X(1) "TODAY IS ";Y$(X(6)) "THE TIME IS ";X(7);X(8);":";X(9);X(10);":";X(11);X(12);P$ & 0"HIT ANY KEY TO END " :(16384)127ī620 D1Ā @& J"YOU HIT THE WRONG KEY!", T5 ^210= hI0G rB,16W |E44321` A,En X(I)(A)x II1 E F7P$" " X(4)3X(4)X(4)4 FX(7) F7P$" " X(7)7X(7)X(7)8 F8X(7)4P$"AM" F8X(7)C D012 Z$(D)" DE "TYPE D TO DISPLAY DATE-TIME"e "TYPE S TO SET DATE-TIME " "TYPE A TO ADJUST TIME +- 30 SEC. " "TYPE E TO END PROGRAM " Q$   Q$"D"ī360 "Q$"S"ī640 ,Q$"A"ī1030 6Q$"E"NUTE UNITS ", "MINUTE TENS ", "HOUR UNITS ", "HOUR TENS " x "DAY OF WEEK 0 = SUN, 1 = MON, ECT. ", "DATE UNITS ","DATE TENS " "MONTH UNITS ", "MONTH TENS ","YEAR UNITS ","YEAR TENS " "SECOND TENS", "SECOND UNITS" C06 Y$(C)  1"WHAT SLOT IS THE CLOCK IN ";S7(J2A49282(S16)]<B49281(S16)hFX(13)sPY$(7)ZZ$(13)d "SUNDAY", "MONDAY", "TUESDAY", "WEDNESDAY", "THURSDAY", "FRIDAY", "SATURDAY"9 n "SECOND UNITS ", "SECOND TENS " , "MI     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 ēISHED GUIDELINES"M :"ALL UPDATES WILL BE ANNOUNCED IN THE NEWSLETTER"| ,22:7:"PRESS ANY KEY FOR 'CATALOG'":400 6 @D$;"CATALOG" J A$::,10:10" <"CAROLINA APPLE CORE": F:"P.O. BOX 31424"V P:"RALEIGH, N.C. 27612 d32,0::23:"PRESS ANY KEY TO CONTINUE";:400 n ::"SEE OUR NEWSLETTER FOR DOCUMENTATION" 5:"ANY UPDATES TO THESE ROUTINES ARE FREE WITHIN THE PUBL:12:15:"CAC PAC 2"S CAROLINA APPLE CORE--CAC PAC 2 /DOS 3.2/12-79_D$(4)D$;"BLOAD HELLO FROM CAC.X"#16297,0:16302,0:16304,0(4002::"FOR INFORMATION ABOUT OUR GROUP OR ITS PROGRAM LIBRARY....WRITE:" 73210 HB,0'350GA,H:B,N16:A,H16:A,H:QB,32]J125dJmB,0v$350 CHANGES FROM REV 0 LINE# 70 80 90 110 140 180 660 720 1020 7X(5)X(5)8Y12850' Y24930-*K4"TYPE 12 OR 24 PLEASE! "Q>ZH770nR"AM OR PM ";X$\X$"PM"X(5)X(5)4fX$"PM"ī930pX$"AM"ī930z"TYPE AM OR PM PLEASE! "850H1201NX(H)10350 bB,0 l vG12& B,165 G1221@ Z$(G)G NR X(G)NY Gx "IS THIS A LEAP YEAR ";Y$ Y$"Y"X(8)X(8)4:770 Y$"N"770  "TYPE Y OR N PLEASE! "  700 "12 OR 24 HOUR FORMAT ";Y  Y24)X(7)4 (1)K "THE DATE IS ";X(2);X(3);"/";X(4);X(5);"/";X(0);X(1)e "TODAY IS ";Y$(X(6)) "THE TIME IS ";X(7);X(8);":";X(9);X(10);":";X(11);X(12);P$  &"HIT ANY KEY TO END " 0(16384)127ī610 :16368,0 D NB,0 X WRONG KEY!" J T200# ^I0- hB,16= rE44321F |A,ET X(I)(A)^ II1e Eu F7P$" " X(4)3X(4)X(4)4 FX(7) F7P$" " X(7)7X(7)X(7)8 F8X(7)4P$"AM" F8X(7)3P$"PM" X(7)3X(7) D+ "TYPE D TO DISPLAY DATE-TIME"K "TYPE S TO SET DATE-TIME "t "TYPE A TO ADJUST TIME +- 30 SEC. " "TYPE E TO END PROGRAM " Q$  Q$"D"ī350 Q$"S"ī630 "Q$"A"ī1020 ,Q$"E"Ā 6 @"YOU HIT THE "MINUTE UNITS ", "MINUTE TENS ", "HOUR UNITS ", "HOUR TENS " x "DAY OF WEEK 0 = SUN, 1 = MON, ECT. ", "DATE UNITS ","DATE TENS " "MONTH UNITS ", "MONTH TENS ","YEAR UNITS ","YEAR TENS " C06 Y$(C) C D212 Z$(D 1"WHAT SLOT IS THE CLOCK IN ";S7(J2A49282(S16)]<B49281(S16)hFX(12)sPY$(6)ZZ$(12)d "SUNDAY", "MONDAY", "TUESDAY", "WEDNESDAY", "THURSDAY", "FRIDAY", "SATURDAY"F n      ЪЀЀT*T* U* U*@xaЀЀЀЀЀЊЀ     ժժժ                    ***************************!L+V1200:`H1201HjNX(12H)Rt1190Y~HbB,0hq500A,H:B,N16:A,H16:A,N:P$"PM"X(7)X(7)4P$" "X(7)X(7)8S(I)6X(S(I))6X(S(I))106X(S(I))9X(S(I))0EP831100NIIIW790|(P43P45)P$"PM"X(7)X(7)8$(P43P45)P$" "X(7)X(7)8.(P43P45)P$"AM"X(7)X(7)48:810B SETTING ROUTINE *************************RETURN WITH NO CHANGE"*p(V(I)):(H(I)):zA$:P(A$)@UP82İ1200:500eP21II1sI14I1P8II1I1I14I14(P43P45)1050P43X(S(I))X(S(I))1P45X(S(I))X(S(I))1X(S(I))0X(S(I))9S *************************************************9C 1200L*640\4V(I):H(I)g>"^":H15:" USE <-- & --> TO MOVE AROUND"R18:" USE + & - TO CHANGE SETTING"\21:" PRESS (S) WHEN READY TO SET"f23:" (R) TO 3:"DATE : ";X(2);X(3);"/";X(4);X(5);"/";X(0);X(1)R6:"TODAY IS : ";D$(X(6))9:"TIME : ";X(7);X(8);":";X(9);X(10);":";X(11);X(12);" ";P$P(16384)16368,0P197ė:P195760I19203  SET-UP FOR CHANGE**********************************************70B,0E:I0:B,16UDE44321^NA,ElXX(I)(A)vbII1}lEqB,0vX(4)3X(4)X(4)4P$"PM"X(7)7P$" ":X(7)X(7)8:680X(7)4P$"AM"X(7)3X(7)X(7)436 A$:A$"Y"110 :h  DISPLAY TIME *******************************************************~ A49282(SLOT16) B49281(SLOT16)  560 15:10:"(C) TO CHANGE" 18:10:"(E) TO END" 510.& LOAD TIME ************16) "B,16 ,XX(S), 6A,33:X(S)(A)J @A,32:X(S)(X(S)10)(A)Z JX(S)X(S)Xc TB,0j ^Sx hSS1380 rD12700: |SS  :10:10 "CAN'T FIND A CLOCK BOARD" 15:5 "DO YOU WANT ME TO LOOK AGAIN (Y/N)" 3**************************# 260. SLOT09 S17[ X(S)0X(S)60X(S)X(S)60r X(S)3SLOT0150 X(S)3SLOTS S T1400 SLOT0TT1:150 480 S17:X(S)0:S SS12:S17 A49282(S16):B49281(S(3)4:S(4)5:S(5)0:S(6)1:S(7)6:S(8)7:S(9)8:S(10)9:S(11)10:S(12)11:S(13)12:S(14)7 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" FIND THE SLOT ***************************ZH(1)8:V(1)4:H(2)9:V(2)4:H(3)11:V(3)4:H(4)12:V(4)4:H(5)14:V(5)4:H(6)15:V(6)4l dH(7)15:V(7)7 nH(8)8:V(8)10:H(9)9:V(9)10:H(10)11:V(10)10:H(11)12:V(11)10:H(12)14:V(12)10:H(13)15:V(13)10 xH(14)18:V(14)10Z S(1)2:S(2)3:S  MAY NOT NEED 625( :::255B THE TIME KEEPER BY:` R.S. STRICKLIN 2/13/81~(3:10:"THE TIME KEEPER"27:20:"BY: R.S. STRICKLIN"<18:5:"FINDING SLOT ONE MOMENT PLEASE !"FX(13),S(14),V(14),H(14)PH(0)1:V(0)1Y      $% 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  SW SEATTLE, WA. 98136 A2000:::: l " INTERNATIONAL APPLE CORE P.O. BOX 976 DALY CITY, CA. 94017  "MENU" BY VAL J GOLDING APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 6708 39TH AVE:" ";:31:" ";:33:" ";:40:" "c A$" * THE INTERNATIONAL APPLE CORE ":I1120z A$(A$,2)(A$,1) 240:14:A$:255: R:::10:" ":10:" P R E S E N T S ":10:" " \:34,23:I1:29:" ";:33:" ":3:" ";:17:" ";:24:" ";:33:" " 3:" ";:17:" ";:24:" ";:29:" ";:33:" "( 3:" ";:17:" ";:24:" ";:29:" ";:33:" ";:38:" ":3:" ";:15:" ";:22:" ";:24:" ";:29  ::b 2:7:" ":7:" ":3:" ";:15:" ";:24:" ";:33:" " 3:" ";:17:" ";:24:" ";:29:" ";:33:" ";:38:" ":3:" ";:17:" ";:24:" ";:29:" ";:33:" "F 3:" ";:17:" ";:24:" ";=d " M E N U " BY VAL J GOLDING - 2.80 Re MODIFIED BY hi KEN SILVERMANwn2000:490D$(4)D$;"CATALOG"2::"INTERNATIONAL APPLE CORE":: I15:(I64)" "MENU$(I);:20:(I69)" "MENU$(I5): );"BRUN ";P$* nB(C1)0ĺ(4);"RUN ";P$q :5:"TOO MANY FILES ON DISK TO USE AUTOMATIC MENU. SORRY.": T+PROGNUM) R(64PROGNUM)$ S552 U:V(37)F ZV1: CALL-958s ["WHICH PROGRAM (A-";(64PROGNUM);")?";} \A$: ]C(A$)64:C37Ā _C1CPROGNUM90 dP$"":P2(C1)2:C2736:P$P$(C2,P2)C2,P21)16128): iB(C1)1ĺ(4 87,P2)7,P21)1616085H < / A=SCRN(1,P2)+SCRN(1,P2+1)*16-128u =A("T")V(37):34,V:24:::V1:55 FB(PROGNUM)0:A("B")B(PROGNUM)1 KPROGNUMPROGNUM1 L PRINT A1$;:HTAB 3:PRINT A2$;" "; M6 Q / PRINT SPC(5);CHR$(64s///AUTOMATIC MENU$TITLE$; "CHANGE MY NAME"HA1$,A2$R (,)_DK$(4)jB(26) / PRINT DK$;"NOMON C,I,O":DK$;"CATALOG"24::#(1024)("D")128200(1:18:TITLE$2PROGNUM0: 7P2(PROGNUM2)2   HROUGH ALL THIS MUST BE A TRULY DEVOTED APPLE SEED SO GO PLANT YOURSELF IN THE GROUND AND HAVE FUN!!!!t70 *** PAUSE ROUTINE ***(23)8:"PRESS ANY KEY TO CONTINUE"16368,016384,128::(12)12:NOT BE RUN IN THE PRESENSE OF CHILD- REN. ON 2ND THOUGHT, DON'T RUN IT AT ALL. IT WILL JUST SCUM OVER YOUR MIND! OH, WELL! YOU CAN'T SAY I DIDN'T WARN YOU!l SO ANYWAY, THAT'S WHAT IT'S ALL ABOUT. ANY ONE RETARD- ED ENOUGH TO SUFFER T MORSE CODE EXEC WRITER. MOSE CODE READER AND MORSE CODE WRITER MUST LIVE ON THE SAME DISKf60 13. PINET IS SELF RUN- ING AND WAS RE-WRITTEN FROM A MAGAZINE SOMEWHERE OR OTHER. 14. NUDE IS DIRTY- FILTHY PICTURES AND SHOULD LIST' OR 'CATALOG' WILL THEN MAKE THAT FUNCTION HAPPEN WITH A 'SHIFT M RETURN'.Wt 8. SNAKES IS JUST FUN!z^ 9,10,11, AND 12. THESE FOUR PROGRAMS ARE ALL PART OF THE MORSE CODE PROGRAM AND THEWHOLE THING IS INITIATED BY 'RUN-NING' ILY TO DO OTHER INTERESTING THINGS. IT WILL BE PUBLISHED WITH AN ARTICLE IN AUGUST 1980 MICRO MAGv50Q 6&7. COMMAND GENERATOR AND MACRO FRAGMENT $300.$30 GO TOGETHER. RUNNING THE FIRST USESTHE SECOND. TYPING ANY COMMAND SUCH AS 'OWED BY '36BG' TO ACCOMPLISH THE SAME THING. '3D0G' GETS YOU BACK INTO BASIC WITH THE KEYBOARDSTILL HOOKED TO THE PRINTER.n 5. FUNCTION PLOTTER. THIS PROGRAM EXPAINS ITSELF AF- TER THE FIRST 'RUN'. IT'S A LOT OF FUN AND CAN BE MODIFIED EAS-ING. WITH AUTOSTART ROM A 'BRUN' OF THE PROGRAM HOOKS THE KEYBOARD TO THE PRINTER SO THAT DOS FUNCTIONS SUCH AS CATALOG CAN BE PRINTED.40{ WITHOUT AUTOSTART ROM, AFTER 'BLOADING' THE PROGRAM THEN YOU MUST PRESS 'RESET' TWICEFOLLHE OUTPUT JUST EXCHANGE THE VALUES IN AT LOCATIONS $36F AND $374. 4. ASCII A$36B/L$5C. THIS IS THE PROGRAM I AM CURR- ENTLY USING WITH MY ASR-33. IT WORKS VERY WELL FROM A 'CALL 875' IN A PROGRAM. 'PR#0' RES- TORES NORMAL SCREEN PRINTE,JULY 1979 PAGE 14:5. BUT DON'T USE THE LISTING THERE-- FULL OF MIS- TEAKS!![30THIS ONE IS OK AND CON- TAINS THE LOOK-UP TABLE MISSING FROM THE ARTICLE. TO CHANGE FROM100 WPM TO 60 WPM CHANGE $377 FROM #$48 TO #$5F.E TO INVERT TRAM. THIS PROGRAM IS VERY USE- FUL AND IT'S VARIATIONS ARE DES- CRIBED IN THE REM STATEMENTS AT THE END OF THE PROGRAM. GO LOOK THERE.S} 2. TYY BAUDOT A$300 L$C0. THIS IS THE PROGRAM FOR MODEL 15, 19, AND 28 MACHINES. IT'S FROM MICRO MAGAZINLAYED BACK! (NEATNESS COUNTS, YOU KNOW!!!) xWHEN YOU HAVE FILLED THE SCREEN ON PLAYBACK JUMP TO THE NEXT GROUP OF TEN LINES AS SHOWN ON LINES 20 THRU 70. yNOW FOR THE BUSINESS AT HAND--- z { | 1. A DANDY HELLO PRO- GS BOOTED BY THE DISC. IT IS DESIGNED TO PROVIDE AN EASY WAY TO PROVIDE FOR DISK NOTES SUCH AS THESE.3 fWHEN USING THIS PROGRAM REMEBER TO 'POKE 33,33' DIRECTLY BEFORE YOU START WRITING YOUR REM STATEMENTS SO THAT THEY WILL BE NICE AND NEAT WHEN P900:200 F200210:900:1000& P dGOOD MORNING! I HOPE THEWORLD IS WELL WITH YOU TODAY! I THOUGHT I WOULD TAKE A FEW LINES TO TELL YOU A LITTLE BIT ABOUT THIS DISK.h eFIRST OF ALL, PLEASE NOTE THAT THIS IS THE "HELLO" PROGRAM WHICH I " LINES 20 THRU 70 LIST@ 'REM BLOCKS' WHICH YOU [  CAN USE FOR YOUR REMm  STATEMENTS.s y   ::33,33:1000 100110:900:120 120130:900:140 (140150:900:160 2160170:900:180 <180190: ***********************= * DAVID ALLEN'S *[ * HOWDY! PROGRAM *y * JUNE 4, 1980 * *********************** THIS PROGRAM PROVIDES AN EASY WAY TO WRITE MESS- AGES. RUN IT AND SEE!!!        :(4);"BRUNMENU" 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 andE D#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"------------------AF6W------------------";:384:" UTILITY MASTER DOS 3.3 ALEX MASSIMO ";:380:"----------------------------------------"C$" ":B$" "   E X:"TO SEE THE CATALOG, PRESS RETURN KEY ";D$:::(4)"CATALOG"*F&d HELLO-APPLE II PLUS 3.2 MASTERH:24::A(1)279:B(1)159[I%((1)4)12rX0278I%:S01{,6S^XS,0A,B279XS,159:S,XY0159I%:S016S279,YSA,B0,159YS:S,Y &:"