' +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- ( 1 Ϡ@跻~!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`z#?     ϠŠԠ3 "HELLO"d* \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.............................................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.............................................J \.......................................x \....................................... \....................................... \....................................... \.............................................6 \.......................................d \....................................... \....................................... \....................................... \....................................... \.............................................P \.......................................~ \....................................... \....................................... \....................................... \...............................SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1001 CAP ALICE...................312 585 2063" \.....1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE                :&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.............................................6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\.............................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\.TROL CHARS. 6B$""%6(A$)ı46I1(A$)Y6((A$,I,1))26B$B$(A$,I,1)`6If6~6] PRINTER ON/OFF 6]PRPR:250506]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:X7a" EDIT AND PRESS":"'RETURN'.":5020i513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250005(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:4360525000 6 REMOVE CON(S$,1)"N"ĺ"":5130 45081<4P OK THEN, KILL IT! M4ZUD1:4250k4dCU(START((LN201)46))|4nCU,((92))4x4450:250004p EDIT A DATA LINE 4z:3000#5|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO(NA$,(K$))K$510033(NA$,1)(92)UUNR5070?3UUUU1P3UUNR5070]3:25000t3 FOUND A MATCH 3LN(123)(124)256:UUUU13:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52004 DELETE DATA CONTENTS $2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:UU13NA$:E 1T$:(T$,1)(92)4310:1LN(123)(124)256T1 CALCULATE OFFSET r1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v250001242000^UD1-0h PAD TO 40 CHARACTERS U0rI(NN$)(39(NP$)):NN$NN$".":m0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LIN";::"NAME";::" ENTRY:":10:14:NN$c/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TS54020].10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? '/::8:"HERE IS THE :I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540#, 1100=, VT22VT2:3:958D, IN, 1200k, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!"++ GOT A FULL PAGE Z+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$q+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$:1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700y*VVT:1:NA$*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750*22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:""6 PRINTER ON/OFF"79b"7 EXIT THIS PROGRAM":32,0:C9 b32,0:k9*b22:20:868:"WHICH: ";S$:S(S$)94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979S ":25070?8a" ";::" ON ":w8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"9 b"5 EDIT A LISTING": APPLE COMPUTER, INC. PHONE LIST ";::"----------------------------------------"7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF";)8aPRĢ9:"