' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`\2M6a(ϠŬҠӠΠҪΠŠ͠خ٠Šؠ)s<a(٠ĠؠҠϠƮΠԠ̠٠ĠήŠ̯Ǡ̠ŠҠҠ)da(Ϯ)Q  )( !  )( `Ս*+ 1` ` *+  ` *+  ` *+ &'  *+ `Ս*+ ,` '\*+ ,` 'N*+ ,` 'Ǎ*+ ,` '@*+ ,` +*  '& &$  +* & '& `&  '& ` \*+   '& ` \*+  w '&  '&   '&  '& ` \͍*+  K '& ` \O*+  K   '& ` {i*+  '& ` \*+  '& $  '& ` \1*+   %` \K*+  '&  '& $  '& $ '& ` \e*+  w ` \*+  w 'd"BRUN AUTONUMBER.B": OPEN BADR"D$"WRITE BADR" x"PRINT";Q$;"START=";Q$;";PEEK(";START;")+PEEK(";START1;")*256,";Q$;"LENGTH=";Q$;";PEEK(";LNG;")+PEEK(";LNG1;")*256" D$"CLOSE":: I> BADR.CREATE BY DARRELL ALDRICH  THIS PROGRAM CREATES AN EXECFILE WHICH WHEN EXECUTEDGIVES THE START AND LENGTH OF A PREVIOUSLY BLOADED FILE dQ$(34):Q(54)(55)256:STARTQ2997:LNGQ2979:D$(13)(4) nD$" ̠ŬĬҬˍŬ׬Ԭ΍ԬҬìōαE"D$"APPEND"A$:9040:WRITE NEXT GROUP OF DATA #D$"APPEND"A$;D$"WRITE"A$:"RUN100":D$"CLOSE"::8:6:A$" DATA BASE COMPLETED."::"SAVING FLASH CARDS TO DISK":D$"SAVE FLASH CARDS":20:WRAP IT UP I$"WRITE"A$CZ#LINE100ĺ"DEL 100,998":SCRAP OLD DATA STATEMENTS d#" "LINE" DATA ";:I14:DTA$(I);:I4ĺ",";: ADD BASIC LINE FORMAT THEN WRITE TO DISK n#::D$"CLOSE":"WRITE MORE DATA PAIRS ?":Y$:Y$"Y"9090/x#LINELINEINCR:D$"CLOS1))3):9020 : < (#"WHAT NAME FOR NEW DATA BASE ";A$f 2#D$(13)(4):8100: GO ADD TO MENU <#LINE100:INCR2:D$(13)(4):D$"DELETETEMP"D$"OPEN";A$: OPEN NEW DATA BASE F#:2:"INPUT TWO DATA PAIRS (FOUR WORDS)" P#I14:DTA$(I)::D: M I19:(F$(I))1AI:8120: WRITE NEW ITEM TO MENU S r D$"OPENTEMP"D$"WRITETEMP" 8010A" F$("A")="(34);A" "A$;(34) "RUN8180" D$"CLOSE" D$"EXECTEMP": 8000:I19:(F$(I))1A$(F$(I1),(F$(I j1030: \ @ DATA BASE WRITER FOR FLASH CARDS BY VAL J GOLDING v JF$(9):MENU STRINGS KF$(1)"1 COLORS" LF$(2)"2" MF$(3)"3" NF$(4)"4" OF$(5)"5" PF$(6)"6" QF$(7)"7" RF$(8)"8" SF$(9)"9" T Q$,A$:NN1:Q$"*"1000= :NN1:A(N),Q$(N),A$(N)E :Y I1N:A(I)I: J1N:X((NJ1)(1)1):Q$(A(X)),A$(A(X)):A(X)A(NJ1):: J1N $ .6:Q$(J); 8Q0999: B:18:A$(J): LQ0999: V `(7) E FROM MENU ":4:"OR 0 TO CREATE NEW DATA BASE"F 2D$(13)(4):A$Y <:A$"0"9000 FA(A$):FILE$(F$(A),(F$(A))3) PD$"EXEC";FILE$:: d ROUGE,RED,NOIR,BLACK f JAUNE,YELLOW,VERT,GREEN h ARGENT,SILVER,BLANC,WHITE  *,*: 9 FLASH CARDS BY RICK WILLIAMS :8000::4:"THE FOLLOWING FLASH CARD DATA BASES ARE AVAILABLE"8:4:F$(1):4:F$(2):4:F$(3):4:F$(4):4:F$(5):4:F$(6):4:F$(7):4:F$(8):4:F$(9)0 (20::4:" SELECT DATA BAS     ?> ,L-  8 ' i ( 8/ i0 q q q q q q q q q%0e'' J LL i ( i 0L??7)--;? )  ) ;?)--:??7-)) - ) -:)) >)) >) - ) ) ) -  - ) )))); -)) );)) ;)) ;) ) ) ;;) ))--) )Z   ) ? )  )  -  -  );?) )--)-- ; ) -  ; ;)--; )--)-  ) -  )-;) ;?) ) - )--  ;  - ) );?) ) -  - ) )?? );)-  - ;? ) >??7-))-) -) -) -) -)->????;;;?7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??;?;?;?;?;?7--) -) -) -) -) -)->????;;;?7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??;?;?;?;?;?7 - ) -) ) - ????????????????7------------------->??????????????????7------------------->??????????????????7)------------------:??????????????????7------------------->??7--) -) -) -) -) -)->??;?;?;?;?;?7--) ) ) - - -)->??;?;?;?;?;?7--) ------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??->???;?;;????????7----)--- ) -)- )--->???;??;???????7----)-- )))--->?????????7---- - - )--->???;??????7---- ) -) )--->???;;????7---- - )-- )) )--->???;;;;;;???7)------------------:??????????????????7??7----) - )) ) -)--->???;?;???7---- ) ) ) - )--->?????;?;????7)------------------:??????????????????7------------------->??????????????????7---- )--->???;???????7----)--- -- )--->???;?;;????????7----)--- -- )------->??????????????????7---- )--->????;???????7----)----)- )-)--->????;;???????7----)--- ---) -)--->????;;;;;??????7----)--- )- -)--->??????????7----) --) )))--->???;;;;???7----) ) )--->??????????7----)--- - )--->?????;;???????7----)-- ) - )--->???????7---- - -- )--->???;?;;???7---- - - -)) )--->???;?;;?;;???7----)))) ) )--->????;;;;???7)------------------:??????????????????7--------------svy|)-:;3-->;3 ; ?--? )):?7--?  ?-->;3 ;)------------------:??????????????????7------------------->??????????????????7---- )--->????;??????7----)--- -)-)--->???;;????????7----)--- )--->????;;???|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&            @S(ĠàԠҠ)'Jd<ed=eTS(ĠàĠҠ)'^d>ed?e hM6QҠ)&@8@B;@rrp(͠Ÿ)@B;@rrp@]4UVW;@rde<@*rrYdHeM6 Q]]8]à٠ź̠٠̠ʠNJ$,M6S(נàԠҠ)'6dBedCe{8 ]à٠źؠ٠̠ʠNJ1dM6N@"rC@"rC@"rC@" rnS(נؠԠҠ)&@x@B;@rrp()S(ĠؠԠҠ)&@.@B;@rrp()@B;@rrp@S(ĠؠĠ  p(ΠŸ).UVW;@rde<@*rrYdHe[ppM6V>@p(ĠƠĠ à)\pM6Hd6ed7e0eаd?eбd<ed=ed8ed9e0M\Qfa@E(ң)a@E(Σ)Qp]ŠؤϠ٢z@B;@rr͠Π٠ŠԠ)a(Ԡ޳) a()A]Ҡנ͠ӠϠŠΠΠŠĠa(Ϡ) аq.?<rбq.?=r*a@E(ң)M4@p(à°±àĠƠ)\ԠƠΠàŠԠǠӊdN@"r@p()]̠Jn@p(àŠàààŠ)\pM6'xd<ed=e d>ed?e0d6ed7e0M"a(͠Ӡ͠Ӡ)(a(== ]ƠǠ͠éŠɬA]ϠԠϠάŠԠϠϩn]ϠŠԠӠŠ̠̠ӠĠŠĤ͠ңĠΣӊA(]Ӡ  HHx~hhH!89 h`H h(~i`h,(,Hɘ 89 h`ɍh`H~~ 0~~hh`H "::216,0:9 T::10:12:E$""ĺ"PROGRAM ENDED":360I ^FI$" IS"E$T h:2:E)130:F2$F2$(8):+ ERR0:C$"H"290_ ERR0ĺD$"RENAME"F2$","FI$:E$" NOW RECOVERED"h 190 "ERR0ĺD$"RENAME"FI$","F2$:E$" NOW HIDDEN" ,190 6(222)6ĺ:"FILE NOT FOUND !":ERR1: @(222)255340 J:3:"UNEXPECTED ERROR !$;E$:::"(H)IDE, (R)ECOVER, (C)ATALOG, (E)ND : ";:C$O C$(3)C$"E"340_ C$"C"180x C$"R"C$"H"190 :"WHAT IS THE FILENAME : ";FI$:FI$""190 (FI$)11ĺ:"FILE LENGTH MUST BE LESS THAN 11 CHRS "::190 F2$FI$:I(FI$Ud ********************7n *** HIDE ! ***Rx *** MARK CAPELLA ***m *** 07.07.79 *** ******************** :100,140D$(13)(4):310D$"NOMONCIO":"( ... HIDE ... )":I11000:D$"CATALOG"7 ::FI   ĠĠĠ )\M6M@p(ƺàƠĸ)\M6_dn]Ӡ̠͠Š٠ĠˠŠϠŠǠƠŠŠӠrwa(Š)KQ]'r`7.?(r%[wa(ˠɯϠ)Q]|]]N@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ƺ Ĺ°ĠĠàĠR,ded ed'ed(ed)e]ˣãӠỊ̆ϠɊ!6de`d*e`]ԣ)@d#ed$e@]ҠϠɊJM]ӠΊ(TdLedMe@]Šӊ^]ӿ/h`.?(r$)Q q+@#]ڽΠƠˠ6`.? r$"]ƠŠĠΠڭƊ q.?r*de]ŠˠĠŠŊd eq\,a(Š)Q?"a(ŠԠ)Q]ΧԠŠŠԠĊȠԠNJ"`.? @#r<@*rr$Y,a(Š)_]ӠȠNJY]ˠԠŊ.`Աӱ$]ƠϠΊCqԱqӱq\,]ĠԠ٠ˠĠԊ_a(ŠԠtt;nN@"#ra()GS(ŠϠŠĠ)&@`;@r$nVxqqq q\,]ŽƠΠԽˠӽàĽӠĊԱq.?@rӱq.?@r%UVW]ؽŠҠˊ;UVW;@r]ˠϠŠƠӠ'`.?r$q.?r.?rOd@edEe@ _]ŠͺĠͺӠΊAаq.?rбq.?rбq8бrаqаqаб_]>]ŠŠԠ٠ŠɊdM6     %S(Ơ̠Ӡ)'q q bE()Gq8r  qbG!q`$`$6ca()_ ]ĠϠӠ ]̠֯Ҡê ]ٺĠŠ!] M6/a()S(Ҡ)'S(Ҡ)'`$_$a(Π٠Ϡ)_Ơũ"]ϠϠΠԠŊQN@"r@Brp@* # r@Brp@*#r]ԠĤϠïҠ̠Ċga@E(Π)E@E()Q]ӠӠϠԠŠǠ٠ŠԠȠïҠ̠Ċ ]N@"~rUVWd8reYde]ӠŠӠԢnPa@*[#[rH@*\#\rH@*_#_rQ]ŠŠӠ٠ԠŠΠҊX]ӠŠϠӠՠϠԠҠŠԠԠϠŠΠ>]ҠàҤΊ٠̠ʠNJR]ϠŠҤŠҤԠŠԠŠӭĠΠ͊m]ϠԠҤŠԠӠΠΠŠŻԠҤجةŠؠӠŠҠϠŠĊIrq\]ŠҠλŠҠŠϠҊAd%ea@Q]ŠһԠҭŠӠNJ=oM6dbd"eUVWde.?rYK[]@]ҠϠ̻Ԡ̻ԠлŠΠϠҤϻŠԠһͽӠNJ;]ԠàҤŊ٠̠ʠNJdN@"r@p()]٠ԠǠԠŠԠŠƠͻͺ2T]ҠŠΠ͊Lq.?% q\q8dr q\q8 r"q\q_]Tq<@*#rr[]ԠاȠҠƠ̤ϠɠΠàԊodeqq[]ƠԠǠҠӠɭӠŠȠǠӠϠԊ[`%q8r[]ƠԠҠƠǠӠӠŠŠ̢ϠӊU]Ϡ٠ͭҠ٠ӠƠǠԠΠNJq\q' q\q8r)_Q@p@\bQ]ŠӠǠϠ̤ԠŠ̢Kq;@r`@*#r9()%\]ƠŠŠԠǠҊlq`%q`$`$`$`$_]ˠנ٠ :]Ԡà̠ΠŊ٠̠ʠNJgN@"r@p()N@"r]Ԡͺ͠Š̤ӠԠŠΠ͊3R@]ҠǠҠΠϠŊ8`;@r@*#r9()$a(     z#??????  ϠҠ ԠϠϠӮĠԠˠǠ Р ٠Š Ġ ŠŮ ȠӠ ӠҠݠ !ΠҠݠ"ȠӠϠϠӠݠ ŠŠŠ Ү  ƠҠ ǠҠϠϮ ͠Ԡݠ͠ԠҠ٠ ΠҠ  -      -    1979 ՠ حà֠ҠΠҠҠΠҠݠҮŠ0,145# 105,200,169,2,145,105,96V 105,189,255,1,41,127,157,255,1,202,208,245,962Wt SUBROUTINE TO ALLOW PRO- HIBITED CHARACTERS LIKE COMMAS, ETC. IN STRING INPUTS BY JOHN CROSSLEY dIN$"X"n140x768:IN$(IN$,1)IN$:I768799J:I,J::162,0,32,117,253,160,2 138,145,105,200,169, 88:D$"NOMONC,I,O":HEX$"300:38 48 84 00 A0 00 C9 20 B0 02 69 C0 C9 60 B0 02 69 80 C9 80 B0 02 69 40 91 02 E6 02 D0 02 E6 03":HEX$"320:68 A4 00 60 00 00 00 00 A9 A0 60 A2 00 A0 02 8A 91 69 C8 A9 00 91 69 C8 A9 00 91 69 60":8HEX$HEX$" N pTXT0:130gE$(4):SP$" ":H(X)(X256):L(X)XH(X)256:CA$(500,3)D$(13)(4):NA$"DISKCAT INDEXFILE":OP$D$"OPEN"NA$:CL$D$"CLOSE"NA$:WR$D$"WRITE"NA$:RE$D$"READ"NA$:AP$D$"APPEND"NA$CL16:ST122(R$)RRRC:R$(R)SP$7WR$;",R0":(R$,10CL)GE$;CL$;AP$ZWR$:O%3740r((RC)SP$,10CL)~X1RCY03:CA$(X,Y):E$ CL$:"DONE":130:  CL:130: R:D$"RUN FILE CABINET II":: kTXT1:130NSERT TARGET DISKETTE FOR"::" DISKCAT INDEXFILE TO GO ON"::" HIT RETURN WHEN READY "vA$:A$::10:10::"WORKING":O%2670E$"OPEN DISKCAT INDEXFILE"E$"DELETE DISKCAT INDEXFILE"OP$:O%2720RE$",R0":R$:R38:XEN14003 C$(212)Ĺ37,(37)1:" "K STEN:EN32767520 "MEMORY FULL-TRANSFER CONTENTS TO ";(13);"CAT DISK-THEN CONTINUE" ::23::" HIT ANY KEY TO CONTINUE "::756:130: XCREATE FILE bR0al:3:5:"PLEASE IEX3:110:CA$(RC,2)C$I C$;:DCL:EX7:110:CA$(RC,3)C$:CHR0:" "; CTLX7CTL29:CHRCHR1:(CTL)127ĭ(CTL)160ĭCHRCL1Ğ:((CTL)64);:460 :CHRCL1ĺ((CTL)); (CTL)127ĭ(CTL)160ĹCTL,(CTL)64 CTL::" )" XX VOL NBR OR HIT RETURN":SB$:(SB$)VOL$SB$:(VOL$)3VOL$"0"VOL$:(VOL$)3VOL$"0"VOL$r |(VOL$)3370~ XST20 RCRC1:"( ";VOL$;:CA$(RC,0)VOL$ D1:EX1:110:CA$(RC,1)C$:TXTĭC$(212)RCRC1:"";:480 " "C$" ";:D3:ATALOG IN! 63,H(ST):2,L(ST)D @54,0:55,3:56,40:57,3:1002i JD$"CATALOG":D$"PR#0":D$"IN#0"~ TEN(2)256(3) ^VOL$"":XST15ST17:VOL$VOL$((X)): hCGCG1:"CATALOGING DISK NO.: ";CG;:" VOL NO.: ";VOL$_ r"ENTER SUBSTITUTE FILE CATALOGING";:"6. CHANGE PROGRAM TITLE LENGTH";:"7. RUN FILE CABINET II":"8. QUIT"::::" SELECT ? ";::" "; A$:A$(13)A$"1" A$(27)A$"8" O%(A$):O%1O%8130 O%300,600,600,875,880,800,850,190 : ,READ A C, %d930:950:940:950:C$"?":120Mn812,D:820,L(E):825,H(E):811:Vx900:5:6:"OPTIONS":33,30:32,8::"1. GET A CATALOG":"2. CREATE A NEW CAT FILE":"3. ADD TO AN EXISTING FILE":"4. OMIT CATALOGING TEXT FILES"w "5. RESUME TEXT      ) 271-4514 + RELEASED 15 AUGUST 1980 D823G ":I1(HEX$):511I,((HEX$,I,1))128::72,0:  MULTIPLE DISK CATALOG BY GARY A FOOTE MODIFIED FOR APPLESOFT BY DARRELL DUNMIRE AND VAL J GOLDING APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE SUITE 300 - 304 MAIN AV S RENTON, WA 98055 (206tt;nN@"#ra()GS(ŠϠŠĠ)&@`;@r$nVxqqq q\,]ŽƠΠԽˠӽàĽӠĊԱq.?@rӱq.?@r%UVW]ؽŠҠˊ;UVW;@r]ˠϠŠƠӠ'`.?r$q.?r.?rOd@edEe@ _]ŠͺĠͺӠΊAаq.?rбq.?rбq8бrаqаqаб_]>]ŠŠԠ٠ŠɊdM6  SEATTLE, WA. 98136 8:32,0:.756:4:958:y2"CALL -APPLE ANTHOL- OGY, VOL II, JUL-NOV, 1979 VERSION 1 RELEASE DATE 2.06.80"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 6708 39TH AVE SW SEATTLE, WA. 98136 ON THIS DISKETTE, BUT ARE NOT DISPLAYED"|+"ON THE MENU, AS THEY ARE NOT INTENDED TO BE RUN AS STANDALONE PROGRAMS":+32,10::"GR SCRN CLR >":"GR SCRN CLR ]":"BADR.CREATE":"BADR ]":"LIFE.B":"PCARD" + *+::"HIT ANY KEY FOR MENU":10:" "C\50,255:34,23:I11200::::10000wX(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110b(222)255Ħl'2::4:"CALL -APPLE ANTHOLOGY, VOL ][":::34,5:11000:**8:"THE PROGRAMS LISTED BELOW ARE INCLUDEDL E G R H"o45:"E T R A A":14:"S A R N">15:"O M Y G":16:"U";:40:"E";H17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":8" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";u 23:" ";:25:" ";:31:" ";:33:" ";:39:" "}: "A P P L E":2:"P U R I X""*3:"P G O B C":4:"1:2:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" " " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "CHRS"H 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS N : 2::" CALL -APPLE ANTHOLOGY VOL ][ JUL - NOV 1979 ":: I19:(I64)" "MENU$(I);:20:(I73)" "MENU$(I9):  ::= 8)"AUTO NUMBER":MENU$(9)"MEMORY MOVE":MENU$(10)"PG 2 GR DEMO" MENU$(11)"REM FORMAT >":MENU$(12)"MON $ WRITER >":MENU$(13)"SO WHO NEEDS ]":MENU$(14)"FILE RESTORE":MENU$(15)"SELF WRITER" MENU$(16)"LIFE":MENU$(17)"MULT DEMO":MENU$(18)"PROH 0:10:"LOADING "FILE$ Y A$" SELECT BY LETTER":MENU$(18) MENU$(1)"HEX-DEC CONV":MENU$(2)"REM FORMAT ]":MENU$(3)"COLOR 21":MENU$(4)"MYSTERY":MENU$(5)"MON $ WRITER ]"@ MENU$(6)"HIDE":MENU$(7)"FLASH CARDS":MENU$(A$)120 190:150. X(16384):X127ıZ :16368,0:KEYX192:KEY18KEY1180o FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:250 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:250 D$"RUN"FILE$ :1 =d " M E N U " BY VAL J GOLDING - 2.80 kn2000:::500:1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::L(     ĠĠĠ )\M6M@p(ƺàƠĸ)\M6_dn]Ӡ̠͠Š٠ĠˠŠϠŠǠƠŠŠӠrwa(Š)KQ]'r`7.?(r%[wa(ˠɯϠ)Q]|]]N@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ƺ Ĺ°ĠĠàĠR,ded ed'ed(ed)e]ˣãӠỊ̆ϠɊ!6de`d*e`]ԣ)@d#ed$e@]ҠϠɊJM]ӠΊ(TdLedMe@]Šӊ^]ӿ/h`.?(r$)Q q+@#]ڽΠƠˠ6`.? r$"]ƠŠĠΠڭƊ q.?r*de]ŠˠĠŠŊd eq\,a(Š)Q?"a(ŠԠ)Q]ΧԠŠŠԠĊȠԠNJ"`.? @#r<@*rr$Y,a(Š)_]ӠȠNJY]ˠԠŊ.`Աӱ$]ƠϠΊCqԱqӱq\,]ĠԠ٠ˠĠԊ_a(ŠԠS FOR EXTRA SPACE BETWEEN LINES 0:144> ^:7:"HEX = ";NBR$:"DECIMAL = ";(0)(1)256: | 20::6:"HIT ANY KEY TO RESUME"::A$:0,0:1,0:100: MOD(NBR)(NBR256(NBR256))256:: DEFINE "MOD" FUNCTION / X HINT: ADD CONTROL J AT END OF REM LINE7:1067,216:1068,189:1069,160:POKE ASCII INTO SCREEN P 400: s ,:8:"ENTER HEX NUMBER ";NBR$ 6HI$(NBR$,2):LO$(NBR$,2) @(NBR$)3HI$"" JHEX$"0:"LO$" "HI$" N D823G" TI1(HEX$):511I,((HEX$,I,1))128::72,/ 1,MOD256:0,NBR256:POKE DATA INTO $0,1 60,0:61,0:62,1:63,0: POKE DATA ADDRESSES INTO X AND Y REGISTERS 936:7:"DECIMAL = ";NBR:589:PRINTS CONTENTS OF A1L,H THRU A2L,H IN MONITOR D 1064,160:1065,200:1066,1906 HEX-DEC CONVERTER BY VAL J GOLDING Ad:500n8:8:"SELECT MODE"::10:"1 DECIMAL TO HEX":10:"2 HEX TO DECIMAL":10:"3 EXIT":::12:"SELECT":xA:A200,300:: :8:"ENTER DECIMAL NUMBER ";NBR MOD256MOD(NBR)     L%M6S(ҠŠҠ)'`$de'(d<ed=ed>ed?e2dBedCeM6<_7944,216:945,160:946,0:947,76:948,44:949,254= d936:"COLOR VALUE FOR SCREEN?";CuC0C15201024,CC16(60,0:61,4:62,254:63,7266,1:67,4:944<20 ͠ϠΠيi,]̠ΠƠŠ̠ננѤӠĠϠŠӠΠԠŭӊ]̠%na@E(Π)a@E(Š)~xa()E@E(Խ)E@E(˨)FE(˨)FE()E@E(Ƚ)E@E(˨)FE(˨)FE()a@E()Q][]ͺԠŠԠϠ̠ǠҠԢ҂; ]ҮŠ٠̠Ȋv]Ӡ͠ӠΠŠȬΠĬӠŠԠĠȠƠŭ٠ĠŊVdq@p()de.?6rde.?7rq q d e@p()  àӠOuq$q%q2qq?qq0q3]ҭ,\v@p()@p()]̠Ġ̠̭v[]]ӠŠӠ[] NQ]0u]͠ӭ.XuвqвqвqrвqDvuq6q6dq q!q"q#]Ӡԭouq6?q6?q6?q6?Աq6?Բq6?q6?q6?]ƠΠŸ)4UVW;@rde<@*rrYdHeM6 []]ҠвMded<ed=ed>ed?e dBedCeM6[]%p]ŠΠϠŠ*zUVWYdedԱe>e^d?edBedCeM6]]ԠҠŠ<deded#ed+edBedLe](]ŠӠŠȭqN@"r@p(ƺƠƠΠϠȠӭQ]]ԠвdedeMd[]]Πв$deرded,eزMk[]h]Πв$rdedeٱd-eٲMr[].]ŠҠӠӠBd<ed=edfdԲede\в\pS(Πرز٠)'ر'ز'$f dԲede\в\pS(Πٱٲؠ)'ٱ'ٲ'$ f dԲede\вdԲedeR@ dԱedeoR@-&_]ԠҲ" ]ŠӠӠϊ@]Š̠ƠŠ٬JZ ]ŠȠӢ̠ŠΠϠԠϭ͠Πӊ d\Xu\ nN@"cr de \в Mo S(Ԡج٠)''$     0RS>T?U  COURTESY OF THE MICHIGAN APPLE COMPUTER CLUB   5217 ANDRITHS BdS$" AMAZING MYSTERY PROGRAM":M256::100:"S$ WAS = ";S$:snL((106)M(105)2):A(104)M(103)L7x 33,69,76,80,80,65,45,32,76,76,65,67,32I1L2:D1(1)1000:DT:A,T:A1,32:AA2"S$ N