L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[O USE ANY OF THESE UTILITIES, LOAD ";VT"THE APPLESOFT PROGRAM INTO MEMORY. WITH";^"THIS DISC MOUNTED IN THE ACTIVE DRIVE, TYPE ";h"IN 'BRUN' FOLLOWED BY THE UTILITY'SNAME."r:" THEIR NAMES ARE:": |" VAR@ - LISTS THE VARIAB KEYEDIT', AND YOU'RE IN BUSINESS."c:" PLAY WITH IT SOME. IT'S EASY."":" NOW PRESS THE SPACEBAR, AND WE'LL TALK ABOUT THE UTILITY BELT - ";,C$6@" * THE APPLESOFT UTILITY BELT *"%J:" T KEYEDIT. FROM THE MONITOR, 38:0 3 (RETURN) WILL RECONNECT IT. THEN USE 3D0G TO RETURN IF YOU WERE IN BASIC"6:" IF MEMORY IS LOST, TYPE 'BRUNEDIT RESIDES IN THE SPACE JUST ABOVE $300 IN MEMORY. IT WILL WORK IN APPLESOFT, INTEGER BASIC, AND WITH THE MONITOR.":" RESET WILL DISCONNECT BRING MY PRINTER ON LINE IF I SEND IT. SO, TO GET IT TO GO OUT AS CTRL Q FROM MY KEYBOARD, I TYPE CTRL K, CTRL Q.":" PRESS THE SPACEBAR - ";C$:4:" KEYDES TO THE OUTPUT PORT, PRESS CTRL K FIRST. "" THE CURSOR WILL STOP BLINKING, AND THE NEXT CHARACTER WILL GO OUT EXACTLY AS TYPED.":" FOR EXAMPLE, CTRL Q WILL M ENDED":360 ^FI$" IS "E$) h:2: AĠ֬ӶIJ)F.?6Ur.?6UrE()FCNTb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵IS RATHER SMALL."1 V:" DEPRESS SPACEBAR";9 `C$] j::" HOW IT WORKS" t:" THE UTILITY BELT IS ACTUALLY A SYSTEM OF SIX PROGRAMS. "; ~"THE REAL WORK IS DONE BY VAR, LIT, AND REF. ";!"THE OTHERS, VAR@,LIT@, AND REF@, FAIR KNOWLEDGE OF THE APPLE SYSTEM, AND IS NOT STRICTLY NECESSARY FOR THE PROPER OPERATION OF THESE PROGRAMS." L:" THE ACTUAL PROBABILITY OF EXCEEDING AVAILABLE MEMORY ENOUGH TO"." FREE UP THE SPACE NEEDED."Z" IN MORE EXTREME CASES, A TECHNICAL"$" UNDERSTANDING OF HOW THE UTILITIES"." WORK MAY BE NEEDED. DEPRESS SPACEBAR."8C$B:6:" THE INFORMATION THAT FOLLOWS ASSUMES A." IF THERE IS INSUFFICIENT ROOM IN"\" MEMORY FOR THE UTILITIES TO OPERATE,"" CONTROL IS RETURNED TO BASIC BEFORE"" THE BASIC PROGRAM IS DESTROYED."" USUALLY IF THIS OCCURS, DELETING A" " LINE OR TWO OF REMARKS IS CAUTIONS "!15:" "+::Z" ALL OF THESE UTILITIES REPLACE THE"" PROGRAM IN MEMORY WITH THE LIST THEY"" GENERATE. BE SURE YOU HAVE A COPY OF"" THE PROGRAM. THE PROGRAM IN MEMORY"" IS DESTROYED!"F VARIABLES"7>" FROM A VERY LONG PROGRAM CAN BE"bH" LONG AND CUMBERSOME. A SHORTER"R" VERSION CAN BE OBTAINED BY RUNNING"\" VAR@ ON THE LIST ITSELF."a:" SPACEBAR..";fC$p:2::15:" " z15:"IF ... THEN "," (LINE NUMBER) ALSO."\ :" ANY OF THE LISTS GENERATED CAN BE "" SAVED, LOADED, OR LISTED AS AN" " APPLESOFT PROGRAM. IN FACT, YOU"*" CAN RUN THESE UTILITIES ON THEM." 4" FOR EXAMPLE, THE LIST ORATED BY REF@,">" THE FIRST NUMBER IS THE DESTINATION"j" OF A GOTO OR GOSUB. THE REST OF"" THE NUMBERS ARE THE LINES WHERE "" THE GOSUBS OR GOTOS ARE."" REF@ CAN HANDLE ON ... GOTO, " " ON ... GOSUB, AND TERALS. IF YOU FIND A LINE WITH"Lv" ONE QUOTE MARK AND A COMMA, THE"y" LITERAL WAS A NULL, (TWO DOUBLE"" QUOTES RIGHT TOGETHER) OR ELSE"" ALL SPACES.":" SPACEBAR...";C$:2:" IN THE LIST GENET LIST IS TOO LONG,"B:" A NEW LINE IS STARTED FOR THE SAME"pD" VARIABLE. $ AND % ARE INCLUDED IN"N" THE NAMES, AS WELL AS '(', WHICH"X" INDICATES AN ARRAY VARIABLE"b:" LIT@ WORKS THE SAME, BUT FOR ASCII"!l" LISHED,"3" TYPE IN 'LIST'. IF YOU RAN VAR@,"^" YOU WILL FIND A LIST OF ALL THE"" PROGRAM VARIABLES, IN ALPHA ORDER,"" FOLLOWED ON EACH LINE BY A LIST OF"&" THE LINES ON WHICH THE VARIABLE"0" APPEARS. IF THA (EVERYTHING BETWEEN QUOTES)";T" IN ALPHA ORDER, WITH LEADING";x" SPACES DELETED.":"DEPRESS SPACEBAR TO CONTINUE -";C$:2:" WHAT YOU SEE WHEN THE SMOKE CLEARS":" AFTER THE UTILITY IS FINILES USED ";2" IN ALPHA ORDER. "b" REF@ - LISTS ALL THE ENTRY POINTS";" FOR THE SUBROUTINES AND";" PROCEDURES IN THE PROGRAM"" LIT@ - LISTS ALL THE LITERALS ";"" HX$,I,1))128::72,0:144$ n768%~ NFC HELLO BY RICHARD E RETTKE 1757 ACORN CT, MENASHA, WI 54952 (414) 731-7091 * 80-09-24 CALL -APPLE * NOV-DEC 1980  dHX$"300:20 54 FF 9A 68 18 69 11 85 38 68 69 0 85 39 20 EA 3 60 48 29 3F 91 28 68 4C 1B FD D0 ND823G":I1(HX$):511I,(( %16DH%(DL%16)2DDL%16(DL%(DL%16)16)T%9NILXEDDH%256DL%RbDH%256DL%f7bDH LETTER2T%((B$,I,1)):GET NUMBER OF LETTERuT%127T%T%12810040T%(MID(B$,I,1)):GET NUMBER OF LETTER T%T%48:AUBTRACT ASC OF ZEROT%0470T%10570: NUMBER 0 TO 9 &T%T%7:SUBTACT SO A=100T%10T%15470:DH|PRINT NEXT BYTE1 A%(ST)16:B%(ST)A%16W (A$,A%1,1);:(A$,B%1,1);" ";` 320o " " D$;"CLOSE" D$;"NOMONO"  B$:(B$)0(B$)5480 "ERROR - REENTER":460 T%0:DH%0:DL%0I1(B$): CHECK EAC420I TST(ST8)8390: PRINT ADDRESS ONLY WHEN DIVISABLE BY 8(HEX) ^:A%ST4096:B%STA%4096:(A$,A%1,1);:PRINT ADDRESS HI DIGIT hA%B%256:B%B%A%256:(A$,A%1,1);: NEXT rA%B%16:B%B%A%16:(A$,A%1,1);:(A$,B%1,1);"- "; ADDRESS, HEX "; 460* D$;"CATALOG"J "INPUT THE FILE NAME ";FI$] D$;"OPEN";FI$r D$;"DELETE";FI$ D$;"OPEN";FI$ D$;"WRITE";FI$ "A$;".";B$ ,A$"0123456789ABCDEF" 6350:SKIP CHECK AND PRINT ADDRESS @STST1 JSTED"+ "POINTER (HEX 67,68-DEC 103,104) TO"Q "PROTECT THE AREA TO BE DUMPED."W "INPUT YOUR STARTING ADDRESS, HEX "; 460:GET ASCII AND CONVERT TO HIGH AND LOW DEC VALUES FOR POKING SL%DL%:SH%DH%:A$B$:STED "INPUT YOUR ENDING .ABS IS BLOADED.".(n:" BLOAD VAR,A$1000"D(x" POKE 4100,0"Z(" POKE 4106,0"(" BSAVE VAR.ABS,A$1000,L$330"(:"GOOD LUCK, AND ENJOY!";C PROGRAM FIRST! "k'Z" OF COURSE, THE UTILITY WILL STILL STOPBUILDING TABLES $330 BELOW HIMEM:. ";(d"TO CORRECT THAT, AND GET THE MOST MEMORY SPACE, THE FOLLOWING PROCEDURE, USING VAR AS AN EXAMPLE, WILL ALLOW TABLES UP TO HIMEM: WHEN VAR:" IF YOU HAVE PLENTY OF ROOM IN MEMORY,YOU MAY WANT TO BLOAD THE UTILITY AT A KNOWN LOCATION, MOVE HIMEM: DOWN TO PRO-TECT IT, AND LEAVE IT THERE. ";&F"IT CAN THEN BE CALLED AT ANY TIME FROM BASIC. ";'P"ALWAYS REMEMBER TO SAVE THE BASIC WRITE A RUNNABLE PROGRAM THAT HAS THAT LITTLE MEMORY AVAILABLE FOR VARIABLE STORAGE. ";%"THIS SUGGESTION IS INCLUDED ONLY BECAUSE SOMEBODY WILL. ";%:" SPACEBAR ONE MORE TIME - ";%(C$%2::" FINAL SUGGESTION "&<ING MAXFILES 1 WILL ACCOMPLISH THAT. ";j$"DELETE ANY EASY TO GET RID OF REMARKS IN THE PROGRAM. ";$"IN REALLY BAD CASES, DELETE HALF THE PROGRAM, RUN THE UTILITY, RELOAD, AND RUN IT ON THE OTHER HALF. ";[% "IT SHOULD BE IMPOSSIBLE TO SUES A WARNING BEEP AND RETURNS CONTROL TO BASIC. ";U#::" DEPRESS SPACEBAR."]#C$#::" IF IT BLOWS UP":#:" TO MAKE SURE THERE IS ENOUGH MEMORY AVAILABLE, THEN, MOVE HIMEM: AS HIGH AS YOU CAN. ";($"USUALLY JUST USCATION. "}"" THE UTILITY THEN BUILDS THE TABLES IT NEEDS ABOVE THE BASIC PROGRAM, AND BELOWITS OWN STARTING POINT. ";""IF THE TABLES GROW TO WITHIN $330 OF HIMEM:, THEY WILLOVERRUN THE UTILITY IN USE. ";5#"IF THIS OC-CURS, THE UTILITY ISARE LOADERS. ";Z!"WHEN THEY ARE RUN, THEY LOAD INTO THE KEYBOARD BUFFER SPACE. "; ""THEY FIND HIMEM:, SUB- TRACT THE LENGTH OF THE PROGRAM THEY ARELOADING, ($330 OR 816 DECIMAL IN ALL CASES) AND BRUN THE UTILITY ITSELF AT THAT MEMORY LOf768,72:769,169:770,223:771,145:772,40:773,104:774,76:775,27:776,253:56,0:57,3:1002: REF:STEMS FROM APPLE FEBRUARY,1981 PG 3 THIS PROGRAM CHANGES THE  CURSOR. POKE DIFF NO'S  IN POKE 770.":"WAS LONGER THAN THE DECLARED RECORD SIZE":= 0uER(222) buER5TRĺD$:"THERE ARE ";TR1;" RECORDS NOW IN ";RF$:D$;"CLOSE ";RF$:D$;"OPEN ";RF$;",L";NB:TR0:65 uER5ĺ:"THERE ARE NOW ";SR1;" RECORDS":D$;"CLOSE"dJ:D$;"READ ";RF$;",R";TR:A$:62E A"WRITE STARTING AT RECORD: ";SRY FD$;"READ ";TF${ PA$:(A$)13LN$LN$A$:80 U(LN$)NB10000 ZR$;D$;"WRITE ";RF$;",R";SR _LN$ dSRSR1:LN$"":70/ 'D$:"THERE WAS A LINE IN THE SEQ FILE THATSIRED # OF BYTES/RECORD: ";NBS 2M$"N"ĺD$;"OPEN ";RF$;",L";NB:D$;"DELETE ";RF$t 7D$;"OPEN ";RF$;",L";NB:SR1 9M$"N"70 <:M$"A"ĺ:"DO YOU NEED TO KNOW THE CURRENT NUMBER":"OF RECORDS IN THE RANDOM FILE? ";Y$:(Y$,1)"Y"65 >TRTR1 THE LONGEST":"LINE IN THE SEQUENTIAL TEXT FILE.":::k "MAKE NEW FILE OR APPEND TO OLD (N/A)? ";M$: M$"N"M$"A"10 D$;"CATALOG": "ENTER SEQ. FILE NAME: ";TF$: D$;"OPEN ";TF$ ("ENTER RAND FILE NAME: ";RF$:"ENTER THE DE 30000!D$"":R$(13)7D$;"NOMON C,I,O":"THIS PROG WILL TAKE A EACH LINE IN A":"SEQUENTIAL TEXT FILE AND PUT THEM IN":"RECORDS IN A RANDOM ACCESS TEXT FILE.":"YOU MUST DEFINE THE RECORD LENGTH AS"8 "THE NUMBER OF CHARACTERS INVE TO DISK :D$;"CLOSE"1D$;"NOMONO,I,C"J 216,0:CLEAR ON ERRP*j4PRINT MEMORY TO FILE>:D$;"WRITE";FO$HISTME:((I));:RW:((I));:Rh"ERROR NO ";(222);" AT ";(219)256(218)6800OEF770: NORMAL ENDD$;"DELETE";FI$: END OF DATA BEFORE READING ANYTHINGWRĺD$;"DELETE";FO$: REMOVE WRITE IF NO DATA"NO SUCH FILE NAME"790 WRİ820:IF WRITE THE SANFI$FO$6104X"DUPLICATE NAME-REENTER":580CbD$;"MONO"VlD$;"OPEN";FO$kvD$;"DELETE";FO$~D$;"OPEN";FO$WR0: SET WRITE FLAGERROR AND ENDING ROUTINE:D$;"PR#0"(222)5720:ERROR 5=END OF DATA ON FILE-2400:T:< ""TO REINSTATE NORMAL PRINTOUTS, TYPE 'PR#0'."X 'T15000:T:"":^ ,I11400:T: "NEXT TYPE 'CATALOG' AND YOU WILL GET A LIST OF ALL THE FILES, WITH ANY CONTROL CHARACTERS SHOWN AS ";::"FLASHING";::" CHARACTERS." T14200:T: "CONTROL CHARACTERS IN PROGRAM LISTINGS CAN ALSO BE FOUND THIS WAY." T1RL-M' (RETURN), ESC, 'CTRL-H' (LEFT-ARROW) AND 'CTRL-U (RIGHT-ARROW)."Y T14200:T: "IF YOU SUSPECT YOU MAY HAVE ACCIDENTALLY INTRODUCED A FILE NAME, RUN THIS PROGRAM." T12800:T: "THE APPLESOFT PROMPT (]) WILL BE DISPLAYED." T T17000:T: "IF A FILE NAME CONTAINS CONTROL CHARACTERS, YOU WON'T SEE THEM PRINTED, BUT THEY MUST BE TYPED TO USE OR DELETE THE FILE." T14600:T:F "THE FOLLOWING APPLESOFT PROGRAM CAN BE USED TO FIND ANY HIDDEN CHARACTERS EXCEPT 'CT";:I$ I$"Y"ı! :936 "WHEN TYPING FILE NAMES, THE USE OF SPECIAL KEYS SUCH AS 'ESC', THE LEFT-ARROW AND RIGHT-ARROW KEYS, AND CERTAIN KEYS TYPED WITH THE 'CTRL' KEY ('CONTROL' CHARACTERS 'CTRL-C', 'CTRL-H') MAY HAVE UNEXPECTED EFFECTS."_ :9362004 201,141,240,21,201,136P 240,17,201,128,144,13k 201,160,176,9,72,132( 53,56,233,64,76,2492 253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002d "DO YOU WISH INSTRUCTIONS (Y/N)     iLJ@ȥK@JK@A@BACȱD@,@ȩ @ȘHFȱFЅFGFȱF΅]&eeeآ) 0ʹJJJJ 0ʈУ 00h@Зhe@@eAA@8iBȥAiBHFIGHЬBȑBBiCFȱFFGD F F8gF@@HȥG@AHȩ@ȑ@ȱD@@FAG8e@@AFȪF FFGAF@@@FK@J@e@@A8A;@: LFKȄJGg8B@hCAȱFDFIFH@@e@@eAA8e@BeAB@LOSE":40 uD$;"CLOSE"HAT IS THE RECORD LENGTH? ";NB< (:D$;"OPEN ";RF$;",L";NBi 2"READ WICH RECORDS (FROM,TO)? ";R1,R2:v <IR1R2 FD$;"READ ";RF$;",R";I PA$::A$;:(A$)1380 Z:D$::50 0uER(222) uER5ĺD$:"RECORD CALLED OUT OF BOUNDS":D$;"C D$""30000 "PROGRAM TO DISPLAY RANDOM ACCESS FILES":"ASSUMES ONE LINE OF TEXT PER RECORD...":"(I.E. ONE RETURN CHARACTER/RECORD" :"HIT ANY KEY TO CONTINUE":A$::D$;"CATALOG""RANDOM TEXT FILENAME: ";RF$ "W  A5 9B A4 9C 38 E9 01 20 50 D8 4C A6 D9 60"@ Y$Y$" N D823G"O I1(Y$)k 511I,((Y$,I,1))128y :72,0: ;A$:A$"Q"Ā D$(4)3 D$;"OPEN RESTORE LN"N D$;"WRITE RESTORE LN"\ 10,63120l D$;"CLOSE"r  63100:144:1013,76:1014,64:1015,3+ |Y$"340:C9 52 D0 26 20 B1 00 20 67 DD 20 52 E7 20 1A D6 90 08 A0 04 B1 9B C9 83 F0 03 4C 7C D9{:"THIS PROGRAM CREATES A TEXT FILE WHICH WHEN EXEC-UTED ADDS LINES TO YOUR PRO- GRAM TO RESTORE READS TO A SPECIFIC DATASTATEMENT. TO USE ADD & ::" LOADING FILE INTO MEMORY"::p ST(110)256(109)30:BEGING OF FREE SPACE MEST:MEMORY POINTER MX(112)256(111):TOP OF FREE SPACE PUT IT IN MEMORY ME,(A$) A$:(A$)270 MEME1:MEMHER TEXT FILE": d:"INPUT NUMBER FOR TYPE OF OUTPUT";ITN nIT0IT4ī100` xD$;"CATALOG" "TEXT FILE NAME TO BE READ?";FI$ IT410,430,500,570:INITLIZE D$;"OPEN";FI$ D$;"READ";FI$ A$: GET FIRST CHAR EF1:SET FILE* WR1:D$(4):D$"NOMONI,O,C":CTRL-D9EF0:680E:936m(5:"TEXT OUTPUT/DUPLICATE PROGRAM"u2:<:"1. OUTPUT TEXT FILE TO SCREEN"F"2. OUTPUT TEXT FILE TO PRINTER"P"3. OUTPUT TEXT FILE TO MODEM" Z"4. COPY TO ANOT      RU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2048` `D` , DISKETTE COPY ROUTINE LAWRENCE HALL 0F SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SINGLE CONTROLLER3. DUAL DRIVE, DUAL CONTROLLERWARNING: DISK ERRORS:TRACK 2, SECTORS 9 TH Lj ` ȑL+  ȑ ` ɀ   , ERROR (  0ɀD , DRIVE ERROR)L , WRITE PROTECTED)L , VOLUME MISMATCH)L , READ ERROR) , ABORT? L L$ , SLOT=   )  [$ , DRIVE=   )Յ`ȑ` W  i8ȱ 8 &d [ , TRACK= , SECTOR=   C =?C<>B< , i #ȑ"L,,,` 0  ɍ` Xhh L4 HH`, , PRESS RETURN TO CONTINUE ɍ ` [$ , VOLUME=L X$0! L ) INSERT MASTER DISKETTE` X$0 , INSERT COPY DISKETTE M LX , DISKETTE:  [O. OF COPY DISKETTE jɍ) e e x  ) INITIALIZING   i L   , READING  c  $ , WRITING  c #а  [ , DISKETTE COPIED.  , ERRORS.ȥ  " X [ , SECTORS/LOAD= $ , AND COPY (BLANK) DISKETTE M    i L  x W X , DO YOU WANT TO INITIALIZE COPYDISKETTE? 3 ȑ  i L  x Lc ) VOLUME N[7 `L  ȑ3L n X , SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?  ` e8/ ) MASTERJJJJȱ JJJJ , COPY   #a(Šŭ҇)_a@E()a@E()E@ q]ԠŠ[]ԠŠ[Ҡ]ӠĠ٠ ][]͠ǪS(͠ԠϿ)'a@E(ң)Fc]٠Ҡ]ӠĠ٠ ][]ŠϠ٠S(ŠŠſ)&@`@:@$sa@E()E@xa@E()E@}R@ `$a@E()E@ a@_x a@_}$]РǠ̠ĠƠ]ΠϠǪ[]ҠǪS(ҠԠϿ)'a@E(ң)Fc]٠ϠϠ)&Ka(ԠԠŠϠ)$Pa(ԠԠŠϠ)$Ua(٠ϠҠԠ)+ZcS(ԠҠҠŠƠ)'_`%_Fda@E()"iS(ԠŠŠϠĿ)&@n\-]ԠӠŠӠ),-a(ŠΠӠƠŠ)%2a(Ԡ͠ƠŮ)07oa(ϠҠ͠ҠΠ)+<a(ŠϠҠĠƠ)Aa(ŠΠŠԮ)*Foa(ԠԠa'q@p()a(ɬϬ)]̭N@""rC@""rC@"r KM6d"eo)Pa(ԠԯŠ)cc-a(źӠ͠ӠԠŠĠ)-#a(ΠŠԠŮϠӠ)-(a( ƠŠ  Ed DISKETTE COPY ROUTINE*n BY LHSCx" BRUN COPY LHS.X"dd 700":LLIN:2G LMOD256L((L256)256):0,LMOD256:1,L256:2,IN:d I133:(95);::: LS 3 X::6:10:"LINE, INCR ";L,IN:::710S ::L(0)(1)256:IN(2)a :" ";L; " REM ";::"HHHHHHHHHHHHHHH";::800::"HHHHHHHHHH";::800::"HHHHHHHHHH";::800::"M";:: (37)18750 LLIN:710 (37)2:"GO TO h THIS PROGRAM LAST MODIFIED BY RUDY A. GUY ON 7-OCT-80  d HIDDEN REM FORMATTER BY VAL GOLDING n WRITE OVER UNDERSCORES AND TRACE OVER M' p"pppحp8 p ppꭽpp pخpͭpppp 4 : p H : )  Lpо pгpLeLp`p`pP`P` `HH8s0Ht h  hh`JJJJ ) ii`ΠƬ((((  BE UNPREDICTABLE!!! ***" LESOFT PROGRAMS." "YOU WILL BE PROMPTED TO ENTER THE SUBRTNFILE NAME, APPLESOFT PGM FILE NAME, AND THE FILE NAME YOU WISH THE LINKED PGM TO BE SAVED UNDER." :"*** NOTE: BE SURE THE FIRST TWO ARE ON THE DISK BEING USED OR THE RESULTS MAY: CTRL-C "LOAD ";P$) "CALL 804"9 "SAVE ";N$H "NOMON,I"` "DELETE TEMP EXEC"y D$"CLOSE TEMP EXEC" D$"MON,I" D$"EXEC TEMP EXEC"  "THIS PROGRAM LINKS MACHINE LANGUAGE SUBROUTINES STARTING AT HEX 818 WITH APP"CALL-151" d"300:18 AD 60 AA 6D 72 AA 85 67 AD 61 AA 6D 73 AA 85 68 A9 00 A8 91 67 18 A9 01 65 67 85 67 A9 00 65 68 85 68 60" n"324:A5 67 8D 10 08 A5 68 8D 14 08 A9 01 85 67 A9 08 85 68 60" s"80F:A9 00 85 67 A9 00 85 68 60" x"300G" }""INE LANGUAGE SUBRTN NAME":"==> ";S$:Y "ENTER APPLESOFT PROGRAM NAME":"==> ";P$: ("ENTER NAME LINKED PGM TO BE SAVED UNDER":"==> ";N$ 2D$"OPEN TEMP EXEC" <D$"WRITE TEMP EXEC" F"BLOAD ";S$ K"NEW" P"10 CALL 2063:RUN" Z= MACHINE LANGUAGE ROUTINE LINK TO APPLESOFT PROGRMSZ BY JOHN AND LLOYD PARK RUAG VOL 4 NO 1 MAR'81  D$(4): CTRL-DD$"PR#0"' "ENTER MACH  iBHFIGHЩBȑBBiCiLe@@eAA8e@BeAB@J@ȥK@JK@A@BACȱD@,@ȩ @ȘHFȱFЅFGFȱF΅]&eeeآ) 0ʹJJJJ 0ʈУ 00h@Зh@@e@@eAA@8iBȥADDʈ FHGIFȱFFGD F F8gF@@HȥG@AHȩ@ȑ@ȱD@@FAG8Ƙe@@AFȪF FFGAF@@@FK@J@e@@A8A;@: LFKȄJGg8B@hCAȱFDFIFH@@08s0:t; ? iei @eAg8BhCDEȱB>yȱB<ȱB=BiBC?DDFGDEȱ   PRINT CHR$(76);CHR$(69);CHR$(78);CHR$(71);CHR$(84);CHR$(72);CHR$(61);CHR$(32);L"e P"CLOSE BINADR"k Zl "OPEN BINADR"*"WRITE BINADR"P A = START, L = LENGTH (DECIMAL)w("A=PEEK(-21902)+PEEK(-21901)*256"2"L=PEEK(-21920)+PEEK(-21919)*256"<"PRINT CHR$ (83); CHR$ (84); CHR$ (65); CHR$ (82); CHR$ (84); CHR$ (61); CHR$ (32);A"P F" R$;"-";I)) )HX$"".)I3019)P16IH)H(DECP)X)DECDECHPr)HX$HX$(HEX$,H1,1)x)~)HHSS;" COMPLETE":7!")DA010410M,)"ADDRESS DATA RAM FAULT LOCATION"X6)216,0j@)DECAD:10670yJ)" $";HX$;T)DECDA:10670^)11:"$";(HX$,2);h)R$("CDE",(1AD16384),1)r)20|)I1031)DA2DA )DA255DADA256:25:" (7 (768* (AD256(867)(866)8 (DA(865)I (DA010540V (ILOHI{ (SA(I):I,255:DA255(I):I,SA (DA0ADI:IHI:10500 (SA(I):I,0:DA(I):I,SA (DA0ADI:IHI:10500 ) )PASSPASS1)22:12:"PASS ";PA840,0:841,165:842,01 F(843,141:844,98:845,3N P(846,165:847,1:848,141j Z(849,99:850,3:851,173 d(852,95:853,3:854,133 n(855,0:856,173:857,96 x(858,3:859,133:860,1 (861,96:862,0:863,0 ( (5:" 48K RAM TEST13,230:814,0:815,2081 '816,2:817,230:818,1N '819,165:820,1:821,201i (822,3:823,208:824,2 (825,230:826,1:827,201 (828,192:829,208:830,214 (831,240:832,8:833,141 ((834,97:835,3:836,173 2(837,94:838,3:839,145 <('786,3:787,132:788,14 '789,177:790,0:791,141P '792,94:793,3:794,169m '795,255:796,145:797,0 '798,81:799,0:800,208 '801,31:802,145:803,0 '804,81:805,0:806,208 '807,25:808,173:809,94 '810,3:811,145:812,0 '8F" ZLO768:HI1023 '* ' RAM TEST0 $'M .' SETUP ASSEMBLY ROUTINES 8'p L'768,165:769,0:770,141 V'771,95:772,3:773,165 `'774,1:775,141:776,96 j'777,3:778,169:779,2 t'780,133:781,0:782,160 ~'783,0:784,140:785,97 AREVISION 8-2-79 < WRITTEN BY PHILIP A. WASSOND :i"THIS PROGRAM REPEATEDLY TESTS""ALL 48K OF RAM""FOR 'HARD' ERRORS AND DISPLAYS THE"("ROW AND COLUMN OF THE DEFECTIVE CHIP."2I15000: PHEX$"0123456789ABCDE    ˨˨̽˨˨ԠҤҤҤҤҤҤҤԠҤҤҤҤҤҤҤҤ̍C$"L= RETURN TO END OF LINE= dC$"Q= DELETE REMAINING LINEO nE$;C$"L=LIST_ xE$"P= HOMEo E$"T= TEXT E$"X= CATALOG : " SPACE TO EXIT TO MENU":Z 6 ERUN MENU" @+"RUN PROGRAM EDITOR THEN:"::J E$"ESCAPE ":C$"CONTROL "ZE$"R= RUN"kE$"L= LOAD"|(C$"E= EDIT"2C$"F= FIND CHARACTER"<C$"D= DELETE CHARACTER"FC$"I= INSERT BEHIND CURSORPC$"B= RETURN TO BEGINNING OF LINE Z L(D$) S0$ JL1016 N(D8J.5)E SSN10JS DDN8JZ Jn :"OCTAL = ";Sv :| 'S$R$S$ DQ J+ :"HEX = ";S$3 :9 P "ENTER OCTAL";:O\ O$(O)h L(O$)p S0 JL101 N(O10J.5) SSN8J  OON10J  J  :"DECIMAL = ";S & :  "ENTER DECIMAL";:D D$(D)1L Q(D16)* R16(D16(D16)): R102100K *R$"A":2210[ 4R112120l >R$"B":2210| HR122140 RR$"C":2210 \R132160 fR$"D":2210 pR142180 zR$"E":2210 R152200 R$"F":2210 R$(R) 12:1190 `B$"D"1140) jN13:1190; tB$"E"1160J ~N14:1190\ B$"F"1180k N15:1190~ N((H$,J,1)) SSN16(LJ) J :"DECIMAL = ";S :  "ENTER DECIMAL ";:D D$(D) L(D$) S$" " JM1000,2000,3000,40003 P"MORE DATA (Y/N) -- ";; ZA$M dA$"Y"9999W n:30] u "ENTER HEX--";:H$ L(H$) S0 J1L B$(H$,J,1) $B$"A"1080 .N10:1190 8B$"B"1100 BN11:1190 LB$"C"1120 VN}, " BASE CONVERSION "4:W"MODES: 1 - HEX > DECIMAL"z(" 2 - DECIMAL > HEX"*" 3 - OCTAL > DECIMAL"-" 4 - DECIMAL > OCTAL"2:"WHICH MODE";<MAM1M2M3M450 F     z!#??XձҠ ŠŠҠɠŠŠҠɠ  ĠҠ! Ӡ ԠŠԯ٠ ԠŠԯ٠Щ ԠŠ͠٠ԠŠ͠͠ѠԠŠҠ ԠϠҠԠϠҮؠ! ŠŠ" ͠Ҡ ͠ҠҠ ͠Ԡˠ  Ơ  ͠Ҡ Ԡ٠à" ŠԠ ŠԠĠ Ԡ ͯРϠԠŠ ٠Ҡ Ġ ĠĠҠ Ġ ŠŠ͠ŠҠϠԠéԠ РıIJҠ٠ ٠Ӡ ٠Ӯؠ ŠŠΠ̠ҠĠҠȠҠϠȠ Ԡ͠Ҡ !Ԡ͠Үؠ"Ġ٠ŠŠԠҠҠŠ ٠ˠϠ  Š ԠϠԠéҠϠԠҠϠԮʠҠҮؠϠҠɠ Ϡà2٠Š̠Š® ̠Š®° ĠǠ "PRINT QUESTION #";I;". ";% dA$(I)+ nN x"WHAT IS THE ANSWER ? ";B$(I)` A$(I)""60{ "WHAT FILE NAME? ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I1 J1I1 A$(J):B$(J) J D$;"CLOSE ";N$  :10%A$(300):B$(300):I0:D$(4): CTRL D@(2"THIS PROGRAM LETS YOU WRITE TEXT AS EITHER QUESTIONS/ANSWERS OR PLAIN TEXT. DO NOT EXCEED 239 CHARACTERS."<FII1P"(PRESS THE RETURN KEY TO QUIT.) ZX12000:X::10:" d! n BY PHILIP A. WASSONM" :' "FROM THE MONITOR TYPE:"@"*AABB?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               A$)13450  & I7688086 J:I,J::O 169,1,133,30,169,25i 133,31,32,12,253,160 0,9,128,201,141,240,12 201,160,144,241,201 $224,144,2,233,97,105 .64,145,30,230,30,208 8227,230,31,208,223D |" SAVE TO WHAT DRIVE:";IN$8 IN(IN$):IN2390j D$"BSAVE TEXT."N$;",A$1900,L"E64001;",D"INx 18:958 " T)RANSFER ANOTHER, E)EDIT, Q)UIT"  "WHICH ?"; A$ A$"T"Ĭ A$"E"ĺ:D$"BRUNTEDITOR,D1" A$"Q"($:200 " FILE NOT FOUND !"A (IN)ĺD$"OPEN"N$",D"IN:220Q D$"OPEN"N$[ 320k D$"READ"N$t 768 @D$"CLOSE"N$ J216,0 O6400,131 TE(30)(31)256 YE,96 ^A$""N$"TRANSFERED" h18:20((A$)2)::A$: rd4096::nD$(4)0xI139:"*";:R4:10:"TEXT TO APPLEWRITER"q10:"---- -- -----------"{100010:" TEXT FILE TO TRANSFER:";N$:(N$)0Ģ22:12:958:" FROM WHICH DRIVE:";IN$:IN(IN$):IN2190 D$"VERIFY",N :Ġ֬ӶIJ)F.?6Ur.?6Ur RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA 7L@FINISHED-FEW CHAR LOSTFINISHED L ii 7 @7 / 0 @i i"""""73!40]/"! @!*ɍɟ ɿ)? ! ii`!  I  : 3!4/ 03 473i 4i/ 0 @ii0Pi#iՠ 0 Х  LFILE LOCKEDWRONG FILE TYPE !)  TEXT., / X36 SLOT NO. DEFAULT ` < `ة+L,JJJJ j)ɰЧ) ,E DRIVE NO. DEFAULT CATALOG INPUT FILE NAME FILE NOT FOUND- j)ɰМ)-  jX WHITTAKER ER:E-END": 34,0:35,22:$ N  FILL THE SCREN WITH GARBAGEd 500: SET WINDOWr I11000 J11000 (((1)256)); K1Y:K 100: READ KEYBOARD J:I K  FROM THE CORE  MAR'81 PG 7  BY ALE  1000d READ KEYBOARD/fX(16384)=h16368,0MjX127İ200Sm_ SPEEDyX211YY2:'S'PEEDX198YY2: 'F'ASTX197Ā:'E'NDY1Y1 INSTRUCTION WINDOW34,22: SET TOP :"F-FASTER:S-SLOW  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    ERR0ĺD$"RENAME"F2$","FI$:E$" NOW RECOVERED"; 190l "ERR0ĺD$"RENAME"FI$","F2$:E$" NOW HIDDEN"u ,190 6(222)6ĺ:"FILE NOT FOUND !":ERR1: @(222)255340 J:3:"UNEXPECTED ERROR !"::216,0: T::10:12:E$""ĺ"PROGRA)ND : ";:C$$ C$(3)C$"E"3404 C$"C"180M C$"R"C$"H"190~ :"WHAT IS THE FILE NAME :";FI$:FI$""190 (FI$)11ĺ"FILE LENGTH MUST BE LESS THAN 11 CHRS "::190 F2$FI$:I(FI$)130:F2$F2$(8): ERR0:C$"H"2902+d*******************3n* HIDE ! *Lx* MARK CAPELLA *e* 07.07.79 *~*******************:100,140D$(13)(4):310"(...HIDE...)":I11000D$"CATALOG" ::FI$;E$:::"(H)IDE, (R)ECOVER, (E @@,h`PQ/ Q^ذ""صؽXؾؽԶض}uy}uyu~vzu}uy@v~vzMEMEQhETNFREEQ8FFRIIadJb حaخb p @@ p @@ p @ p @@ D  D D  @@Y EOR INC INX INY JMP JSR LDA LDX LDY LSR NOP ORA PHA PHP PLA PLP ROL ROR RTI RTS SBC SEI STA STX STY TAX TAY TSX TXA TXS TYA ??? SEC SED 0؉)ؐ(؊*؉)4؊*r%-%ؘ%.& %%&&ؤ]]،]n^]]<^^ب!!ؔ!n"!!D THEN ASK FOR ANOTHER FILE NAME. INPUT NO.? INPUT STARTING ADDRESS (HEX) INPUT ENDING ADDRESS (HEX) ENDING LESS THAN OR EQUAL TO STARTING ADDRESS - REENTERBCC BCS BEQ BMI BNE BPL BVC BVS ADC AND ASL BIT BRK CLC CLD CLI CLV CMP CPX CPY DEC DEX DE NOTE HIT ANY KEY TO STOP AND TO RESTART. CTRL-C WILL RETURN YOU TO BASIC. NO. 3 WILL DISASSEMBLE ABOUT 23 BYTES INTO EACH DISK SECTOR THAT IT WRITES TO.IT USES AN ADDITIONAL SECTOR FOR THE FILE TRACK/SECTOR LIST. NO. 4 WILL DISASSEMBLE ABOUT 1/2K AN CLOSE MONI,O,C CATALOG INPUT FILE NAMEINPUT PORT NO. FOR PRINTERң ALL PURPOSE DISASSEMBLER BY LARRY FREEMAN 1 DISASSEMBLE TO SCREEN 2 DISASSEMBLE TO PRINTER 3 DISASSEMBLE TO DISK AS TEXT 4 DISASSEMBLE TO DISK FOR ASM/65   , @ 8@  ` ` BUFFER IS FULL, I NEED ANOTHER FILE NAME FOR THE NEXT BUFFER. BSAVE NOT HEX DIGIT, REENTER  .END *=$ WRITE OPEN DELETE $0#ɍ L  ` ` j> ɠ`& 8鰐 i  ` JJJJJ)` Lɳ  L Z  L H  H H  A Ls (  A L0 # $ )) , Y Ls ) , X ) $; L Ll H) h)`HJJJJ h) ɺi,ɃLɃL vݠ  ,  ,  ,  ,      L A    8ei 1$(A HheHe h Ls   / X 3O O ɱɵ + ;  J ;   f ɲ1.   I   ɳLE @]  j  ɳ)O٩     Ԡ͠ĠΠԠŠĠǢİǍԢ΢̤ԢŢ̤Ԣ΢̤ԢŢ̤ŷ˨ŷ˨ŷ˨ŷ˨Ų˨Ų˨ԺԢԢŢčԢϢϱԢϢԃ̭ųҍԢɬϬâŷ˨ŷ˨ŷ˨ŷ˨ŷ˨ŷ˨̭ðΠôĠŠààùijĴùŠ÷Š ðΠ @@,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hذ""صؽXؾؽԶض}uy}uyu~vzu}uy@v~vzMEMEQhETNFREEQ8FFRIIadJb حaخb p @@ p @@ p @ p @@ D  D D  @@Y EOR INC INX INY JMP JSR LDA LDX LDY LSR NOP ORA PHA PHP PLA PLP ROL ROR RTI RTS SBC SEI STA STX STY TAX TAY TSX TXA TXS TYA ??? SEC SED 0؉)ؐ(؊*؉)4؊*r%-%ؘ%.& %%&&ؤ]]،]n^]]<^^ب!!ؔ!n"!!D THEN ASK FOR ANOTHER FILE NAME. INPUT NO.? INPUT STARTING ADDRESS (HEX) INPUT ENDING ADDRESS (HEX) ENDING LESS THAN OR EQUAL TO STARTING ADDRESS - REENTERBCC BCS BEQ BMI BNE BPL BVC BVS ADC AND ASL BIT BRK CLC CLD CLI CLV CMP CPX CPY DEC DEX DE NOTE HIT ANY KEY TO STOP AND TO RESTART. CTRL-C WILL RETURN YOU TO BASIC. NO. 3 WILL DISASSEMBLE ABOUT 23 BYTES INTO EACH DISK SECTOR THAT IT WRITES TO.IT USES AN ADDITIONAL SECTOR FOR THE FILE TRACK/SECTOR LIST. NO. 4 WILL DISASSEMBLE ABOUT 1/2K AN CLOSE MONI,O,C CATALOG INPUT FILE NAMEINPUT PORT NO. FOR PRINTERң ALL PURPOSE DISASSEMBLER BY LARRY FREEMAN 1 DISASSEMBLE TO SCREEN 2 DISASSEMBLE TO PRINTER 3 DISASSEMBLE TO DISK AS TEXT 4 DISASSEMBLE TO DISK FOR ASM/65  э , э э э@ э э э8@  э` ` BUFFER IS FULL, I NEED ANOTHER FILE NAME FOR THE NEXT BUFFER. BSAVE NOT HEX DIGIT, REENTER  .END *=$ WRITE OPEN DELETE $0#ɍ LÎ `Ï э` j> ɠ`& 8鰐 i  ` JJJJJ)` Lɳ L Z э L H H H A эLs ( э A эL0# э$ э )) э, эY эLs) , эX э) э э$; э эLLlH) эh)`HJJJJ ƍh) ɺi,ɃLɃL vݠ э , э , э , э , э ݏ э  э LA э  э 8ei 1$(A эHheHe h Ls  / X 3O эO э ɱɵ э+ э ; J э ;  f эɲ1. э  эI э э э эɳLE@]  э jÏɳ)O٩     08s0:t; ? iei @eAg8BhCDEȱB>[ȱB<ȱB=BiBC?DDFGDEFHGI   89L ɋ (H)?(hLɁɂFɏ0ɑ0ɕ0(`i08 ,L !(ɠ(ȑ($(ȱ((!(ѥ#H%# ph#=- WILL ONLY WORK WITH APPLESOFT - EITHER ROM O h  TO USE WITH RAM9 APPLESOFT INCLUDEU THE FOLLOWING POKES:j POKE 2142,244} POKE 2143,3  -=< INSTRUCTIONS >=- RUN THIS PROGRAM. NOW YOU WILL BE ABLE TO RUN THE 'CATALOG' * PAGES 26 & 43 *7> * FOR POKES *U? * TO BE USED WITH *s@ * RAM APPLESOFT *A * *B ***********************C d1013,76:1014,110:1015,165:f POKE LOC $3F5 WITH JMP $A56E TE DOS *) 5 * "CATALOG" *G 6 * *e 7 * ----------------- * 8 * * 9 * THANKS TO * : * DAVE LINGWOOD * ; * CALL-APPLE * < * MAY 1980 *=, * MARCH-APRIL 1980 *9 - * PAGE 31 *W . * WITH EMBELLISHMENTS *u / * BY * 0 * GARTH HITCHENS * 1 * AND * 2 * VAL GOLDING * 3 * USED * 4 * TO LOCAND (&) JMP *+ $ * *I % * ----------------- *g & * * ' * THANKS TO * ( * RON ALDRICH * ) * FOR PROGRAM * * * DOS COMMAND FINDER * + * CALL-APPLE *   * PAGES 39-40 *;  * *Y  * ----------------- *w  * *  * THANKS TO * * DAVE HENDEL * ! * KEYSTONE APPLE CORE * " * FOR LOCATION OF * # * AMPERSAY 30, 1980 *-  * *K  * ----------------- *i  * *  * IDEA FROM *  * LEE REYNOLDS' *  * ARTICLE IN *  * CALL-APPLE *  * JUNE 1980 *:  ***********************= * *[ * AMPERSAND CATALOG *y * * * BY * * * * DAVID M. MURDOCH * * KEYSTONE APPLE CORE *  * JUL     :3:" JUST REMEMBER, THE CURSOR MUST PASS OVER THE CHARACTERS TO ENTER THEM, JUST LIKE BEFORE."<:" IF YOU WANT TO ACTUALLY SEND ONE OF THESE CONTROL CO NEED TO ADD A LOT TO A LINE, CTRL B" " WILL *BREAK* THE LINE, RIGHT WHERE YOUR CURSOR IS, TO GIVE YOU FORTY CHARACTERS OF ROOM." :" SPACEBAR AGAIN..."; C$ NOW, CTRL A WILL *ADD* A SPACE WHEREVER YOUR CURSOR IS, TO INSERT CHARACTERS!" " IT WILL NOT LET YOU ADD SO MUCH THAT YOU LOSE SOME OFF THE END OF THE LINE."6 :" SO, IF YOUEQUENCES, THE REPEAT KEY CAN BE USED WITH THEM."m d:" THERE'S MORE! PRESS THE SPACEBAR: ";u nC$ x:5:" CTRL O WILL *OMIT* THE CHARACTER THE CURSOR IS ON, DELETING ONE BY ONE!"m :" CTRL Q NOW WORKS LIKE ESC A,"C 2" (CURSOR FORWARD)"o <" CTRL R LIKE ESC B, (CURSOR BACK)" F" CTRL S LIKE ESC C, (DOWN)" P" CTRL T LIKE ESC D. (UP)"< Z:" SINCE THESE ARE NO LONGER ESCAPE S - (4);"BLOAD KEYEDIT":56,0:57,3:1002}:4:" KEYEDIT IS INSTALLED AND OPERATING.":" THE FOLLOWING CHANGES HAVE TAKEN PLACE ON YOUR KEYBOARD:" (:"          "SPACE BY AUTOMATICALLY DIMENSIONING ";T"THE VARIABLE 'A$' IN LINE 40."fT130000:TlrL AS PLACE THE ";7"ITEMS IN ALPHABETICAL ORDER."f"HIS WORK WAS PUBLISHED IN THE APRIL, ""1979 ISSUE OF KILOBAUD MICROCOMPUTING.":" I MODIFIED THE PROGRAM TO WORK WITH ";"UP TO 999 ITEMS, AND CONSERVE MEMORY ";/THE ALPHABETIZE PROGRAM IN ";O "THE BOOK 'SOME COMMON BASIC PROGRAMS' "; "BY LON POOLE AND MARY BORCHERS, "; "PUBLISHED BY OSBORNE & ASSOCIATES, INC. "; "MR. THOMAS MODIFIED THE PROGRAM TO ";"NUMBER THE LIST, AS WEL  INSTRUCTIONS " Y :::" THIS PROGRAM WILL ALPHABETIZE A LIST"; "OF UP TO 999 NAMES, KEEPING THE FIRST "; "LETTER OF EACH IN A VERTICAL LINE." : " THIS PROGRAM WAS ADAPTED BY CHARLES "; "THOMAS FROM ::? "DO YOU WANT ANOTHER LISTING OF THE SAME NAMES";G Q$W Q$"Y"ī81] e 14 "DO YOU WANT TO APPLEBETIZE ANOTHER LIST ";:"OF NAMES";:Q$ Q$"Y"Ĭ16  16:14:"GOOD BYE" T1500:T "T110:" ":T !" T14:15:"I'M THINKING!"/ UT1200:T: ZI1NG dJ1NIU nA$A$(J)e xB$A$(J1)t A$B$160 A$(J)B$ A$(J1)A$ J I : I1N I10T3 I9T2 I99T1 T);I;" ";A$(I) IWANT INSTRUCTIONS";:Q$:Q$"Y"İ5000+ 5 ::s "HOW MANY NAMES ARE THERE TO BE APPLEBETIZED ";z #N (A$(N) 2I1N 7: <"ENTER NAME NO. ";I; FA$(I) PI Q RT1250:T:"" S13:10:"DON'T TOUCH MEt :6 ORIGIONAL PROGRAM BY CHARLES E. THOMASK 7022 BLACKHAWKf PITTSBURG, PA 15218q FROM KILOBAUD MICROCOMPUTING PAGE 94 APRIL, 1979 UPDATED BY DAVID M. MURDOCH 15::"APPLEBETIZE"::::% "DO YOU      `HH8s0Ht h  hh`JJJJ ) ii`ΠҬ((((  ΤآҠʠϠĠɺŠʬɺԠ̠͠ΤĤΤŠӠҠԠ ŢčźųԢάìϬɢ΍ԢάìϬɢԍԠ͠ӠĠΠŠԠŠĠǢԠΠìɬϢ̭ư͠żƮ°͍ĠĠưƸĠŠƠƸƠƠƠΠƺΠİǍ̤Ǣ΢̤Ţ̤΢̤Ţ̷̤Ժ 7092,2:736 r6 A: t "YOU MAY CHANGE THE INIT NAME TO WHAT EVER YOU LIKE. THE ONL RESTRICTION IS A MAX. OF 11 LETTERS." ,"NEW LABEL=(-----------)"; 6B$(8) @A113:B$;: JB$ T(B$)11300 ^A111:38575A,((B$,12A,1))128: h4RELL DUNMIRE". :"THE PRESENT DOS READS ";P 160,232,169,183,32,0,189,96_ A736743f Bq A,B:~ 47083,0 X(38400256):47089,X:47088,38400X256 47092,1 47084,2:47085,2 736  A38586385761:((A));:$d PERSONIFY * D. DUNMIRE n::"THIS PROGRAM WILL MODIFY THE DOS ON THE DISK. ANY BOOT FROM THIS DISK WILL NOW READ THE WORD YOU PUT IN.": x"AFTER THE DOS MOD 'DISC VOLUME' WILL BE REPLACED WITH THE 11 CHARACTER INPUT. BY DAR; CALL 768:IN$=MID$(IN$,1) ** USE THIS FOR INPUT **11,14A"Q"Ā D$(4), D$;"OPEN LINE INPUT"G D$;"WRITE LINE INPUT"R 10,14b D$;"CLOSE"h t IN$"X" J768799:I:J,I: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,169,128,93,0,2,157,0,2,202,16,245,96LLOWS STRING COMPARISON TO WORK COR- RECTLY.":" TO USE 'IN$' MUST BE THE FIRST VARIABLE DECLARED. USE 'CALL 768: IN$=MID$(IN$,1) INSTEAD OF 'INPUT' STATEMENT." ::"PRESS RETURN TO CREATE/ PRESS Q TO QUIT ";A$:A$<:"THIS PROGRAM CREATES A TEXT FILE WHICH ADDS A SUBROUTINE TO PROGRAMS TO ALLOW ANY CHARACTERS (INCLUDING PUNCTUATION MARKS) TO BE INPUT FROM APPLESOFT."::" THIS IS AN IMPROVED VERSION OF THE" "ROUTINES BY JOHN CROSSLEY OF APPLE AND AĠM6]ҠϠĠƠca@E()*a()a(ԠŠŠӠ)E@QŠŠӠ)E@<Q)<Q()E@ a@E()E@Mca@E()(a(ԠŠŠӠ)E@2Q$Fide nN@"rsa@E(),xa(ŠŠƠŠŠϠŠĿ)!}PS(Ԯ)&@`7;@r$s"a@E(ĠԮ)E@E()a@E()E@a@E()E@a@E()E@a@E()E@M]̠ϮǠ) Aa(Π͠Ԯ)Fca(ŠӠ)&Ka(ԠϠҠŠ)Pa(Ϡ)'Ua(ԠϠҠĠ)+Za(ҾϠ̠Ү)_cS(ԠΠϮ)'d`Һ)!#a(ŠçӮ)-(a(®ŠӠĠç͠ή)--a(îŠ͠ΠҠ)*2a(٠͠Šή).7a(ĮŠӠϠŠ)-<a(ϠҠҠɮf6KM6@p()a@E(ĠҠϠԮ)$Pa(ҠŠϠ) cc,a(Ӡ̠͠ŠŠ)+a(٠ҠĠԠԠϠ)-a(ԠŮӠӠՠϠϠ)&a(ŠǠȠ    BETWEEN 38400 AND 49151%? REQUIRES DOS 3.2.1EA11:38575A,((B$,12A,1))128:347092,2:736;:E::y"DO YOU WISH TO PERSONALIZE ANOTHER DISK";:A$A$"Y"A$"YES"Į::100 TO USE ON 32K MACHINE SUBTRACT 16384 FROM ALL COMMANDS IN THE DOS AREA6 @- J"YOU MAY CHANGE THE INIT NAME"T T"TO WHATEVER YOU LIKE. THE ONLY" ^"RESTRICTION IS A MAXIMUM OF 11 LETTERS." h:"NEW LABEL = (-----------)"; rB$(8) |A113:B$;: B$ (B$)11āT15:(7);::19:330!A1NT DOS READS:":9 160,232,169,183,32,0, 189,96H A736743O B[ A,B:Ah 47083,0 X(38400256):47089,X:47088,38400X256 47092,1 47084,2:47085,8 736  15 A38586385761 "((A));: , NTIFY MY DISKS." ns x"AFTER THE DOS MOD, 'DISK VOLUME' WILL":"BE REPLACED WITH YOUR 11 CHARACTER":"INPUT." :"PLEASE INSERT THE DISKETTE YOU WISH TO":"TO CHANGE AND PRESS THE SPACE BAR." A$:A$" "ĺ(7):100  " THE PRESE , * DAVID M. MURDOCH *; . * *Y 0 ***********************_ 2 d::::"THIS PROGRAM WILL MODIFY THE DOS ON THE":"DISK. ANY BOOT FROM THIS DISK WILL NOW":"READ THE WORD YOU PUT IN. I FOUND IT":"TO BE USEFUL TO IDE 9/79 *-  * *K  * FROM *i * CALL-APPLE * " * MARCH/APRIL 1980 * $ * PAGE 17 * & * * ( * EMBELLISHMENTS * * * BY *F ***********************= * *[ * -> PERSONALIZE <- *y * * * BY * * * * DARRELL DUNMIRE * * *  * CTER THE CURSOR IS ON, DELETING ONE LK@A@BACȱD@С,@ȩ @ȘHFȱFFGFȱFЅ]&eeeآ) 0ʹJJJJ 0ʈЊ 00h@Зhe@@eAA@8iBȥAiBHFIGHЬBȑBBiCiL CHARAD F F8gF@@HȥG@AHȩ@ȑ@ȱD@@FAG8Ƙe@@AFȪF FFGAF@@@FK@J@e@@A8A;@: LFKȄJGg8B@hCAȱFDFIFHe@@eAA8e@BeAB@J@ȥK@J08s0:t; ? iei @eAg8BhCDEȱB>rȱB<ȱB=BiBC?DDFGDEȱD ȱDFHGIFȱFFG     `Mj(eȱefffɃ\`j K@ɀJɠ7 )$01+)?&+$ ȱ)?&&ei)P `g :"MESSAGE";A$:"NUMBER OF REPEATS";A::I1A:" ";A$;" ";:I::"AGAIN? (Y/N)";:T$:T$"Y"10 SOFTSIDE MAR'81 PG 70  `HH8s0Ht h  hh`JJJJ ) ii`ΠԬ((((  k xM6a(άɬϬ) M6 o Pa(נǠ)a(ΠҮ)Qk`gaLJ) .ANXA* ASS1- LOPA3 ASS2D LOPBJ HSENT ASS3^ PASSPAS1j ASS4p DLENt ENTR ADDDASS5 SKIP SCTHERO1 ASSM SYTBASP2 UNDFNEXA SKP1 NOPO SKP2 SAVYBSR2!BRXX"!OK..*!BRXY,!SKP32!EROJ7!DETM:! Hɍ h` .-`;- -,-H+-Hl`g, L>- ,Ɉ ʩ.LN-ɍ.- . , `BLOAD , -HHՅץօح-H-Hl`g, L-- ,Ɉ ʩ.L-ɍ. , j-hh *`,hh` " $ $L , #,`8ׅ؅ii`)JJJJW,)W,`0123456789ABCDEFFILENAME?: >,,+.L,.$-.../. >,0.1.`,$.A%.$&. >,'.(. >,).*.`BSAVE , . , `` $L*eɠ) i) $`3+Hɍ $'hLhH HH%ʊ G(&ꍐɈhhh`s+Hɍ $'hLhH HH%ʊ G(& hhh`+ -+H+Hl`HHg, L+ ,Ɉ ʩ.L+ɍ. , r, , O *L%I *L%# *L%6789L% 1+62+7L% j*L% q+6r+7L%L%u*h*6i*7` H h` " $8ׅ8؅ * ׅ<؅=Յ>օ? ` * eׅ>e؅?ׅ<؅= `=?<>` "< + $STASTXSTY Ɉ)` Ɋɍ$`L ݅שީ0 Xz){) #L%|)****************************** * MICROPRODUCTS DISK-BASED * * ASSEMBLER FOR THE APPLE II * ****************************** qu}yAND)-%!15=9ASL BIT,$CMPCPXCPYDECEORIMEAQU]YINCJMPLlJSR LDALDXLDYLSRNFJV^ORA ROL.&*6>SBCL% " # "`@hhhhL$ :'  L=' %' :' L=' '' L''`Т`HJJJJ M'h) 0:iL''TAXTAYTSXTXATXSTYACLCCLDCLIXCLVSEC8SEDSEIxNOPRTI@RTS`DEXDEYINXINYPHAHPHPPLAhPLP(BRKBCCBCSBEQBMI0BNEBPLBVCPBVSpBGEBLTRORnfjv~ADCimeaP%H%Hl`: - ,Ɉ ʩ.L&ɍ.(䩄 . ( L%0 : $L% $L% & # ` &`lSTARHȱՍ "h```߅` 0'$ ''` " "` B' " 0'Lm# "' "'` $L! L!L!L$H0hL'' "`ȹՐ  " $ z$ " & " " $P "J & 0' v% $/ 0' %' B' B'Յօ "' # ''`ע؆ӆ #L)CL G%L%A L%BLeR d&L%F +L% &G --L%J -L%eۅېܢ``L$ " & B'>$?$ # B' B' 0'`@$ AT LINE  &H f%hhh0L$ $`Յօ`` "H "h $` &H " "hȱHh $й`` "ȹ "` &` 0'! '' ' `ڙ %'  0 &L### # "` ''H &ȱ B'hL&# SYMBOL TABLE " $  "ڠ A (*ڦڠ/7ȱܠ0 " "L!%H  0' B' B' "'hف B'L$V"W"X"Y"Z"["X'''` ` "ԥׅե؅`Յߥօ`` ' "ߑȥȊ`` "`݅ޅ` $ $`Ai)` " $8߅ХߥE0  $L% "L I"L$+=mmmi;ɮ[ɭXɤRɥJə(ɘ%`L$ 'V0A[L& >*)iȱ " # " "L ȱ " #L!ȱر " L! "   L-L%L()L7)` O " "߭ JL A ' " H  " "EL]#L D$J L$ " "L S # " "L L$ "ߩ J$:  ".L 1" "L ="B " #01           ONITOR'S AS IN 300.400"D Z" BY USING THIS PROGRAM AND THEN THE"o d"TEXT TO APPLEWRITTER CONVERTER, YOU" n"CAN PUT MACHINE LANGUAGE DUMPS IN YOUR" x"ARTICLES WRITTEN WITH THE APPLEWRITTER."  " NOTE: SET HIMEM OR START OF PROGRAMS ::D$(4): CTRL-D::D$;"NOMONC,I":D$;"MONO"]8:"MEMORY DUMP TO TEXT FILE"e(:2:" THIS PROGRAM WILL STORE ON DISK AS A"<"TEXT FILE A SECTION OF MEMORY THAT YOU"F"SPECIFY. THE OUTPUT WILL BE THE SAME" P"AS THE M202,16,238,144,5,169,1,157,126,3,104,170,104,96,240,240,240,240,0,240,240,240,240,240,0,240dV787",96,72,138,201,6,16,10,104,145,40,189,126,3,24,105,176,96,104,44,0,192,16,251,145,40,173,0,192,44,16,192,72,201,152,208,13[U 169,27,133,56,169,253,133,57,32,234,3,104,96,201,141,240,2,104,96,138,72,162,3,254,126,3,189,126,3,201,10,48,8,169,0,157,126,3,6,140,160,152,160,148,143,160,147,148,143,144,160,160,160,160,160,160,160,131,129,140,140,160,183,184,183,160,148,143,160,146,133,147,148,129,146,148zT72,138,72,162,5,189,120,3,157,126,3,202,16,247,104,170,104,72,169,33,133,56,169,3,133,57,32,234,3,104TH NEW *)M* PROGRAM *CN* *]O********************cPiQR 129,144,144,140,133,157,155,160,160,160,129,144,144,140,133,147,143,134,148,160,160,129,149,148,143,173,142,149,141,130,133,146S 131,148,14DIGITBMM1CCOUNTSD : $302 TO $384 = LOCATION OF MACHINE CODE PROGRAMYEsF********************G* *H* LINE 87 WILL *I* DELETE ALL THIS *J* MESS SO AS NOT *K* TO INTERFERE *L* WI7"8L10281059:X:L,X:L>9L11521191:X:L,X:LY:L12801319:L,159:Le;34,4:<L770899:X:L,X:L=M898: MEMORY LOCATION FOR START COUNT >COUNT1(START$)?DIGIT$((START$,COUNT),1)@DIGIT(DIGIT$)AM, CALL 787 TO RESTART NUMBERING WITH"S 0"THE LINE NUMBER WHICH WAS IGNORED WHEN"w 1"THE LAST 'CTRL X' WAS TYPED." 217 3"PRESS SPACE BAR TO START AUTO NUMBERING": 4"WITH LINE NUMBER ";::START$; 5616368,0:16384,128:16384,1,1TART$ &:0 ':::"IS THIS CORRECT?";:A$B (A$"N"ė:29K ):6z *" TYPE 'CTRL X' TO STOP THE AUTO- " +"NUMBERING. THE CURRENT LINE WILL BE " ,"IGNORED AND THIS ROUTINE RETURNS TO " -"APPLESOFT BASIC." .% /"  :"AUTO-NUMBER":* T13000:T:0 _ " THIS PROGRAM WILL AUTOMATICALLY " "NUMBER APPLESOFT STATEMENTS AS THEY ARE" "INPUT." ! "" REQUIRES APPLESOFT AND DOS 3.2" #:: $6 %"STARTING LINE NUMBER ? ";S * MODIFIED BY *8  * *V  * DAVID M. MURDOCH *t  * 91 WEST VINE STREET *  * SHIREMANSTOWN, PA *  * 17011 *  * *  ***********************  :12:15ST AVE I ** * LANCASTER, CA 93634 *H * *f * FROM * * * * CALL-APPLE *  * OCTOBER, 1979 *  * PAGES 5 - 8 *  * * e :: CREDITS2 ***********************Q * *p * AUTO-NUMBER * * * * BY * * * * GERALD CAH