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`         $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 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ڵ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)ɰLD$"PR#0"$Xu:325d$` ***************** * SETUP ROUTINE * *****************l$:x$D$(4)$A$D$"APPEND"$B$D$"BLOAD"$BS$D$"BSAVE"$C$D$"CLOSE"$DE$D$"DELETE"$O$D$"OPEN"$P$D$"POSITION" %LINES 30000-30025)"A# ";A7$:5000 NER4ĺ"DISK IS WRITE PROTECTED."::RS,0:"CHANGE DISK & TRY AGAIN ? Y/N ";A7$:A7$"Y"20000 NER4380!NER9ĺ:"DISK IS FULL"::"NOW DELETEING FILES NOT COMPLETE."::;"DELETE REM"!aND$"NOMONI,C,O"-fN:5000kN ****************** * DISK ERROR * * HANDLE ROUTINE * ******************pNER(222):216,0:768qNX111X111sNXSX1tN:uNC$;FI$(X1):X112:I zNER10ĺ"F*ND$"MONI,C,O",N!/N33,30-2N20080:4NX1111V>NO$;FI$(X1):W$;FI$(X1)HNX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100JNC$;FI$(X1):L$;FI$(X1)MNRNO$;"DELETE REM":W$;"DELETE REM"WN7200 \NC$;"DELETE REM":L$0,6800,6900,7000,7100D)'"'ESC'=RET. TO INST. / ANY KEY=NEXT PAGE"h.'RS,0:HA:SE(RK):SE27X111nB'wG'325 N *************** * CREATE TEXT * * FILES FOR * * MANUAL USE * ***************21,60329"1%"DEL60351,60356":"60382":"60387"7*' *************** * PRINT * * ASSIGNMENTS * * TO SCREEN * ***************'X1111::FI$(X1)$'X16100,6200,6300,6400,6500,6600,6700199,60204:60249,60252:2d60270,60277:E60299,60302:X,60320,60329:k60350,60356:60380,60382:60390:X60385,60390:60400,60405:  "DEL60200,60204":"DEL60250,60252":"DEL60274,60277":"DEL60300,60302":"DEL603111:AN(X1)05600SX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100YlAN$"N"5700v7200D"NOMONI,C,O"E"DELETE TEMP EXEC"IC$;"TEMP EXEC"KND$;"EXEC TEMP EXEC"X60100:860101,60113: 6IS A"::"DISK IN THE DRIVE AND THAT IT HAS SOME"::"SPACE AVAILABLE..":RS,0::"THEN HIT ";A9$O$;"TEMP EXEC":W$;"TEMP EXEC""NEW""MONI,C,O""1 GOSUB 60000""60000 REM SET UP ROUTINE":"60499RETURN"33,30X1.* * NOW CREATE * * AND EXECUTE * * TEMP. FILE * ***************:RS,0:"DO YOU WANT 'REM' STATEMENTS ? Y/N ";AN$j:8:"A DISK TO CREATE A TEMPORY TEXT FILE"::"IS NEEDED. MAKE SURE THAT THERE ? ";:AN$:AN$(3)Ā+AN$"M"ĀMAN(AN$)64:AN1AN125100AN5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5500PAN(AN)AN(AN)Z:AN:AN(AN)0Ğ_AN$:d5100r| *************** * DONE SELECTPx+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](Њ K IS AT TRACK $11, SECTOR $0C%6:C7:"DOS CATALOG ANALYSIS"x7:"HIT 'RETURN' WHEN DISKETTE TO BE":"ANALYZED IS READY.";X$7 VARIABLES.38100: INIT IO5X4E%0:X$"":EM%83W4DE$(EM%): DIRECTORY ENTRIES 5DP%(EM%,1): POINTERS TO TRACK/SECTOR LISTS 5I0:K%0:X%0:SW%05TK%17:SR%12: INITIAL TRACK AND SECTORL6IT IS ASSUMED THAT THE FIRST DIRECTORY BLOC1,1:DCT%2,239:DCT%3,216!81q1 USE THE FOLLOWING SUBROUTINE TO RESTORE HIMEM BEFORE ENDING YOUR PROGRAM.2HM%: RESTORE ORIGINAL HIMEMd22--INITIALIZATION--,3SLOT%6:DRIVE%1 3 CALL IO-SETUP SUBROUTINE BEFORE DEFINING ANY STRINGTER FUNCTIONS."1S :"READ & SET KBD. LOCATIONS."D0(FI$(6)"CURSOR POSITION LOCATIONS."j0)FI$(7)"SCREEN SELECT LOCATIONS."0*FI$(8)"SPEAKER & PADDLE LOCATIONS."0+FI$(9)"ERROR HANDLE RTN./CALL768."0,FI$(10)"ERROR HANDLE RTN./CALL945."1-FI$(11)"APPLESOFT POINAGE O/DL(X)(123)(124)256:DATA LINE BEING READ\/"FI$(11)/#FI$(1)"TEXT & HOME COMMANDS."/$FI$(2)"DOS COMMAND STRINGS."/%FI$(3)"WINDOW PARAMETER LOCATIONS."/&FI$(4)"CLEAR SCREEN CALL LOCATIONS."0'FI$(5)ART OF VARIABLE SPACE }.AS(X)(107)(108)256: START OF ARRAY SPACE .EV(X)(109)(110)256: END OF VARIABLES IN USE /SS(X)(111)(112)256: START OF STRING STORA:CY,DA::-******************* * THIS WILL POKE * * ERROR HDL. RTN * * IN HIGH PAGE 3 * * CALL 945 * *******************- 104,168,104,166,223,154,72,152,72,96+.VS(X)(105)(106)256: ST *!,*******************1,CY768777D,DA:CY,DA::,******************* * THIS WILL POKE * * ERROR HANDLE RTN* * IN LOW PAGE 3 * * CALL 768 * *******************,CY945954 -D * POKE OR PEEK TS * * TO TOG. SPEAKER *+* * * POKE TC TO TOG. * * CASSETTE OUTPUT *+* * * PEEK B0,B1,B2 * * TO READ STATUS *+* OF PDL. BUTTONS *,* 0,1 OR 2 * P1-PAGE ONE *-** P2-PAGE TWO *F** LR-LOW RES *_** HR-HI RES *x** FS-FULL SCREEN *** MS-MIXED SCREEN * ********************TS16336:TC16352:B016287:B116286:B2162854+******************* . POS. * *******************x)TD16303:GD16304:P116300:P216299:LR16298:HR16297:FS16302:MS16301)******************* * POKE TO SELECT * * THE FOLLOWING.. *)* TD-TEXD DISPLAY *)* GD-GRAFIC DISPL.**BOARD *!(u*******************1(CH36:CV37(******************* * PEEK OR POKE CH * * TO READ OR SET * * CUR. HORZ. POS. *(* *$)* PEEK OR POKE CV * * TO READ OR SET * * CUR. VERT * F/CURSOR TO END * * OF LINE. * *******************i'nRK16384:RS16368'r******************* * PEEK RK TO READ * * KEYBOARD. *'s* *(t* POKE RS,0 TO * * RESET KEY * T-TOP OF SCREEN*J&, * B-BOT. SCREEN * ******************^&YCE958:CL868&Z******************* * CALL CE TO CLEAR* * F/CURSOR TO END * * OF SCREEN. *&[* *Q'\* CALL CL TO CLEAR* R$D$"READ" %U$D$"UNLOCK"2%W$D$"WRITE"C%L$D$"LOCK"]%'LM32:SW33:T34:B35%( ****************** * POKE LM,SW,T,B * * WITH VALUE TO * * SET FOLLOWING *%) * LM-LEFT MARGIN *%* * SW-SCREEN WIDTH*&+WCT1W!*TCT1:UU1=>(Z$(L),T,1)" "ī950]R INSERT BLANKS INTO STRINGfZ$(L)(Z$(L),T)" "(Z$(L),CT)zBLBL1:CC1BL0ıTT1UT FLUSH LEFT COPYZ$(L)(Z$(L),3,W2) FLUSH RIGH1W:(Z$(L),X,1)" "ĂX=:YXW:(Z$(L),Y,1)" "ī610FN650MbYSvu ELIMINATE RIGHT-HAND BLANKSU0:C0:BL0:T0C(Z$(L))(Z$(L),1)" "ī750CC1:Z$(L)(Z$(L),C)690 CALCULATE # OF BLANKS (BL)BL * ******************E USERS GROUP"# ****************** * WRITTEN BY * * JIM PFEIFFER * * NIAUG LIBRARIAN* * JAN 1981 * * * $" * * * FREE FOR ALL * * CHASE AND ADD 'AMPERSORT II'TO THIS DISK BEFORE USING THIS PROGRAM. "K"B"D:"AFTER YOU HAVE DONE SO, DELETE LINES '0'AND LINES 62000-62030 IN THIS PROGRAM."#N::" JIM PFEIFFER":" LIBRARIAN '81":" NORTHERN ILLINOIS APPL ON SOME OF THE NIAUG PROGRAM DISKS. I HAVE HAD A FEW REQUEST TO INCLUDE THISIN THE LIBRARY."!:::"THIS PROGRAM USES THE 'AMPERSORT II' SORT ROUTINE WHICH I COULD NOT INCLUDE ON THIS DISK BECAUSE OF COPYRIGHTS. "E"?::"YOU MUST PUR"WRITE" L$D$"LOCK"2 'LM32:SW33:T34:B35F YCE958:CL868V CY768777i DA:CY,DA:: 104,168,104,166,223,154,72,152,72,96 6DE$(80,8) Se!0::"THIS PROGRAM IS USED TO CREATE THE FILE 'Z PROG.LIST' WHICH I HAVE INCLUDEDIST";VN$:IQ,VN$33X0IQ:X108:DE$(X,X1)::V"3C$;"Z PROG.LIST";VN$:216,0:`,38000u` SET UP ROUTINE}:D$(4)B$D$"BLOAD"BS$D$"BSAVE"C$D$"CLOSE"O$D$"OPEN"R$D$"READ"U$D$"UNLOCK" W$D$ HIT ";A$:11220Z2:10:16368,0:"VOL# OF FILE OR FOR MENU ";VN$j2VN$""100v2TV$VN$2IQ02:10:"INSERT DISK WITH VOLUME #";VN$::16368,0:"AND HIT ";A$3O$;"Z PROG.LIST";VN$;",V0"3R$;"Z PROG.L8:DE$(X,X1)"--DELETED"X18:112523+DE$(X,X1);+:\+C$;"Z PROG.LIST";VN$:216,0b,,216,0:768:(222)9ĺ"DISK IS FULL. INSERT A DISK WICH WILL TEMPORARILY HOLD DATA AND THEN LATTER TRANSFER THE FILE TO THE CORRECT DISK"::" 22) T++ ***** WRITE FILE TO DISK **+:10:"INSERT DISK TO STORE FILE FOR VOL.#";VN$::"HIT OR 'M' FOR MAIN MENU ";A$+A$"M"100+11400+O$;"Z PROG.LIST";VN$;",V0"+W$;"Z PROG.LIST";VN$:IQDE:TV$$+X0IQ:X10QT:LCLC1:3235" QTQT1:32252 LE383238B QT38:3225i LE0ĺ" ";(DE$(X,5),LE):LCLC1w :LCLC1}  D$;"PR#0":100 (12);(14);"DISK VOL#";VN$;(15):LC2::@ UNUSUAL ERRORJ::"PROGRAM TERMINATED- ERROR# ";(2";:DE$(X,6)"N"ĺ" ";" LCLC1H DE$(X,1);" LENGTH- ";DE$(X,3) DE$(X,2)""ĺ" BINARY AD. & LENGTH- ";DE$(X,2):LCLC1 LE(DE$(X,5)):PO1:QT38 LE03240 (DE$(X,5),POQT1,1)" "LE39ĺ" ";(DE$(X,5),PO,QT):LELEQT:POPO PRINT FILEWX :"TURN ON PRINTER & SET 'TOF'"::16368,0:"AND THE HIT ";A$h] D$;"PR#";PRrb 3500l X0IQ:LC55İ3500q DE$(X,0)"--DELETED"3240v DE$(X,0)w LCLC1{ " BY ";(DE$(X,4),35)| LCLC1 " FILE TYPE- RINT HARDCOPY*****. PR3: SLOT FOR PRINTER :"PRINT HARDCOPY":::"<1> PRINT FILE IN MEMORY"::"<2> LOAD FILE FROM DISK": IQ0Ğ::"NO FILE IN MEMORY": 12:"SELECTION ";A$ A$"1"3150 A$"2"3045 3023 13030 N IN SECTORS OR 'K' ";DE$(IQ,3); "INPUT AUTHOR AND DATE"M$ "";DE$(IQ,4)f) "INPUT DESCRIPTION"x. "";DE$(IQ,5)3 "SHOULD USER RUN THIS PROGRAM? Y/N";DE$(IQ,6)8 :"ENTRY HAS BEEN ADDED TO END OF FILE"::"HIT ";A$:2150 ***** P"":X$"":T$""- D$(4):NL$(13):B$(7)7 ::T " H E A P S O R T ":w :"ENTER NAME OF INPUT FILE." F1$:F1$""1250 D$;"OPEN";F1$:D$;"READ";F1$ 1320 X$:1400:1330 (1400:F1$;" DOES NOT EXIST.":D$;"DELETE";F1180 `I%O%:O$A$(O%)0 jJ%I%I%:J%N%1170K tT$A$(J%):X$A$(J%O%)e ~X$T$T$X$:J%J%O% T$I$A$(I%)T$:I%J%:1130 A$(I%)I$ O$:N8%N8%O% A$(N%O%)"" 1090 I%0:J%0:N%0:O%1:T%2:Z%0 A%600 A$(A%1):I$ 1210I$""'X$:X$NL$ı:I$I$X$:1020E1410j1010:N%N%O%:I%N%:N%A%1490z$I%O%1080.J%I%T%:I$A$(J%)A$(I%)A$(J%):I%J%:10608A$(I%)I$:1050BI$A$(N%)LN%N%O%:N%Z%1500 VI$A$(O%)O$I$:1 ICLE IN THE DECEMBER, 1980 'HARVEST' WAS VERY HELPFUL.SOULD BE GREATLY APPRECIATED. DENNIS ULM / 835 E GRANT DRIVE / DES PLAINES, IL. 60010 / 296-2549 n#T 12/6/806$ MY THANKS TO GUY A. LYLE ON HIS TIP ABOUT THE PRECEDING DOUBLE QUOTES WHEN INPUTING CHARACTER STRINGS CONTAINING COMMAS OR COLONS. HIS ART Z$(R)"2 RP"< LINES 2630-2650 ATTEMPT TO RETURN TO PR#0 BUT DOESN'T WORKZ"F " I"a"Z 0g"n " FUTURE EXPANSION OF PROGRAM: SAVING TEXT ON DISK AND RECALLING SAME FOR LATER PRINTING OR EDITING.`# ANY SUGGESTIONS CONCERNING THIS PROGRAM W 'RETURN' IS PRESSED. THIS LINE SHOULDAPPEAR TWO LINES ABOVE THE BOTTOM OF THE PREVIOUS PAGE.":"PRESS 'R' TO START PRINTING.":! "PR#1":"HERE";Q$! Q$"R"ī2510! 2450! W40ī2550! 1:2570! 1:(4);(9);W;"N"! R1L1":R:1810 GO1ī2310' J1İ5105  PR$Z$(L)>  GO0E . LO 8 34,0e 9 PRINTER ROUTINE B :"PRINTER READY? ";Q$ V Q$"Y"Q$"YES"ī2430 j "DO YOU WISH TO END? ";Q$:Q$"Y"Q$"YES"Ā:2370!~ :"TEST LINE WILL BE PRINTED EACH TIMEf(Z$(L),2)"$C"GO14z(Z$(L),2)"$C"İ1210N(Z$(L),2)"$T"GO1i(Z$(L),2)"$T"İ1410(Z$(L))Wī2270 LINE 2250 IS ERROR ROUTINE 20:1:" ":20:1::"LINE TOO LONG"::R1500 LONG"::R1500:R:18101(Z$(L),2)"$E"ĀL(Z$(L),2)"$$"ī2030V2070 CHANGE PREVIOUS LINE BY RE-ENTERING LINELLSP:1770(Z$(L),2)"$L"GO1*(Z$(L),2)"$L"İ990>(Z$(L),2)"$R"GO1R(Z$(L),2)"$R"İ1050"IF USING , OR : USE DOUBLE QUOTE FIRST"2&270D:20:1:Z$(L)UNSP2ī1910ebZ$(L1)" "zvZ$(L)"0"ī2360(Z$(L))Wī1970 LINE 1950 IS ERROR ROUTINE20:1:" ":20:1::"LINE TOOR FLUSH RIGHT COPY"g"'$T000' TEXT...... TO TAB OVER 000 CHARACTERS (MUST INPUT 3 DIGITS)"r34,10L1(P66)SP11::"LAST LINE ENTERED:":41012:1:PR$)17::"LINE #";L;" PRESS 0 TO EXIT INPUT STAGE"::RN' TO EXIT INPUT STAGE":J"'$E RETURN'TO EXIT PROGRAM"e^"'$$ RETURN' TO CHANGE PREVIOUS LINE"r"'$C' TEXT...... TO CENTER TEXT ON LINE""'$L' TEXT...... FOR FLUSH LEFT COPY""'$L BLANK RETURN' FOR BLANK LINES""'$R' TEXT...... FOA(Z$(L))2(2Z$(L)(Z$(L),3,A)9FA((WA)2)VZZ$(L)(BLANKS$,A)Z$(L)\nks TAB COPY|U(Z$(L))5V$(Z$(L),3,3)Z$(L)(Z$(L),U)V(V$)Z$(L)(BLANKS$,V)Z$(L)"1:1::"ENTER:":6"'0 RETUT COPY.T(Z$(L))2,BZ$(L)(Z$(L),T)>VB(Z$(L))3[j(Z$(L),B,1)" "ī1170r~Z$(L)(Z$(L),B1)Z$(L)(BLANKS$,W(Z$(L)))Z$(L) CENTERING COPYB(Z$(L))3(Z$(L),B,1)" "ī1310Z$(L)(Z$(L),B1) B" LEN. = ">U" ":" "kY11:10:" ";LNL:11:24:"1.5 SEC = 7"|^LNL103100cLNL255.013150e" 2.0 SEC = 8"g1200h LL POKE & GOTOr|P31:2700 P31 AND 7 ONLY >>>>":5400 "<>":4185NN "<>":4185b ERASE A LINE" " LINE LEN. SUB68:" ENTER LINE "@" LEN. FROM "J" 10 TO 255 "T AD(16252(S16))& AD,3:AD,FRM, > CR$"N"2900P CR$"X"5000b (1528S),DLYhT yh V$"N"5000r V$"X"5000| (1400S),128 5000 22:10:"<<<< Y OR N ERROR >>>>"::100 E2E21:4:3:"<<<< NUMBERS BETWEEN 168. CR$"7"DLY206,3 CR$"8"DLY238@ POKE ROUTINESF X LF$"N"2600j LF$"X"5000 LF$"1"Ĺ(1144S),128( < LL$"N"4200A LL$"X"4250F LNL40P31P (1912S),LNL  DF$"N"2800 DF$"X"5000DF$"2"FRM9'DF$"3"FRM13;DF$"5"FRM21ODF$"6"FRM25cDF$"7"FRM29i CR DELAY CONVERSION  CR$"1"DLY4 CR$"2"DLY16 CR$"3"DLY53 CR$"4"DLY84$ CR$"5"DLY119) CR$"6"DLY1(V$)5014502000-13:39:TV:2000@ CONVERSIONFZ4 LEN LENGTH`>tfLL$"0"LNL20kLL$"1"LNL40pLL$"2"LNL80uLL$"3"LNL132 DATA FORMAT CONVERSIONDF$"0"FRM1DF$"1"FRM53:21:" "*U(CR$)88(CR$)781390>Z(CR$)882000R_(CR$)781400rd(CR$)47(CR$)571350|i1400n3:39:TD:1370x VIDEOTV113:21::">"::13:38:" ";V$13:21:" "(V$)881490 (V$)47::">"::14:18:" ";DF$:14:29:"OFF = 0":14:" "X(DF$)88(DF$)781290l(DF$)882000(DF$)781300(DF$)47(DF$)5612501300 14:19:TF:1270 CR DELAY<TD0F3:21::">"::3:38:" ";CR$ P~7::">"::7:18:" ";LL$:7:22:"102.0 MSEC = 3"C7:" "a(LL$)88(LL$)781190u(LL$)882000(LL$)781200(LL$)47(LL$)541150(LL$)53410012007:19:TL:1170 DATA FORMATTF4-14 LINE FEEDTF0J4::">"::4:18:" ";LF$:4:24:"0.8 MSEC = 0"V$4:" "t)(LF$)88(LF$)781090.(LF$)8820003(LF$)7811008(LF$)47(LF$)501000=1100B4:19:TF:1070L LINE LENGTHtTL4:LNL2557N8%;" RECORDS OUT."+ "E O J";B$;B$;B$:; D$;"CLOSE"n "ERROR TYPE ";(222);" AT ";(218)(219)256 @BRUCE W. CHRISTOPHER IN-CORE FILE-SORT PHASE";B$:1040% x216,0:D$:D$:/ 1400C (222)51530W D$;"CLOSE";F1$n N%;" RECORDS IN." N8%0:OO%(0) "FREE=";OO%:"OUTPUT PHASE";B$;B$ D$;"WRITE";F2$ 1090 D$::"INPUT FILE TOO LARGE" D$;"CLOSE": $:1270= 2:"ENTER NAME OF OUTPUT FILE.":F2$:F2$""1330_ <D$;"OPEN";F2$:D$;"READ";F2$j F1370 PX$:1400:D$;"CLOSE";F2$:F2$;" ALREADY EXISTS.":1330 Z1400:D$;"OPEN";F1$ dD$;"OPEN";F2$ nD$;"READ";F1$:"SORTING BEGINS.":"INPUT)RTING AT $3000 X L oIب0i L,L5I 0LI# HIH H  00ο ܔ LYWHAT TRACK TO READ (DEC/XX) EXAMINE BYTES STARTING AT $3000  ׍ƍՍЍҍҍǍǍύЍ׍ՍڍՍɍՍύ֍ԍЍӍ؍ōȍٍ̍ȍ؍ƍύэӍčՍэٍ֍׍ō؍ʍӍՍˍٍڍЍٍύ׍ȍǍʍ֍ʍԍōӍÍȍˍ͍ҍڍÍÍٍ͍Ӎύʍˍύʍٍ؍ɍ؍ڍǍō׍͍ TO "5499 NEW"=:5:10:"SORRY THIS PROGRAM IS"Z12:"OF NO USE TO YOU."SD VERSIONS# WILL APPEAR IN THE7 CLUB LIBRARY.F SUCH AS;_ 1 ON ERROR ROUTINEx 2 PARALLEL ROUTINE 3 SER/PAR ROUTINE 4 ETC. TO REMOVE PROGRAM AND VARIABLES  CHANGE LINE 5499  FROM "5499 END"PR#";S6D$;"IN#";S @(0)@JS;(LF$);LNL;FRM;DLY;(V$)F{_| ******************w} IF THERE ARE ANY ~ PROBLEMS FOUND IN THIS PROGRAM CON- TACT ME THROUGH THE NORTHERN ILL. APPLE USERS GROUP  UPDATE:5000):10:10:"SSM AI/O ROUTINES"E10:" VERSION 1.0":a10:" BY L.M. ERDMAN"20:8:"FOR ADDITIONAL COMMENTS"12:"LIST 5500,5521""DELETE 5050 & 5300 LOCK" " TURN ON ROUTINE'P31THE33,33,D$;"D$;  `;` `\N$L: LENGTH OF RECORDU $B: NUMBER OF FIELDSu J: POINTER TO NEXT RECORD} P4 P P4 POINTER TO FIRST RECORD D$;"CLOSE POINTER" A$(B),D(B),H$(B),A(50),B$(50),V$(50),M$(50),T(B),P(B) |KJ  Í؍čэڍύύʍčύƍٍȍ͍ǍӍɍ׍ԍ؍ύȍ̍֍̍Ӎ؍ՍҍӍӍ΍ٍЍ׍΍ٍ΍ٍǍٍƍЍ΍ՍԍӍӍэҍÍύٍύ֍ȍٍɍÍʍō؍Ս͍ɍˍƍƍƍčэٍÍԍɍӍҍʍčÍՍٍЍÍ̍Ӎڍˍ؍֍΍ōǍȍԍ΍ˍ؍ōύʍٍ̍эЍōύ֍Ս̍ȍ؍̍Սƍ̍ύ׍ڍύƍ׍W Z" " PASS";A"COMPLETED") A/ E "RAM TESTED OK "K M WRITEN BY MARTIN MILLER< RAM TEST TAKES 30 MIN.Od 0,255,85,170ZnA14axYsX409649151|X,Y"POKKING "X" WITH "YXZ409649151W(Z)WY200"ADDRESS= ";Z,"DATA= ";W,Y "PEEKING "Z" WITH "  1550/:SUBROUTINE INITIALIZING DUMMY LINE:"20:2E6R1WOJ".";V^RkrR110:" ";:Rq ERASING PART OF SCREEN12:1R1W" ";R JUSTIFICATION OF TEXT(Z$(L))W(Z$(L),1)" "ı&X ""F:15:"PRINTER TEXT"HZ3:"DOUBLE SPACE (Y OR N)? ";SP$[nSP$"Y"SP1mSP$"Y"SP25:"JUSTIFY (Y OR N)? ";J$J$"Y"J17:"WIDTH OF LINE (158 MAXIMUM)? ";W9:"NUMBER OF PAGES EXPECTED? ";PZ$(P66)T COPY."=):24:"PRESS RETURN TO START; 'Q' TO QUIT";Q$:K*Q$"Q"ĀQ12BLANKS$" THE LINE. IF A LINEIS ENTERED WHICH EXCEEDS THE SET LINELENGTH, AN ERROR MESSAGE WILL BE DIS-"("PLAYED AND THE CURRENT LINE ENTERED WILLBE REJECTED AND CAN THEN BE RE-ENTERED."::"NOTE: A DOUBLE QUOTE MARK IS NOT ALLOWED TO BE ENTERED AS TEXERED USING 3 DIGITS,I.E. $T005 FOR 5 SPACES OVER FROM THELEFT MARGIN. OBVIOUSLY, THE LENGTH OF"&"COPY THAT WILL FIT ON THE LINE WHENUSING THE CENTERING, FLUSH LEFT OR RIGHTCOPY, OR TAB COMMANDS IS LESS THAN THE"f'"REGULAR WIDTH OF OPY, OR THE TABCOMMAND, YOU MUST ENTER THE COMMAND"d#:24:"PRESS RETURN TO CONTINUE ";Q$:$:"FIRST, THEN THE TEXT COPY, BEFOREHITTING RETURN. WHEN USING THE TABCOMMAND, THE NUMBER OF CHARACTERS TO TAB"f%"OVER MUST BE ENTGES IS ENTERED,AVAILABLE COMMANDS WILL BE SHOWN AT THE"!"TOP OF THE SCREEN. ANY PREVIOUS LINEWILL APPEAR IN THE CENTER. YOUR NEW LINEWILL APPEAR AT THE BOTTOM OF THE SCREEN."8""WHEN YOU USE THE COMMANDS FOR CENTERING,FLUSH LEFT OR RIGHT C YOU WILL BE ASKED FOR THEMAXIMUM NUMBER OF PAGES YOU EXPECT TO""PRINT. BY PAGES IT IS MEANT 66 LINEPAGES. TRY TO CHOOSE THE LEAST POSSIBLEAS THE MORE PAGES REQUESTED, THE MORE"8 "MEMORY IS UTILIZED.":"ONCE THE NUMBER OF PANES BETWEEN THESE LINES.":"YOU WILL THEN BE ASKED WHETHER YOUWANT THE LINES JUSTIFIED (EVEN LEFT ANDRIGHT MARGINS) OR NOT. NEXT, THE LINE":24:"PRESS RETURN TO CONTINUE ";Q$:I:"WIDTH IN CHARACTERS WILL BE ENTERED.LASTLY, NES WHEN YOU START. THE FIRST QUESTION" "YOU WILL BE ASKED IS WHETHER YOU WANTTHE COPY TO BE SINGLE-SPACED OR DOUBLE-SPACED. IF DOUBLE-SPACED, LINE NUMBERS""WILL COME ON THE SCREEN AS 1, 3, 5 ETC.THE PROGRAM AUTOMATICALLY INSERTS BLANKLI24:"PRESS RETURN TO CONTINUE ";Q$: :"THE PROGRAM IS SET FOR THE STANDARD 11INCH LENGTH SHEET, THAT IS, 66 LINES PERPAGE. IN ORDER TO START PRINTING ON THE"' "THIRD LINE DOWN FROM THE TOP OF THESHEET, YOU WILL HAVE TO ENTER TWO BLANKLIOVER TO A SPECIFIC LOCATION ON A" "LINE. ONCE THE LINE IS ENTERED, IT ISSHOWN ON THE SCREEN AS THE PREVIOUS LINEMADE. YOU MAY RECALL THAT LINE FOR" "CHANGES ONLY IF IT STILL APPEARS ON THESCREEN (PRIOR TO ENTERING ANOTHER LINE)."% : SET COLUMN WIDTH UP TO 158" "CHARACTERS AND WILL FURTHER LET YOUJUSTIFY THE COPY (LINE UP BOTH THE LEFTAND RIGHT MARGINS) IF DESIRED. OTHER"! "OPTIONS INCLUDE CENTERING COPY, SETTINGCOPY FLUSH LEFT OR FLUSH RIGHT, ORTABBING ING THE CENTRONICS 779 PRINTER"D 9:"MINIMUM ONE DISK DRIVE"::t :"DO YOU WANT INSTRUCTIONS (Y OR N)? ";Q$ Q$"N"ī49 :15:"PRINTER TEXT"! 4:"THIS PROGRAM WILL ENABLE YOU TO PRINTCOPY ON A PRINTER. IT WILL ALSO ALLOWYOU TO 7 PRINTER TEXT;:5:11:"********************":U15:"PRINTER TEXT":m15:"DEVELOPED BY"16:"DENNIS ULM"8:"FOR NSAUG - DECEMBER, 1980":11:"********************": ::7:"DEVELOPED ON A 48K SYSTEM" 4:"US               ȍƍÍ֍Ѝ΍ˍٍԍ֍֍ʍӍҍڍȍڍэӍЍ؍эٍҍ͍ҍǍč΍֍ȍÍÍҍӍ͍׍ҍҍՍčǍƍ׍ȍ΍̍΍ЍōύʍʍэՍՍ΍͍эɍҍٍ̍ԍɍՍƍ׍Ѝ΍Ѝύ̍֍ҍɍύȍٍ׍Ǎ΍؍؍Ӎƍԍ΍э͍ƍ׍Ս̍ЍƍÍɍҍōƍύύԍ΍ٍ͍΍ڍƍō :" ANOTHER ";Q$:Q$"Y"ĀM >" INSERT ANOTHER DISK & HIT RETURN ";Q$:m ` COPYRIGHT BY T.G.STUMFALL ((A$(U),T,1)) /X,I /X /Y 03094,2:3072 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000 (U)A$(U)(Z):X pYF dD17:W2(A$(D)):J$(D)(A$(D),(W2W1))M Db ,D17:A$(D):Dn AW17 (A$(AW))0ī7100 XD$;"RENAME";A$(AW)","J$(AW) AW 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000o  D$(4)# D$;"BLOAD RDWRT"R " HOW MANY CHARACTERS IN YOUR PREFIX ";W1\TK17fSK15s 3086,TK 3094,1 3087,SK 3072 A8192 U0YA14A25535(Y3)255ī6000UU1:A$(U)"" XYY29:Z(X):A$  ΍ˍ׍ɍȍ؍ՍɍҍÍԍҍ؍эٍ΍ԍʍʍ̍ɍ؍ʍэčʍٍ؍ƍύǍ؍؍؍̍ƍ̍ЍύÍʍƍՍԍ͍ԍՍˍЍ̍׍ύ͍ƍˍ֍׍Ǎˍэ΍čÍҍƍÍЍ̍؍ōύč؍ÍӍ֍ȍ͍ōǍЍ΍΍Ӎڍ̍׍ƍύՍڍȍٍǍǍɍԍÍӍ͍ՍՍ͍̍ҍ΍؍Ǎٍ؍ ,~H ^~"USE ONLY ALPHA CHARACTERS AS THE FIRST SYMBOL OF A PREFACE." ~ OF A PREFACE."s c~D$"": CTRL D h~D$;"BLOAD RDWRT" ,KS WITH THE NEW CATALOG'S CAN NOW BE USED WITH THE 'FID' PROGRAM TO WRITE THE NOW CATAGORIZED PROGRAMS TO ANOTHER DISK." }"AFTER 'FIDDING' YOUR PROGRAMS YOU CAN REMOVE THE PREFACES BY USING THE 'REMOVE PREFACE' PROGRAM." } }"*****WARNING*****"J}"THIS PROGRAM ALLOWS YOU TO ADD A PREFACEOF ANY LENGTH OF ALPHA CHARACTERS TO EACH PROGRAM ON YOUR DISKS TO AID IN CATAGORIZING."}2}"AFTER THE PREFACE'S HAVE BEEN ADDED TO THE CATALOG THE NEW CATALOG IS REWRITTEN TO THE DISK."x d}"THE DIS  Ӎ ԍ͠Ǡ̠ĠϠԠӭԠŠҠŠҠĠĠԠΠҠҮٍǠōӍƮōӠ٠ƠԠǠΠϠٍͮȭҮñ̤ƠˮӠˠűȧٍͮˠűȍðӍ٠ԍŠŠҠˠűԩͮϠԠή΍ύӍŠҍӠǠƠԠŠٍҠҍӠҠҠӮӠˠűȧٍͮˠűȍðӍŠԍŠŠҠˠŠϠԠή΍ˠűԩɍӍ٠ԍӠԠŠŠРƠŮٍԍӍŠҍӠǠӮӠįŠˠҮ͠Ӡ٠ǠӠĠӮٍˠŠɍӍŠԍӠˠŠРĠӠŠӮŠӠΠԮǮ̧ͮӠԧŮٍԠŠҍӍ͠ҍǠĠȠӠӠϠ͠Ҡ٠ĠԠРӮȠӠӠӮӠàŠΠ(16384)127ıT320";::"ESCAPE";::" KEY."W :"TO RUN HIT THE ";::"RETURN";::" KEY."e 16368,0u 22:20:A$ A$(27)ĉ:: A$(13)ĉ:::R$: A120:Z(16336)::250 "16368,0 , 6A0:16368,0 @AA1:AWıJTHE DISK WILL START TO SPIN IN A SECOND OR TWO. IF THE PROGRAM CANNOT FIND YOUR FILE, IT WILL TELL YOU.":310 :"IF IT FINDS YOUR PROGRAM, IT WILL REVIVE IT AND ALSO LOCK IT TO PREVENT ANY FURTHER MISHAPS.":310 :"TO EXIT NOW TYPE THE ύٍՍÍҍōˍ׍΍׍ԍǍҍ΍ȍʍ׍Í͍ҍƍڍȍčƍ:" ANOTHER ";Q$:Q$"Y"ĀJ >" INSERT ANOTHER DISK & HIT RETURN ";Q$: K COPYRIGHT BY T.G.STUMFALL L.YA14A25535 .UU13 D/(Y3)255ī12200I ]/A$(U)(A$(U),30)Q b/T0a v/XY(Y29)k }/TT1 ~/I((A$(U),T,1)) /X,I /X /Y 03094,2:3072 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000 U)A$(U)(Z):X pY4 dD17:(A$(D))0ī6600@ h:::l i"PROGRAM NAME : ";A$(D):"PREFACE ";X$v nG$"" x(X$)Wī6500 }W11W WQ((X$,W1,1)):WQWQ128:G$G$(WQ):W1 A$(D)G$A$(D) D ,D17:A$(D):D |.U0 L  D$(4)# D$;"BLOAD RDWRT"Q " HOW MANY CHARACTERS IN YOUR PREFIX ";W[TK17eSK15r 3086,TK~ 3094,1 3087,SK 3072 A8192 U0YA14A25535(Y3)255ī6000UU1:A$(U)"" XYY29:Z(X):A$(   q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL ӠĠˠӮٍŠӍӍ٠ԍӠҠŧٍͮڠǮԍԍԠŠӠԠƠӮĠ٠ˠ٧΍ӠױŠӠҧٍԮǮ̍Ӎ̍͠ӠҠĠاĠŠاӮٍԠԍӍŠҍǠŠҠ̠Ԡֲ΍ōӍ٠ԍ͠Ӡ٠ŠĠԠŮٍױŠӠҍŶӍ͠΍ŠŠŠҠԠĠϠԠ΍΍ԠĠɍӍ͠΍ŠƠǠԠӠϠ͠ӠήҮŭԠԠŠΠ˩ٍϮ΍Ӎ٠΍ӠǠӠϠŠ͠ϠĮٍҠҍɍӍ̠΍ӠҠƠӠ͠ϠҠԮŠΠŠ͍Š؍Ӎ̍͠ӠǠӠԠΠ٠ĠاͮŠӠΠԮǮ̧ͮӠԧŮٍ̠ԠֲӍŠҍӠŠԠŠĠӠϠӠҮٍ͠ԠˠũӍΠҍӠϠ͠٠ĠӠҠҠήٍԍðӍ̍͠ŠŠҠĠاĠŠاӮϠԠή΍ӠӠϠŠ٠Ġ͠ŠŠϠҮٍ͠čӍ ΍ԠŮٍҠԍӍӠ͍ӠǠƠӠҠǭǭΠĠŠǠŠƧٍͮύɍӍϠͮӠǠŠĠΠӠˠ٧ٍϠ͍Ӎ ΍ŠǠ͠ǠӠٍͮԯРōӍƮōƍñƍӍ̮ҍŠŠŠҠǠŠϠԮŠӠΠҠͮ΍ȭӍӍ̮ҍӠϠŠŠϠԮӠȭҮñ̤CE);" :"; PLACE 2 "CLOSE MACH.POKE" :"NOW LOAD THE PROGRAM YOU WANT TO INSERT THE POKES INTO AND THEN EXEC THE FILE NAMED MACH.POKE" SH.POKE,V"" <"DELETE MACH.POKE"9 F"OPEN MACH.POKE"Q P"WRITE MACH.POKE"k ZPLACESA(SA(LE1)) _COUNTERCOUNTER1 dCOUNTER10COUNTER1 nCOUNTER1120 o pLINENUMBER; qLINENUMBERLINENUMBER1 x" POKE ";PLACE;",";(PLAWANT TRANSFERED."::"WHAT IS THE DECIMAL STARTING ADDRESS OF THAT PROGRAM ? ";SA :"WHAT IS THE DECIMAL LENGTH OF THAT PROGRAM ? ";LE (:"WHAT LINE NUMBER DO YOU WANT THE POKES TO START AT IN THE BASIC PROGRAM ? ";LINENUMBER 2"OPEN MAC ::"CREATE EXEC FILE TO TRANSFER MACHINE LANGUAGE ROUTINE TO ANOTHER BASIC PROGRAM. WHICH IN TURN WILL POKE THAT ROUTINE WHEN THAT BASIC PROGRAM IS RUN""NOMONI,C,O"Q :"TO USE THIS PROGRAM, BLOAD THE BINARY PROGRAM THAT YOU    z#?Xղ ˠҠР ٠ŭàҠ!  ԠŠҠؠРŠ ŠҠ ŠҠ٠ŠҠ ŠӠڠǮԠ ҠӠ ͠ԠˠӠ Ԡ Ġˠ̠Ԡֲ ͠ϠĠ Ԡ> ǠŠ!ȱҮñ̤Ơ"ȱӠŠ٠ϠàؠĠؠĠҠ ؠŠ ǠӠˠ٠ˠ٠Ԡ٠àŠ٠ŠǠǠԠӠ ǭǠàҠҠ! Ϡ!Үʰ!à*ՠĠ٠ϠԠԠŠҠ+Š  ANDS ****"9" 7 ODD 1 = 3 * *"h" 8 NONE 2 = 4 * ENTER NO. *"" 8 NONE 1 = 5 * NEXT N *"" 8 EVEN 1 = 6 * EXIT X *"" 8 ODD 1 = 7 ******************"  AUTO32 = 3 1.5 SEC = 7"A9:"255 = 4 2.0 SEC = 8"n6:"OTHERS = 5 VIDEO - 1"" DATA FORMAT - 4 OFF = 0"" 7 EVEN 2 = 0 ON = 1"" 7 ODD 2 = 1" " 7 EVEN 1 = 2 **** COMM.8 MSEC = 0"2N9:"OFF = 0 1.1 MSEC = 1"XX10:"ON = 1 10.5 MSEC = 2"b" LINE LENGTH - 4 102.0 MSEC = 3"l9:" 20 = 0 0.3 SEC = 4"v9:" 40 = 1 0.5 SEC = 5"9:" 80 = 2 1.0 SEC = 6"9:"116368,0 := 3:"IN WHICH SLOT IS THE SSM AI/O CARD?"S 3:"1 TO 7...";Sj &S0S7.013050z 0E20İ4000 ::1:3:"** OPTIONS W/SETTINGS INDICATED **": =" AI/O IN SLOT - ";S;" CR DELAY - 0" D" AUTO LINE FEED - 0 0 2"% 18:" 8 NONE 1"C 18:" 8 EVEN 1"a 18:" 8 ODD 1" 3:"*************************************" ":9:"*** PRESS ANY KEY ***" ,9:"*** TO CONTINUE ***" 16368,0: (16384)128430  3:"APPLE VIDEO -ON OR OFF"P 3:"DATA FORMAT -BITS PARITY STOP BITS"q 18:"---------------------" 18:" 7 EVEN 2" 18:" 7 ODD 2" 18:" 7 EVEN 1" 18:" 7 ODD 1" 18:" 8 NONE "IN THIS APPLE? Y/N...";SSM$0 nSSM$"N"5550D xSSM$"Y"3000h ::3:"SELECTABLE OPTIONS:": 3:"AUTO LINE FEED-INSERTS A LINE FEED " 18:"AFTER A CARRIAGE" 3:"LINE LENGTH -1 TO 255" 3:"CR DELAY -.8MSEC TO 2SEC"!HE POINTERS FOR"O 76:"THE ";:(34);:"SSM AI/O";:(34);:" CARD'S SERIAL"a <6:"PORT.": A6:"THIS PROGRAM IS ONLY EFFECTIVE" F6:"IF YOU HAVE A SSM AI/O CARD IN" K6:"YOUR APPLE COMPUTER." d6:17:"DO YOU HAVE A SSM AI/O CARD":6:[ **********************= * ROUTINE TO SET *[ * SSM A I/O BOARD *y * BY * * L. M. ERDMAN *# **********************(::5-:6:"THIS IS A PROGRAM THAT WILL" 26:"HELP YOU SET T         e.?r`$]ƠɼΠӠӠԠ٠ŠĠӠԠa()GMde.?rde.?ra(̤)GMq.?rq.?ra(ҽ)G>bE()FGqq-rq-r-rq4qq qa@*#rE()GUVW de.?rMYc]ӠǠ?Pq.?r`%a()GPqa@*#rGA\ `$q.? rq.? rq \ qqq de.?rd]ǨɩӠΠĠŠӠө$a@*#rE(Ǡ)#UVW`-r6%\RYc1qq.?rq.?r\ MUV WX#q.?r`$`$qq.?rjqq;@rP)a@Ga()G` %a()G`c%a()G`$c_P)UVWa()GYcAca@*#rE(Š)a@*#rE(Ԡ)!a@*#rE(Ӡ)VUVW/`-r6%\RY/-rq-r-rqYq6UVW-rq-r-rqYqD]ϠӠŠӠӬĠϠӠŠM@p(ڰެ)@p(),a(РƠŠ)FG`$c_;]ˠҠЪ٠ƠΊTd\q/UVW8X6q.?rqUVWq`$n-rqqHnqYq.?rqUVWq`$x-rqqxqYZM6Uq6UVWٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER ̮ϮȬ2]Ӡ͠2]٠٠f2]ӠΠƠŠˠҠР٠ͩҠŠΠҠӠ٠ŠϮؠîӮi*]ΠĠϠŠӠ͠ӠǠӠԠŠӠĠΠŠ!.]Ġ٠Ġ®\2]٠Ġ͠ŠǠΠǠƠ̭ŧàĠĠĠĠ )[N @p(ºàŠƠĸ)[2*@p(àĠĠàƹ)[7']ĠǠŠˠӠ٢ӠX']Ԡ٠ΠЮŠŠϠ٬ӠϠӮȮN@"rN@" r/\\@p()\ \@p()\*\[@B;@rrp(ΠŸ)UVW;@rde<@*rrY dHeM6[`@p( Ġ°ĠĠS(ˠԠ)&@`;@r$@q8<@rr`p$dede0$oP S(ˠŠ)&@`;@r$$<)q8<@rr`$$dede%Bqqq\ [<]Š S(Š)&@`;@r$`$M_4a@E(ң)F]ԠӮҠҮҠҮƮ a()M6#oP a(ˠ۠Ҡ)'oP a()cc.qqq\0o P ӠΠŠ٠ϠŠƨɩ%oP a()c1ca(ҠҠԣƠՠԠ)5q6O4/rO4/rUVW/-rqYq@o P S(ҠԠ)'`$`$5N@"2roPa()FE()FE(ϠĠӠ)E@*#rE()[9dJedKedede]͠-qqqqqq@p()]̭a@E(Πìɬ)KM6#oP a(ˠ۠Ҡ)=]Ӡ̠6+a@E(ң)a@E(Πìɬ)M6oQ ]įŠF*deded ed eM,4q.? rq.?r`%[5>Pa(Ҡ)FE()FE()F_NRq-rPŠҬĠƠ½ΠԠӠԠN]Ơ½ΠԠӠǠҬĠƠ½ΠԠӠӠ q0Oa(̮)FE(Ӡ)FE(Ŭ)FE(ԠӮ)FE(ӠΠŮ)G&`.?6@r$d6?ecMGPXUVW"b GYclo/{a()c2o qqUVW` %a()GbE()GKPUVW/Xq-rq8rq86rqa@*#rGYcYccK]Ơ½ΠԠrr%\RY]ӠӠΠҠǠŠ Y_c),`$6`.?6@r$,d6?e 6M6&a()a()G0Pa(ԠҠà)a()G:Pa()a()Da()GP/Na()oSa()q.?rq8r`%a()G9UV WXq.?r.?r`$gq-rq-r-rqY`$\ _]ʠӠĠȠŠŠӠ a()FSUVW/`88-rr8-r6͍ύӍӍ͍ɍÍҍˍȍэˍʍʍՍԍҍԍԍэ͍ǍǍύ֍Íƍ؍ڍȍˍ؍ˍҍٍ̍ԍٍύ̍ɍōҍЍԍʍ׍ٍÍōʍٍɍ؍ʍʍԍ؍Ս֍ύ̍Ǎԍȍ͍ʍˍōōӍӍӍɍԍэٍ׍΍΍ȍ؍̍֍ɍ΍ɍ΍ɍ؍ڍՍč֍ƍЍЍڍɍȍǍԍύэȍ֍ˍ                                 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 (218)(219)256% :D$;"CLOSE";F$+ tF  BRUCE W. CHRISTOPHERh  CHAR/HEX DUMP OF TXT FILES.D5C$C$" ":2700 ( C$C$P$: HH(AP16):HLAPHH16h HH$HH$(H$,HH1,1):HL$HL$(H$,HL1,1)o T J ^ (C$)403000 h C$;HH$;HL$::3100 C$:HH$:HL$:  I 1400 216,0 H (222)53600 "ERROR CODE=";(222);" AT ";;F$ 3300 xRNRN1:A$""0 RNRM3600A @X$:A$A$X$R X$R$1600_ AL(A$) l" RECORD ";RN;" LRECL=";AL W0 4I1AL40 C$"":HH$"":HL$"" TALI:T39T39 J0T:KIJ ` P$(A$,K,1):AP(P$) AP32AP9idD$(4):R$(13)#BS$(8)=,H$"0123456789ABCDEF"E:p:"CHARACTER+HEX DUMP OF TEXT FILES"vX"INPUT FILE:";F$:"HOW MANY RECORDS ?";X$ X$"ALL"RM1E10:1000RM(X$):RN0LD$;"OPEN";F$ D$;"READ"  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    ROTECTED ****":, "* FILE RECOVERED *":@ L8192819228P V:L,V:: 169,32,160,8,32,217,3,96,1,96,1,0,0,0,25,32,0,64,0,0,1,0,0,96,1,0,1,239,216 **************** F O U N D I T ****************************************"q ^G(AL32) hFT255380 r:"* I DON'T THINK IT IS DELETED... *": |LA,G:LA32,160:CS20,2:CS21,0 CS (CS21)16ĺ"**** WRITE P---------------------------":"IS THIS IT?";:A$::A$"Y"340D W LT0LS0300t "CS12,LT:CS13,LS:150 ,:"*** CANNOT FIND NAME ON DISKETTE***" 6:"TRY A DIFFERENT NAME? (Y/N)";:A$ @A$"Y"110 Ja T"************************(CS21):ER128ĺ"READ ERROR... TRY AGAIN? (Y/N)";:A$:A$"Y"140Q ER128Āw ER64ĺ:"*** DRIVE ERROR ***": A1122135 FT(LA) FS(LA1):N$"" B332:N$N$((ABL)) (N$,1)(160)270> N$:"-------------  90(T2" UNDELETE BY LAWRENCE GUSTZ<`FfPoZ420dL16384:CS8192:ALL256:A,0:nxCS12,17:CS13,15:CS20,1CS20,1:CS21,0CSLT(L1):LS(L2)C ER::" L=0:";"LN=";LN;":LC=";LC;":N=";N;":GOTO290":(37)22440:24:"TRACE CURSOR OVER EACH LINE AND":"HIT RETURN TO ENTER"CH21ī480CH20ī4704903:2:1:dN30 6L3420 @3405 J::10:18:"DONE!"::g TLL1:CNT0:LNLN10:::" ";LN;" ";"DATA ";| ^CNT49LCN370 h380 rCH(37):(LC);:CNTCNT1:LCLC1:390 |(LC);",";:CNTCNT1:LCLC1 CNT50300 LCN1420 350A HIMEM BELOW START DECIMAL ADDRESSA *************************m :" "u A$ A$(32)270 240 :"ENTER DECIMAL START,END ADDRESSES ";:ST,N LN62990:LCST:L0 ":: ,LCN3REASE THE CLUTTER OF LISTINGS WHICH CANNOT BE RUN FROM THE CATALOG.c ************************* POKE FROM DATA STATEMENT ROUTINE: FOR K=(# OF DECIMAL START ADDRESS TO (# OF DECIMAL END ADDRESS): READ J: POKE K,J: NEXT K" ALSO NOTE TO SETPORATING A POKE ROUTINE SUCHAS IS REMMED INTO THE PROGRAM LISTING AFTER THESE INSTRUCTIONS."D :"THIS PROGRAM IS NOT MEMORY-CONSERVATIVE.ITS PURPOSE IS TO IMPROVE PORTABILITY OFAPPLESOFT PROGRAMS WHICH CALL UP SHORT MACHINE CODE ROUTINES, AND TO DEC:"THIS PROGRAM WILL CONVERT THE MACHINE CODE OF A BINARY FILE ALREADY LOADED IN MEMORY INTO CONSECUTIVE DATA STATEMENTS BEGINNING AT LINE NUMBER 63000.^ :"THE DATA STATEMENTS CAN BE APPENDED TO, AND DIRECTLY RUN FROM A BASIC (FP) PROG-RAM BY INCORMd---CABOOSE BY AV FRAIOLI AFTER POKEWRITER BY VAL GOLDINGn APPLESOFT BASIC VERSION COPYRIGHT BY AV FRAIOLI MARCH 7, 1981xN27:3:NN1:N:"--------CABOOSE":N9:"* *"PAUSE120:PAUSE:N9130      "C -";FI$(3)""D -";FI$(4)4"E -";FI$(5)F"F -";FI$(6)X"G -";FI$(7)j"H -";FI$(8)|"I -";FI$(9)"J -";FI$(10)"K -";FI$(11)"L -DONE SELECTING.""M -ABORT PROGRAM" 22:CE:"SELECT OR DE-SELECT BY LETTER PART OF THIS PROGRAM."RRS,0:HA:SE(RK):SE6920000: CREATE TEXT FILES  ***************** * SELECTION * * MENU * *****************D$;"NOMONI,C,O""A -";FI$(1)"B -";FI$(2)":3"TO CREATE TEXT FILES ON DISK WHICH YOU":a"CAN 'EXEC' INTO A PREVEOUSLY WRITTEN":"PROGRAM. IF YOU WOULD LIKE TO CREATE":"THOSE TEXT FILES (12 OF THEM) NOW TYPE":"'E' OR TYPE ANY OTHER KEY TO PROCEED":"WITH WORKING INSTRUCTIONS."BrHA:SE(RK):SE8030000: GO PRINTbwSE8310000: SCREEN PRINTy|D$;"NOMONI,C,O":"AS PREVEOUSLY MENTIONED THIS PROGRAM":"SHOULD BE RUN BEFORE YOU BEGIN YOUR":"PROGRAM, HOWEVER AN OPTION ALLOWS YOUKE TO SEE A PRINTED LIST":LO"OF THE ASSIGNMENTS IN LINES 60000-60499":VQRS,0T:"TYPE 'P' TO PRINT TO PRINTER-":Y" OR":^"TYPE 'S' TO PRINT TO SCREEN-"h:" OR":m"HIT ANY OTHER KEY TO CONTINUE (CALL 768)"d1"LINES 60385-60390 ERROR HANDLING ROUTINE (CALL 945)"6"LINES 60400-60405 APPLESOFT POINTER FUNCTIONS. (DEF FN)"@:RS,0:" -HIT ANY KEY-":HAEJ"IF YOU WOULD LIYBOARD LOCATIONS."T"LINES 60299-60302 CURSOR POSITION LOC."""LINES 60320-60329 SCREEN SELECT LOC."'"LINES 60350-60356 SPEAKER & PADDLE LOCATIONS.","LINES 60380-60390 ERROR HANDLING ROUTINE TEXT:HOME COMMANDS."B "LINES 60101-60113 DOS COMMAND STRINGS.""LINES 60199-60204 WINDOW PARAMETER LOCATIONS.""LINES 60249-60252 CLEAR SCREEN CALL LOCATIONS."&"LINES 60270-60277 READ & SET KEUESTION":;"AND THEN THE PROGRAM WILL CONSTRUCT THE":k"ROUTINES YOU HAVE ASKED FOR AND RETURN":"YOU TO APPLESOFT.":RS,0:" - HIT ANY KEY-":HA"LINE NUMBERS WILL REPRESENT AS FOLLOWS.":"LINE 60100 ":1 "LATER WILL BE SHOWN A SELECTION MENU":a "FROM WHICH YOU MAY SELECT OR DE-SELECT": "THE GROUPS OF ROUTINES (LINE #'S) YOU": "WOULD LIKE IN YOUR PROGRAM.": "WHEN DONE SELECTING ENTER 'L'.": "YOU WILL BE ASKED ONE MORE QC ::RS,0:"DO YOU NEED INSTRUCTIONS ? Y/N ";A1$:A1$"N"5000 ***************** INSTRUCTIONS FOR USE ***************** "THIS PROGRAM SHOULD BE USED BEFORE YOU": "BEGIN YOUR PROGRAM.% n"UP MOST DOS COMMAND STRINGS,":U s"ASSIGNING VARIABLES TO FREQUENTLY USED": x"LOCATIONS IN MEMORY AND ALSO 'DEF FN'": }"FOR APPLESOFT POINTERS.": "THE PROGRAM WILL WRITE PROGRAM LINE": "NUMBERS BETWEEN 60000 & 60499 AND #1": * SEE LINES 30000 TO * * 30030 FOR PRINTER * * COMANDS. * * * ********************** eHA64795:AN(14) f"THIS PROGRAM IS AN AID TO PROGRAMMING.": i"IT'S PURPOSE IS TO SAVE TIME IN SETTING":* * JAMES E PFEIFFER * * (312) 289-7311 * * * * PROG. WAS WRITTEN * * ON AN APPLE II 48K * * WITH DOS 3.2 AND * * APPLESOFT ROM CARD * * *m * PRINTER / OPTIONAL * )Y60000  ********************** * APPLESOFT LINE * * WRITTER * * OCTOBER 31,1980 * * *U * WRITTEN BY                 / START8192:BUF9000:ASTARTSTART28= V:A,V:  169,32,160,8,32,217,3,96,1,96,1,0,17,15,25,32,40,35,0,0,1,0,0,96,1,0,1,239,216 R1:W2 NBUFA2,L TSTART20,W. ^START12,TRACKB hSTART13,SECTRL r8192 |::"**************************************** R E C O V E R E D ****************************************":: "CATALOG": N$N1$290 18060N1$(N1$,(N1$)1):260, N1$N$180 ""**************************************** F O U N D I T ****************************************" ,TN(BUFA32):BUFA,TN:BUFA32,160 6L(BUFA2) @L128LL128 JR ELSE IT DOESN'T EXIST. PERHAPS YOUR TYPING WAS WRONG, OR ELSE YOU HAVE SAVED A FILE ON THIS DISK SINCE THE DELETION."::: SECTRSECTR1:SECTR0LF1:200 80 B331 N1$N1$((BUFAB)) (N1$)2400 ((N1$,1))1 FTRACK17:SECTR15( PSTART12,TRACK< ZSTART13,SECTRL dSTART20,RV n8192j xLTRACK(BUF1)~ LSECTR(BUF2) LTRACKLSECTR0LF1 A11 N1$"" (BUFA)255230 AA35 A223170 LF1ĺ:"FILE IS NOT DELETED Or :10:"WHAT IS THE FILE YOU WISH TO RECOVER?":12:">............................";:1:">";N$:(N$)2810{LF0(N$)0Ģ12:">>> T E R M I N A T E D <<<":(Q$"":A1(N$):Q$Q$(((N$,A,1))128):2N$Q$<430 ES } A. F. PETRIE 12/1/80NTO }EITHER LANGUAGE OR CAN> }BE USED TO MERGE PROGRAMSX }THIS PROGRAM IS MADEr }TO BE 'EXEC'-ED INTO }OTHER PROGRAMS }IF THIS IS NOT A TEXT }FILE ALREADY THEN }RUN 32007 WITHOUT }THE CHANG$ }D$;"OPEN";A$' }D$;"DELETE";A$9 }D$;"OPEN";A$L }D$;"WRITE";A$W }33,30d }0,32031w }D$;"CLOSE";A$} } }:"NOW YOU CAN 'EXEC' ";A$;" INTO FP OR INT" } }THIS PROGRAM SAVES }PROGRAMS AS TEXT FILES }TO BE 'EXEC'-ED I32000:INT/FP CAPTURE&}936N}"LIST PROGRAM FOR INSTRUCTIONS.":}}" RUN CURSER OVER THESE TWO LINES:":}" 32014 LIST 1,31999":}"]RUN 32007"}4:}"WHAT DO YOU WANT THE TEXT FILE CALLED":D$"":CTRL-D }A$(30):A   11,0%- DEFINE DISK COMMAND CODES5.RD%1:WR%2\|.CCA%IA%12: COMMAND CODE ADDRESS}.CCA%,0: CLEAR COMMAND CODED/ECA%,0:IA%14,0/IA%15,(IA%1) 0IA%16,(IA%2)p0 --- LOAD DEVICE CHARACTERISTICS TABLE ---0DCT%,0:DCT%,1:IA%1,SLOT%16B*IA%2,DRIVE%:IA%3,0: ACCEPT ANY VOLUME c*TA%IA%4: ADDRESS OF IBTRK\+SA%IA%5: ADDRESS OF IBSECT+IA%6,DCT%(DCT%256)256$,IA%7,DCT%256,IA%8,DBA%(DBA%256)256,IA%9,DBA%256P-IA%10,0:IA%3,IA%(IA%256)2562t'RWTS%4,32:RWTS%5,217N'RWTS%6,3:RWTS%7,176j<(RWTS%8,5:RWTS%9,169(RWTS%10,0:RWTS%11,141)RWTS%12,ECA%(ECA%256)256:RWTS%13,(ECA%256)h)RWTS%14,96:RWTS%15,0) --- LOAD IOB --- 0*IA%TINE&$IA%RWTS%16: IOB ADDRESS K%ECA%IA%13: ERROR CODE ADDRESS}%DCT%IA%17: DEVICE CHARACTERISTICS TABLE %DBA%DCT%4: DATA BUFFER ADDRESS H& --- LOAD I/O SUBROUTINE ---&RWTS%,169:RWTS%1,IA%256'RWTS%2,160:RWTS%E OF HIMEM~(#SIZE%16174256: SUBROUTINE TAKES 16 BYTES, IOB TAKES 17 BYTES, DCT TAKES 4 BYTES AND DATA BUFFER TAKES 256.#HM%SIZE%#SLOT%1SLOT%7İ12800:(7);"INVALID SLOT NUMBER":T$RWTS%HM%(SIZE%1): ENTRY ADDRESS FOR I/O SUBROU6900!*--------------------*= * SUBROUTINE TO SETUP*Yl *THE RWTS CONTROL- *u *BLOCKS AND A MACHINE*4!*LANGUAGE ENTRY SEQ- *!*UENCE *!*--------------------*`"HM%(116)256(115) " HM% SAVES INITIAL VALU RESET HIMEMX1 --- READ SUBROUTINE ---R CCA%,RD%: SET READ COMMANDlTA%,TK%: SET TRACK#SA%,SR%: SET SECTOR#LECA%,0: CLEAR ERROR BYTERWTS%: READ A SECTOR(ECA%)0ıx:(7)"I/O ERROR #";(ECA%)@:UE";:X$!:"--- SUMMARY ---"E8EL%1;" DATASET(S) CATALOGED."n84EL%1;" DIRECTORY ENTRIES FREE."SUM%;" SECTOR(S) IN USE."d403SUM%;" SECTOR(S) FREE.":"REPEAT LISTING (Y/N) ?";X$,X$"Y"3900X$"N"6600 12700:T$"APS":5300'X%4T$"BIN":53004PT$"UNK"RX$(" "(DP%(I,0)),4)pT$;L$;X$;" ";(DE$(I),2)|SUM%SUM%DP%(I,0)K%205800DI:6000:"TYPE ANY CHARACTER TO CONTINUE"; X$:5700p:"TYPE ANY CHARACTER TO CONTINS K%20:SUM%0 I0EL%7 hK%K%1:K%214600P ::"TYPE SCT NAME" 0"---- --- ------------------------------" K%1 X%((DE$(I),1)) \L$" ":X%128X%X%128:L$"*" X%0T$"TXT":5300 $X%1T$"INT":5300X%2  SW%0:I0K%5 (DE$(I),2)(DE$(I1),2)3600_ X$DE$(I):DE$(I)DE$(I1):DE$(I1)X$ H X%DP%(I,0):DP%(I,0)DP%(I1,0):DP%(I1,0)X% SW%1: INDICATE A SWITCH OCCURED I tK%K%1:K%04000 SW%03100 < NOW LIST THE RESULTP%(I,0)1: COUNT ONE SECTOR FOR EACH TRACK/SECTOR-LIST BLOCK.X ADBA%12DBA%2542} ` (A)(A1)DP%(I,0)DP%(I,0)1 A:TK%(DBA%1) ( SR%(DBA%2) TK%SR%2100 I T NOW SORT THE ARRAYS ^ :"SORT IN PROGRESS" K%EL%1RY BLOCK @TK%SR%500B  NOW EXAMINE THE TRACK/SECTOR LISTSX EL%E%1:I0EL%v lTK%DP%(I,0):SR%DP%(I,1) DP%(I,0)0: THIS VARIABLE WILL NOW BE USED AS A SECTOR COUNTER; INITIALIZE IT TO ZERO. 47200: READ A LIST BLOCK> DP%(I,0)DNACTIVE ENTRY.3  PICKUP FILE-TYPE AND FILE-NAMEd LX$"":J232:X$X$((A%J)):J:DE$(E%)X$ DP%(E%,0)(A%):DP%(E%,1)(A%1): GET POINTERS TO TRACK/SECTOR LIST E%E%1 xI TK%(DBA%1):SR%(DBA%2): GET POINTERS TO NEXT DIRECTO  CATALOG ANALYSIS PROGRAM8VERSION 3 11/01/80S BRUCE W. CHRISTOPHERo13000: INITIALIZATION7200: READ A DIRECTORY BLOCKX SCAN DIRECTORY ENTRIES I1122135 A%DBA%I (A%)255(A%)01400: $FF OR $00 MEANS I     D$"UNLOCK"W$D$"WRITE"/L$D$"LOCK"CYCE958:CL868SCH36:CV37cCY768777vDA:CY,DA:: 104,168,104,166,223,154,72,152,72,96SD$;"EXEC";DE$(A,0)BEEN RENDERED UNREADABLE.":;!N:"UNUSAL ERROR- PANIC":P` SET UP ROUTINEX:dD$(4)wA$D$"APPEND"B$D$"BLOAD"BS$D$"BSAVE"C$D$"CLOSE"DE$D$"DELETE"O$D$"OPEN"P$D$"POSITION"R$D$"READ" U$ QT38:32253 LE0ĺ" ";(DE$(X,5),LE):LCLC1A :LCLC1G [ D$;"PR#0":200 (12);(14);"DISK VOL#";VN$;(15):LC2:: N216,0:768::"PROGRAM TERMINATED"::(222)5(22)6ĺ"TEXT FILE 'Z PROG.LIST' IS EITHER"::"MISSING OR HAS LENGTH- ";DE$(X,3)P DE$(X,2)""ĺ" BINARY AD. & LENGTH- ";DE$(X,2):LCLC1n LE(DE$(X,5)):PO1:QT38} LE03240 (DE$(X,5),POQT1,1)" "LE39ĺ" ";(DE$(X,5),PO,QT):LELEQT:POPOQT:LCLC1:3235 QTQT1:3225 LE383238 N PRINTER AND SET 'TOF'"::16368,0:"AND THEN HIT ";A$Q] D$;"PR#";PR[b 3500tl X0IQ:LC55İ3500v DE$(X,0)w LCLC1{ " BY ";(DE$(X,4),35)| LCLC1 " FILE TYPE- ";:DE$(X,6)"N"ĺ" "; LCLC1 DE$(X,1);" * HARDCOPY OUTPUT * ******************** :"PARALLEL PRINTER INTERFACE ASSUMED. SEE LINES 3000 TO 3500 FOR PRINTER CMDS." :"PRINTER SLOT # -OR TO RETURN TO SELECTION LIST ? ";A$:A$"S"200 PR(A$)@X :"TURN OT"10003A$"E"DE$(A,1)"T"DE$(A,6)"Y"63000DA$"P"3000M600******************** * LOAD PROGRAM SEL.* ********************DE$(A,1)"B"ĺD$;"BLOAD";DE$(A,0):D$;"LOAD";DE$(A,0)8 ********************NCE TO NEXT DESCRIPTION RETURN TO SELECTION LIST

PRINT HARDCOPY OF ENTIRE FILE"::10:"WHICH ? ";:A$A$(3)ĀA$"A"AA1:520A$"S"200A$"R"DE$(A,6)"Y"DE$(A,1)"T"400A$"L"DE$(A,1)"N:DE$(A,6)"N"Ğ:"PROGRAM NOT INTEDED TO BE RUN"SSAIQĺ:16:"LAST ENTRY"YTeX17:CE{bDE$(A,1)"T"650v" LOAD THIS PROGRAM RUN THIS PROGRAM":900DE$(A,6)"Y"ĺ" EXEC THIS FILE":900" ADVAARY A & L- ";DE$(A,2):570 58 :"LENGTH-";DE$(A,3)X ;:LE(DE$(A,5)):PO1:QT39f <LE0590 =(DE$(A,5),POQT1,1)" "LE41ĺ(DE$(A,5),PO,QT):LELEQT:POPOQT:575 >QTQT1:573 ?LE41577 @QT39:573 ALE0ĺ(DE$(A,5),LE)5,1)"T"ĺD$;"EXEC";DE$(A,0):4 D$;"RUN";DE$(A,0) ********************* *PRINT DESC. ROUTINE* ********************* A0A0 AIQAIQ :DE$(A,0): &"BY ";DE$(A,4) 0:"FILE TYPE-";DE$(A,1);:DE$(A,1)"B"Ė15:"BIAN6(A$,1)"D"A((A$,2)):A1AX500j @(A$,1)":"(A$,1)"/"A(A$):A0AXDE$(A,6)"Y"330s E280| JXIQ ********************* * RUN PROG. SELECTED* ********************* DE$(A,1)"B"ĺD$;"BRUN";DE$(A,0) DE$(AN INPUT * ********************** 19:CE:"ENTER 'D' FOLLOWED BY # FOR DESCRIPTION?OR 'C' FOR NEXT PAGE? OR # OF PROGRAM TO RUN? OR 'R' TO RESTART LIST? ";:"";A$ "A$"C"XIQė:250 ,A$"R"XIQ:210) ":216,0[ ********************* * SELECTION LIST * ********************* :"NOTE- * NOT INTENDED TO BE RUN." X0IQ:X;:DE$(X,6)"N"Ė4:"*"; 6:DE$(X,0) (CV)16275 ' ********************* * SELECTIO 600002DE$(80,8)2d10:16:"WORKING"s********************* * READ FILE * *********************x20000O$;"Z PROG.LIST,V0"R$;"Z PROG.LIST":IQ,VN$X0IQ:X108:DE$(X,X1):: C$;"Z PROG.LIST     R AND DATE":13:"";DE$(P,4):21506A$"E"ĉ:2025GA$"A"2300Q2200[ ADDg IQIQ1 :"INPUT PROGRAM NAME" "";DE$(IQ,0) "INPUT FILE TYPE- I,A,B,T ";DE$(IQ,1) DE$(IQ,1)"B"Ą"BINARY A & L";DE$(IQ,2) "FILE LENGTHSNAME":9:"";DE$(P,0):2150\A$"D"Ģ21:CL:"CHANGE DESCRIPTION":15:"";DE$(P,5):2150A$"R"Ģ21:CL:"CHANGE RUN ANSWER Y/N":14:"";DE$(P,6):2150A$"L"Ģ21:CL:"CHANGE LENGTH":12:"";DE$(P,3):2150"A$"W"Ģ21:CL:"CHANGE AUTHOA$"+"PP10:2150+A$"S"P0:2150ZA$"X"DE$(P,0)"--DELETED":DEDE1:2150A$"F"Ģ21:CL:"CHANGE FILE TYPE":10:"";DE$(P,1):2150A$"P"Ģ21:CL:"CHANGE BINARY ADD & LENGTH":11:"";DE$(P,2):2150A$"N"Ģ21:CL:"CHANGE x12:DE$(P,3): LENGTH Sz13:DE$(P,4): AUTHOR 14:DE$(P,6): RUN Y/N 15:DE$(P,5): DESC 21:CL:"COMMAND ? ";:A$:A$(13)PP1:2150A$"B"PP1:2150" CHANGE LENGTH CHANGE AUTHOR"K;" END AND RETURN TO MENU"T>DE0caPO:T,8:pfP0P0hPIQPIQp:DE$(P,0): NAME r10:DE$(P,1): TYPE u11:DE$(P,2): BIN A&L ),0,IQ,0,0,1,33,A):+4 CHANGE DELETE ADD9:" ADVANCE BACK UP ONE DD ENTRY DELETE RUN Y/N START OF FILE <+> ADVANCE 10 CHANGE NAME CHANGE DESCR. CHANGE FILE TYPE

CHANGE B A&L"):E:"SELECTION ? ";A$%A$"1"2100=A$"2"İ2090:2025NA$"3"2075fA$"4"İ11225:100vA$"5"1002040:10:16368,0:"POSTFIX VOL# ON FILE? Y/N ";A$:A$"Y"İ11220:2025 TV$VN$:VN$"":11220:VN$TV$:2025*SRT#(DE$E/SORT/TRANSFER":13030:"<1> CHANGE/DELETE/ADD ENTRIES";(13);"<2> SORT ENTRIES";(13);"<3> SAVE FILE ON ANOTHER DISK";(13);"<4> SAVE FILE ON THIS DISK";(13);"<5> RETURN TO MENU"::"FILE MUST BE SAVED AFTER CHANGES":19:C/ADD/DELETE/SORT/TRANSFER":KDE$(0,0)""Ğ:"NO ENTRIES IN MEMORY"::"<1> FILE IN MEMORY"::"<2> FILE FROM DISK"::"<3> RETURN TO MENU"::"WHICH SELECTION ? ";A$:A$"1"IQ02025A$"2"2020A$"3"100:10:"CHANGE/ADD/DELET1040 A$"F"1060& A$"L"10807 A$"A"1100H A$"D"1120R 1150e  END OF INPUTq IQIQ1 :10:16368,0:"SORT BY PROGRAM NAME? Y/N ";A$:A$"Y"İ2090 11220:100 y8000  CHANGE/DELETE/ADD TO FILE:6:"CHANGE [F11409 `3:CL::"DESCRIPTION AND INSTRUCTIONS":S j13:"";DE$(IQ,5):CE o3:CL:"SHOULD USER RUN THIS FILE? Y/N ";DE$(IQ,6) t3:CL:"ARE ALL OK? Y/N ";A$:F0:A$"Y"IQIQ1:1040 ~3:CL:"WHICH IS WRONG? N/F/L/A/D ";A$:F1:A$"N" A,B,I,T ETC.":p .7:"";DE$(IQ,1):DE$(IQ,1)"B"Ģ3:CL::"BINARY ADDRESS & LENGTH"::7:25:"";DE$(IQ,2)| 3F1140 83:CL::"LENGTH IN SECTORS OR 'K'": B9:"";DE$(IQ,3) GF1140 L3:CL::"AUTHOR & DATE": V11:"";DE$(IQ,4) E OR TYPE 'M' & FOR MAIN MENU ";A$:A$"M"100n :"VOLUME NUMBER FOR THIS FILE? ";VN$z TV$VN$ IQ0 3:CL::"NAME OF PROGRAM OR 'END'": 5:"";DE$(IQ,0):DE$(IQ,0)"END"1200 F1140 $3:CL::"FILE TYPE. FILE": "<4> QUIT"G 18:16368,0:"SELECTION BY NUMBER ? ";A$X A$"1"1000i A$"2"2000z A$"3"3000 A$"4"ė:38400: 150  ********CREATE NEW FILE ****C :12:"CREATE NEW FILE"::16368,0:"HIT TO CONTINU" 62000T(4);"BLOAD AMPERSORT II":36864:1013,76:1014,0:1015,144:60000od ********* MENU *****n:7:"CATALOG ENTRIES EDIT MENU"::"<1> ENTER NEW CATALOG FILE":x"<2> CHANGE/DELETE/ADD/SORT/TRANSFER": "<3> PRINT HARDCOPY OF          a :"'UNDELETE' AND 'UNDELETE INSTRUCTIONS'"::"MUST BE USED WITH 16 SECTOR DISKS."::"MUFFIN THE TWO PROGRAMS TO 16 SECTOR DISK BEFORE USE."   X % i <#L INPUT HEX PAGE NO. TO START AT o >VU X i`0iLh LT VU A VVVLOJUST MIGHT WORK.)"# W400:310:+ : "THE PROGRAM WILL PROMPT YOU FOR A FILE NAME. THIS NAME MUST BE LESS THAN 28 CHARACTERS LONG. IF YOUR FILE HAS A LONGER NAME, JUST TYPE" "27 CHARACTERS OF THE NAME." W200:310s :"S SHOULD BE PERFORMED ON THE DISK.":310 :"IF YOU HAVE SAVED A FILE SINCE YOU HAVE DELETED ONE, THE CHANCES THAT THE ORIGINAL CAN BE RECOVERED ARE VERY";:W125:310 ", VERY SLIM."::310:"(IT IS POSSIBLE, SO TRY THE PROGRAM-- IT ST":W50:310 Z16368,0 d:" I N S T R U C T I O N S"::"THIS PROGRAM CAN RETRIEVE A FILE OR PROGRAM THAT HAS BEEN DELETED FROM A INITIALIZED DOS 3.3 DISK" nW200:310- x:"THE DISK SHOULD BE UNALTERED--";:W100:310:" NO SAVE R$"RUNUNDELETE"C:10:0,470:0,4739:0,390:0,3946r24:8:" HIT ANY KEY TO CONTINUE ";:3:2(32,1:33,38:34,1:35,232<12:" <<< U N D E L E T E >>>"FW100:310:16368,0 P912:13:" BY L. GU *" *NORTHERN ILLINOIS *= * APPLE USERS GROUP*X * *s * COPYRIGHT * * XXX. , 1981 * * * * *7 *COPYRIGHT*CD JONAH*7 **JANUARY 22, 1981**E* * * ****** 0 ******** * J * * e **"DOG-TAG"CONCEPT** * * * * * XXX XXXXXXXXXX * * BY * * XX XXXXXXX * * TR3,255L&PTR(PTR)256(PTR1): NOW WE FIND THE POINTER TO A NEW LINEU0520:175,(103):176,(104):103,1:104,8: SET UP TO RETURN TO ORIGINAL PROGRAMD * * * * * *** *C"<PTR2049: SET SO WE PICK UP FIRST ELEMENT OF PROGRAMlNL63980: FIRST LINE NUMBER TO BE CHANGED(PTR)0ī570: IF THIS IS TRUE WE ARE AT END OF PROGRAMLN(PTR2)256(PTR3): HERE WE CALCULATE LINE NUMBERLNNLĹPTR2,55:PISTING! DO YOU WANT TO TAKE ANOTHER LOOK AT IT, OR MAKE ANY CHANGES? ";A$d J(A$,1)"Y"350 T:" THEN LET US PROCEED:":PAUSE12000:PAUSE:400 ^:" RELOADING PGM+DT FOR ANY CHANGES:":"LOAD PGM+DT "D$(4):D$;"EXEC DOG-TAG EXEER THIS PROGRAM TO ADVANCE THE DOG-TAG LINE NUMBERS."I 1,63979g ,:5:17:::"WARNING": 68:"ALWAYS KEEP A SPARE COPY OF YOUR PROGRAM"O @" YOUR PROGRAM IS ABOUT TO BECOME IN-DELIBLY ATTACHED TO THE DOG-TAG AS SHOWNIN THE PGM+DT L YOUR BLANK DOG-TAG IS READY":::" (1) LIST IT."::" (2) ENTER YOUR CREDITS.": " (3) SAVE IT."::" (4) APPEND IT TO YOUR OWN PROGRAM.":< " (5) SAVE THE COMBINED PROGRAM UNDER THE FILE - NAME 'PGM+DT'."::" (6) RE-ENTRE-SAVE IT UNDER THEFILENAME 'PGM+DT'."~ " SECONDLY, RE-RUN THIS PROGRAM TO CHANGE THE LINE NUMBERS TO ABOVE 63999." :" ARE YOU READY FOR THE FIRST OR SECOND STEP? (1 OR 2)";A$: A$"1"200 A$"2"300 160Z :5:" IRST STEP A BLANK DOG-TAG FORM WILL BE LOADED INTO MEMORY. LIST ITAND ENTER YOUR CREDITS BETWEEN THE ASTE-RISKS IN IDENTICAL-LENGTH REM STATEMENTSFROM LINE #63987 TO # 63999.";' " THEN SAVE AND APPEND YOUR DOG-TAG TO THE PROGRAM YOU HAVE WRITTEN. d:12:"****DOG-TAG****":[n14:"BY CD JONAH": WITH EMBELLISHMENTS BY AV FRAIOLIx::" THIS PROGRAM WILL PERMANENTLY AFFIXYOUR CREDIT-LINES TO THE END OF YOUR OWNPROGRAM LISTING BY RUNNING THIS PROGRAM IN TWO STEPS:" " IN THE F     "NO HARM WILL BE DONE BUT THE WRONG"O :"FILE MAY NOT WORK. JUST RUN THE"g :"PROGRAM AGAIN."p 100 "GOOD LUCK!" AN DELETED, IT WILL ASK"C J:"YOU IF IT IS THE RIGHT ONE. IF IT"n T:"IS, TYPE 'Y' AND THE PROGRAM WILL" ^:"SAVED. OTHERWISE, THE PROGRAM WILL" h:"KEEP SEARCHING UNTIL IT FINDS ANOTHER." r:"IF YOU ANSWER 'Y' TO THE WRONG FILE,"% |:IF IT CRASHES INTO"? :"THE MONITOR (NOTHING SERIOUS, TYPE"m :"'3D0G') IT MEANS THERE IS NO DELETED" :"PROGRAM ON THE DISK." "100 ,"IF THE PROGRAM FINDS A FILE (BE IT" 6:"APPLESOFT, INTEGER, BINARY OR TEXT)" @:"THAT HAS BEEE THE"7 :"LAST ONE DELETED. IF, IN THE MEANTIME,"b :"YOU HAVE SAVED A PROGRAM, THE OLD" :"DELETED PROGRAM WILL BE LOST FOREVER." :"TO EXECUTE THE PROGRAM JUST TYPE" :"'RUN UNDELETE' AND WAIT FOR THE" :"PROGRAM TO STOP. A PROGRAM"6 :"THAT YOU HAVE MISTAKENLY DELETED."d :"THE PROGRAM WILL SEARCH THE DISK FOR" :"DELETED PROGRAMS; IF IT FINDS ONE" :"IT WILL ASK YOU IF IT IS THE RIGHT ONE." 100 "THE PROGRAM TO BE RECOVERED ";::"MUST";::" B  90(Q2" UNDELETE BY LAWRENCE GUSTW<]FcPnZ:110d23:"HIT ANY KEY";:A$::n3:" U N - D E L E T E":10:0,390:0,398x0,90:0,939 12:"THIS PROGRAM WILL RECOVER    ĠͫԍŠ˨Š˨˨˨ŠŠŠĠǭǍΠԍˠٍӍ͠ӠԠΠƠӠΠӠˠĠӠǠӠ٠ΠҮٍĠ؍Ӎ̍͠ӠǠؠϠǠӠƠӠӠǠ  763 SOUTH WAYNE PLACE3WHEELING, IL 600909T COPYRIGHT OCT 1980Zc1:,((EL))EP1,58$EP2,1280EP3,0<EP4,0HEP5,0UEP6,10aEPEP6oHE0:LE0EP256ī63997EPEP256:HEHE1:63995LEEP176,HE:175,LE  WRITTEN BY ROBERTS R. STEWART ERROR = ";ER+" IN LINE # ";::EL:=HE(176)256KLE(175)XEPHELEm(EP)25563981EPEP1:63979(EP1)25563983:"NO LINE # 65535":EPEP1:EP,188I1((EL))EPI,(((EL),I,1)):I EPEPLA TOO COMPLEX";::63975GER224Ğ:"UNDEFINED FUNCTION";::63975ER254Ğ:"BAD RESPONSE TO";::" INPUT ";::"STATEMENT"::63975ER255Ğ:"CONTROL";::" C ";::"INTERUPT ATTEMPTED"::63975:"UNKNOWN ERROR CODE";:" D STATEMENT";::63975?ER107Ğ:"BAD SUBSCRIPT";::63975nER120Ğ:"REDIMENSIONED ARRAY";::63975ER133Ğ:"DIVIDED BY 0 ";::63975ER163Ğ:"TYPE MISMATCH";::63975ER176Ğ:"STRING TO LONG";::63975ER191Ğ:"FORMURROR";::63975LER22Ğ:"RETURN";::" WITHOUT ";::"GOSUB";::63975rER42Ğ:"OUT OF DATA";::63975ER53Ğ:"ILLEGAL QUANTITY";::63975ER69Ğ:"OVERFLOW";::63975ER77Ğ:"OUT OF MEMORY";::63975ER90Ğ:"UNDEFINEHE PLACE OF MINE."::(218,1:219,0F"PAUSE....":I13000:IV255:63952a255: *** ERROR HANDLER ***ER(222)EL(218)(219)256:ER0Ğ:"NEXT";::" WITHOUT ";::"FOR";::63975ER16Ğ:"SYNTAX ET HAPPENS." h> r"I WILL NOT CHANGE THE ERROR, SO WHAT-"j |"EVER WAS THERE IS WHAT YOU WILL GET." }:"WHEN YOU ARE DONE TESTING THE PROGRAM," ~"BE SURE TO EITHER CHANGE THE ONERR GOTO" "OR WRITE YOUR OWN ERROR HANDLER TO TAKE""TR". ""OCCURRED IS THEN POKED INTO THE LAST"Y ,"LINE IN THE PROGRAM, THE NEW END OF" 6"PROGRAM IS DETERMINED AND POKED" @"INTO MEMORY, & THEN THE LINE IS LISTED." J:: T"I WILL NOW POKE THE LINE-IN-ERROR = 1" ^"AND LET YOU SEE WHAOR YOU." ::) :"METHOD..."::I "LINE 0 IS THE ONERR GOTO"O x "WHEN AN ERROR IS ENCOUNTERED THE " "PROGRAM JUMPS TO THE ERROR HANDLER." :" THE ERROR HANDLER THEN PRINTS OUT THE" "TYPE OF ERROR. THE LINE WHERE THE ERRODELETE LINES 1 THRU 1000"D " (THAT REMOVES THESE INSTRUCTIONS)"l "THEN WRITE YOUR PROGRAM BETWEEN " "LINES 0 - 63000" "IF AN ERROR OCCURS, THE ERROR WILL BE" "DESCRIBED & THE LINE WHERE IT OCCURRED" "WILL THEN BE LISTED FIN*" -************************** 2:U <" THIS IS A PROGRAM DEBUGGING AID"y F"THAT I WROTE TO HELP MYSELF." P: Z"PERHAPS YOU WILL FIND IT USEFUL ALSO." d:: n:"HOW TO USE...":: x"START WITH THIS BASIC PROGRAM." "d 63952" TEST LINE,:75G " ERROR HANDLER"\" BY"v" ROB STEWART"(I11000:I)*************************** DONATED BY AUTHOR TO *+* NORTHERN ILLINOIS AUG *