' +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-(0 ՠ@跻~!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 ~(` F d ֠z# u`UC0:500: 6 X0:**READ TEXT FILE**^ ::"READING DISK FILE '";NM$;"'"~4D$;"OPEN"NM$:D$;"READ"NM$HI:SL:TB:CL:CI\X1IpL$(X)D$;"CLOSE""DO YOU WISH TO SAVE THE CORRECTED FILE BACK TO DIS19UF1UF0:480!DUF1UC1<XLC0UC1K64K91ĞmlK24K8ĺ(92):X$"":"TRY AGAIN...";:480K34K39:K$"'"LC0ĺK$;:UC0K$(K32(K64K91))LC1ĺK$;K13UC0:768:K32ğ:(K64);:X$X$K$:"":UC0:480:L$(X)X$:200& RE$X$] (WK$,S,1)" "WK$LF$RE$RT$:YS:L$(X)WK$:200 S1ĺ"CORRECT SPELLING? ";:X$"":UC0:480:RE$X$:L$(X)RE$RT$:200 S1ĂS UC0 K$:K(K$) K27UC1:500 K19UF0UF1:4800K$)YRT$(WK$,(WK$)Y):SY11:(WK$,S,1)" "LF$(WK$,S):"CORRECT SPELLING IS...";:X$"":UC0:480 h:(WK$)YRT$"":SY11:(WK$,S,1)" "LF$(WK$,S)::"CORRECT SPELLING IS...";:X$"":UC0:480 |(WK$)1ĺ"CORRECT SPELLING IS...";:X$960] L$(X)::1060,(X100)176:1061,((X(X100)100)10)176:1062,(X(X10)10)176 (821)0Y(821):1046,(Y100)176:1047,((Y(Y100)100)10)176:1048,(Y(Y10)10)176:300 XX1:220 ,365:1002 @:WK$L$(X)j T(WK LINE"::"HIT [ESC] TO CAPITALIZE.......[CTRL-S] TO TOGGLE SHIFT LOCK"::34,(37)i 822,(SE$)128 768:X1::820,1:821,0:220 Y0Y0:821,0::L$(X):365:1002:::"HIT ANY KEY TO CONTINUE":A$::768 XIČ365:1002::"DONE":E FULL NAME OF THE TEXT FILE TO CORRECT "::"HIT [RETURN] FOR A CATALOG"::NM$::NM$""ĺ(4);"CATALOG":120z 780 ::"ENTER THE SPELLING CHECKER SYMBOL !"::"HIT [RETURN] FOR ^":SE$:SE$(13)SE$(94)U :4:"ERROR AT POSITION G SPELLING CORRECTOR : WES FELTY CALL -A.P.P.L.E. : MAY, 1983 TL$(500)|(D$(13)(4):D$;"BLOAD CORRECTOR"<LC0: LC FLAG...LC=0 IF NO LOWER CASE CHIP, LC=1 IF L.C. CHIP PRESENTPLC0Ĺ823,0dLC1Ĺ823,1n:q x"ENTER TH ECORDS"/B1:20:"HIT 'RETURN' FOR MENU":G$AE(G$)13170KG1602rJ ********************************T:4:I1NU:D$;"CLOSE";NA$;I:ItP)T$:F19K:F01550$;1520K< ********************************s> *** # OF RECORDS MODULE ******** @M0:::I1NU:NA$;I;" ";M%(I);:15:"RECORDS";:26:"ASC";:30:B%(I1)1;"-";:35:B%(I):MMM%(I)::A:"TOTAL = ";M;:15:"RI):5!D$;"OPEN";NA$;I;",L65">D$;"WRITE";NA$;I;",R";JIA$(J)[J:I:2:170 *** ACTUAL SORT SUB ************ GM%(I):NA$;IG1ıG(G2):M4M%(I)GF0:K1M4:PKG:A$(K)A$(P)1593 1T$A$(K):A$(K)A$(P):A$(' ********************************O *** SORT MODULE *************** d::"SORTING":k4I1NU:M%(I)1ĂI:2:170J1M%(I):5D$;"OPEN";NA$;I;;",L65"D$;"READ";NA$;I;",R";JA$(J)J1500J1M%(;NA$;I;",L65")}D$;"READ";NA$;I;",R";J4A$(J);JCD$UJN2M%(I)1rD$;"WRITE";NA$;I;",R";JA$(J1)JD$;"WRITE";NA$;I;",R0"M%(I)1M%(I)M%(I)1:MM1D$;"CLOSE": ************************************* =<936:"ENTER NUMBER OF ENTRY TO BE DELETED ":N1GF1174d:"ARE YOU SURE YOU WANT TO DELETE THIS ???":Q$:(Q$,1)"Y"İ1402:2:170n2:170y *** DELETE RENUMBER SUB ******** zM%(I)N21420 {JN21M%(I):5:D$;"OPEN"$;"WRITE";NA$;I;",R";M%(I)1$A$@D$;"WRITE";NA$;I;",R0"RM%(I)M%(I)1]M%(I)csD$;"CLOSE" 2:12:"MORE CHANGES (Y/N)":P$(P$,1)"Y"1160170( ********************************2 *** DELETE MODULE *********占̬؍Ӡ СϠӠ ̬ؠ ŠĠ 䍠؍àύŠı ĠҠΠ ҍ̠Ϡ 򩍠ؠύ̫ؠ  Рҩ٠ ŠĠ 䍠٠ 獠ؠ 占ŠIJ ǠРҠ ﮍĠ؍ͪ ҠؠؠϠ ı٠IJ̬ؠ ѠĠ 占РƠ 忍ѠǠՠù ̠ՠč̠ՠùÍРՠô ɯ ŠՠðҠՠð ΠՠĹҠ ˠՠƵ ҠՠİӠՠĴ Ҡՠ¸ ƠՠǍ˫Ǎ˫ӍǠՠ ΍ 卪 󮍍ǠՠӠÍǍàҍǍàҫҠӍ 占 Ʈ ͩ ѩ ө 卪 ϩ 宍 Ǯ ѩ ϩ 箬 Ƹ  õ ݍ 󮍪 Ů 卪 箬 õ ® ѩ é ͯō Ӭ ݬ ũ򮍪 î 獪 Į K...Y/N ":AN$:AN$"Y"1140/:"DONE":Z::12:10::"SAVING DATA TO DISK":D$;"OPEN"NM$:D$;"DELETE"NM$:D$;"OPEN"NM$:D$;"WRITE"NM$I:SL:TB:CL:CI$X1I8(34);L$(X)LX`D$;"CLOSE"t:"ALL DONE"W ' fՎp` ``*ɠҠ 䍠٠Űà͠ ͍РƠ𿍠Šűàͫɠų宮űũ٠占ԩ٠àŠ 占ŠŲàūŲàԠ ӍҠԍҠ͠ Ҡ͍Ҡҍ٠Š٭ū鍠Ҡ͠ Ҡ͍Ҡҍ٠Ԡ٭ԫ鍠Ҡ͠ 占Ҡ͍Ҡҍؠ 퍠ǠŠ 占֫Š 占֫ӍŠРͧ ŠӍҠԍРϧ 䍠ŠӍҠԍР֧ 墍ŠӍҠԍРŧ ŠHCOLOR=6, BOTTOM UP; P2,213:P21,170:MOVE,P2,P22,B2i J201:XP1JB:N701:IN56N8 MOVE,P2,XIA,B:I,N,JӍԠƍ ֠ؠƠ ٠ƍؠҍ٠ҫҠΠ Ҡ̠ ÍҠҠ ҫàͫҫ֍àӠ Šؠij ٠àؠҍ٠ҫҠԍ֍àӍĠРӠ 獪 Ҡ 獠ҫàͫҫ֍àӠ РҠ֠ ÍҠ à͠ ҍԠԍРРҍѠčРѠ΍РѠЍРҢѠōŠӍΠҠ֠ à Ҡ à͠ Ӫ ĠŠ Ԡƍ( 婮 婮 ̠̭̭Э 平 ЍؠƠ 卪 쩮 ̠ ̍  ̍  *EXIT.P*+ J(3049)(3050)256<J,2:3094,1F3072`(V(3090)(3091)256o2V118,136~<V153,136F3094,2P3072Z:"GOODBYE !";(7)d 2 占ŠŰàԫŠŰ ųӍҠРҠ ӠРؠ䍠Ԡƍ(3091)256 V118,(P$), V153,(P$)8 3094,2B 3072Z (4);"RUN ENTER.P" \ *ENTER* 6(4);"BLOAD HELLO.A"@(3051Q2"NUMBER: ";f<A$:A$(13)80wFP$P$A$:60PJ(3049)(3050)256ZIJJ9:N:I,N:Id 2,32,12,0,32,0,0,1,0,0nx(4);"BLOAD HELLO.B"3072 V(3090) "HELLO(";::"ENTER";::" SAVED UNDER THE NAME ";::"HELLO";::")":x "HELLO.A":"HELLO.B":"ENTER.P":"EXIT.P" :"'LOAD CHANGE PASSWORD' FROM ANY DISK.":"INSERT TARGET DISK AND TYPE 'RUN'."30724 x"INSERT TARGET DISK. PRESS ANY KEY.":A$F 3094,1:3072Z 8194,2:3094,2d 3072p 3087,3 3094,1:3072 8193,0:8194,0 3094,2:3072 :"COPY THE FOLLOWING PROGRAMS TO THE":"TARGET DISK ";::"IN THIS ORDER"::I  *COPY.2*% ::"COPY.2":U:"INSERT SOURCE DISK. PRESS ANY KEY.":A$[u((4);"BLOAD HELLO.A"2(4);"BLOAD HELLO.B"<J(3049)(3050)256FIJJ9:N:I,N:IP 0,32,12,0,32,0,0,1,0,0Z3072d8194,2:3094,2 n  ET DISK.". PRESS ANY KEY.":A$ d3072+ n8194,157 x3094,2A 3072 :"COPY THE FOLLOWING PROGRAMS":"TO THE TARGET DISK:": "HELLO.A":"HELLO.B":"EXIT":"CHANGE PASSWORD" "THEN 'RUN CHANGE PASSWORD' TO ASSIGN A":"PASSWORD TO YOUR TARG  *INSTALL.2*- ::"INSTALL.2"::["INSERT SOURCE DISK. PRESS ANY KEY.":A$a{((4);"BLOAD HELLO.A"2(4);"BLOAD HELLO.B"<J(3049)(3050)256FIJJ9:N:I,N:IP 0,32,12,0,32,0,0,1,0,0  Z"INSERT TARGET DISK.  O.B":"ENTER.P":"EXIT.P":Z "RENAME ";::"ENTER";::" WITH THE NAME ";::"HELLO":w :"THEN 'RUN INSTALL.2'ERESS ANY KEY.":A$ _3087,3( d3072< n8193,0:8194,0N x3094,2:3072b 3094,1:3087,0l 3072 8194,2:3094,2 3072 :"COPY THE FOLLOWING PROGRAMS ON TO THE":"TARGET DISK ";::"IN THIS ORDER":: "ENTER":"HELLO.A":"HELLx *INSTALL.1*- ::"INSTALL.1"::["INSERT SOURCE DISK. PRESS ANY KEY.":A$a{((4);"BLOAD HELLO.A"2(4);"BLOAD HELLO.B"<J(3049)(3050)256FIJJ9:N:I,N:IP 2,32,12,0,32,0,0,1,0,0 Z"INSERT TARGET DISK. P  3561 nV2,15:3094,2# x3072= W(3054)(3055)256W X(3059)(3060)256q Y(3064)(3065)256 Z(3069)(3070)256 W,191:X,157:Y,56:Z,0 "HELLO !";(7)  *ENTER.P*% "PASSWORD: ";:A$:A$(13)40KP$P$A$:20e(J(3049)(3050)256v2J,0:3094,1<3072AI120:(8200I)070DIFV(3090)(3091)256PC1ZKV8V8I:((K)128)(P$,C,1)CC1:K:110 d  A$;I;;",R0"C%(I)I-D$;"CLOSE"V ********************************* ^))C%(A%(J))1lJ%vD$;"CLOSE"N ********************************* UIrDR1İ100:43624,1:69043624,2 *** WRITE RECORD 0 TO FILE TO SHOW HOW MANY RECORDS IN FILE I1NUD$;"OPEN";NA$;I;",L65" D$;"WRITE";N*************************** 4&DR2Ĺ43624,2:580F043624,1:100: *** WRITE DATA TO NEW FILES USING INDEXES TO POINT TO FILES *** DJ1M%(I)ND$;"OPEN";NA$;A%(J);;",L65"XD$;"WRITE";NA$;A%(J);;",R";C%(A%(J))1bA$(J):C%(A%(J***** "J1M%(I):490:J:550 *** SUB AT 490 TO SET UP INDEXES TO POINT RECORDS TO CORRECT FILES ************ A%(J)(A$(J))K1NUA%(J)B%(K)A%(J)K:(A%(J)B%(K))(A%(J)B%(K1))A%(J)K1:K *************************************** e  *** READ DATA FROM FILES, ONE FILE AT A TIME ********** k z J1M%(I) D$;"READ";NA$;I;",R";J A$(J):J D$;"CLOSE"  *********************************  *** SET UP INDEXES *********************************** d " *** READ RECORD 0 TO FIND # OF RECORDS IN EACH OLD FILE **** k , w 6I1OL @DR1İ110 J43624,1:20:NA$;I:40 TD$;"OPEN";NA$;I;",L65" ^D$;"READ";NA$;I;",R0" hM%(I) rM%(I)0ĂI:660" | I1NU:C%(I)0:# D$(13)(4)m *** CREATE NU NUMBER OF FILES ON DESTINATION DISK ************ s DR1İ100:230 43624,2 I1NU D$;"OPEN";NA$;I;",L65" D$;"WRITE";NA$;I;",R0" 0:I D$;"CLOSE"  *******SERT ORIGINAL DISKETTE AND HIT RETURN":Z$:40:; xSZ302i A$(SZ),A%(SZ),C%(NU1),M%(OL1),B%(NU1) "WHAT IS THE 'BASE' NAME OF THE FILES ? ";NA$ "HOW MANY DISK DRIVES ARE AVAILABLE ";DR ::I1NU:"BOUNDARY #";I;" ";:B%(I):I 56,Z6:57,Z7:? 2"HOW MANY FILES ARE THERE PRESENTLY ? ";OLm <"HOW MANY NEW FILES WILL THERE BE ? ";NU FOLNUXFOL PNUOLXFNU Z(4);"MAXFILES ";XF:120 d20:"INSERT FILES DESTINATION DISK AND HIT RETURN":Z$:40:0 n20:"INW  ******************************** * REASSIGN * BY JACK OLIVIERI * * CALL -A.P.P.L.E. * MAY, 1983 * ********************************  Z4(54):Z5(55):Z6(56):Z7(57):50Z4240ı54,240:55,253:56,27:57,253: (54,Z4:55,Z5:     E"3:"ITEM # ";N1;" CURRENTLY IS "::" ";Z$:Z ********************************26:7:"*(END)"::"ENTER REVISED DATA NOW ":6:1:A$:A$""A$Z$1402:I0:474:1250:MM1:1290IA%(0)5:D$;"OPEN";NA$;I;",L65"D11601174:1230U *** SUB TO FIND RECORD, FILE AND PRINT IT ********** iMB0:MT0:N2N1I1NU:MTMTM%(I):N1MTN2N2MB:4:1180MBMBM%(I):I5:D$;"OPEN";NA$;I;",L65"D$;"READ";NA$;I;",R";N2Z$D$;"CLOSO GET BACK TO THE MENU "4jG$:33,40:32,0::170[t ********************************~ *** CHANGE ENTRY MODULE ******** :"ENTER NUMBER OF ENTRY TO BE CHANGED ":N1:N10İ2:170N1Mĺ::"RECORD DOES NOT EXIST ":JH11000:JH:(H$,1)"Y"ĂJ:I:1070+(37)181000;J:I:1070c0:::"'RTN'= MORE 'ESC'=STOP":kS$(S$)13Ĺ33,40:32,0:::J:I:1070(S$)27Ċ0:33,40:32,0:::1701010.2`0::"THAT'S ALL FOLKS !!!":"PRESS RETURN TM%(I)"HD$;"READ";NA$;I;",R";J-RA$(J)7\J:2Kp(H$,1)"Y"Ċ1dzJ1M%(I):V52930L7(A$(J)):C8(CL$):K71(L7C81):(A$(J),K7,C8)CL$930K7BB1:J:I:107033,40:32,0::B;" ";:33,36:32,4:A$(J):BB1********0 *** PRINT ALL RECORDS IF V5=2 ** X *** SEARCH & PRINT IF V5=3 ** ^V53Ą"KEYWORD(S) LOOKING FOR ";CL$: "WANT HARD COPY (Y/N) ";H$:B1:I1NU:4:M%(I)0ĂI:2:1120/54D$;"OPEN";NA$;I;",L65">J1A$(J):M%(I)M%(I)1:*I1NU:5FD$;"WRITE";NA$;I;",R0"QM%(I)c:D$;"CLOSE"j2M0:I1NU:MMM%(I):M%(I)SZ15ĺ::NA$;I;" IS GETTING FILLED UP ";GG$:J11500:JI:EN1170390 ************************CT FILE FOR ":::A$(I)::"CHECK FIRST CHARACTER":\X ********************************b *** WRITE RECORDS TO DISK MODULE lPI:I1170n4:I1NU:5pD$;"OPEN";NA$;I;",L65"r:J1P1:IA%(J):5D$;"WRITE";NA$;I;",R";M%(I)1(B$)10B$(B$,10)/(C$)10C$(C$,10)@B$""B$L$QC$""C$M$~A$(I)A$" <"B$"-"C$">":474:I:620A%(I)(A$)K1NUA%(I)B%(K)A%(I)K:(A%(I)B%(K))(A%(I)B%(K1))A%(I)K1:5K:"CAN'T FIND CORRE*************5 r *** ENTER NEW DATA MODULE ****** ; | EN0:I1SE::14);":":(37)1:MI;". ";:7:"TITLE: ";:A$:A$""EN1:620 L$B$:M$C$ 14:" :";:1:"MAGAZ:";:B$:19:":";:1:"MO./YR:";:C$ (A$)40A$(A$,40)******************************F  *** CREATE NEW FILES MODULE **** L [ I1NU:5w "D$;"OPEN";NA$;I;",L65" ,D$;"DELETE";NA$;I 6D$;"OPEN";NA$;I;",L65" @D$;"WRITE";NA$;I;",R0" J0 TI ^D$;"CLOSE": h *******************DATA"::"2. PRINT ALL RECORDS"::"3. SEARCH"b :"4. CHANGE A RECORD"::"5. DELETE A RECORD"} :"6. NO. OF RECORDS" :"7. SORT" :"8. EXIT" : "CHOOSE ONE : ";:V5 V5380,760,760,1160,1330,1600,1430,1620 170  **A$(SZ),A%(SE1):4:I1NU:5: nD$;"OPEN";NA$;I;",L65"U xD$;"READ";NA$;I;",R0"` M%(I)g In 2 I1NU:MM%(I)M:I ******************************** *** PRINT MENU ***************** :14):"M E N U ". :"1. ENTER ******************************** * MAGFILER * BY JACK OLIVIERI * * CALL -A.P.P.L.E. * MAY, 1983 * ******************************** ZSZ302:M0:SE10:GG$(7)(7)(7) _B%(1)65:B%(2)68:B%(3)71:B%(4)75:B%(5)79:B%(6)83:B%(7)87:B%(8)95 d]NU8:(4);"MAXFILES ";NU:D$(4):NA$"MAGFILE":Z4(54):Z5(55):Z6(56):Z7(57):90NU8:(4);"MAXFILES ";NU:D$(4):NA$"MAGFILE":280Z4240ı54,240:55,253:56,27:57,253:54,Z4:55,Z5:56,Z6:57,Z7:43624,1:               T8(W)RA((1(WW1))((W)1)1.5708)W xT9(W)RA(((WW1))((W)1)1.5708)k yTA(W)(W)RAq }uRA57.29578:PI3.141592 uT1(W)(WRA): SINM uT2(W)(WRA): COSh \vT3(W)(WRA): TAN vT4(W)1((WRA)): CSC $wT5(W)1((WRA)): SEC wT6(W)RA((W(WW1))) wT7(W)RA((W(WW1))1.5708): ARC COS* PxS; FN T8=ARCCSC; FNT9=ARCSEC"6 "FN TA = ARCTAN.":^ "FN LG=COMMON LOG; FN AL=ANTILOG." :"ADD PGM LINES 20 UP OR USE IMDT MODE." 30000 :"PRESS SPACE BAR TO CONTINUE.":G$ /u 0uLT(10) :uLG(W)(W)LT DuAL(W)10(W) rA TRIG FN DEFINER BY W. S. SKEEN CALL -A.P.P.L.E. Gt5:" ** TRIG, DEGREES/COMMON LOGS **":"FOLLOWING FNCTNS HAVE BEEN DEFINED:" :"FN T1=SIN; FN T2=COS; FN T3=TAN;":"FN T4=CSC; FN T5=SEC; FN T6=ARCSIN;":"FN T7=ARCCO  q L L!Ц YL ]LXЦ YL;  ]`i` `ԲŭٍԭٍٍŠԲàōàԍ؍ŠԲӍԠƍ,ōԱؠύѠԱҠč؍РԱԱԍǍō͠ ͍͍Ҡҍ͍ĠӍĠÍàӍҠؠ ύٍōԠ 䍠ؠōԠؠύѠԍҠč؍РԍԠōǍԍ͠ 䍠Ҡҍ͠ ͍РčŠԠ 䍠ؠРō͠ՠð͠ՠðԠՠİϠՠǠՠҠŠ ؠōҠōؠōϠ占ԭŭŠ РύŠ н ԠǠŠՠŷà ŠՠԠՠŠՠƍŠ fԠ 򪍪 ЮЮ̮Ů ͬ ͽ      a L LЅ E KLDЅ E K` `  `z"#???Ү "ҮŠ ͯŠӠӠԠԮӠ ԠԠŠ٠ŠŮӠŠ ű ϮǠҠ ҮӠ Ҡҭ٠ԠĮӠ ҭ٠ԠĠͯŠӠӮӠ Π ҮР ̮̮ٮҠϩԮР !ԠϠ"خӠؠԮӠԠ ǠΠҠ Ҡ ͠Ҡ ŠȠ ȠŠנ ȠŠԠȮӠɭӭӠ ŠҠ ՠ ˠӠϠͮӠ ˠӠϠ͠ӨˠӠϠҠҮӠҠҠ  -      9 -  1983  Lj ƍӠ֠ Рư ֠ĠƠ 占Рư Ԡƍ ðŠ РŰ 占àà 占àԠ 占à ƍРư àРð Ԡ Ǡ Р àð ðРư Р Ӡ  Ӡ  ˠ Š Ǡ  ԠРĠ 򮮮 占ŠԠ Ԣ占 占Ӡ Ġ ԠàӠ 䍠Ӡ 䍠ˠ Ӣ à 荠Ҡ ï РƳ Ҡ Ӡ Р ҠРˠ ŠԠ Ԣ Ӡ  Ԡ ЮЮ̮Ů Ԡ Ǡ Ҡ      [ 67L6456 @ 8L:ɍ44L8H7hLh8 LL)?L%e Anthol- ogy, Vol 9B, Apr-Jun 1983 Version 1 Release date 5.14.83"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 21246 68TH AV. SOUTH KENT, WA. 98032 HUTH KENT, WA. 98032 8032 H. 98THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES."+"OTHERS NEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.": + *+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:K2"Call -Appl ":10:" P R E S E N T S ":10:" "c\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110l::'2::4:"CALL -APPLE ANTHOLOGY, VOL 9B ":::34,5:11000:V*8:"NOT ALL PROGRAMS ON G O B C":4:"L E G R H"45:"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:" 9:" ";:17:" ";:25:" ";:33:" "^" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" ": "A P P L E":2:"P U R I X"H*3:"P 1085 = > B! ::c 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" " " ";:9:" ";:17:" ";:25:" ";:33:" "%" ";:5:" ";:S; USE .R FOR BRUN PROGRAMS#  2::" CALL -APPLE ANTHOLOGY VOL 9B APR - JUN 1983 ":: I124:(I64)" "MENU$(I);:20 II1 MENU$(I)""I24:1085 (I64)" "MENU$(I) $MENU$(I1)""I24: 0MENU$(5)"SEARCH A FILE"= DMENU$(6)"TEXTFILE SCRAMBLER"Y NMENU$(7)"RAMTEXT DEMO"x XMENU$(8)"TRIG FN DEFINER" bMENU$(9)"MAGFILER.NOTE" vMENU$(10)"SPELLING CORRECTOR" MENU$(11)"SAMPLE MEMORY MOVE" USE SUFFIX .L FOR BLOAD PROGRAMADING "FILE$:BL260& D$"RUN"FILE$B BL0:I11000:::110t A$" CTRL-C_EXITS SELECT_BY_LETTER" MENU$(25) MENU$(1)"BLOCK GRAPHICS DEMO" MENU$(2)"ANAGRAM HELPER" MENU$(3)"PUZZLE SEARCH" &MENU$(4)"FETCH THE DOW"(A$)120 190:1501 X(16384):X127ı] :16368,0:KEYX192:KEY24KEY1180r FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"LO  Cd " M E N U " BY VAL J GOLDING - 2.80 Vi2000:::500nn1000:D$(13)(4)xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::L      孍 ӭ 亍 ͩ 讍 퍪 卪 卪 䮍 𮍍  | Ԡ ҭ ЮЮ̮Ů Ԡ          忍Šנ 獠àҠ 捠Ҡ 讍Р芊 占Š 宍ҍРΠ Ԡƍ& Ŭ٠ 宍٠ҍà 占àƬ٠ 䍠̠ ٠נŬؠ ፠̩٠ ٠ ؠ 占٠ҍ 宍à 󮍠àĠ 󮍍ؠҠ 占Ƭؠ ؍Š٠Ҡ 占Ŭ٠ 占̫   ˢŠٍҠ Р ѠٍàҠ ٠ؠ ҠĠ 占٠ 占ҠԠ ѠٳàҠ ٳР٠ 宍ٴР ʢŠٶҠ Ѡٵ àҠ ٵРٍٶР Рù ɢŠٲҠ Ѡٱ àҠ ٱР٠ 宍ٲРĠ ͢ŠٴҠ 占Рµ 占Ӡ 占 ҍҍΠĠ 䍠ٰ̠ ٠   ٰ٠ Ҡՠð Ҡՠð Ӡՠð 荪 󍪍Ġՠ±Š Ԡՠ 卍ǠҠ 占Ҡ Šՠ Ơՠ° Ơՠð Šՠİ 卪 ɯ ӍĠՠð ՠð Ӎ̠ՠ Ҡՠ Ҡՠ µĠՠ ٠ՠ 䍪 Šՠ Ԡ Ӯ ЮЮ̮Ů Ԡ      o8& ԧ`VWѸLWV VVjHiH` BELLEOLEOPA PRW LP ɵLP LPɃ Ș Hi    y hL Ӡ ҠԍҍÍà ؍ҫ àҠؠ ӠҠٍҽ ӠؠӠ ٠ӠҢ ؠ˫ 占٠˫Ӎ ˠՠƵҠՠİԠՠčҠՠčԠՠĸō̠ՠķҠՠŷΠՠĵÍƠՠ͠ՠӠՠĴؠՠƹ٠ՠİÍҠՠ¸ݠïݬ򠠪ũ嬠ҠԠǠ Π䠠堦㬠纠ΠǠìũΩ򬠪ΠͯŠӠӬ쭠𠨫ҩƸïݠ󠪍䠠Ӡ󠠠堠堠栠Ӡ󮠠쩠 ԠͯŠӠӠ򠠠젭ЮЮ̮Ů報Ԡ ###ԀՂՂTUЂԊԊDT PЪЭЪ@ P*"@@**څ(*"( ՀۀՀ U D  !!!!"""####$$$%%%% !!!!!!!!""""""###!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc!Bc((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP  $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?      ` i%i A ɍLɭ ɫ0 x8PQP xePeQPӠ PLԧ , { R` . <CD$;"BRUN BLOCK GRAPHICS DEMO PROGRAM"'0C BLOCK GRAPHICS DEMO CHRIS JOCHUMSON CALL -A.P.P.L.E. R CD$(4):l5:13:"PLEASE WAIT"CD$;"BLOAD TABLES(1-5)"#:("USE I,J,K,M TO MOVE HIM.-"PADDLE(0) CONTROLS SPEED."2"ANY OTHER KEY STOPS HIM." 7I07000: ̠ 祉Ƞ 驍Ҡ̠Ƞ͠ ̠Ƞ Ԡ   Ԡ ЮЮ̮Ů ԠĠұōؠ 占ӍРŠ ج٬ЍǠՠ 占Ԡƍ 祉٠é٠ 祉Ƞë ȍ٠àé٠ 驍٠é٠ 驍ˠؠ ؠ ̍٠ҫ ȍ֠ àǠ 獪ˠàà Š̠ 捠àë̠à ̍٠Íàé٠ 歭àҠΠ ؍٠ˬؠ ȍ؍ˬؠ ̍à à˭í ㍠Šà ȿ٠àҠ ԠàՠˠՠҠՠưŠՠƳƍΠՠƵ ͮ  o Ԡ ЮЮ̮Ů      rʆJejf``JJ eejff`Ff Ff eejfff` < XʽiȍP":;:q::;q::ʚL?J1500:! HCOLOR=5, TOP DOWNK :P2,170:P21,213:MOVE,P2,P22,B2r J02:XP2JB:N07:INN568 MOVE,P2,XIA,B:I,N,J EYE TESTER I15:X(49236):J1500::X(49237):J1500:: ::10:"I LOVE THIS COLOR": 2,L sPOKE HCOLOR=1@ x:P1,42:MOVE,P1,P11,L1:J1500:S }POKE HCOLOR=2{ P1,85:MOVE,P1,P11,L1:J1500: CORRECT HCOLOR=1 P1,42:P11,85:MOVE,P1,P12,L2:J1500: CORRECT HCOLOR=2 P1,85:P11,42:MOVE,P1,P12,L2: D0 04 C6 51 30 12 B1 3C 91 42 E6 3C D0 02 E6 3D E6 42 D0 E6 E6 43 D0 E2 60 4C 99 E1 4C C9 DE ":60 Z1014,11:1015,3: SET UP AMPERSAND VECTOR dP18192:P216384:A128:B40:L8192: iCLEAR HIRES PAGE 1 AND 2 nP1,0:MOVE,P1,P11,L1:MOVE,P1,P 03 8D F7 03 60 C9 4D D0 62 20 B1 00 C9 4F D0 5B 20 B1 00 C9 56 D0 54 20 B1 00 C9 45 D0 4D 20 B1 00 20 BE DE 20 67 DD 20 52 E7 84 3C 85 3D 20 BE DE 20 67 DD 20 52 E7 84 42 85 ":60c PH$"0340:43 20 BE DE 20 67 DD 20 52 E7 AA 30 21 A0 00 C6 50 A5 50 C9 FFT SAMPLE MEMORY MOVES KEN KASHMAREK CALL -A.P.P.L.E. : JUNE 1983 jBY KEN KASHMAREK:"LOADING &MOVE ROUTINE TO PAGE 3"270<H$H$"ND9C6G":I1(H$):511I,((H$,I,1))128::72,0:144: FH$"0300:A9 0B 8D F6 03 A9$A$(J1)A$(J1)A$(J4)(A$(J4)T$5J1J1J5DJ11930PJ2J21_J2J3890h920nt:880 :  REASSEMBLE WD$)NW$""4 N1LF*NW$NW$A$(N)L4X>WD$NW$^HhRSORTn\:f:" LETTERS BEING SORTED....."pJ5LzJ5(J52)J501030J3LJ5:J21J1J2J4J1J5A$(J1)A$(J4)1000T";YN$:YN$"Y"ĺD$;"PR# 1":AA$:D$;"PR# 0";bAA$"":230AlGv:dSORT LETTERS INTO ALPHAj::10:" SORTING LETTERS"W1$WD$N1LA$(N)(WD$,N,1)A$(N)" "A$(N)".": SORT: :" PRINT REMAINING LETTERS= PRINT MATCHED LETTERSC :_ &12:"REMAINING - ";WI$n 0AA$AA$A$ :A: GET NEW LETTER D DONE N:+X17:"YOU'VE ENTERED ";L;" LETTERS. PRINTER":"IS ASSUMED TO BE IN SLOT # 1":5::" PRINT? (Y/N) X1WI$" "(WI$,L1):550K A$(WI$,X,1)LXWI$(WI$,X1)" ":550 A$(WI$,X,1)WI$(WI$,X1)" "(WI$,LX):550 X : LETTER NOT FOUND : 17:12:"WRONG LETTER":NN1500:NN:17:5:" ":570$\ T22:" ENTER LETTERS TO FORM CORRECT WORDS BEGINING AT THE FLASHING CUSOR........"i ^A1L1 h15:1:AA$;:A$: rA$"*"ī610 |: FIND MATCHING LETTER ELIMINATE MATCHED LETTER A$" "A$"." X1L A$(WI$,X,1)NOTE: SPACES ARE CONSIDERED LETTERS.":MES$:::" ";WD$:L(WD$)::640N  " NOTE: SPACES ARE CONSIDERED LETTERS AND SHOWN BY '.' - ENTER '*' TO RESTART" "WI$WD$ ,4:"LENGTH = ";L 66:"ORIGINAL - ";W1$: @: J"SORTED - ";WD"": CNTL D\ MES$" ENTER JUMBLED LETTERS BEGINING AT THE CURSOR POSITION BELOW....."b 10:" HIT AFTER EACH ENTRY....." :" DO YOU WISH TO ENTER OR REENTER YOUR JUMBLED LETTERS ?? (Y/N) ";:YN$:H :YN$"Y"ė:10:" uEd ANAGRAM HELPER BY R. HARRIS CALL -A.P.P.L.E. : APRIL 1983 Kx:::10:" THIS IS THE ANAGRAM HELPER PROGRAM"13);"BY R. HARRIS":XX13000:XXA$(254): WD$ IS THE JUMBLED LETTER HOLDER:WD$"" D$      Ԡՠ ͠ՠ Ԡՠ± ֠ՠƵ͠ՠĶ͠ՠŠ򠬠ؠՠù Ҡՠű Ҡՠŷ㭾 ¬ ½ ý ԠŠՠà zԠ ЮЮ̮Ů Ԡ  J1Xd(C$(I),J,1);" ";#nJ)x0I6AI1MNC$(I)""YJ1XmC$(I)C$(I)" "tJ{IICY$(0)Y$(0)(X$(1),L,1):1210?Y$(0)Y$(0)(C$(K),I,1)FIVC$(K)Y$(0)eF111270oLL1F13F14CC1K PRINT ROUTINE 3J1X((J),1);" ";(J2<I1MF((I),1);P3ZRM1(IX)K:CX1K:1070'RM1K3$CI1K9.P8 TRANSFER ROUTINEdBF11KR:1160lLL1uVA1R`B1RA1jC11tF14B1RA1:C11~KA1B1C1Y$(0)""I1XICF11Y$(0)Y$(0)Y$(1):IIA1:1210"$(J,1)X$(1)A$(J,2)930!zF0,15);RF21ĺ"DIAGONAL (L)";:F14:1040q"DIAGONAL(R)";:F13:1000xKIF20F21:7401070RICK1070IXRIXK:CX1K:1070RKCI1K1070IX1XM1F20I1X1)Y$(1)""1K1?F21KMG LIhK1KML1B(Y$(1)):850 LXY$(1)Y$(1)(B$(K),L,1)*LL14F21KK1:790>KK1H790RAB940\K1(BA1)fX$(1)(Y$(1),K,A)pX$(1)A XK1X bY$(1)""# lI1M@ vY$(1)Y$(1)(B$(I),K,1)G IV B(Y$(1))g I1(BA1)~ X$(1)(Y$(1),I,A) X$(1)A$(J,1)X$(1)A$(J,2)F0:15);"VERTICAL";:F12:970 I K  DIAGONAL SEARCH (RIGHT AND LEFT SLANT)XH? (Y/N)";A$# (A$,1)"Y"Ľ:10) N  SUB-ROUTINE FOR WORD SEARCH f  HORIZONTAL SEARCHq I1M K1(XA1) &Y$(1)(B$(I),K,A) 0Y$(1)A$(J,1)Y$(1)A$(J,2)F0:15);"HORIZONTAL";:F11:970 :K DI N VERTICAL SEARCH;(7) r1080 |WFWF1" J? "TOTAL WORDS FOUND=";WFf "DO YOU HAVE A PRINTER? (Y/N)";A${ (A$,1)"N"480 "ENTER SLOT OR DRIVER CALL ";A:A410:A7ČA:450 (4);"PR#";A (0); 1280 (4);"PR#0" "ANOTHER SEARC1))11+ A$(J,2)A$(J,2)(A$(J,1),I,1)2 I9 J? Y "NOW SEARCHING...":c 1430| " START WORD SEARCH ,J1N 6F1 @A$(J,1); JA(A$(J,1)) T510 ^F1ĺ"- NOT FOUND":390 h29);(B$(R),C,1);32);"(";R;",";C;")"B$(J) ZB$(J)""70! dMJ10 nX(B$(M))N x INPUT WORDS TO BE FOUNDT ~ "WORD(S) TO BE FOUND:(QUIT=[RET])": J0 JJ1 A$(J,1) A$(J,1)""160 NJ1 CREATE REVERSE IMAGES OF EACH WORD J1N I(A$(J, H PUZZLE SEARCH : LUIS HERNANDEZ CALL -A.P.P.L.E. : APRIL 1983 \(978)190140 A$(100,2),B$(100),C$(100),X$(1),Y$(1) INPUT PUZZLE ARRAY OF LETTERS(J02<"PUZZLE ARRAY (NO SPACES) : (QUIT=[RET])":FJJ1 P     t `Mb O[ VT EM g R<= g RBC g R0!PPQ015:"O M Y G":16:"U";:40:"E";H17:"N":18:"D":R:::10:" ";:17:" ";:25:" ";:33:" "Y" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" ": "A P P L E":2:"P U R I X"C*3:"P  = > B ::^ 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" " " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:"E .R FOR BRUN PROGRAMS  2::" CALL -APPLE ANTHOLOGY VOL 9B APR - JUN 1983 ":: I124:(I64)" "MENU$(I);:20 II1 MENU$(I)""I24:1085 (I64)" "MENU$(I) $MENU$(I1)""I24:1085 0MENU$(5)"SEARCH A FILE"= DMENU$(6)"TEXTFILE SCRAMBLER"Y NMENU$(7)"RAMTEXT DEMO"x XMENU$(8)"TRIG FN DEFINER" bMENU$(9)"MAGFILER" vMENU$(11)"SPELLING CORRECTOR" MENU$(12)"SAMPLE MEMORY MOVE" USE SUFFIX .L FOR BLOAD PROGRAMS; USADING "FILE$:BL260& D$"RUN"FILE$B BL0:I11000:::110t A$" CTRL-C_EXITS SELECT_BY_LETTER" MENU$(25) MENU$(1)"BLOCK GRAPHICS DEMO" MENU$(2)"ANAGRAM HELPER" MENU$(3)"PUZZLE SEARCH" &MENU$(4)"FETCH THE DOW"(A$)120 190:1501 X(16384):X127ı] :16368,0:KEYX192:KEY24KEY1180r FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"LO  Cd " M E N U " BY VAL J GOLDING - 2.80 Vi2000:::500nn1000:D$(13)(4)xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::L    ] ޠȱ" {ݥ ߄ lݠȱHȱh S \ۤ`