' +JJJJ ?\>m0M='+l> /+l   dg]v@uLf]vuu]vLFeu f bL}bBBuLf]v X  `v wwwwwwwwwwwJJJJx wwL L]w8wwwwwwww wwvi w w8vw w`ww wwwwww`x }(`(8`uwwuIw`B` wv`ww`>J>|J>|{VU|)?|`8'x0||&HhHh x x x xV|Y{)z'&Y{)zx{ꪽ)z' x x x x x`Hh`V0{^|*^|*>&` aI꽌ɪVɭ&Yz&|&Yz&{z 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 yz z' yz z& zx)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   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 | |݌ | | |A |D |? |AEDE?HJ>h | | | |`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VD{{P ~(ED Z~ $0x8x Dy- xDD# H8`?E V|k *xf???0xE   Hh Dy#-EEE8` Dy xx Dy - xx8`-0ݩ?ʥD EEE`   LDwcjpjqj` [gj` ~ns cs Ls\^^ujj`j]u^_"_._Q_`_p_Nedcddbbpbtbbeeeebbbme2bˆʎuuL d ]u ]uuuuu faju`ju` bLfu_jbjJLeujjLze`jj d _ QhlX]J̥KlV] d _ QhlV] eօ3L e3L &eRjL_ &eQjL_ dg bL4e Ngej)nju u f`@-ejfjfj ]u bLc bufj`L e.j ` jtjQjLd eLfjL]` bOjjPjjujj dg bLe Ngej)njojojnj f8ɍ` ^ff\juuuLf ^fNRj f bRjΩLf)\jZj ʽ L_Hjv 3h`0h8` b [gL_ f NgСuu fu`jAj@` kuL^vLvu`  \j j0 g\j g _ Qh ^f\jlZ]l^]?jcjqiH _cjh`fjuhjujju]u]u@OjAPj`uj@`@u&`QjRj`E gLsg g g @DAE@uj`8`]] %@ @A@`@`jj@jA`Mu ) bLf`8]@]AWjcj@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@cjh8&ȑ@Hȑ@Ah@LgHȑ@ȑ@j htphso`hMhL`9]Vj8Uj]8]97]Tj6Sj]6]7`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-X ( k Ϡ@wst~s!klWlol*mmll9lmnm~s~sllll~s~sllll~s_js jnu jHjH`Lcs (kLs kuuuuu q^s_j isJ QjL_sLsstts Drstuuutuuut 7p o w :osutututuututuuuusuL^ou-uIuuuu uu` o 4o r-u! o p8uuutut 7pLs (ku0+uBuCs r 7pLsu jHjH`LgsL{su0u jHjH` s luLs s q lH qhBLl p BH [q qh`Los su lLs s qB l qLlH phB@ uu [qLqss (kst) st 7pLs sLs (k puuLm (kstL{sstutttu 7p ^o* o sB0 HȱBh msuu m8 oLs8 ru` ku os /n /n s EwD Bn /n /n p]stS0Jt t) s tDtE Bn t  /n 0rLs Νs s`HD٤ssDEEhiHLGnh ` ouBu-` ouB-` k XpuIsss8s ssDH ot EpswttȌw Xpt0 w JwLsuBuC`,up` o Rp-uu`u0` Ko Rp-uu`uwuwuu` 4o Ko o( uuLoBȱBLou8` DrBHuBH :o wuBȭuBhhuu RpBumuuȱBumuu` oLRpuuwwuu`jwjwuLRp Ep(ss t8`tss Rp` EpssLRpjwjw`www uuuIwuwuwuwuwwjj wwuw`w Lsuuuuf ouuuuuuuu ^o`8uu i oBu8` 4qL quȱBu ouuuu ou`s DrsȑBuuBu o w uu`uuuuuuuuuu uuuu`uuu`uuBCuu`uuuu`Ls ouBuCsuu pQst0"Bt s` 0r۰ϬssBts8`si#`sЗLwsu!u0>uuuu`us osms s s7ssisu su8s osuЉLwsu`H ouh ruLo~ts uss`uuuuuuuuJumuumujnununuۭuumuuuumuumuu`"L u8uH ~n(s` d ֠z# ]ujXWV`S2S1500&:V2(37)2q0"MOVE TO WHICH SHAPES ON MASTER TABLE?":"STARTING AT? ";:40000:S3ZN:S30380{19582S4S3S2S1:V2:21:"ENDING AT: ";S4618:"PRESS 'RETURN' TO BEGIN MERGE, 'ESC'":"TO RE-ENTER DATA."3816368,0:1638HAPE? ";:40000:958:S3ZN:S4S3:S303804580"WHICH SHAPES TO MOVE FROM LOAD TABLE?":"(ENTER 0 IF DONE, 'S' FOR SINGLE MERGE)":V1(37)1:"FIRST SHAPE? ";:40000:S1ZN:S10380V1:21:"LAST SHAPE? ";:40000:S2ZN:S20380 !20000:$"H$ M2L1:MM0' 9:34,8:200003 MM520~ "MOVE WHICH SHAPE FROM LOAD TABLE":"TO WHICH SHAPE ON MASTER TABLE?" "(ENTER 0 TO END, 'M' TO DO MASS MERGE)" 13:"LOAD SHAPE? ";:40000:S1ZN:S2S1:S10380+20000:13:21:"MASTER SPES":"ARE TO BE TAKEN (PRESS 'RETURN'":"TO END) ?";N1$:958:N1$""880V FI$N1$q D$"BLOAD"FI$",A$2000" N1$FI$: N1(T2):L2V(T2N122) L0L1:L1L2:1020:L1L0 5:958 "LOAD TABLE "N1$ "MAX SHAPES="N1", LENGTH="L2"/0000:NUZN:NU1NU255240/ 16384,NU:6912b L8NU24:L9T1NU22:L9,D(L8):L91,C(L8)k ,160} @1020:34,0: T"MASTER TABLE ";N$ h"MAX SHAPES=";NU;", LENGTH=";L1;"/$";H$ rLN2:34,4:J |5:20000:"NAME OF TABLE FROM WHICH SHABLOAD"FI$",A$4000" N$FI$:= NU(T1):L1V(T1NU22)F 320 5:"ARE YOU ADDING ON TO AN EXISTING":868:"TABLE IN MEMORY? ";S$:S$(S$,1):S$"Y"160 S$"N"200 8:"MAXIMUM NUMBER OF SHAPES IN":"THE TABLE (1 - 255) ?";:868:4)X(X256)256- <T116384:T28192:D$(4)C P:D$"NOMONCIO":V Z216,0:50000 d"NAME OF EXISTING TABLE WHICH WILL":"CONTAIN NEW SHAPES (PRESS 'RETURN' TO" nLN1 x3:20000:"CREATE A NEW TABLE) ?";N$:958:N$""200 FI$N$ D$" PROGRAM: MERGE6 LAST UPDATE: 80/9/4< UCRAIG COPLEY 79/1/8[TO MODIFY PROGRAM: BSAVE TEMP,A$1B00,L$AF; MODIFY; BLOAD TEMP,A$1B00; POKE 175,178:POKE 176,27:(8192 2V(X)(X)(X1)256:C(X)(X256):D(X      PP`, ``EQEQEQEQEQEQEQEQ,` NPP`)P M`جŬϬŮYPZP[Ph\PYP`\PHYPZP[P(`h?h> =<H?H LHHH H ]P` P PLIɯϠҠǠŠҮPPQP QN`Š̠ŠҠ͠ĠȠҠԠ ϠҠҲҠŠƠԠԠ ŠԠԠΠˠŠРԠĠ͠ ŠΠĠРРΠŠ%<GQGQ<ɍԩ<<5N`}NJ~N}NN~NNPNPNN}NN~NN PN< PJ}N~NN멅 LN LLENNPmNPPmNPL`NJ ɍ LNNN}NN~NLEN L L`)mFQFQNM LCM PBMLINN N NFQ NcMcM)i N K`ΠҭǮŠˠӍȠӮMM !QM MM`< =<4Nrɍ褐6NB:N=7Nɺ4ɰ.e<<e==GQ`LIN@N K @ɕ`hoLhpL XLqDLDL PL MIMDLDLL LoLpLLH3$hL` LL`Lh LLhɍL`ǍǠƠō N8N_N L` NFQ mK N N N NBM ĠҠ̠ˠϠӮ@ɘ`iKjK P@Ƀ@@@ PjK PiK@LIмH wKhJJJJ) ɺi`FQ(K K ɂΝK` K/ N K%Ƀ NFQ mKKK K K`LLL QɃLLLTHE TABLE IN MEMORY) ?";N1$:N1$""9803FI$N1$SD$"BSAVE"FI$",A$4000,L$"H$_N1$FI$j22016w216,0:L9L1:H$""X9411$X8(L116(X91)):L1L1X816(X91):B1$("0123456789ABCDEF",X81,1)8B1$"0"H$""1120LH$C(L1)CRMMĢ19:958:"LOAD #"Q1" MOVED TO MASTER #"Q2".":500|\Q1:22:13:"MERGE COMPLETE.":35000:22:868:500p::1020"MASTER TABLE ";N$"MAX SHAPES="NU", LENGTH="L1"/$"H$'"NAME TO SAVE (PRESS 'RETURN' TO LEAVE":868:"OVE SHAPE L1L1V(4)+L15632820 19:(7)"THERE IS NOT ROOM ON THE MASTER TABLE":"FOR SHAPE "Q1" FROM THE LOAD TABLE."%L1F2:T1Q22,0:T1Q221,0:35000:50041020:2:21((NU)):L1"/$"H$:16HL9T1NU22:L9,D(L1):L91,^"TABLE "Q2" ON MASTER TABLE ALREADY":"EXISTS. MERGE STOPPED AT THIS POINT.":35000:500L9Q22T1:L9,D(L1):L91,C(L1):F2L10,D(T2F1):1,C(T2F1):2,D(F2T1):3,C(F2T1)0-1 ARE STARTING ADDR, 2-3 ARE TARGET ADDR 6915:MMĺ"TABLE "Q1" ON LOAD TABLE DOES":"NOT EXIST.":35000:500"TABLE "Q1" ON LOAD TABLE DOES NOT":"EXIST. MERGE STOPPED AT THIS POINT.":35000:500F20Q2NU70019:(7);:MMĺ"TABLE "Q2" ON MASTER TABLE":"ALREADY EXISTS.":35000:5004,128:ZZ(16384)128:16368,0:ZZ27ZZ13568B:ZZ27500P<18:958jDQ1S1S2:Q2S3Q1S1xN19:958PMM600R17:958S"LOAD #"Q1" TO MASTER #"Q2"."XF1V(T2Q12):F2V(T1Q22)lF10Q1N1660<v19:(7);:M3,240,209T234,133,0,104,96,108,3,3,169,141,32,169,3,169,0,141,2,3,240,209D32,169,3,169,0,141,2,3,240,2092,3,197,00,104,176,3,72,169160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 0,173,2,3,240,9,205,1,3,144,6,176,9,234,234,133,0,104,96,108,3,3,169,141,32,169,3,169,0,141,2,53,120,7,169,17,153,2487,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173231,3,233,110,1 33,42,173,232,3,233,0,133,43,16 9,99,145,42,200,169,3,145,42,104,168,96,72,72,173,818,82 @O823,L1:797,F1& AO:775@ BOZ5$"Y"ĺ(4)"IN#2"M DO33,33:k 0uUSER WRITTEN SUBROUTINESq ? HPRINTER ROUTINE R-PRINTERz76,5,3,2,255,255,255,255,24,176,56,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,1O APPEAR ON": PRINT : PRINT "YOUR SCREEN ALSO";z OINPUTV$:V$ = LEFT$ (V$,1): IF V$ < > "Y" AND V$ < > "N" THEN 20234 OF1127:IFV$= "N" THEN F1 = 255 $O .OZ$:Z$"-PRINTER"20270 8OZ0186:Z1:765Z,Z1: =OZN$"30"20288 >O802,82:M O15:"HOW MANY CHARACTERS LONG MAY LINES"::"AT YOUR PRINTER BE";:868s OL1$:L1(L1$):L11L113220230 OIF YOU WANT THE NEXT QUESTION TO APPEAR THEN TAKE THE REMS OUT OF THE NEXT 3 LINES./ OHOME: VTAB 10: PRINT "DO YOU WANT THE OUTPUT T THE APPLE";:Z$4 (Z$,1)"Y"(Z$,1)"N"1000D Z5$(Z$,1) NROUTINE TO POKE PRINTER ROUTINE TO CORE (30 CPS/71 CHAR) N:5:"TURN YOUR PRINTER ON AT THIS TIME." N10 N"WHICH SPEED (10 OR 30 CPS)"; NZN$:ZN$"10"ZN$"30"20210#0" D$;"NOMON I,C,O"4 START OF MAIN PROGRAM :3:18:"LIST":10:"THIS PROGRAM WILL PREPARE YOUR HARD COPY ":"PRINTER FOR USE WITH THE APPLE." 16 "DO YOU WANT TO USE THE KEYBOARD ON"::"YOUR PRINTER INSTEAD OF THE KEYBOARD"::"ON  LIST'LAST UPDATE: 12/20/80@dCOPYRIGHT 1979 MECCenNAME: PRINTER VERSION 10/18/79xAUTHOR: APPLE AND MECC STAFFLANGUAGE: APPLESOFT (FP)ASSOCIATED FILES:NONEINITIALIZATION:::255D$(4) D$"PR     2)255ĺ"**TO LEAVE EDITOR TYPE "(34);"Q";(34);"**":50F#"**ERROR # ";(222);" OCCURED AT LINE # ";(218)(219)256;" IN PROGRAM**":D$:10000# NO DELIMITER INPUT#A$""#Z3$:Z3$;:Z3$(13)ı#Z3$(8)9220$L01A$"":9210#(222)6ĺ"**FILE NOT ON DISK, CHECK NAME USED**":30}9#(222)4ĺ"**REMOVE WRITE PROTECT ON DISKETTE FOR EDITING**":30:#(222)9ĺ"**DISK IS FULL, EDITING ABORTED**":10140;#(222)10ĺ"**FILE MUST BE UNLOCKED FOR EDITING**":101409<#(22 II14330(P7((A$,I,1))7&IIP1(P7)A04270[ID$;"READ ";N$;",R";PmN1:PP1:D$;wX4240bD$:A$:PP1:50(# ERROR TRAPPING2#7684#(222)5ġ7#(222)5ĺ"**BOTTOM AT LINE ";P;" (RECORD #";P1;")**":89978|P0(P9)9999% START OF SEARCH2S1(A$);IL1KIS1ī4425d((A$,I,1))04425xC1((A$,I,1))IIP0(C1)IS1ī4270I9999ī4425I(I9999)1JL11J0ī4450(A$,I,1)(A1$,J,1)4380JJ1A1$(C$,3,I3):4070I0"FORMAT ERROR"850RD$;"READ ";N$;",R";P\PP1h1:D$;vL1(A1$) BUILD TABLESI095"P1(I)L1:P0(I)P1(I)6I@I1L1JP9((A1$,I,1))TP1(P9)L1I^P0(P9)P1(P9)hI9)E I1ī3143)F A3$(A$,1,I1)A3$@G (A3$)L1ī3148NH X6(A3$)cL A3$(A3$,1,L1)~P D$;"WRITE ";N$;",R";PQ A3$R G11A$A3$:3100U D$v 50 FAST STRING LOCATE9000D1$(C$,2,1)I399:(C$,I,1)D1$AT ERROR" 50 L1(A1$)- L2(A2$)7 3125K I1(A$)L11e& (A$,I,L1)A1$ī3136l0 I5 D$;"READ ";N$;",R";P:1: PP1:D$;? 3100@ PP1:P1P0A X8L1IB X9L(X81)C X90A3$A2$:3141D A3$A2$(A$,X8,XLLLB @@@ 9 9ii8@ȑL` Y\YZ\])Y\L``]Vа3RROR #"ER" HAS OCCURRED":"IN LINE #"V(218)".":34,0:BDŰ35000XNŢ16:958:50000^XŦhbʼn::0000iXŦsbʼn::T1T2DNSZVPZHZZNNUL8L9LLB @@@ 9 9iLUNLOCK"FI$:50510ë50045XíER13ĺ"FILE TYPE MISMATCH. USE ANOTHER NAME.":50045íER11ĺ"ILLEGAL FILE NAME - USE SOMETHING ELSE.":50045íER25550530ú"SOMETHING STRANGE IS OCCURING AND I":"AM UNABLE TO CONTINUE. SORRY."7â21:"EN.":50000}ôLN120,380qíER9ĺ"DISK FULL. PLEASE INSERT ANOTHER"::"DISK TO SAVE YOUR FILE ON.":50500íER1050070â16:"FILE LOCKED. SHOULD I":868:"OVERRIDE LOCK (YES OR NO) ?";Y$:Y$(Y$,1):Y$"Y"Y$"N"50061íY$"Y"ĺD$"^ZN$"S"MMMM0::500AhZN(ZN)ZN0(ZN)ZN$40010GrTPò ERRORSiZER(222):216,0}dâ16:958:(7)níER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM YOUR DISKETTE":50500xíER650050 zú"FILE NOT FOUND. TRY AGAIH$B1$ `tL1L9:3 N35,16:958:35,24:~24:868:16368,0:6:"PRESS '";::"SPACE BAR";::"' TO CONTINUE";ˆ16384,128:16368,0:1:868:@ZV(37)1:ZH(36)1JZV:ZH:868:"";ZN$:ZN(ZN$)TZN$"M"(MM)MM1::500I P54,0:55,3 Z1002I"CATALOG"7 ::10:"THIS PROGRAM FINDS CONTROL CHARACTERS"X"IN CATALOG FILE NAMES."^{ 201,141,240,21,201,136 240,17,201,128,144,13 201,160,176,9,72,132( 53,56,233,64,76,2492 253,76,240,253<I76876827 FV:I,V: .SCR":A$ IP13003$ 3157< (C$,1,1)"G"G11N D1$(C$,2,1) I3(C$):(C$,I,1)D1$A1$(C$,3,I3):3040 I JI1(C$):(C$,J,1)D1$A2$(C$,I1,JI1):3090 J "FORMAT ERROR" 50 L1(A1$) L2(A202:"/ = ANY DELIMITER - = OPTIONAL NUMBER":50O CHANGE STRING \ TC0:I0 D$;"OPEN EDIT.SCR";LL$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$:D$;"WRITE EDIT.SCR";RR$:D$:3005 D$;"READ ";N$:1:D$;:II1:PCTC  D$;"WRITE EDIT3);"T""WHERE";23);"W"3"BOTTOM";23);"B"N"DELETE";21);"D, D-"h"LOCATE";21);"L/ /""CHANGE";21);"C/ / /""GCHANGE";21);"G/ / /""HELP";23);"H""JUMP (FOR RANDOM)";23);"J""END (FOR TEXT)";23);"E":32,ٍ # NO D TED**":10000;#(222)10ĺ"**FILE MUST BE UNLOCKED FOR EDITING**":10000$<#(222)255ĺ"**TO LEAVE EDITOR TYPE "(34);"Q";(34);"**",=#50F#"**ERROR # ";(222);" OCCURED AT LINE # ";(218)(219)256;" IN PROGRAM**":768:D$:10000 MOORE, CASM, VOL. 10, PP. 762-772-#7687#(222)5ĺ"**BOTTOM** AT LINE ";P:50*8#(222)6ĺ"**FILE NOT ON DISK, CHECK NAME USED**":30l9#(222)4ĺ"**REMOVE WRITE PROTECT ON DISK FOR EDITING**":30:#(222)9ĺ"**DISK IS FULL, EDITING ABOR$A$(A$,L01):L0L01:9210;$A$A$Z3$:L0(A$):9210lH&I15:(C$,1I,1)" "Z$(C$,2,I1):9815sR&IW&Z1(Z$):'': THE LOCATE ALG. WAS TAKEN FROM "A FAST STRING SEARCHING ALGORITHM"": BY ROBERT S. BOYER AND J. STROTHERo?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~{m7_}v{zsl?_ow{?~>{o7owo{~?o~ox_8onV;W[]_]nw_ox?|gDLL          ` x x `%f``DDDif`DL1@t XSL@ ,(" "(PR),7):H1 D L1@ XSL@DRTTIFR&L ` `      ECTORS :";:PRFR:300C "FREE CHARACTERS :";:PRPR256:300:k "USED SECTORS :";:PRTTFR:300 "USED CHARACTERS :";:PRPR256:300: "PERCENT OF TOTAL SECTORS FREE: "(FRTT100.5) ::"NOTE: 64 SECTORS ARE DOS OVERHEAD." 09 720,SL:721,DR:L1:(726)0ĺ"I/O ERROR:"(726):@ 3 "SLOT:"SL" DRIVE:"DR::"DOS VERSION 3."(724):"DISK VOLUME #"(725): "TOTAL SECTORS :";:TTV(722):PRTT:300 "TOTAL CHARACTERS:";:PRPR256:300: FRV(720):"FREE S,2,I1):9815"R&I#"W&Z1(Z$):F"'2049,0:2050,0:D$;"EXEC ";N$L"'":THE LOCATE ALG. WAS TAKEN FROM "A FAST STRING SEARCHING ALGORITHM"":BY ROBERT S. BOYER AND J. STROTHER MOORE, CASM, VOL. 10, PP. 762-772EAT LINE # ";(218)(219)256;"IN PROGRAM**":D$:9999O!#NO DELIMITER INPUT Y!#A$""u!#Z3$:Z3$;:Z3$(13)ı!#Z3$(8)9220!$L01A$"":9210!$A$(A$,L01):L0L01:9210!$A$A$Z3$:L0(A$):9210 "H&I15:(C$,1I,1)" "Z$(C$VE WRITE PROTECT ON DISKETTE FOR EDITING**":30i :#(222)9ĺ"**DISK IS FULL, EDITING ABORTED**":10000 ;#(222)10ĺ"**FILE MUST BE UNLOCKED FOR EDITING**":10000 <#(222)255ĺ"**TO LEAVE EDITOR TYPE 'Q'**":506!F#"**ERROR # ";(222);" OCCURED :X8LCNPP1X42405bD$;"READ ";N$;",B";PC?lTCPCGqA$SvD$:50h(#ERROR TRAPPING }2#768:(222)5ġ7#(222)5ĺ"**BOTTOM AT LINE ";P1;"**":8978#(222)6ĺ"**FILE NOT ON DISK, CHECK NAME USED**":30/ 9#(222)4ĺ"**REMO)04425C1((A$,I,1))+IIP0(C1)<IS1ī4270OI9999ī4425`I(I9999)1kJL11J0ĺD$;:4450(A$,I,1)(A1$,J,1)4380JJ1II14330P7((A$,I,1))&IIP1(P7)04270I1JPCTCLC195"P1(I)L1,P0(I)P1(I)&6I2@I1L1GJP9((A1$,I,1))WTP1(P9)L1Ii^P0(P9)P1(P9)phI|P0(P9)9999:4240D$;"READ ";N$:1PCTCLC1D$;START OF SEARCHS1(A$)IL1IS1ī4425((A$,I,1)PC ] TCPCb D$l PP1& 50?FAST STRING LOCATE J9000\D1$(C$,2,1)I348:(C$,I,1)D1$A1$(C$,3,I3):4070I"FORMAT ERROR"50D$;"READ ";N$:1PCTCLC1L1(A1$)BUILD TABLES I0$(A$,1,I1)A3$(O G11A$A3$:3100AP D$;"WRITE EDIT.SCR"JQ A3$UR 3157pS D$;"READ ";N$:1:D$;T D$;"WRITE EDIT.SCR":A$:3155U 768::9000V D$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$X D$;"OPEN ";N$;LL$:D$;"READ ";N$;",B";$)  3125  I1(A$)L119& (A$,I,L1)A1$3137@0 I]3 D$;"WRITE EDIT.SCR":A$x5 D$;"READ ";N$:1:D$;7 PCTCLC1: PP1? 3100A X8L1IB X9(A$)(X81)C X90A3$A2$:3141D A3$A2$(A$,X8,X9)E I13151F A3:868:"CATALOG. TRY AGAIN.":20Y 10:868:11:868:(4);"CLOSE":216,0:B$""20a 30 10:868:"THERE IS A TEXT FILE CALLED ";B$:11:868:"ON YOUR CATALOG. TRY AGAIN." (4);"CLOSE ";B$:20A10:868:A$;" IS A BINARY FILE.":11:868:"TRY AGAIN.":13T 216,0:A$""13\ 20 10:868:"THERE IS A TEXT FILE CALLED ";A$:11:868:"ON YOUR CATALOG. TRY AGAIN." (4);"CLOSE ";A$:13" 10:868:B$;" ALREADY EXISTS ON THE ":11PRINT ";(34);"DONE.";(34)8 i"DELETE SCR.FILE.1":D$R nD$;"EXEC SCR.FILE.1"X x 10:868:A$;" DOES NOT EXIST.":11:868::"TRY AGAIN." (4);"DELETE";A$:13 X10:868:11:868:(4);"CLOSE" Y216,0:650 Z(4);"BLOAD";A$? [" 2D$;"WRITE SCR.FILE.1"' <"NEW"7 F"LOAD ";A$C H"HOME" P"0PRINTCHR$(4);";(34);"OPEN ";B$;(34);":PRINTCHR$(4);";(34);"WRITE ";B$;(34) Q"1LIST2,63999:PRINT CHR$(4);";(34);"CLOSE";(34);":END" Z"RUN" d"NEW" e"PR#0" h"216,0:500 A1$ 700I B$"":7:"TEXT FILE NAME";:868:B$Z 216,0:800o (4);"OPEN ";B$ (4);"READ";B$ 216,0:900 A1$ 1000 D$(4) D$;"NOMON C,I,O": #"ONE MOMENT PLEASE..." (D$;"OPEN SCR.FILE.1 PROGRAM:FILE5 CRAIG COPLEY : 1/25/79 @255:p :::"THIS PROGRAM WILL CHANGE A PROGRAM" "TO A TEXT FILE.":: A$"":5:"WHAT IS YOUR PROGRAM NAME ";:868:A$216,0:600(4);"OPEN ";A$(4);"READ ";A$      wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qqqvv``qcwqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q>_ow?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~{m7_}w;w*+m?_ow?|>{o7ow[n{~?owxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xG>_ow?gS,`٠S KLSMSLFMT KS KS KSS K RSLSMLKԍĠHS0Sh`h RLJ0.T0.Th`h {SLzK4RRRhRR`RHRRR(`h?h> =<H?H LHHH H R` S /SLzKɯϠҠǠŠҮ:S9S[S/S [S  9S:S`, ``SΐSSΐSSΐSSҠԠ ϠҠҲҠŠƠԠԠ ŠԠԠΠˠŠРԠĠ͠ ŠΠĠРРΠŠ HQaRbR`tR O`جŬЬŮPTPPQPQHaRQbR2QQPQP2Q `R0Q< `R͹TPP0Q멅 N2Q NLP0QaRm0QaRbRm1QbRLPT ɍ NQQQPQPLP N N`T)mTT4Q5Q`Š̠ŠҠ͠ĠȠi 3Q L`ΠҭǮŠˠӍȠӮOO lSO OO`}< =<Prɍ褐́PBͅP=Pɺ4ɰ.e<<e==T%<ݙTT<ɍԩ<<ᭀP`Q84Q铭5QT O`H O O^h Oc O7 O O, O$ O O O O O O O Oi O O O Oh Oɍ O O OOTO P` TOO` 3QT -M 3Q 3Q 3Q 3QOT O MO /S΍OLzK4QT5Q 3Q 3QT 3QOO) M`MMM \SɃMMM`LzK4Q5Q ^M ɕ`h/Nh0N XiN1JNJjN /S`N K JNJiNL ?N/N0NLH3$hiN`} @NAN`Nh ?NLhɍN`ǍǠƠō 3čƠǠӠĬȠҠϠƍĠҠ̠ˠϠӮɘ`)M*M /SɃ /S*M /S)MLzKмH 7MhJJJJ) ɺi`T(]M M ɂ]M` BM/ 3Q M%Ƀ 3QT -MMM MSK / bKL͠ӠǠٍ8KFLܠK K΍$( 3Q(! O XL /S L)L /S RLKǠōϠĠҠ͍ԠˠǠĠ͍ĠźΠif&i'`H h('i,&i,&iPII&if&H8HӰ hIiHӅхhЅhIi҄f8Ъх 8e҅ԥձ&E%0Q&&Ӱ eЅԥeP`ŴxaI1h`H L I) hHjH!jhJJJJ)`hh   `H!"(h`H)&JJ&&h' &' &' f&')'#i媽0J1` 2Q&%0Q&&`,H h(0JI0`'0 I`H h(0 I0ԩ(נ08H h(',"&,i8i#H&ii&h R b M н R $ ͸x !" #$  %*  %   %jjj Lc L ɟO  R Hhhhh :`!"/"j!jmmԠŮ@@Ҡή@̠ŠЬάԬԮ̭Šή@@ŠůŭҠͮ@@נĠŠΠήРΠŮ@@ĠŮӠ@a҃o̝aoIOU[AD LARGE CHARACTERS"44R(1)0ĺD$"BLOAD LIST "SI$@D$(4)QZZ1232050$:10:" AFTER THIS PROGRAM ENDS, YOU MAY":"ACCESS YOUR PROGRAM BY TYPING:":14:16:"LOAD ";NA$ WRITE CONTROL FILE.D$"OPEN SCR.FILE":D$"WRITE SCR.FILE"RACTERS"::"WHICH SIZE>";Q1$CQ1(Q1$):Q11Q12Q134510J hR(11)0ĺD$"BLOAD INPUT" R(12)0ĺD$"BLOAD PRINT"R(12)0Q11ĺD$"BLOAD SMALL CHARACTERS" R(12)0Q12ĺD$"BLOAD MEDIUM CHARACTERS"*R(12)0Q13ĺD$"BLOS YOU WANTED>";A$:A$(A$,1):A$"N"A$"Y"4460KA$"N"ZB$"":4180R(5)14600:IF WE DIDN'T SELECT HGR CHARACTERS(R(5)1)(R5)4600:8:"DO YOU WANT:"::" 1) SMALL CHARACTERS"::" 2) MEDIUM CHARACTERS"::" 3) LARGE CHA4200X:(R(11)R(1))(978)93Ģ24:(7)"NOT ENOUGH MEMORY FOR BOTH 1 AND 11.";:4200DW0::2:"YOUR PROGRAM WILL CONTAIN THE FOLLOWING":"ROUTINES:":X11X:R(X1)0Ė15:R$(X1):WW1XbR(8)0R(7)02l5W:868:"ARE THESE THE ROUTINE|Y1:K$"":Y$ZB$:Z004200/Y(Y$)4400_(Y$,Y,1)","K$K$(Y$,Y,1):YY1:4240K(K$):K(K)K0KXR(K)0:YY1:K$"":42400K(K$):K(K)K0KXR(K)05(R(5)R(12))Ģ24:(7)"ROUTINES 5 AND 12 ARE NOT COMPATIBLE.";:OP07:10:"WHAT IS THE AUTHOR'S NAME":">";AU$r,:10:"WHAT IS TODAY'S DATE(MONTH/DAY/YEAR)":">";VS$}T31000h21:1:ZB$"":"WHICH ROUTINES DO YOU WANT? (ENTER":"NUMBERS SEPARATED BY COMMAS)";:868:20700r958:I1X:R(I)1:QT$B$QT$ "RUN"" "DEL1,99"6 "TEXT":"HOME"O "?"(34)"DONE"(34)c D$:D$;"CLOSE"{ D$;"EXEC SCR.FILE" CREATE STARTER SHELL PROGRAM.:10:"WHAT NAME DO YOU WANT TO CALL":"YOUR PROGRAM>";NA$:(NA$)0(NA$)3041009ĺ"DEL100,21199":"DEL21281,63000":"21220"f R10ĺ"DEL100,159":"DEL171,39999":"DEL40100,63000" R11ĺ"DEL100,299":"DEL311,63000" R12ĺ"DEL100,319":"DEL321,63000" R13ĺ"DEL100,22399":"DEL22431,63000" "91?"QT$B$QT$ "93?"20499":"DEL20531,63000":"20510"L R4ĺ"DEL100,20699":"DEL20761,63000"w R5ĺ"DEL100,21999":"DEL22331,63000" R6ĺ"DEL100,20799":"DEL20881,63000" R7ĺ"DEL100,20899":"DEL20961,63000" R8ĺ"DEL100,20899":"DEL21181,63000", R CONTROL FILE. 24:34,23H D$"OPEN SCR.FILE":D$"WRITE SCR.FILE"[ "HIMEM:10000" "LOAD STARTER-P":"DEL100,150":5028 R1ĺ"DEL100,20199":"DEL20300,63000" R2ĺ"DEL100,20099":"DEL20131,61999":"DEL62131,63000"! R3ĺ"DEL100,(7 6LHɃ,Ƀ,hLC ! COUNT FREE SECTORS ON DISK;CRAIG COPLEY 6/21/79A_(ATTACHED BIN: A$C00,L$9De2:dD$(4):D$"NOMONICO"::L13072:V(X)(X)(X1)256 "SLOT #,DRIVE #:";SL,DR::SL1SL7DR1DR2ĺ"INPUT MUST BE SLOT (1-7), DRIVE(1-2)":13    IST 32K,A"ZE+;OZE3,ZH:ZE4,ZA:ZE5,ZVF>`PQRSU T RiΰRPQm H`& 'JJ) e ʥ0)Je`  LJ@0`PO0@ OP` JLZ*+*++8 ``*U.*m@m  ii@``@L@@@jeejh ) &   Hhhhhhh m I LS `)(%01&%0)&E%0Q&&e)jLLJJJJӊ)IȄҤѢԆզ8eЅԐ re҅Ր sJJJ`& ')*"A$"' IS NOT A":"BINARY FILE.":5140mFLE65535Ģ12:958:(7)"I AM UNABLE TO READ THIS DISKETTE.":5140P(LEAD)Ģ12:958:(7)"'"A$"' IS NOT ON":"THIS DISKETTE.":5140ZSL)SL1SL75110T3:23:868:"DRIVE? ";DR$:DR(DR$):DR$"1"DR$"2"5120^ 9586:868:"BINARY FILE NAME = ";A$:958:A$""Ģ23:22016:958(0,SL:1,DR:163842ADV(V(4)):LEV(V(4)2)%<AD65535Ģ12:958:(7)"': BINARY FILE INFO, LAST UPDATE: 80/9/72 P USES: BINFO,A$4000,L$240V  AUTHOR: TODD BAILEY 80/9/7 : V(X)(X)256(X1) :(4)"BLOAD BINFO,A$4000"3:868:"SLOT? ";SL$:SL(SL$):(SL)SL$SL(IN.FILE" X "FP"9 b "10 REM CREATES BINARY FILE: ";C$G l "20 REM" v "100 FOR X=0 TO ";L11;" : READ D1 : POKE ";S1;"+X,D1 : NEXT" "120 PRINT CHR$(4);";(34);"BSAVE ";C$;",A";S1;",L";L1;(34) "130 END" A$""400 390 PROGRAMA1$:(4);"CLOSE";"B$"] 8 12:868:B$;" IS ALREADY SAVED. TRY AGAIN.":(4);"CLOSE":3120 9 12:868:216,0:(4);"DELETE";B$ : "NAME OF BINARY FOR ";B$:"TO MAKE = ";:"";C$ > C$""3130 ? D$"CLOSE" D D$;"OPEN BIN.FILE" N D$;"WRITE BEY 11/15/78 :3 D$(4)::D$;"NOMON C,I,O":P 12:"BINARY FILE TO FP"Z 5000j S1AD:L1LE 0 B$"":10:868:"APPLESOFT PROGRAM NAME = ";B$ 1 B$""3121 2 216,0:3128 3 (4);"OPEN";B$ 4 (4);"READ";B$ 5 216,0:3129 6 X1):A$A$(Z1):A$:XX1:LILI10:A$(LI)" DATA "< XN A$A$"0":A$^ "SAVE ";B$u "DELETE BIN.FILE" D$;"CLOSE"  D$;"EXEC BIN.FILE"  :::(4)"MAXFILES3":20992 BINARY FILE TO DATA STATMENTS CRAIG COPLBINARY FILE TO FP4LAST UPDATE: 12/20/80>,3000^D$;"BLOAD ";A$;",A$4000":~10:"ONE MOMENT PLEASE..."D$;"WRITE BIN.FILE"XLI1000:A$"1000 DATA "bX0L11lZ1(S1X):A$A$(Z1)","v(A$)1306505 Z1(S1   yxA?ooo}={{^o^k|sg~np{p{~`{{aqj``s`sqpwxO8oJV[_{]n]vox?>pp}xO]_ow?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~{o>_6`>{m?{{?]{o}_ow[g~owgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nnfvvwwn~w?~oxp67\_{]qcfoxG?G|}xk_ow?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{ <`|?c>{o~_ow[k~owwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}>x?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~{m7_}w[o6[m?_w?y>x`ow[m|?@HIS DISKETTE.":160< 12:"ADDRESS: "AD;23);"LENGTH: "LEl 15:"TO MOVE THIS BINARY TO ANOTHER DISK,"} 16:"TYPE:" 18:" BLOAD "N$",A"AD "(INSERT OTHER DISKETTE)" " BSAVE "N$",A"AD",L"LE 160 958! 0,SL:1,DR:16384A ADV(V(4)):LEV(V(4)2) AD65535Ģ12:958:(7)"'"N$"' IS NOT A":"BINARY FILE.":160 LE65535Ģ12:958:(7)"I AM UNABLE TO READ THIS DISKETTE.":160 (LEAD)Ģ12:958:(7)"'"N$"' IS NOT ON":"TNARY FILE INFORMATION"_ 6:868:"SLOT? ";SL$:SL(SL$):(SL)SL$SL(SL)SL1SL7130 6:23:868:"DRIVE? ";DR$:DR(DR$):DR$"1"DR$"2"140 958 8:"NAME OF BINARY FILE (PRESS RETURN":868:"TO END) ?";N$:N$""Ģ23:22016:  PROGRAM: BINARY FILE INFO;LAST UPDATE: 80/9/11A_(USES: BINFO,A$4000,L$240e2<AUTHOR: TODD BAILEY 80/9/7 F:PV(X)(X)256(X1)Z16384d:::255n:(4)"BLOAD BINFO,A$4000" x3:9:"BI  N HGR SCREEN9^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:UhV INPUTS ON HGR SCREENirVZA$"":ZXZXZW|V16368,0:Z$:(Z$)13ıV(Z$)8ZXZW(ZU1)ZA26722140VZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140M VZTZY(ZA1)8ZH!,V(16384)128İ22080:22050]6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:@VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:EV CLEARS ANY SPOT ON HGR SCREENJV0:ZZTZB:ZL,ZZR,Z:Z:3: TV UNDERSCORES O304,0:3:1:0:!U16301,ZF:aV16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230V22080:ZX276ZW8:ZT$"TO GO ON":22230VZ1(ZS1)84:(16384)12722070VZ"VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:2209016384):ZC141ZC160212707S(ZWZM)121255,21253S16368,0:7::" ";:1:21::ZV1:ZH1S251,ZZ SU232,0:233,64:230,32UD$;"BLOAD SMALL CHARACTERS":ZH7:ZW5:ZH1U62450:16297,0:16302,0:16 ^CONTINUE";:ZMZM35.156:251,1:21240wR24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:ZMZM35.156RZC(16384):ZC141ZC16021270SZWZW1:ZWZM21240SZM25S:ZFĝSZW0:13:"SPACE BAR";:ZFZFSZWZW1:ZC(0R(1023)123ĀA:R10:"GETTING THE MENU...":(4)"RUN HELLO"jR DELAYED FLASHING SPACE BAR ROUTINERZW0:ZMZS:ZF0:ZS0ZM15RZH(36):ZV(37):ZZ1200:ZZ'RZZ(251):24:7:16368,0:"^PRESS ";:251,1::"SPACE BAR";::251,0:" ^TO20960:209154QZM:868:ZV1(ZV23):ZN(ZN$):MQZV1:36,ZH:868:fRMENU-END OF PROGRAMR:::(4)"PR#0":(4)"IN#0"R10:"WOULD YOU LIKE TO TRY"::868:"AGAIN (YES OR NO) ?";Z$:Z$(Z$,1):Z$"Y"Z$"N"21020&R:Z$"Y"ĬZE2(ZD$)20880"QZD$ZD$"0"(Q?QNUMERIC VALIDATORhQZH(36):ZV(37):ZM0ZM24ZM24rQ"?";Q"";ZN$:ZN$""İ20960:20915Q(ZN$)(((ZN$)))20940Q(ZN$)0ZN$"0"20950 QZM:"THAT IS NOT A NUMBER - TRY AGAIN";:20714 PZA$;:ZA$(13)20750KPZB$ZB$ZA$:ZO(ZB$):ZVZV.75:20714YQZO(ZB$)qQZC(ZV1.75)17.675wQ@QFORMATTED DOLLARSJQZD(ZD100.5)100:ZD$(ZD)TQZE1(ZD$)^Q(ZD$,ZE,1)"."20860hQrQZD$ZD$".00":20880|Q16368,0:" "ZC$;:ZH1:20718BPZZZVZZZC256:" "ZC$:20760\PZW7ZVZV.5:20711nPZVZV1:ZHĞP" "ZC$;::20710PZA$(21)20712PZA$(8)20725PZO1ZVZV1.15:20711PZC$" "ZC$;:ZVZV1PZOZO1:ZB$(ZB$,1,ZO):520H2P16368,0:7:" ";:21::ZV1:ZH1:`PLINE INPUT ROUTINEPZB$"":ZC$(8):ZO0:ZV0:ZH1PZZZT17.675:ZZ0ZZ0P"?";P16368,0:20714PZW0:ZHZHPZWZW1:(16384)128ZA$((16384)128):E-BAR ROUTINE1PZH(36):ZV(37):ZZ1200:ZZFP24:7:16368,0PZZ(251):251,0:"^PRESS ";::251,1:"SPACE BAR";::251,0:" ^TO ^CONTINUE";:251,ZZ:20520#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC16020E 'ZJ' IN SLOT 'ZG'%.O:2021228OZE21632<9O10:Y:O(4)"BLOADLIST 32K,A"ZEx;OZE3,ZH:ZE4,ZA:ZE5,ZVH HH H R, J I ~J I I I~ }  LO L L/QLӠŠԠԠŠ͠ҍϠՠԠŠōϠŠĠCI /ST /S]I /S3 jJ3TʽTɍTTɃLzK 3Q P OLH XyI /S`ԠŠϠՠԠ""ϠŠĠҠΠ jJ3ɃLzKɍ TT O T /SfH /SLaGHH /S3 jJ3Ƀ+'H  H /SLzKLI`ԠӠŠŠƠŠͯōՠȠϠԠĠΠōLJ ]O lR HJSJLSŠčΠĠ XՠF /S Ƀ XLzK`ŠŠҠӠԠϠ̠خԠˠǠŠͯōՠȠϠĮӠΠϠ-H /SJJJJ3[H HH H RI |  $ ݂ | `| i#׭ ́ H HH H Rh /SLzKŠԠč KLNK R /3J bK F M aGc lR ]O HJKJLKF /ST /SF /SF /ST /SF /SNKOJJH HH H Rɮ ͂ H HH H R } I~ IŠ /S} ~ /S@ ~JJ/J~J I N L /SLzK I I NLKǠ͠ҠɯϠҪ% $ ̓ ~COPYRIGHT BY MECC 1979,VERSION 145>2122H2125LLzK wghKLF /S`BFC}< =>?ؠ ,` wLF H H I Ih Ih I  ̀ H HH H RL L ~ } !  ͆             >j,268,255,239,227,212,201,189,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47$N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,961:36:"# ";FR#W2#0uUSER WRITTEN SUBROUTINESH#@ERROR PROCESSINGX#J216,0:802#T"ERROR "(222)" AT LINE "(218)(219)256#40000##PòUSER DATA#`MECC SUPPORTED DATA#0MUSIC ROUTINE#:-MUSICo$D1,378,358,340,318,302,28465ZZ90ZD0:22300."WZD64:ZXZXZA:22300T"WZZ94ZF1:ZXZXZW:ZD64:22330"WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330"&WZZZD(ZZZD0)ZI,ZJ"0WZF1ZXZXZA:ZD0:ZF0":WZ:"WPRINT FRAME # IF PEEK(1023)=87"W(1023)87ı#W200!VZA$(ZA$,Z).!VZKZW:ZU0ZKZKZAg!VZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140!V WRITE ON HGR SCREEN!VZT$""ı!VZJZY15:ZJ0ZJ192ZHı!VZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330!VZU022290"VZZ(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090 VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140 VZA$"":22140 VZXZXZW:ZT$X$Z$:22230:22140 VZA$(8)ZA$"":22140!VZ(ZA$)2:Z0ZA$"":22ٍNK@LJ MI΍$( N(! L XHJ P &KaJ P JPLIǠōϠĠҠ͍ԠˠǠĠ͍ĠźΠčƠǠӠĬȠҠϠƍ K` {G MH *H L I:I PGQ PAI PLHFKI M`hDIDhIhIiIjI JPMI iIjI` 7PIIL8D96D7LI M`Ѝ۠I PI / IL͠ӠǠ̩GЌH@H lH@HHɄɃީ`LHKHMɍ LHKHKH`KHMKH ɍ`LHKH`@HNN N NFQ NH N N NFQ mK N N N NI MN@N KCM PIשdM PLI@LlHӮ H8PG`GNGN#GGmGGmGG߮GG`QG PLIΠŠҠŠԍ|G{GGG`ΏG|GHGHG HɐɅ<` HɅ HH GGHH HɅ GGG{G8頍GП GHHGFFtLHFEFLFFMLHFԍЍŠǠנǍ׍ XWF PLIϠĠҠͯ:ԠĠˍ:ΠčƠǠӠĬȠҠϠƍĠҠ̠ˠϠIŠӠԍ {G! 2E 0E {G 2E `8`LIɱ#F MILEFMFFL@M@F MILEF MIsEFtFFs@tGF X"F P {G MH *HFɍ$( F MILEDD XF MIGQ MIF MIGF EFsɃLIɍDɍJJ N ;N LLC@ɆJJ`ԠӠŠŠƠŠ͍ՠȠϠΠԠҠӠ""L @LJI X"F PH EDH ED E E f D DLD PLԠҠɩԠԩ٠©ԠōҠŠҠƠҠ"ϠŠΠҠJD P3 jD3ɍJȌDJɃLIDJ !PD P PD P3 jD3 PGQ PB P3 jJDIDD3Ƀ-ɱ4ɲ0ɳ*ɴ ɵ B PDDLALILDL`ԠŠϠՠԠ"Š٠čӠԠĠŮӠ""ϠōԠРҠԠˠΠȠՠԍŠ͠ϠŠĮӠΠϠfB PJ PsC PDDDD3 jD3ɍɃLI2Ǡ͠Ҡ֩ɍ GQGQ M B PLRAB `L CI MLI 7P /3D IDDDD @ X C #L RAH X"F PLJ@ PGQ P@ P@ PGQ P@ PLIL?EŠčΠŠ XǠ@ P Ƀ XLI`ŠŠҠӠԠϠ̠خPΐ7   - *****)<<j<*= 9 ٮ8 PLIĐxИ]  )`WH9*u fҠŠ̪   H HHH ]P(      GQ   2  H HH H ]P H HHH ]PHHH H ]PLHFŠӠԠԍɯϠҠΠŮ  -H HH H ]P      `L i#      H HH H ] &      f  E E  L    f       mKAA mKAAA Pf DD,DD E  ݭ H HHH ]PL%  H HHH ]P  PLI ICOPYRIGHT BY MECC 1979,VERSION 145>2122H2125LLI wghJKL@ P`B@C< =J>?ؠ ,` wL@ X"F P H E H E f PLI P    f  E  E          ZH7:ZW7:ZA1B U62450:16297,0:16302,0:16304,0:3:1:0:S U16301,ZF: V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230 V22080:ZX276ZW8:ZT$"TO GO ON":22230 VZ1(ZS1)84:(16384)12722070 VZ2 "VZ1250:Z: S:ZFĝ. SZW0:13:"SPACE BAR";:ZFZF\ SZWZW1:ZC(16384):ZC141ZC16021270w S(ZWZM)121255,21253 S16368,0:7::" ";:1:21::ZV1:ZH1 S U232,0:233,64:230,32 UD$"BLOADSMALL CHARACTERS": DELAYED FLASHING SPACE BAR ROUTINEC RZW0:ZMZS:ZF0:ZS0ZM15g RZH(36):ZV(37):ZZ1200:ZZ R24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:ZMZM35.156 RZC(16384):ZC141ZC16021270 SZWZW1:ZWZM21240 SZM25D$(13)(4)# D$;"NOMON I,C,O"B ,:(4)"BRUN INPUT":IN$""M 6FI$""i USER DEFINED FUNCTIONS START OF MAIN PROGRAM 'EXIT ROUTINE ':::(4)"PR#0":(4)"IN#0" $':255:(4)"MAXFILES3" * NMECC SUPPORTED SUBROUTINES# R %nNAME: MCT6-2 VERSION:06/25/82BxAUTHOR: ROBERT G. WYLER`LANGUAGE: APPLESOFT (FP)wASSOCIATED FILES:}40000I802811:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96INITIALIZATION8192::255      30" ERAME NUMBERS,"DEL22400,22430"0 0 HGR PRINT ROUTINE,"DEL320,330:DEL21220,21220:DEL21275,21275:DEL20510,20510" ÃFRAME NUMBERS,"DEL22400,22430" 220:DEL21275,21275:DEL20510,20510"FÃFRAME NUMBERS,"DEL22400,22430"L20510,20510"ÃFRAME NUMBERS,"DEL22400,22430""DEL22400,22430"122400,22430",22430"21275:DEL20510,20510" ÃFRAME NUMBERS,"DEL22400,224MERIC VALIDATOR,"DEL20900,20960"Là MENU-END OF PROGRAM,"DEL21000,21180"uÃFLASHING SPACE BAR,"DEL21200,21280"ÃERROR PROCESSING,"DEL160,170:DEL40000,40099"ÃEXTENDED INPUT ROUTINE,"DEL300,310""à HGR PRINT ROUTINE,"DEL320,330:DEL21220,2130000,59999"*ZÃPRINTER,"DEL20200,20299"VdÃMUSIC,"DEL20100,20130:DEL 62000,62130"~xÃINVERSE SPACE BAR,"DEL20500,20530"ÃLINE INPUT ROUTINE,"DEL20700,20760"ÃPRINT CHARS IN HGR,"DEL22000,22330"ÃFORMATTED DOLLARS,"DEL20800,20880" ÃNU4P(0):" ";:(0):Z0Z01:ZB$(ZB$,1,Z0):20710KPZA$;:ZA$(13)ılPZB$ZB$ZA$:Z0(ZB$):20710y:10:"MECC SUPPORTED ROUTINES"::X11X:15:X110ĺ" ";"yX1" "R$(X1):X15(X15)ĺ,y:PòROUTINE DATA Uà X,"DEL1,19999:DEL 2"POKE 34,0:HOME:PRINT "QT$"FILE COMPLETE"QT$cD$:D$"CLOSE":24:34,23:D$"EXEC SCR.FILE"j"0p,P24:10:"PRESS 'SPACE BAR' TO CONTINUE.";P(16384)16020510(P16368,0::P">";PZA$:ZA$(8)20725PZ0120710R(1)0ĺ"BSAVELIST "SI$",A"ZE",L272"^dR(12)0Q11ĺ"BSAVE SMALL CHARACTERS,A16384,L1436"nR(12)0Q12ĺ"BSAVE MEDIUM CHARACTERS,A16384,L1512"xR(12)0Q13ĺ"BSAVE LARGE CHARACTERS,A16384,L2118"ZZ1233000"SAVE "NA$"HOME"DLIST "SI$QT$)ZZ123ĺ"205HIMEM:"HMF"20509GOTO20515":"RUN"^ZZ123ĺ"DEL1,99"uZZ123ĺ"DEL1,89""20509"R(3)1ZZ123ĺ"DEL20500,20530"PR(11)0ĺ"BSAVE INPUT,A20736,L1262"ZR(12)0ĺ"BSAVE PRINT,A16381,L1520"$\)" CHARACTERS"QT$":ZH="C1(Q1)":ZW="C2(Q1)":ZA="C3(Q1):HM8192\R(11)0HM20735HM20735|(R(12)0)(R(5)0)HM8192OP0ĺ"110 REMNAME: "NA$" VERSION:"VS$:"120 REMAUTHOR: "AU$R(1)05039 "20280ZE="ZE:"20282PRINTCHR$(4)"QT$"BLOA"HIMEM:10000"5"LOAD STARTER-P":OP0R(0)0X10X:X21(C$(X1)):(C$(X1),X2,1)":"C$(X1)(C$(X1),X21)(13)(C$(X1),(C$(X1))X2)X2,X1X10X:(X13)R(X1)1ĺC$(X1)=R(5)0ĺ"22005PRINTD$"QT$"BLOAD"CH$(Q11,44,53,49,44,52j 52,44,53,51,53,51,49,49,49,48,32,68,65,84,65,32,52,52,44,53,51,44,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53t 48,44,52,52,44,52,57,44,52,56,44,53,55,44,52,56,44,51,50,44,54,56,44,54,53,44,56,52,44,54,53,44,51,50,4452,52,44,53,51V 44,53,48,44,52,52,44,53,50,44,49,48,57,48,32,68,65,84,65,32,53,50,44,52,52,44,53,51,44,53,48,44,52,52,44,53,51,44,53,53,50` 44,53,50,44,52,52,44,53,51,44,53,49,44,52,52,44,53,51,44,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,5,53,49,44,52 B 52,44,53,50,44,53,50,44,52,52,44,53,50,44,49,48,57,48,32,68,65,84,65,32,53,50,44,52,52,44,53,51,44,53,48,44,52,52,44,53,51L 44,53,48,44,52,52,44,53,50,44,53,50,53,50,49,48,57,48,32,68,65,84,65,32,53,50,44,52,52,44,53,51,44,53,48,44,0,44,53,54 . 44,52,52,44,53,51,44,53,49,44,52,52,44,53,50,44,53,50,44,52,52,44,53,50,44,53,55,44,52,52,44,53,50,44,53,50,44,52,52,44,53 8 51,44,52,56,44,52,52,44,53,51,44,52,56,52,56,49,48,54,48,32,68,65,84,65,32,53,50,44,53,54,44,52,52,44,53,51,4444,49,48  51,48,32,68,65,84,65,32,52,56,44,52,52,44,52,57,44,52,52,44,52,57,44,53,55,44,53,49,44,52,52,44,52,57,44,52,52,44,53,48,44 $ 52,56,44,53,51,44,52,52,44,52,57,44,52,52,44,53,48,44,53,48,53,51,44,52,56,44,49,48,54,48,32,68,65,84,65,32,53,5,49,56  48,44,49,44,49,57,51,44,49,44,50,48,53,44,49,44,50,50,48,44,49,44,50,51,51,44,49,52,44,53,48,44,52,56,44,53,51,44,52,52,44  52,57,44,52,52,44,53,48,44,53,48,44,52,56,44,52,52,44,52,57,44,52,52,44,53,48,44,53,49,44,53,49,44,52,52,44,52,57,4,49  44,50,52,54,44,49,44,52,44,50,44,49,52,44,50,44,50,52,44,50,44,52,49,44,50,44,52,57,44,50,44,54,54,44,50,44,56,50,44,50,44  57,52,44,50,44,49,48,55,44,50,44,49,48,48,48,32,68,65,84,65,32,50,48,48,44,48,44,49,53,48,44,49,44,49,54,54,44,49,44#* CREATES BINARY FILE: SM CHARACTERS0PdX01435:D1:16384X,D1:}x(4);"BSAVE SM CHARACTERS,A16384,L1436"  200,0,150,1,166,1,180,1,193,1,205,1,220,1,233,1,246,1,4,2,14,2,24,2,41,2,49,2,66,2,82,2,94,2,107,2,44,49,44,50,51,51,4666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-= 6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$P0:50R"**LINE ";P;"**":50k FIND LAST LINEp897uD$;"READ ";N$;",R";Pz1:PP1{B$A$|D$;885 ROUTINE USI1Z1ZQZQ1:ZQ21670ID$;"READ ";N$;",R";P:1:" ";A$:PP1PIZPP1bD$j50D$::" **PRESS 'SPACE BAR' TO CONINUE**"X$:ZQ0:651 POINTER MOVE9800Z10Z119000PPZ1D$;200(A$,1,3)"END"50(3L1(A$)|4L1L1ĺ"**LINE LONGER THAN ";L1;" CHARACTERS":" PLEASE RETYPE**":5155D$;"WRITE ";N$;",R";P6A$7PP1:D$?515X PRINT ROUTINEY9000]ZQ0b9800gZ10Z11E LONGER THAN ";L1;" CHARACTERS":" PLEASE RETYPE**":377^ |(A$,1,3)"END"PI:310 II1:D$;"WRITE EDIT.SCR,R";I:A$ D$:377 505: INPUT MODE 768:9000 D$;"OPEN ";N$;",L";L "**TYPE 'END' TO EXIT**""IN> ";:9,R";Q:1:QQ15 =D$;D$;"WRITE EDIT.SCR";",R";I:A$B >IP375K @310] ^768::9000 cD$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$ hD$;"OPEN ";N$;",L";L:50 wD$:"**TYPE 'END' TO EXIT**" y"IN> ";:9200 zL1(A$)@ {L1L1ĺ"**LINQ:1:QQ1 D$;7 D$;"WRITE EDIT.SCR";",R";I:A$@ 206R 768::9000 D$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$:D$;"OPEN ";N$;",L";L:50 , INSERT LINES .I1:Q0 0D$;"OPEN EDIT.SCR,L";L 1350 6II1 ;D$;"READ ";N$;")ĴI300,9999,10000,700,500,600,800,850,875,200,4000,3000,3000,1200,825N }Ii "**ILLEGAL COMMAND**"q 50 DELETE LINES 9800 Q0:I1:Z10Z11 D$;"OPEN EDIT.SCR,L";L 215 II1 IPQQZ1 D$;"READ ";N$;",R";2,169,34,72,96 *5012 +D$;"OPEN ";N$;",L";Lq ,P0:D$;"READ ";N$;",R0":A$:D$;:D$;"READ ";N$;",R0":D$| -9000 2X6(0)::G10:"ED> ";:9200:100 <500 d PARSER COMMAND eC$A$" " nI115G x(C$,1)("IQENRPTWBDLCGHZ",I,1(7C0:A$""8Z$:CC1:(CL)(Z$(13))ıHA$A$Z$:2[P1(95),P0(95)g D$(4)}D$;"NOMON I,O,C""APPLE EDITOR 3.0""FILE NAME? ";N$$"RECORD LENGTH? ";L (I09:X:768I,X::166,223,154,169,216,7    HELP 010:"APPLE EDITOR COMMANDS":Y" EDIT FUNCTION COMMAND":c32,5l" ""INSERT";23);"I""QUIT (FOR PROGRAMS)";23);"Q""NEXT";21);"N, N-""REPLACE";23);"R""PRINT";21);"P, P-""TOP";2"LOAD ";A$`"0PRINTCHR$(4);";(34);"OPEN ";B$;(34);":PRINTCHR$(4);";(34);"WRITE ";B$;(34)$"1LIST2,63999:PRINT CHR$(4);";(34);"CLOSE";(34);":END"."RUN"8"LOAD SEQUENTIAL EDITOR"B"DELETE EDIT.SCR"LD$;"EXEC EDIT.SCR"V;N$;RR$:D$:900050g768::D$;"CLOSE ":D$;"OPEN ";N$;LL$:C$:D$;"READ ";N$;",B";PC:9000}TCTCI1:D$:50:"WHAT IS YOUR PROGRAM NAME?";A$:"TEXT FILE NAME?";B$:D$;"OPEN EDIT.SCR"D$;"WRITE EDIT.SCR" "NEW":;N$;LL$&PD$;"READ ";N$;RR$:D$:50@R"**LINE ";P;"**":50TkFIND LAST LINE^mPP1hp899{sD$;"READ ";N$u1xPCTCLC1:ILC1yC$A$zPP1885EOF ROUTINE P1:TC0:D$;"CLOSE ":D$;"OPEN ";N$;LL$:D$;"READ "CTCLC1:X8LC:I 735- TOP OF FILE :%P1:TC0y*D$;"CLOSE ":D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$:509SET TO RECORD ZERO>"RECORD LENGTH?";LLC"WHICH RECORD?";RRHLL$",L"(LL):RR$",R"(RR)MD$;"CLOSE":D$;"OPEN "Z11PPZ1Z1Z11.D$;"READ ";N$QI1Z1:1:PCTCLC1:X8LC:IZD$;dC$A$D$;"READ ";N$;",B";PC:TCTCX81D$C$50PPZ1D$;"CLOSE ";N$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$TC0I1P:1:P1670*D$;"READ ";N$:1:D$;:A$:PP11IbPP1:D$;"READ ";N$;",B";TCLC1:TCTCLC1jD$r50D$::" **PRESS 'SPACE BAR' TO CONTINUE**"X$:ZQ0:651POINTER MOVE 90009800Z10765Z10N> ";:9200H(A$,1,3)"END"ĺD$;"READ ";N$;",B";PC:D$:TCTCX8:50]PCTC:X8(A$)1jTCTCX8~5D$;"WRITE ";N$6A$7PP1:D$?515XPRINT ROUTINE Y9000]ZQ0b9800gZ10Z11I1Z1ZQZQ1:ZQ2 'END' TO EXIT**"$y"IN> ";:9200B|(A$,1,3)"END"PI:305Z~PCX8:X8X8(A$)1}II1:D$;"WRITE EDIT.SCR":A$D$:377D$;"READ ";N$;",B";PC:TCPCD$:50INPUT MODE768PCTC"**TYPE 'END' TO EXIT**" "IE EDIT.SCR";RR$:D$ 13500 5D$;"READ ";N$: 6II1F ;1:D$;c =D$;"WRITE EDIT.SCR":A$p >IP375y @309 ^768::9000 cD$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$ hD$;"OPEN ";N$;LL$:388 wX8X81(A$):9000xD$:"**TYPEDELETE ";N$:D$;"RENAME EDIT.SCR,";N$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$j D$;"READ ";N$;",B";PCt TCPC D$:50 ,INSERT LINES .I0:Q1 /PCTC:X8TC 0D$;"OPEN EDIT.SCR";LL$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$:D$;"WRITIT.SCR";LL$:D$;"CLOSE ";N$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$:D$;"WRITE EDIT.SCR";RR$:D${ D$;"READ ";N$:215 II1 1:D$; IPPCTCLC1 (IP)(IPZ1)205 D$;"WRITE EDIT.SCR":A$ 205 768::9000O D$;" COMMAND eC$A$" "" nI115 x(C$,1)("IQENRPTWBDLCGHJ",I,1)ĴI300,9999,10000,700,500,600,800,850,875,200,4000,3000,3000,1200,825 }I "**ILLEGAL COMMAND**" 50 DELETE LINES TC0:9800 I0:Z10Z11b D$;"OPEN EDBASIC IF PROGRAM)?";N$+ #N$"BASIC"1000i (I09:X:768I,X::166,223,154,169,216,72,169,34,72,96s *500 +D$;"OPEN ";N$;LL$ ,P1:D$;"READ ";N$:A$:D$:D$;"READ ";N$;",B0":D$ -9000 2X6(0)::G10:"ED> ";:9200:100 dPARSER7 A$" ":LC0:TCTC14Z$:Z$(13)5TA$A$Z$:TCTC1:LCLC1:2x(A$,1)" "A$(A$,2,(A$)1)~P1(95),P0(95)TC0 D$(4):LL$"":RR$"" PRINTD$;"NOMON I,O,C""APPLE EDITOR 3.0" "FILE NAME (     44,49,50,53,48,53,49,44,52,52,44  53,50,44,53,54,44,52,52,44,53,51,44,53,49,44,52,52,44,53,50,44,53,54,44,52,52,44,53,50,44,53,55,44,52,52,44,53,51,44,52,56" 44,52,52,44,53,51,44,52,57,44,52,52,44,53,50,44,53,54,44,52,52,44,52,57,44,53,48,44,53,5,44,52,52,44,53,50,44,53,54,44 52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,48,44,52,52,44,53,51,44,53,48,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51  44,53,49,44,52,52,44,53,51,44,52,56,44,53,51,44,52,56,44,52,57,44,53,48,44,53,49,44,52,56,1,48,32,68,65,84,65,32,52,52 44,53,51,44,53,49,44,52,52,44,53,51,44,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,48,53,48,49,50,51,48,44,53 51,44,53,49,44,52,52,44,53,51,44,52,57,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,4944,53,51,44,53,48,44,52,52 44,53,51,44,53,48,44,52,52,44,53,50,44,44,53,51,44,53,48,44,52,52,52,52,49,50,51,48,32,68,65,84,65,32,52,52,44,53,51,44,53 49,44,52,52,44,53,51,44,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,48,44,49,50,5,50,44,52,52,44,53,51,44 53,48,44,52,52,44,53,51,44,53,48,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,49,44,52,52,52,52,49,50,48,48,32,68,65 84,65,32,52,52,44,53,51,44,53,49,44,52,52,44,53,50,44,53,54,44,52,52,44,53,50,44,53,50,44,52,52,1,44,52,52,44,53,50,44 53,50,44,52,52,44,53,51,44,53,48,44,52,52,44,53,51,44,53,52,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,52,57,44,52,52 44,53,51,44,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,44,53,54,44,52,52,44,53,50,44,5344,52,52,44,53,51,44 53,53,44,52,52,44,53,50,44,53,54,44,52,52,44,53,49,44,53,48,44,52,52,44,53,52,44,53,54,52,56,44,52,52,44,53,50,44,53,50,44 52,52,44,53,51,44,53,50,44,52,52,44,53,51,44,53,52,53,52,49,49,55,48,32,68,65,84,65,32,53,51,44,53,5,53,52,44,53,54,44~ 52,52,44,53,52,44,53,51,44,52,52,44,53,54,44,53,50,44,52,52,44,53,52,44,53,51,44,52,52,44,53,49,44,53,48,44,49,49,52,48,32 68,65,84,65,32,52,56,44,52,52,44,53,50,44,53,50,44,52,52,44,53,50,44,53,55,44,52,52,44,53,50,44,53,54,>WRITTEN SUBROUTINES)@ERROR PROCESSING9J216,0:802iT"ERROR "(222)" AT LINE "(218)(219)256u40000{PòUSER DATA`MECC SUPPORTED DATA((ZT$,Z,1)):ZZ3222330)VZU022290FVZZ65ZZ90ZD0:22300`WZD64:ZXZXZA:22300WZZ94ZF1:ZXZXZW:ZD64:22330WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)ZI,ZJ0WZF1ZXZXZA:ZD0:ZF0:WZ:0uUSER (8)ZA$"":221405VZ(ZA$)2:Z0ZA$"":22200FVZA$(ZA$,Z)`VZKZW:ZU0ZKZKZAVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140V WRITE ON HGR SCREENVZT$""ıVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZVZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140VZA$"":22140VZXZXZW:ZT$X$Z$:22230:22140VZA$0:ZZTZB:ZL,ZZR,Z:Z:3:>TV UNDERSCORES ON HGR SCREENk^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENrVZA$"":ZXZXZW|V16368,0:Z$:(Z$)13ıV(Z$)8ZXZW(ZU1)ZA26722140VZA$ZA$Z$:(Z$)822160ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090S ,V(16384)128İ22080:22050 6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK: @VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230: EV CLEARS ANY SPOT ON HGR SCREENJV@@ŠҮ@@ĠͭŠŮ@@̯ĠΠŮ@@٠ӠРή@@ŠϠΠή@@ˠέƠŮ@@ԠέƠŮ@@ԭΧԠŠŮ@@РŠŮ@@٠Ũש@@خ̠ήŠϠƮĮŠȺŠȺŠנŭҮ̠Ԯάج٬ìӬκϠج@@Ю͠ҺجҠΠӠ@ō@@ŠԠج٠ƠżٯξҠƠӼؠӺȺŠҬج٬ŠΠŮĠżٯξҼ٠ήҠμٯξӠȠҠЮԠجٺԠجٺҺԠήԠƮٮԮԮҠҠC ,` hh :`  `8` X :o H8` jL'   LO̤ӳӠǍύӱǍҠŠŠנ   L!"#` !"   L  ` I X`  `(!"#` T"` LzɃ`Ll  H iɍ`hhLB ` ` : i8`Lx$%L"=e?B  DH LX*L5?     ୢ`@ ˪  筤 2H h X`ʆ ݠ`hhL.dd J -Lz hhL5 L- a   LJ a# XԠ H,Q Ġ H iɍ,P  HLB aL aL oL oL   L  ɿ L :` L խL H D  LL5G I(!~ H LI   H  X` Hp H i80   B LB :( H`  : H`L5  u L  xjjmmHjhJJJJ)j L  L  L   H Dg b T  H    I   xLL L5t  H Dc^Y@R C B BH h B  BL L5` T H jɃvL   H H H A L  H hh T XL  H !  9 a XL 9 H XL e H  4 h hh T!L   נ H  `Π H  R `S mL ` H 4 H 2#$ h B L 1 H  4 h L 9 a X6 H 5 H A 8@D H 5 H A iȱiȥ`Ԡ H H    Ǡ H  $Π H    0HhL  ,   =   x L, I X  : HLS   '0 LS  H D ⭡ @ Xo H{ HL   XP H  XL ,W,S,P X H  m X H$ H     H $@x 3,Q,T!67  X H H j wL X T X H L X H Dﭡꭠ L 0L)  X T X H H H X  H@@ $- H  5 H A8: TABLES 2.0G BY:CRAIG COPLEY (C) MECC 1980 C40M2144W(2147L Hޠ  Ġ Hɍ 9 X H HLLL PJ TuVTvP`P&Q&R&S8RTSURSP` 9L            ZG(ZW49152)256OZJ13FO(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20260NOZJWOZJ0_O: O NO KNOWN PRINTER INTERFACE FOUND!OZJ1:ZG1$O FOUND INTERFACE 'ZJ' IN SLOT 'ZG'.O:202128OZE216329O10: :O(4)"BLOADLARCH-",24,56,56,24,72,728OZI$:ZI$"-SEARCH-"20243UOZJ13:Z5(ZJ),Z7(ZJ):`OZ2(2)xOZW4940850944256OZK02:Z2(ZK)0OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::OZ2(0)Z2(1)Z2(1)Z2(2)Z2(2)256Z2(0)256Z2(1)25620255OPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERoOZH80x OZV0 O:10:"ONE MOMENT PLEASE..." O20280O SEARCH SLOTS FOR A PARALLEL OR SERIAL INTERFACE OZ5(3),Z7(3)O: "-SE:NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290UN(13);(4);ZF$:20290N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA17:ZN$"10"ZA82eO ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTLLEL"RN(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220N1000N10:ZJ120289E FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TN ** ROUTINE USES LINE #'S 20200 - 20299 AND 61000 - 61099NNZQĺ(13);(4);"PR#0":(4);"IN#0"NZF$"COMM, SERIAL OR PARATHE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0. rN ** IF YOU HAVE A SPECIAL INTERFAC1N:10:"INSERT THE DISKETTE THAT CONTAINS"::"THE TEXT FILE.":1000::Z2000:N ** PRINTER ROUTINE - LOOKS FOR COMMUNICATIONS, 2, OR 3ALLEL PRINTER INTERFACE IN PERIPHERAL SLOTS. N LAST UPDATE: 7/11/80^N ** TO USE: CHANGE HALTED.":D$"CLOSE":"ERROR #"ER:22016:6C1535x(7)"-END OF INFORMATION-"D$"CLOSE"D$"PR#0"D$"IN#0":22016:24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:10::W91ıW9R1:= :C1L:C$:" ";:A$"N"ĭ(37)19İ1000:2:958:f =C1(C$):C127C113C$(C164):{ ?C163ĺC$;:: @C163ĺ" "(8)C$;: D550 216,0:ER(222) 768)ER5ĺD$"PR#0":D$"IN#0"::(7)"SOMETHING IS WRONG. PROGRAM "LISTED ON A PRINTER? ";A$:A$(A$,1):A$"Y"A$"N"528V :2000:A$"Y"İ20200 "COPYING STOPS AT FIRST EMPTY RECORD" D$"OPEN"N$",L"L; 700 &D$"READ"N$",R"R +A$"N"ĭ(37)12İ1000:2:958::1 0:::"->RECORD #"R"<-":R:D$"IN#0" h22016: + 13:958z 222,0:"WHAT IS THE RECORD LENGTH? ";L$:L(L$):(L)L$L1L(L)510 15:958 "WHAT IS THE STARTING RECORD? ";R$:R(R$):(R)R$R(R)R0523; 18:"DO YOU WANT THE TEXT FILE"::868: 330 D$;"OPEN ";N$0 D$;"READ ";N$^ "C$:A$"N"ĭ(37)19ĺ:1000::3:(8); $" ";:C1(C$):C127C113ğ:C$(C164) 'C163ĺC$;::290 (" "(8)C$;:290 J216,0:D$"CLOSE" T(7)"-END OF INFORMATION-"; ^D$"PR#0";ME?";N$ N$""185$ 11:958I "IS YOUR TEXT FILE RANDOM? ";R$` (R$,1,1)"Y"500x (R$,1,1)"N"210 14:"DO YOU WANT THE TEXT FILE"::868:"LISTED ON A PRINTER? ";A$:A$(A$,1):A$"Y"A$"N"242 :2000 A$"Y"İ20200TEXT LIST+LAST UPDATE: 1/27/81621632H D$(13)(4)P:fD$;"NOMON I,O,C"#I09:X:768I,X::166,223,154,169,216,72,169,34,72,96(:3:82"TEXT FILE LISTING PROGRAM"9:958 "WHAT IS YOUR TEXT FILE'S NA      ҠԠ ϠҠҲҠŠƠԠԠ ŠԠԠΠˠŠРԠĠ͠ ŠΠĠРРΠŠ HQaRbR`tR O`جŬЬŮPTPPQPQHaRQbR2QQPQP2Q `R0Q< `R͹TPP0Q멅 N2Q NLP0QaRm0QaRbRm1QbRLPT ɍ NQQQPQPLP N N`T)mTT4Q5Q`Š̠ŠҠ͠ĠȠi 3Q L`ΠҭǮŠˠӍȠӮOO lSO OO`}< =<Prɍ褐́PBͅP=Pɺ4ɰ.e<<e==T%<ݙTT<ɍԩ<<ᭀP`Q84Q铭5QT O`H O O^h Oc O7 O O, O$ O O O O O O O Oi O O O Oh Oɍ O O OOTO P` TOO` 3QT -M 3Q 3Q 3Q 3QOT O MO /S΍OLzK4QT5Q 3Q 3QT 3QOO) M`MMM \SɃMMM`LzK4Q5Q ^M ɕ`h/Nh0N XiN1JNJjN /S`N K JNJiNL ?N/N0NLH3$hiN`} @NAN`Nh ?NLhɍN`ǍǠƠō 3čƠǠӠĬȠҠϠƍĠҠ̠ˠϠӮɘ`)M*M /SɃ /S*M /S)MLzKмH 7MhJJJJ) ɺi`T(]M M ɂ]M` BM/ 3Q M%Ƀ 3QT -MMM M56,44,54,53,44,56,52,44,54,53,44,0,,44,53,50,44,53,50,44,52,52,44,53,512 44,53,48,44,52,52,44,53,51,44,53,48,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,49,44,52,52,44,53,51,44,52,57,52,57"< 49,51,49,48,32,68,65,84,65,32,54,53,44,56,52,44,54,53,44,51,50,44,53,44,51,50,44,54,1,44,52,56,52,56,49,50,56,48,32,68 65,84,65,32,52,52,44,53,51,44,52,57,44,52,52,44,53,50,44,53,50,44,52,52,44,53,51,44,53,49,65,32,54,53,44,56,52,44,54,53,44$( 51,50,44,53,50,44,53,50,44,52,52,44,53,51,44,53,49,44,52,52,44,53,50,44,53,55,44,52,526I666?/6666d $ 6666646$du6&$ 56&I6&$t -6& -u6?$2666$$d -6? u$666$$26&d -? --??-u??< 6-??-66ve26- $6662ve $626f u$$ru e ?26- $666?//*----=*----& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6?$$$ 6666$$$$--u6??/u6)-u??6--6??6---??5666&?666v-- $$$4 66v $$4$6666 $$$$ v# 46v66$$ 4=---.--=I666M 6 $- 6666 $$$$6/-???-66=?---?I6666<-- ??d-- II& #7J 5' v-e- $??7-)-u&??666-- 4?6666--e$$$??/6---???66--??66---6---???66--??66-)-u??666--%$?-66666$$---$$6666)-=7666>/-=6II666??46666$$4- 66666--- 6666$$$$ 66666666$$$t&$$$4$)-u666??$$$ -6666$$$$--u6??7)-u66@d';L_q~ !5AN[l~ "CPZaju)/7CNZg $4AN`r} -u>??v-==I66#$--=??$ -6666--e$??-     16368,0:7:" ";:21::ZV1:ZH1:VPLINE INPUT ROUTINEyPZB$"":ZC$(8):ZO0:ZV0:ZH1PZZZT17.675:ZZ0ZZ0P"?";P16368,0:20714PZW0:ZHZHPZWZW1:(16384)128ZA$((16384)128):16368,0:INE'PZH(36):ZV(37):ZZ1200:ZZ<P24:7:16368,0PZZ(251):251,0:"^PRESS ";::251,1:"SPACE BAR";::251,0:" ^TO ^CONTINUE";:251,ZZ:20520#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC16020520>2P IN SLOT 'ZG'.O:20212(8OZE2163229O10:O:O(4)"BLOADLIST 32K,A"ZEn;OZE3,ZH:ZE4,ZA:ZE5,ZVN PROGRAM 'EXIT ROUTINE= ':::(4)"PR#0":(4)"IN#0"Y $':255:(4)"MAXFILES3"_ * NMECC SUPPORTED SUBROUTINES 0uUSER WRITTEN SUBROUTINES PòUSER DATA `MECC SUPPORTED DATAͺĠҭЍ̱Ĥ̠ӢȽ׽ϲ΍̱Š̠Ӭ̱̱̲ҢҢ΍̱ԍōŢ I1Z1ZQZQ1:ZQ21670ID$;"READ ";N$;",R";P:1:" ";A$:PP1PIZPP1bD$j50D$::" **PRESS 'SPACE BAR' TO CONINUE**"X$:ZQ0:651 POINTER MOVE9800Z10Z119000PPZ1D$;200(A$,1,3)"END"50(3L1(A$)|4L1L1ĺ"**LINE LONGER THAN ";L1;" CHARACTERS":" PLEASE RETYPE**":5155D$;"WRITE ";N$;",R";P6A$7PP1:D$?515X PRINT ROUTINEY9000]ZQ0b9800gZ10Z11E LONGER THAN ";L1;" CHARACTERS":" PLEASE RETYPE**":377^ |(A$,1,3)"END"PI:310 II1:D$;"WRITE EDIT.SCR,R";I:A$ D$:377 505: INPUT MODE 768:9000 D$;"OPEN ";N$;",L";L "**TYPE 'END' TO EXIT**""IN> ";:9,R";Q:1:QQ15 =D$;D$;"WRITE EDIT.SCR";",R";I:A$B >IP375K @310] ^768::9000 cD$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$ hD$;"OPEN ";N$;",L";L:50 wD$:"**TYPE 'END' TO EXIT**" y"IN> ";:9200 zL1(A$)@ {L1L1ĺ"**LINQ:1:QQ1 D$;7 D$;"WRITE EDIT.SCR";",R";I:A$@ 206R 768::9000 D$;"DELETE ";N$:D$;"RENAME EDIT.SCR,";N$:D$;"OPEN ";N$;",L";L:50 , INSERT LINES .I1:Q0 0D$;"OPEN EDIT.SCR,L";L 1350 6II1 ;D$;"READ ";N$;")ĴI300,9999,10000,700,500,600,800,850,875,200,4000,3000,3000,1200,825N }Ii "**ILLEGAL COMMAND**"q 50 DELETE LINES 9800 Q0:I1:Z10Z11 D$;"OPEN EDIT.SCR,L";L 215 II1 IPQQZ1 D$;"READ ";N$;",R";2,169,34,72,96 *5012 +D$;"OPEN ";N$;",L";Lq ,P0:D$;"READ ";N$;",R0":A$:D$;:D$;"READ ";N$;",R0":D$| -9000 2X6(0)::G10:"ED> ";:9200:100 <500 d PARSER COMMAND eC$A$" " nI115G x(C$,1)("IQENRPTWBDLCGHZ",I,1(7C0:A$""8Z$:CC1:(CL)(Z$(13))ıHA$A$Z$:2[P1(95),P0(95)g D$(4)}D$;"NOMON I,O,C""APPLE EDITOR 3.0""FILE NAME? ";N$$"RECORD LENGTH? ";L (I09:X:768I,X::166,223,154,169,216,7          κҺŠ΍ͺϲ΍̱̲ŠԬ̱ŠöԠōōŠźԠŠŢͺĠҭЍ̴̲̲̠̲̲̲̲̲̲̱̳̲źöԠŠ  hHȱh L2B Hȱh ``@@ ȑiiȑȑȑ  ȑ L2BH h`hȑ L2B Hi hLAhi#LAHi) ȑh`@@L A`  ?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqwwqqqqo88`}~{ow`v[o>{ 0_|?~~gox?O}x~_ow?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~x`|}>{ 0`o|??~>{o7_ow[o{~?ogxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnwwnnnnO0?~}~{o;_}v]o>{m?ow{?_qwlw`\o>~oox?a@}xx>_ow?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o{~?owpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{onlwwoonn_ |~{o=_}v^o>{m?w{?_?|k{o;_ow[o>~oox? }xc>_ow?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o              TS RESERVED" T16666:T3 :(4);"CATALOG"9  T :::255"D$(13)(4)Z:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J40030#16368,0(2::D$"CATALOG" :VERSION 3"21:11:"COPYRIGHT MECC 1980" 23:11:"ALL RIGH 17:ZN$"10"ZA82O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTEROZH80 OZV0 O:10:"ONE MOMENT PLEASE..." O20280/O SME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220CNSPACEBARYN10::ZJ120289NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290N(4)ZF$:20290N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA 20299 N5NZQĺ(13);(4);"PR#0":(4);"IN#0"XNZF$"COMM, SERIAL OR PARALLEL"N(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ1202905N:5:"TURN YOUR PRINTER ON AT THIS TITO PRINTER, DO PR#0. N** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.N** ROUTINE USES LINE #'S 20200 -ERIPHERAL SLOTS. * NLAST UPDATE: 2/2/81 N** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE. N** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING 256)256)1 N2,(ZI256):3,(ZI(ZI256)256)< N768:P NZH(37)::ZT60l NZ$:Z$"-MUSIC"20122 NZ037:ZH(Z):Z NZ033:Z1:768Z,Z1:Z: N** PRINTER ROUTINE - LOOKS FOR COMMUNICATIONS, SERIAL, OR PARALLEL PRINTER INTERFACE IN PRUN PRINT"& USER DEFINED FUNCTIONSA START OF MAIN PROGRAMS 'EXIT ROUTINEu ':::(4)"PR#0":(4)"IN#0" $':255:(4)"MAXFILES3" * NMECC SUPPORTED SUBROUTINES NZIZDZT:ZJZH(ZP): MUSIC ROUTINE. N0,(ZJ256):1,(ZJ(ZJPPLESOFT (FP)$ ASSOCIATED FILES:* 6 40000w I802811:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96 INITIALIZATION :: 255 D$(13)(4) D$;"NOMON I,C,O" ,:(4)"BRUN INPUT":IN$"" 6FI$"" @::(4)"B2234,0::10:"INSERT THE DISK THAT YOU WANT"O7"THE PROGRAM SAVED ON."xF20500::10:"ONE MOMENT PLEASE..."P24:34,23:Z(4)"OPEN";\(4)"WRITE";a33,33b99,63999:(4)"CLOSE":nNAME: VERSION: LANGUAGE: A            `UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&    4000!  SELECT SINGLE ROUTINE.* OP1| :3:"WHAT DO YOU WANT TO CALL":"YOUR TEXT FILE?";B$:(B$)1(B$)302010 31000:21:"WHICH ROUTINE DO YOU WANT?";R$ R(R$) R1RX2020 I1X:R(I)1:I:R(R)0:ZZ123:4505  WRITETARTER PROGRAM":13:"OF SELECTED ROUTINES"::10:"2) READ ONE ROUTINE INTO A":13:"SPECIFIED FILE, FOR USE IN":13:"AN EXISTING PROGRAM" 5:868:5:"WHICH OPTION DO YOU WANT>";A$:A$"1"A$"2"Ģ21:10:"ENTER 1 OR 2 PLEASE";:1030 A$"1"K"* CH$(3),C1(3),C2(3),C3(3):QT$(34)\ CH$(1)"SMALL":CH$(2)"MEDIUM":CH$(3)"LARGE" C1(1)7:C2(1)7:C3(1)1:C1(2)11:C2(2)9:C3(2)2:C1(3)15:C2(3)11:C3(3)3  D$;"PR#0" :10:"STARTER PROGRAM CREATOR" 8:10:"1) CREATE A S SCR.FILE,STARTER-P : ::10000:D$(4)::255V D$;"NOMON I,O,C":204p D$;"DELETE SCR.FILE"{ 216,0 X13 :R(X),R$(X),C$(X):I0X:R$(I),C$(I):R(I)1:I HM22016:ZE21632:SI$"32K":(978)157HM38400:AD38016:SI$"48Md COPYRIGHT 1979 MECCPn NAME: STARTER VERSION: 2/5/80VpoqLAST UPDATE: 2/3/81urx AUTHOR: MIKE STEIN MODIFIED:CRAIG COPLEY, AGAIN BY DARRELL RICKE LANGUAGE: APPLESOFT(FP) ASSOCIATED FILES:           $4r266f u$$$ruۛ e 26v- %$4666?66------66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@F)@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;     ZG(ZW49152)256OZJ13FO(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20260NOZJWOZJ0_O: O NO KNOWN PRINTER INTERFACE FOUND!OZJ1:ZG1$O FOUND INTERFACE 'ZJ' IN SLOT 'ZG'.O:202128OZE216329O10: :O(4)"BLOADLARCH-",24,56,56,24,72,728OZI$:ZI$"-SEARCH-"20243UOZJ13:Z5(ZJ),Z7(ZJ):`OZ2(2)xOZW4940850944256OZK02:Z2(ZK)0OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::OZ2(0)Z2(1)Z2(1)Z2(2)Z2(2)256Z2(0)256Z2(1)25620255OPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERoOZH80x OZV0 O:10:"ONE MOMENT PLEASE..." O20280O SEARCH SLOTS FOR A PARALLEL OR SERIAL INTERFACE OZ5(3),Z7(3)O: "-SE:NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290UN(13);(4);ZF$:20290N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA17:ZN$"10"ZA82eO ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTLLEL"RN(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220N1000N10:ZJ120289E FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TN ** ROUTINE USES LINE #'S 20200 - 20299 AND 61000 - 61099NNZQĺ(13);(4);"PR#0":(4);"IN#0"NZF$"COMM, SERIAL OR PARATHE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0. rN ** IF YOU HAVE A SPECIAL INTERFAC1N:10:"INSERT THE DISKETTE THAT CONTAINS"::"THE TEXT FILE.":1000::Z2000:N ** PRINTER ROUTINE - LOOKS FOR COMMUNICATIONS, 2, OR 3ALLEL PRINTER INTERFACE IN PERIPHERAL SLOTS. N LAST UPDATE: 7/11/80^N ** TO USE: CHANGE HALTED.":D$"CLOSE":"ERROR #"ER:22016:6C1535x(7)"-END OF INFORMATION-"D$"CLOSE"D$"PR#0"D$"IN#0":22016:24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:10::W91ıW9ŢκҺIJIJͺϲ΍̱̲ŠōŠźԠŠŢͺĠҭЍ̴̲̲̲̲̲̲̲̱̳̳̲̲̲̲ź  $TT$`lTTLTxpHTTT$TzTTTj TTۅ6T7]8U9 h`TTTHɍ, $i)$hLU$8T T *UΉTh *UT$TTT(`HT$hT ɍTX ­TT0ݥ$T`($TT$(H)? @(h Uɛɕ HELP 010:"APPLE EDITOR COMMANDS":Y" EDIT FUNCTION COMMAND":c32,5l" ""INSERT";23);"I""QUIT (FOR PROGRAMS)";23);"Q""NEXT";21);"N, N-""REPLACE";23);"R""PRINT";21);"P, P-""TOP";2"LOAD ";A$`"0PRINTCHR$(4);";(34);"OPEN ";B$;(34);":PRINTCHR$(4);";(34);"WRITE ";B$;(34)$"1LIST2,63999:PRINT CHR$(4);";(34);"CLOSE";(34);":END"."RUN"8"LOAD SEQUENTIAL EDITOR"B"DELETE EDIT.SCR"LD$;"EXEC EDIT.SCR"V;N$;RR$:D$:900050g768::D$;"CLOSE ":D$;"OPEN ";N$;LL$:C$:D$;"READ ";N$;",B";PC:9000}TCTCI1:D$:50:"WHAT IS YOUR PROGRAM NAME?";A$:"TEXT FILE NAME?";B$:D$;"OPEN EDIT.SCR"D$;"WRITE EDIT.SCR" "NEW":;N$;LL$&PD$;"READ ";N$;RR$:D$:50@R"**LINE ";P;"**":50TkFIND LAST LINE^mPP1hp899{sD$;"READ ";N$u1xPCTCLC1:ILC1yC$A$zPP1885EOF ROUTINE P1:TC0:D$;"CLOSE ":D$;"OPEN ";N$;LL$:D$;"READ "CTCLC1:X8LC:I 735- TOP OF FILE :%P1:TC0y*D$;"CLOSE ":D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$:D$:509SET TO RECORD ZERO>"RECORD LENGTH?";LLC"WHICH RECORD?";RRHLL$",L"(LL):RR$",R"(RR)MD$;"CLOSE":D$;"OPEN "Z11PPZ1Z1Z11.D$;"READ ";N$QI1Z1:1:PCTCLC1:X8LC:IZD$;dC$A$D$;"READ ";N$;",B";PC:TCTCX81D$C$50PPZ1D$;"CLOSE ";N$:D$;"OPEN ";N$;LL$:D$;"READ ";N$;RR$TC0I1P:1:P1670*D$;"READ ";N$:1:D$;:A$:PP11IbPP1:D$;"READ ";N$;",B";TCLC1:TCTCLC1jD$r50D$::" **PRESS 'SPACE BAR' TO CONTINUE**"X$:ZQ0:651POINTER MOVE 90009800Z10765Z10N> ";:9200H(A$,1,3)"END"ĺD$;"READ ";N$;",B";PC:D$:TCTCX8:50]PCTC:X8(A$)1jTCTCX8~5D$;"WRITE ";N$6A$7PP1:D$?515XPRINT ROUTINE Y9000]ZQ0b9800gZ10Z11I1Z1ZQZQ1:ZQ2 'END' TO EXIT**"$y"IN> ";:9200B|(A$,1,3)"END"PI:305Z~PCX8:X8X8(A$)1}II1:D$;"WRITE EDIT.SCR":A$D$:377D$;"READ ";N$;",B";PC:TCPCD$:50INPUT MODE768PCTC"**TYPE 'END' TO EXIT**" "I16301,ZF:K V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230x V22080:ZX276ZW8:ZT$"TO GO ON":22230 VZ1(ZS1)84:(16384)12722070 VZ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090 ,V(16384)128İ2PROGRAM 'EXIT ROUTINE; ':::(4)"PR#0":(4)"IN#0"W $':255:(4)"MAXFILES3"] *} NMECC SUPPORTED SUBROUTINES U232,0:233,64:230,32 UD$"BLOADSMALL CHARACTERS":ZH7:ZW7:ZA1 U62450:16297,0:16302,0:16304,0:3:1:0: U #nNAME: MC6-3 VERSION:6/20/82<xAUTHOR: JACK COX IIZLANGUAGE: APPLESOFT (FP)qASSOCIATED FILES:wINITIALIZATION8192::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS START OF MAIN      $$`lLxpH$zj ۅ67]89 h`Hɍ, $i)$hL$8툔 *Ήh *$(`H$h ɍX ­툔0ݥ$`($$(H)? @(h ɛɕ Դ$$56666-----66666?????$$$$$-----66666?????$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666-----66666?????$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$$$66666-----$$$$$?????56666.$$$$$56666.$$$$$56666.$$$$$56666.$$$6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$=e?B  DH LX*L5?     ୢ`@ ˪  筤 2H h X`ʆ ݠ`hhL.dd J -Lz hhL5 L- a   LJ a# XԠ H,Q Ġ H iɍ,P  HLB aL aL oL oL   L  ɿ L :` L խL H D  LL5G I(!~ H LI   H  X` Hp H i80   B LB :( H`  : H`L5  u L  xjjmmHjhJJJJ)j L  L  L   H Dg b T  H    I   xLL L5t  H Dc^Y@R C B BH h B  BL L5` T6I666?/6666d $ 6666646$du6&$ 56&I6&$t -6& -u6?$2666$$d -6? u$666$$26&d -? --??-u??< 6-??-66ve26- $6662ve $626f u$$ru e ?26- $666?//*----=*----& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6ŠōŠήō̲źöՠκҺˠؠɍͺϲ΍̱̲ŠöՍōŠźԠŠŢͺĠҭЍ̴̲̲̠̲̲̲̲̲̲̱̳̳̲̲̲Ѝ͠Ӡ٠ź͠Ӎ͍ҠؽϠĠıŠجıԍԠҤŠ͠Ӭ̱č**hQ**E+i+$$! $%%# bEEEhh`D76  "(!#@`"E% E*&+'% E!&*'i' E0EE#0̥#%% E*!0 E0`+i+`%J)+%j )* * (je$*` >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH <&""" ,2"<"><$ " "&""  0 $" "8****&"""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>?LD"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> """6"">" >>::>>>!! ! ! ! ! ҠԠ ϠҠҲҠŠƠԠԠ ŠԠԠΠˠŠРԠĠ͠ ŠΠĠРРΠŠ HQaRbR`tR O`جŬЬŮPTPPQPQHaRQbR2QQPQP2Q `R0Q< `R͹TPP0Q멅 N2Q NLP0QaRm0QaRbRm1QbRLPT ɍ NQQQPQPLP N N`T)mTT4Q5Q`Š̠ŠҠ͠ĠȠi 3Q L`ΠҭǮŠˠӍȠӮOO lSO OO`}< =<Prɍ褐́PBͅP=Pɺ4ɰ.e<<e==T%<ݙTT<ɍԩ<<ᭀP`Q84Q铭5QT O`H O O^h Oc O7 O O, O$ O O O O O O O Oi O O O Oh Oɍ O O OOTO P` TOO` 3QT -M 3Q 3Q 3Q 3QOT O MO /S΍OLzK4QT5Q 3Q 3QT 3QOO) M`MMM \SɃMMM`LzK4Q5Q ^M ɕ`h/Nh0N XiN1JNJjN /S`N K JNJiNL ?N/N0NLH3$hiN`} @NAN`Nh ?NLhɍN`ǍǠƠō 3Š̠ӠΠЍŠήō