' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `::`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- ( p @:àϠĠՠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġ:z# :u`@P * U*U*U*U*U*(Uժժժժ@*ԪժժՊ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 MANAGEê෭ⵍ򷭃b<<xx`ܵ i  >  "&""$ȱBLժժժժ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 LͿЂhG97xLTD ࿩ 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ЀЀЀЀЀ    ppЀЀЪЀЀРЀ   U* U*ppժժժ`ЀЀЀЀЀЀЀ   (  ЀЀЀЀЀ    `ypЀЀЪЀЀРЀ   U* U*p8p0` |@ժժժ@`ЀЀЀЀЀЀЀ   ( 0  ЀЀЀЀЀ    ЀЀЪЀЀРЀ   U* U*@ @ ժժժ@G|p@ ЀЪՂРЀЀЀԂЪՂ   A   ЀЀЪՂЀЀT*T*  U*ЪЀЀT*T* U* U*`ЀЀЀЀЀЊЀ    @3ժ`@ժժ+ 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"nIqUVW;@rX q<@*rr\  qY]ŬԠ q ]ԠŤ `;@r%_`;@r%q`;@r%q`;@r%q`;@r%q`;@r%q `;@r%q `;@r%VW;@rX q<@*rr\ qY]ŬĠſfq q]ԠĤ`;@r%_`;@r%q`;@r%q`;@r%q`;@r%q`;@r%q `;@r%q `;@r%E 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ժժժ0@ ЀЀЀЀЀЀЀ   ( @`|?ЀЀЀЀЀ    0` ЀЀЪЀЀРЀ   U* U* `ypժժժ ЀЀЀЀЀЀЀ   ( `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   W?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Ϣ[]ҠТ6lmnghghgh]Т[]ҠѢ[ghlmnghlmnghgh]Ѣ[]ҠҢYlmnijkghialmnijk]̢e[j]Ҡ͢/klmnghlmn]͢o[t]Ҡ΢5ulmnlmnlmn]΢y[~]ҠϢ@ghlmnghlmn]hlmn]Ȣ=[B]ҠɢClmn]ɢG[L]Ҡʢ7Mlmnijklmn]ʢQ[V]Ҡˢ=Wlmnghlmnlmn[[`]Ҡ̢"ҠŢ;ijklmnghijk]Ţ[$]ҠƢ+%ijklmngh]Ƣ)[.]ҠǢD/ijklmnijklmn]Ǣ3[8]ҠȢ/9lmngmnghghghghgh]¢[]Ҡâ<ijklmnijk]â []ҠĢ@ijklmnijklmn]Ģ[]q qUVW;@rX q<@*rr*\  4q>YCUVWX DYHYRQQ]Ӡؠĩ]ҠCghlmnlmnijk][]Ҡ¢Rl @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!ɠ @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`%%\ []ӠҠ]ϠӺ`%@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{ijklmnij16130G 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  E CLOCK NOT FOUND"#dC1(12289))2,CC2CC1(12289)I12289)YC89)f THE CLOCK IS IN, IF NOT FOUNT C =-17|A(10)@C1LDC217]C1(12289) X(16384C225619):X129X3X177X236X44ī6200pC264008X(16384C225621):X248X185X253X7X104ī6700C2:"MTN HDW:"RUN QUICK COPY? (Y/N):";:A$::A$"Y"ĺ:(4);"RUN QUICK COPY ":M\n APPLE CLOCK SLOT FINDER$ ------SUBROUTINE------- MOUNTAIN HARDWARE, INC USES VARIABLES C1,C2,& C P RETURNS WITH C = THE SLOT #UAGE CARD RAM",t"BLOAD INTBASIC,A$D000"K --WRITE PROTECT THE CARDd<A(16254): $C082n4600th--NO CARD OR CAN'T RELOAD0(768)0Ā:"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."G' 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 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/' 253,201,141,208,243,104,170,104,168,104,96,32,70,82,69,69,32,83,69,67,84,79,82,83,141 _ ' },233,0,133,69,232,16,236,32,142,253,160,2,138,32,70,174,200,185,84,3,9,128,32,237,xT2,247,175,169,0,133,68,133,69,162,140,160,8,189,242,179,10,144,6,230,68,208,2,230,69,136,208,244,202,208,236,165  69,240,16,56,165,68,233,100,133,68,165,69,233,0,133,69,232,16,236,32,142,253,160,2,138,32,70,174,200,185,84,3,9,128,32,237 Y  (N$)65Ā& N(N$)64:NLASTVĀ8 VVN1:A$""` N$"RUN ":S(1)194N$"BRUN":270z S(1)212N$"EXEC " H739:A$A$(S(H)):  D$;N$;A$ ,(N$,1)"E"ą0,300 X768865 A:X,A X:q  72,152,72,138,72,3(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)  > >">V|xp`@`pp`>>?8|~~~~~|xp ?>"">>""> >$$$$<ÆAIII|w<$<?!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c66$""""">> >G%tRq  .     > >>@ ? ?? >>>>~B@x????????  àĠ ' X*+" '詮詠ii,-! '$'0`!"ΩiiL`  `Ll$L(N(iN(iN(iN(i())i(0) .(FG  HɠȠH )LFK) JI'mK$0)LFK0IiIJiJLJI `ԠŠ͠ՠȠϠΠō̲LN `@` PɉӠŠŠҠҠ*ĥ@!"LM$  Li M#Q!"E)=)$%&%&&%&iii#i##0    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    BI U+ Z:10:B((40B)2):B:NAME$R d((A)128)"B"ĺD$;"BRUN ";NAME$g nD$;"RUN ";NAME$m o3 LOCK THOSE PROGRAMS YOU WANT TO APPEAR!9E D$(4)O::jD$;"BLOAD MENU LOCK^" SET IN USR ADDRESS (HEX 1000)(10,76:11,0:12,162A(0)<NAME$""PI130QC$((AI)128)RNAME$NAME$C$ SC$" "  )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(  :818,169:819,0:820,141:821,0:qT 822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: 831,192:832,96: 769 (768)14100 H --IF THERE, LOAD INTG AND PA#1 5:"LOADING INTEGER BASIC INTO LANG,169:790,165:791,141:792,0:793,208:794,205: ( 795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205: 804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129:! 813,192:814,169:815,1:816,208:817,2"INT"' 4 --POKE LANGUAGE CARD FINDER9 222,0:4600 768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104: ` 777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192:0 786,173:787,131:788,192:789 C0ĺDT;":";J C0DM10ĺ"0";DM;",";DS;" ";HR$:(4);"IN#0"::1~ (C0DM10ĺDM;",";DS;" ";HR$:(4);"IN#0"::1 x1 "ENTER TITLE HERE BY CHANGING LINE 1500" 4:"----------------------------------------" l2100 20:(4);(4);"PR#0":% (4);"NOMON C,I,O"=  -- DOS 3.3 HELLOM XC0ī1400 C0ĺ(4);"IN#";C:TI$:7:"THE CURRENT TIME IS "; DS((TI$,13,2)) DT((TI$,7,2)) DM((TI$,10,2)) LDT12:HR$"AM" DT12DTDT12:HR$"PM"** NEEDED TO SEARCH ROUTINES **R F** THIS PROGRAM WILL WORK FINE** P** MODIFICATIONS BY: J.M.S. ** Z******************************** c d2100 :::4800 ,(4);"IN#0":J  > ********************************l** THIS PROGRAM SEARCHES FOR **** CLOCK CARD IN ANY SLOT. IF **(** YOU HAVE A MOUNTAIN HARDWR **2** CLOCK BOARD NO CHANGE IS **$ <     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      )((4);"BRUN HELLO APPLE-VENTION.X"T"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$ B    ˠ 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     :z # ǮԠˠĠϠɠ ՠˠ ՠޠ  ՠǠ ՠɠ ՠɠՠɠ ՠ֠! ՠڠՠ֠  ϠΠӠ Ϡ͠à Ϡ͠îؠ"ϠàϠϠ ϠŠϠ"ϠҠ ϠԮؠ ϠԮ٠ ϠϠԠ ϠϠԠɠϠϠԮؠϠΠϠŠ ϠŠϮؠ"!ϠŠɠ͠"ϠŠɮؠ"ϠŠɮ٠ϠŭΠϠŭήؠ ϠԠ ˠĠŠҠ ϠΠɠϠΠɠϠĠԠϠŠΠϠŠήؠϠŠϠàϠĠՠĠϠĠŠǠԠǠԠԠˠĠϠ ˠĠϠɠ *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 (NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:0X23:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)1,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33     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:" 732   ) 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$ ` ժժժpx@ ЀЪՂРЀЀЀԂЪՂ   A `ЀЀЪՂЀЀT*T*  U*:ЪЀЀT*T* U* U*8ЀЀЀЀЀЊЀ    .ժ@ժժ@ ժժժ8` ЀЪՂРЀЀЀԂЪՂ   A    ЀЀЪՂЀЀT*T*  U*fЪЀЀT*T* U* U*p`ЀЀЀЀЀЊЀ    8ժ@ժժ@ ժժժ` ЀЪՂРЀЀЀԂЪՂ   A `ЀЀЪՂЀЀT*T*  U*ЪЀЀT*T* U* U*@xaЀЀЀЀЀЊЀ     ժժժ          AF:3:15);"SINE WAVE":::"ENTER TWO WORDS OR SHORT PHRASES":["STATEMENT 1 ";cA$x"STATEMENT 2 ";B$::2B0nT040.25xA(1615(T))A);B1180A$B1200B$B0T  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):"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"VE 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 PROGRA JɎ")(*2^^3@@^WCR]A3X] ***********************< * 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           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$" "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     ]ĠŠ]qqb]Ԡ¤l]v]w`;@r %qx`;@r %qy`;@r%qz`;@r%q{`;@r%q|`;@r%q }`;@r%q ~`;@r%q`;@r%q`;@r%qU]`;@r %q`;@r %q`;@r%q`;@r%q`;@r%q`;@r%q `;@r%q `;@r%q`;@r%q`;@r%qUVW;@rX q<@*rr\ &q0YX`%\j`%\t`%\~"`%\,`%\6`%\@`%\J`%\T`%\^`%\h`%\r`%\|`%\`%\[ ]Π͠͠Š]\ ZM6L[f \qqn_ ]ŠϠנ`%\`%\`%\`%\`%\`%\$`%\.`%\8`%\B`%\L`%\V`%\` ]ҠʢԠŠ]ΠɠĠϠϠ]ŠŧӠ]ŠȮ]]ŠϠנ]ǠԠ̮]]FN@" rN@" rHN@" rN@" rN@" rPUVWX ]͠Ϡנ]Ǡؠخ]]٠®ˮŬҮ]Π]]נӠϠӠ]àӠ ]ϠĠ͠ ]Į ] ]ӠǠΠ             10 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      ";:768 dX14000:X i* nD$(4)J xS(H)H,2V)16H,2V1)\ D$;"CATALOG"k LAST(37)s V0 VV1:S(1)160170: S(2)160VV2 IV1LAST:I:3:" -";(64IV);"- ":I :"CHOOSE A LETTER (Z TO EXIT)";:N$ T$"AUTO HELLO". N$"BURT A. WAGNER "DD$"4 MARCH 1981"M400U:\#9s(3:I337:"*";:2::20(.5(T$)));T$<:20(.5(N$)));N$F:20(.5(D$)));D$G3:I337:"*";:PQ20 U"THIS DISK HAS  ***************************!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      TEXT":E I113:(I64)" "MENU$(I);:20:(I77)" "MENU$(I13):K ddU$(19)"PROGRAM S":MENU$(20)"PROGRAM T" MENU$(21)"PROGRAM U":MENU$(22)"PROGRAM V":MENU$(23)"PROGRAM W":MENU$(24)"PROGRAM X":MENU$(25)"PROGRAM Y.B":MENU$(26)"PROGRAM Z.L"  2:"DISK TITLE GOES HERE- USE 1 OR 2 LINES OF U$(8)"PROGRAM H"* MENU$(9)"PROGRAM I"D MENU$(10)"PROGRAM J" MENU$(11)"PROGRAM K":MENU$(12)"PROGRAM L":MENU$(13)"PROGRAM M":MENU$(14)"PROGRAM N":MENU$(15)"PROGRAM O"( MENU$(16)"PROGRAM P":MENU$(17)"PROGRAM Q":MENU$(18)"PROGRAM R":MEND$"RUN"FILE$:< A$" SELECT BY LETTER"K MENU$(26)_ MENU$(1)"AAA"{ MENU$(2)"GOLDING MENU" MENU$(3)"PROGRAM C" MENU$(4)"PROGRAM D" MENU$(5)"PROGRAM E" MENU$(6)"PROGRAM F" MENU$(7)"PROGRAM G" MEN 135 ,X(16384)% -X127ı+ 69 716368,0G 8KEYX192\ @FILE$MENU$(KEY)b Jn K10:10 L"LOADING "FILE$: T(FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$ U115 ^(FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$: hMd "MENU" BY VAL GOLDING#i,j9008kD$(4)Bs1000JxL1iyA$(A$,2,(A$)1)(A$,1)qz22}(A$,1)" "Ğ(A$,1);LL1(A$,L)" "ĝ145(A$,L,1)" "Ğ(A$,L,1);L(A$)120300 );"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!!!       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    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 &:"LIST, THEN CHANGE MY NAME": ";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" 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    E1184:D$(4)>2D$;"BRUN HELLO APPLE DAYTON.X"D<DOLD POLK"]D$(4)y2D$;"BRUN HELLO POLK.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" <"******************************** gW'  `^ :F Y %^LǏLZ^[_\Z][`18tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?DAYTON PROGRAM LIBRARY 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``(% $ 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       ...............,...................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" <"********************  CATION ALLIANCE" 51 13);"PUBLIC DOMAIN"8 7V 11);"EXCHANGE PROGRAMS"g I12000:Im Dv D22:8);"APPLE AVOCATION ALLIANCE"L U23:8);"PUSH ANY KEY FOR CATALOG"T Z11 d::-657 WAITS FOR RETURN KEY. -756 WAITS FOR ANY KEY. n756 x16303,0:16301,0:16298,0 D$"CATALOG" : CLEAR SCREEN 8);"APPLE AVOn# ::THIS WORKS WITH APPLE LOGOBD$"": D$=CTRL-D FOR DOSK160m(16301,0:16304,0:16297,02D$;"BLOAD HELLO APPLE LOGO.X"<::TO CHANGE FROM PAGE 1 TO 2 A$ IS CHANGED FROM 2000 TO 4000F21:7);"EXCHANGE PROGRAMS FROM THE"$ P  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`@                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,! ! !!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'!! !  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 ` ] "" " " " " """""""""