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`(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"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 * ,* DELCARED PUBLIC DOMA     ĠͫԍŠ˨Š˨˨˨ŠŠŠĠǭǍΠԍ *" *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      X % i <#L INPUT HEX PAGE NO. TO START AT o >VU X i`0iLh LT VU A VVVLOӠĠˠӮٍŠӍӍ٠ԍӠҠŧٍͮڠǮԍԍԠŠӠԠƠӮĠ٠ˠ٧΍ӠױŠӠҧٍԮǮ̍Ӎ̍͠ӠҠĠاĠŠاӮٍԠԍӍŠҍǠŠҠ̠Ԡֲ΍ōӍ٠ԍ͠Ӡ٠ŠĠԠŮٍױŠӠҍŶӍ͠΍ŠŠŠҠԠĠϠԠ΍΍ԠĠɍӍ͠΍ŠƠǠԠӠϠ͠ӠήҮŭԠԠŠΠ˩ٍϮ΍Ӎ٠΍ӠǠӠϠŠ͠ϠĮٍҠҍɍӍ̠΍ӠҠƠӠ͠ϠҠԮŠΠŠ͍Š؍Ӎ̍͠ӠǠӠԠΠ٠ĠاͮŠӠΠԮǮ̧ͮӠԧŮٍ̠ԠֲӍŠҍӠŠԠŠĠӠϠӠҮٍ͠ԠˠũӍΠҍӠϠ͠٠ĠӠҠҠήٍԍðӍ̍͠ŠŠҠĠاĠŠاӮϠԠή΍ӠӠϠŠ٠Ġ͠ŠŠϠҮٍ͠čӍ ΍ԠŮٍҠԍӍӠ͍ӠǠƠӠҠǭǭΠĠŠǠŠƧٍͮύɍӍϠͮӠǠŠĠΠӠˠ٧ٍϠ͍Ӎ ΍ŠǠ͠ǠӠٍͮԯРōӍƮōƍñƍӍ̮ҍŠŠŠҠǠŠϠԮŠӠΠҠͮ΍ȭӍӍ̮ҍӠϠŠŠϠԮӠȭҮñ̤Ӎ ԍ͠Ǡ̠ĠϠԠӭԠŠҠŠҠĠĠԠΠҠҮٍǠōӍƮōӠ٠ƠԠǠΠϠٍͮȭҮñ̤ƠˮӠˠűȧٍͮˠűȍðӍ٠ԍŠŠҠˠűԩͮϠԠή΍ύӍŠҍӠǠƠԠŠٍҠҍӠҠҠӮӠˠűȧٍͮˠűȍðӍŠԍŠŠҠˠŠϠԠή΍ˠűԩɍӍ٠ԍӠԠŠŠРƠŮٍԍӍŠҍӠǠӮӠįŠˠҮ͠Ӡ٠ǠӠĠӮٍˠŠɍӍŠԍӠˠŠРĠӠŠӮŠӠΠԮǮ̧ͮӠԧŮٍԠŠҍӍ͠ҍǠĠȠӠӠϠ͠Ҡ٠ĠԠРӮȠӠӠӮӠàŠΠųˠٍӍ͠ӠԠΠƠӠΠӠˠĠӠǠӠ٠ΠҮٍĠ؍Ӎ̍͠ӠǠؠϠǠӠƠӠӠǠ      * ******************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 ***** PR 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          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     h)30);:I110:"!";:I:a THESE ROUTINES SHOULD BE USED WHEN YOU WRITE A NEW PROGRAM...W10:"!";:I:3THESE ROUTINES SHOULD BE USED WHEN YOU WRITE A NEW PROGRAM...4:: TO PRINTER' t'922::LINE FEEDB '912::SCROLL UP ONEc <(958::CLEAR INSIDE WINDOW n( ENTER PROGRAM NAME ON LINE #10500 o( CENTER IT WITHIN 20 SPACES... p( BETWEEN TAB 10 AND TAB 30 (I110:"!";:I )11);"ARC PLOTTER"; 27:< T$50,127:"HIT RETURN TO GET BACK TO MENU":50,255:W $936::HOME UP ERASE} $"": RING BELL 3 TIMES:RETURN %"":: RING BELL ONCE %384::INVERT %50,255:: NORMAL H&50,127: &"REQ MEM=";22015("");"BYTES": '82c 32767*"DO A LIST NOW..."0#K( WRITTEN BY ED AVELARb2 2850 JENNIFER DR< CASTRO VALLEY CA 94546F 415 538-2431P&#(#I138:"*";:I:"*":#I167:"*";:I:"*": #384:"HIT RETURN TO CONTINUE":50,1    6))16:600+ &X%((B16)(B16))16:6005 0X$:N XX$X$(H$,X%1,1):W B:s 22:32,0:C,186:33,40 *:15)"THAT'S ALL!" 4 PRINT "PRESS RETURN TO RETURN TO CATALOG.":INPUT AS$ > D$="":PRINT D$;"RUN HELLO,V0":ENDD0 A129500 "2103 33,26:32,13:1:210M 33,13:32,26:1:210k 676:33,40:32,0::210y D2ī800 6:" FOR HEX":"TOKENS, HIT":"RETURN." 676:D2:33,40:32,0::200 X$" ":H$"0123456789ABCDEF" X%((B256)(B25di:<n:"PROGRAM TO DISPLAY APPLESOFT TOKENS"Yx:" BY VAL GOLDING"c:D1xA1:B128:C2053C,B:100:((37)1)D1İ700D2İ520((37)):BB1:AA1A22A85400A43A127410 A64A10642   UT A$ STRING TO DISK HERE+ A$"END"40; D$;"CLOSE"A  <A$A$X$:ADD X$ TO A$ STRINGr AX$;:ECHO CHARACTER TO SCREEN. INCLUDES 'BACKSPACE' BUT NOT FOWARD SPACEING. F50:GET NEXT CHARACTER FROM KEYBOARD P64668::CLEAR TO END OF LINE AND RETURN UD$;"WRITE ";B$:TURN ON WRITE MODE dA$:OUTPAM SCREEN COPYING SO IGNORE AND GET NEXT CHARACTER 8X$(8)(A$)1A$(A$,(A$)1):65:TEST FOR BACKSPACE (ASCII 8) AND LENGTH OF CURRENT A$ STRING. LEFT$ SHORTENS A$ STRING BY ONE CHARACTER 9X$(8)(A$)1A$"":65 :X$(8)(A$)0ī50 C D$"":CONTROL-D-D$;"NOMON I,O,C"3X"ENTER NAME OF TEXT FILE - ";B$^pD$;"OPEN";B$(A$"":SET A$ TO NULL STRING2X$:X$(13)80: CHR$(13) = 'RETURN'2 7X$(21)50:TEST FOR FOWARD SPACE/RIGHT ARROW. CAN'T PROGR 16368,0 K(16384)12875> P(16384)155Ĺ16368,0:55L U16368,0T Z40e dWRITTEN BY:z eJOSEPH H. BUDGE f2507 ELDERWOOD LN. gBURLINGTON,NC 27215 i CAROLINA APPLE CORE4);"OPEN";A$;",L";A:(4);"READ";A$;",R";N= #:3:A$;":":I (B145u )A$::A$;:(A$)13NN1::">";N;"<"} *65 -A$ 0:">";N;"<":A$:NN1 265 7:(4);"CLOSE":(4);"MON I,C,O" <"END OF FILE": A(16384)12840 FER KEY WILL RE- START DISPLAY":::"TYPE THE FILE NAME, THEN PRESS RETURN:"V A$ :"SHOULD THE FILE BE READ VIA 1 - GET, OR 2 - INPUT STATEMENTS ?";B:BB1 :"RECORD LENGTH ?";A :"RECORD NUMBER ?";N 55* (4);"NOMONI,C,O":(::5:255I "TEXT FILE READ PROGRAM":"----------------------" ::"THIS PROGRAM READS AND PRINTS THE CONTENTS OF ANY TEXT FILE."N :"WHILE THE PROGRAM RUNS, PRESS ANY KEY TOSTOP THE DISPLAY. THEN ESC WILL END THEPROGRAM, WHILE ANY OTH   PR#1" D$"MONI"/ D$"OPEN"F$;D$"READ"F$9 250K C$:C$;:180\ D$"CLOSE"F$i "PR#0"o  , M BOB SANDER-CEDERLOF 6 REVISED BY DAVID SPRUNGD ::12dD$(13)(4)cn"INSERT DISK WITH YOUR TEXT FILE":"IN THE APPROPRIATE DRIVE."o:"TYPE 'GO' WHEN READY ";G$:G$"GO"111s"CATALOG"tx"ENTER FILE NAME ";F$z:"DO YOU WANT A PRINTOUT?";P$ ~P$"Y"P$"YES"ĺ"  G FCV(37):CV171708 P::15:"PRESS ANY KEY":R ZX(16384):X12890` d16368,0f nx A$"END"50 D$;"CLOSE"    D$"" D$;"MON C,I,O"&K"ENTER NAME OF TEXT FILE - ";B$QcD$;"OPEN";B$u(D$;"READ";B${-2CH0:A$""3X$:X$;:X$(13)604CHCH1:CH3515A$A$X$751 <TEST FOR BOTTOM OF SCREEN AND/OR 'END' STRIN   KR1 PB$ ZT$;B$;+ tB$R$ī805 uRR1P w(R16(R16))0ī121X x80o yPAUSE1NP:PAUSEw z80 R$;D$"CLOSE "F$ D( :: "PEEK A TEXT FILE" PROGRAM=D$(4): CTRL-DSR$(13): RETURNh(T$(1): CTRL-An-/"PEEK A TEXT FILE PROGRAM"2"FILE NAME TO BE PEEKED: ";F$4"PAUSES AFTER 15 LINES: ";NP7D$"OPEN "F$<D$"READ "F$F130  D$;"CLOSE";F$ * X(222)56506 b(222)< lG 216,0P 768V d(0 d500 n20 500- D$;"OPEN";F$@ D$;"WRITE";F$M I1100Y A$(I),` Is D$;"CLOSE";F${ 20 ,D$;"OPEN";F$ 6D$;"READ";F$ @I1100 JB$(I) OI TD$;"CLOSE";F$ ^20 D$;"OPEN";F$ D$;"DELETE";F$X\768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96j D$(4):"FILE NAME & IF YOU WISH TO: DELETE, CORRECT OR ADD, OR READ A TEXT FILE. TYPE 1, 2, OR 3 RESPECTIVELY. ";F$,Q:I0600 Q100,200,30  WM. R. DIAL, W8BFH QI1F F(F$,I,SS)SS$120- P(F$,I,SS)3 ZH d"NOT IN STRING"Q n140b x:"FOUND":r (F$,I,SS) :"ANOTHER SEARCH (Y/N) ? ";:Z$:Z$ Z$"Y"10 SOURCE UNKNOWN (ISSUE #8 ???) SUBMITTED BY 1 *** STRING WITHIN A STRING SEARCHL *** FROM ISSUE # 8 R "LARGER STRING IS:":"'AN APPLE IS A COMPUTER'"Q12000:Q"STRING TO BE FOUND ";SS$F$"AN APPLE II IS A COMPUTER"(SS(SS$)2F(F$) <     9/79 C M MB12B1" C01 I12BMC K$(A$,I,1)Y L$(B$,MBI,1)j K$L$CC1q I{ CCP TTC "M ,S100TBP 6S;"%" @T0 J70 T  FROM BYTE MAGAZINE SEPT 79 ADAPTED BY MIKE CICERCHI   T0P3$"FIRST WORD",,(A$92A(A$)M<"SECOND WORD",UFB$rKA$B$ĺ"EXACT MATCH !!"~PB(B$)ZABĪBAdM1BnC0xI1MK$(A$,BMI,1)L$(B$,I,1)K$L$ĪCC1ICCP TT   0~X$"F"1200-770,56:770:770,26:8770:,12:979,12:980,8:981,1:982,12:983,6i.984,14:985,15:986,32:987,3:988,1:989,18:990,18:991,98992,5:993,18:994,32:995,15:996,14BLT11000:TV:5:17`"FULL OR HALF DUPLEX (F/H)?";jX$:X$tX$"F"X$"H"111,168:948,104:949,96:950,32:951,4f952,21:953,16:954,12:955,5:956,24:957,32:958,20:959,5960,18:961,13:962,9:963,14:964,1:965,12:966,32:967,1968,3:969,20:970,9:971,22:972,5:973,32:974,45:975,32($976,6:977,21:978J920,56:921,176:922,166:923,169:924,117:925,157:926,132:927,192928,169:929,223:930,32:931,168:932,252:933,169:934,1:935,157936,132:937,192:938,208:939,216:940,169:941,0:942,133:943,34$944,104:945,138:946,104:9471,44:892,120:893,4:894,16:895,4m896,152:897,32:898,240:899,253:900,189:901,132:902,192:903,74904,144:905,183:906,189:907,133:908,192:909,9:910,128:911,201912,224:913,144:914,2:915,41:916,223:917,32:918,240:919,25363,16M864,35:865,44:866,16:867,192:868,168:869,41:870,127:871,201872,26:873,240:874,65:875,201:876,19:877,240:878,44:879,72880,189:881,132:882,192:883,41:884,2:885,240:886,249:887,104#888,157:889,133:890,192:8934,72:835,189:836,132:837,192:838,160:839,9uz840,162:841,10:842,41:843,4:844,208:845,2:846,160:847,12848,185:849,216:850,3:851,157:852,29:853,4:854,136:855,202856,208:857,246:858,104:859,170:860,173:861,0:862,192:80:806,4:807,48VR808,2:809,160:810,3:811,185:812,208:813,3:814,157:815,255\816,3:817,136:818,202:819,208:820,246:821,162:822,32:823,169f824,3:825,157:826,132:827,192:828,169:829,1:830,157:831,1320p832,192:833,138:86,169:777,0:778,106:779,141:780,120:781,4:782,169:783,1 4784,133:785,34:786,32:787,88:788,252:789,160:790,28:791,185 >792,181:793,3:794,153:795,3:796,4:797,136:798,208:799,247H800,162:801,4:802,160:803,7:804,44:805,125 11001 "8 DATA, ODD PARITY, 1 STOP BIT"= 829,29I 934,29S 1100l  ******************r   BY PETER BECK/TOM LIN   ****************** 768,234:769,234:770,26:771,72:772,152:773,72:774,138:775,72> *77RITY, 1 STOP BIT" 829,13) 934,133 1100Y "8 DATA, NO PARITY, 2 STOP BITS"e 829,17q 934,17{ 1100 :"8 DATA, NO PARITY, 1 STOP BIT" D829,21 N934,21 X1100 v"8 DATA, EVEN PARITY, 1 STOP BIT" 829,25 934,230,690 2107 "7 DATA, EVEN PARITY, 2 STOP BITS"C 829,01O "934,01Y ,1100 J"7 DATA, ODD PARITY, 2 STOP BITS" T829,05 ^934,05 h1100 "7 DATA, EVEN PARITY, 1 STOP BIT" 829,09 934,09 1100 "7 DATA, ODD PA"2. 7 ODD 2"1 "3. 7 EVEN 1"L "4. 7 ODD 1"g "5. 8 NONE 2" "6. 8 NONE 1" "7. 8 EVEN 1" "8. 8 ODD 1" :"WHICH "; X X 20 X270,330,390,450,510,570,69  12:102"DUMB TERMINAL SOFTWARE "<#:12O(" FOR"Y-:10y2"THE SSM/AIO SERIAL BOARD"<F800PZ"CHOOSE THE CORECT DATA FORMATd:n" DATA PARITY STOPS"x:"1. 7 EVEN 2        @HHH  ȑ ȑ  hhh`7 PPLE CORP SAN DIEGO, CALIF =** EDITED BY ** ** DAVE GARSON ** ** DATA STATMENT POINTERS ** ** MODIFIED 8/8/84 ** ** BY JIM KUDEBEH **I TURN PRINTER OFF: LINES 6000 TO 6030 <** PRINTER PAK I ** DISTRIBUTED BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE .=6708 39TH AVENUE SW SEATTLE WA. 98136 * SPECIAL THANKS TO * ATINE!!!!l'-------------------- TED COHN, 1411 ARLINGTON, EL CERRITO, CA. 94530 (415) 529-2502 BY TED COHN3.'--------------------K8' PROGRAM SEGMENTSgB'1000-1300 INSTRUCTIONSL'2000-2999 READ CATALOGV'3000-3999 ALPHA SORT`'4000-4100 TYPE SORTj'5000-5100 SECTOR SORTt'HOPE YOU HAVE FUN WITH~'THIS SORT ROU$0,17:1,S1:2,WR; $S1ĹBUFFER1,17:BUFFER2,S2E$RWTSeT$C$"SORT COMPLETED":10:11z^$:(4)"CATALOG"h$' *** DISK SORT ***' DONATED TO THE APPLE CORE OF SAN FRANCISCO' DECEMBER 1, 1979 17:BUFFER2,S1/d#JBUFFER11BUFFER25535<n#XSEQ(I)Tx#J,T%(X):J1,S%(X)o#J2,P%(X):J33,L%(X)#J34,E%(X)#K130:JK2,((FILE$(X),K,1)):#0,17:1,S:2,WR#RWTS#II1:IN9200#J#S#S09300#7000SEQ(I1):SEQ(I1)XFLAG1%I6FLAG15000<UpI0N:L%(SEQ(I)):[z}XZBUFFERBUFFER255:Z,0::@(# ----WRITE TO DISK----2#C$"WRITING DIRECTORY":10:11<#I0F#S1211P#7000:CLEAR BUFFERZ#BUFFER1,13005  '----SORT BY TYPE----2FLAG0MTYPE04:TYPE34070XI0NuXP%(I)128:X0XX128XTYPESEQ(FLAG)I:FLAGFLAG1ITYPEFLAG0I0N1L%(SEQ(I))L%(SEQ(I1))5060XSEQ(I):SEQ(I)$(N)""2fJ029:FILE$(N)FILE$(N)((IJ)):J9pI@zSVI0N:SEQ(I)I:\ 10:C$"SORTING DIRECTORY":11 FLAG0 I0N1 XSEQ(I):YSEQ(I1) FILE$(X)FILE$(Y)3060 SEQ(I)Y:SEQ(I1)X FLAG1 I FLAGG DIRECTORY":11#RD1:WR2:N12S1211G0,17:1,S:2,RDQRWTSpIBUFFER14BUFFER25535 (I)02180(I3)2552160 NN1*P%(N)(I1)4T%(N)(I3)>S%(N)(I2)HL%(N)(I30)RE%(N)(I31)\FILEORTING BY LENGTH":B" THIS DOES THE SAME AS THE 1ST SORT,"p" BUT ALSO PLACES THE FILE INTO"" SEQUENCIAL ORDER BY SECTOR LENGTH.":"< PRESS SPACE BAR TO CONTINUE >";A$:A$" "127013010:C$"READINNAMES. WHEN COMPLETED, THE PROGRAM"S" WILL CLEAR UP ALL DIRECTORY PROBLEMS"m"(2) SORT BY TYPE":" THIS DOES THE SAME AS THE ABOVE, BUT";" ALSO PLACES THE FILES INTO GROUPINGS";" BY TYPE (I.E. I,A,B,T).":"(3) S IT WILL ALSO MAKE"9L"FINDING PROGRAM NAMES A SINCH!"eV::"< PRESS SPACE BAR TO CONTINUE >";{`A$:A$" "1120j:"(1) SORT BY NAME"t:" ENTER '1' WHEN ASKED FOR SORT TYPE."~" THIS WILL ONLY ALPHABETIZE THE FILE"#" OG INTO ALPHA-"? "BETICAL ORDER. IN ADDITION, YOU HAVE THE"o "OPTION OF GROUPING FILES BY THEIR TYPES." $"ORDER IS INTEGER, APPLESOFT, BINARY AND " ."TEXT FILES. " 8" THIS WILL MAKE YOUR CATALOG LOOK "B"VERY NEAT AND CLEAN...DISK INTO DRIVE 1":11; 4C$"":11S >(16384)160830a H16368,0g R \7:15::"DISK SORT" f p  12:"CATALOG SORT":: " THIS PROGRAM WILL REARRANGE THE " "FILE NAMES OF YOUR CATALTOR LENGTHS" ::958A "ENTER NUMBER OF DESIRED SORT? ";I S$Y S$"1"500i S$"2"600y S$"3"700 220 800:2000:3000:9000 X800:2000:3000:4000:9000 800:2000:3000:5000:9000 :10 *C$"PLEASE INSERT C$" "60 Z2 d10:"INSTRUCTIONS (Y/N)? ";G nC$:C$"Y"1000X xC$"N"110^ "THERE ARE THREE TYPES OF DIRECTORY" " SORTS AVAILABLE: " ::"1 - SORT BY NAME" :"2 - SORT BY TYPE" :"3 - SORT BY SEC 958:20(C$)2* C$:PRINTS LINE4 (7): T 5:C$"DISK SORT":11o C$"BY - TED COHN":11 (C$"DATE: DECEMBER 1, 1979":11 221:" PRESS 'ESC' TO END" 7"< PRESS THE SPACE BAR TO CONTINUE...>"; <C$ FC$(27)ė: Pn3255:16384:MAX70:RWTS16384:BUFFERRWTS256E(RWTS)725n(4)"BLOAD SORT CATALOG.X,A16384,V"|16420,65FILE$(MAX),P%(MAX),T%(MAX),S%(MAX),L%(MAX),E%(MAX),SEQ(MAX)RD1:WR2 16298,0::936:20 PRINT CENTER ROUTINE           R. DIAL d:B1:C1:"INPUT STRING YOU WANT TO PRINT":6:A$:A(A$)::10:IACB:I:(A$,I);:40:IB$"SOMETHING MUST BE WRONG WITH APPLE !"::::E(B$):IECB:I:(B$,I);:40:I::::(D1100:D:2 JUST A WHIMSY3 BY: 4 WM.  NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0 `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`ESIFihijg` L 8stijRLghL8BC>?s J0:T0āJ1T:V(J)VĂJ:J0D j V0İ60080:J0TT1:V(T)(V)p 60080:J0ı WW(J):W0ĺ"GO ";"L ";L;"?": DAB11:X(W10):YW10X48:W0Y32 D,Y:WX:D:W0ı "INSERT ";W(JE # ";LN:"ENTER INCREMENT ";IN:LN0IN160000C o::"PR#";P$q tT0:V(100),W(100):60170:R11E3:60220 ~Gİ60100:R 60170:R11E3:N(M256):A1,MN256 A,N:VL:60080:W(J)(M):60180:GĂR 60170:R11E3:60220:Gİ60120:_: RENUMBER APPLE-SOFT?`:"PRINT TO PAPER? ";PR$::ra"PRINT A LISTING? ";L$:LT1:(L$,1)"Y"LT0bP$"1":(PR$,1)"Y"P$" 0"::60010e::11)"TURN THE PRINTER ON";:11):::0 j16)"RENUMBER"::"ENTER FIRST LINS WILL BE DELETED. WARNING!!!!!!X FTHERE SHOULD BE NO BRANCHES TO A REM INSTRUCTION.c P10,70d5 SANDY'S REM STRIPPER IS COMPLETELY RELOCATABLEeLOAD YOUR APPLESOFT PROGRAM AND THEN BLOAD SANDY'S REM STRIPPER WHEREVER THERE IS( 177 BYTES OF SPACE AND THEN EXECUTE IT.2IT WILL BRUN AT $5000 OR PUT IT ANYWHERE ELSE! <ALL REMPإgh Hȱh`籅ɲX<ȱ=>B8 ";H$yC17:13:" "C"0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FC,H$("0000"H$,4)C6 4096,256,16,1 C@J015:D$(J):JCJI14CTM:D^C$(H$,I0 BD16THTH1:DD16:140AB18:50,63:X1120:" ";:XMB19:17kBH$(O);H$(T);H$(TH);H$(D)BO0:T0:TH0:D0:B50,255:70B::3:50,63BI1200:" ";:IB4:13:"HEX TO DECIMAL"B:15:"UTILITY"C* HEX TO DECIM380A2H$(100)7A<0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FMAFI015:H$(I):IrAP11:9:"NEGATIVE CALLS ALLOWED"AZ14:" DECIMAL NUMBER TO CONVERT > ";DAdD6553590AnD0DD65536AxD4096OO1:DD4096:120BD256TT1:DD256:13@:2:I1120::" ";:I@@3:12:"DEC & HEX UTILITY":t@12:13:"1. DEC TO HEX"::13:"2. HEX TO DEC"@18:10:"WHICH CONVERSION ? ";C@ C2200@ :3:50,63@X1200:" ";:X@4:13:"DECIMAL TO HEX"A(:16:"UTILITY":       Y AGAIN"::70INUMBER ? ";B$:$ D0:L(B$):L112 AL11D B1$(B$,A,1)U B1$" "580c &D1(B1$)x 0D11D10650 :D2(L1)D1:L1L11 DA XA1L1 bDDD2(A)(2(A1)) lA vB$;" = ";D;" DECIMAL"::::70 ::"INPUT ERROR - TR :"NUMBER ? ";D:' D655352009 D;" = ";:F0F D0400U E1501l C2E:DCF0280 F1:D1DC:D10300 "1";:DD1 E12E8E4ĺ" "; E8ĺ" "; E:" BINARY":::70 ,"0";:270 D65536D:230 :" D2(20) ::D0712:"BINARY - DECIMAL":Q15:"CONVERSION"::<"JERRY JENKINS SEPTEMBER 1978"A34,12:F::P"1. BINARY TO DECIMAL"Z:"2. DECIMAL TO BINARY"d:"WHICH ? ";XnX1500xX210-8ȱȱՐБRRmBiCBez{?{ ,eBCiC IЪEeei-eȱiȱՐйYWm<i=z>e@z{?iA{<ɿ)80eB ֐Hh&& eeȐ`΅Ϡϱȱ``ŐŠ` ``ʐʥmi II)88%%%%%%%%%%%%%%%%xy΅Ϡ`{ z`ȱȱȱȱ("/Ƀ Ʌ;ɫ7ɬ3ɰ/ɲ ɼ'#ԥȱ";:Ȇ0:ːȱ,0: ʽʈ0Э%% % % % COPYRIGHT 1979 % % ROGER WAGNER % % SOUTHWESTERN % % DATA SYSTEMS % % P.O. BOX 582 %- % SANTEE, CA. %H % (714) 562-3672 %c % %~ %%%%24 103,(1912):104,(1913):175,(1914):176,(1915):105,(175):106,(176)*1912,(1916):1913,(1917):1914,(1918):1915,(1919):((2)12)3314((2)212)54514L'(222)254ĺ"IMPROPER ENTRY FORMAT..":U'760p %%%%%%%%%%%%%%%%%%:CNT:420&NC:42034,0:24:"RENUMBERING COMPLETE..."-:"PROVIDING YOU DON'T CHANGE TOO MANY ":"LINES YOU MAY RE-ACTIVATE THIS ROUTINE":"WITH A 'CALL ";RN;"'."::"BYE..."p 34,1:1:868:1:4:"(RE-ACTIVATE WITH A 'CALL ";RN;"')":J))E1PL%:530"ON NEW LN.# OLD LN.# REF. NEW LN.#":"----------- ------------- --------":LN;:18:LR;:31:N$:550GI767:PL%(N)E1:J1PL%:EX%10(PL%J):D%NEX%:NND%EX%:IJ,D%48:J:IJ,0x250,(MF%0)MF%(MF%0)(128MF%)L(J)470P1JP2J460LROL(J)P1J:J((JP2)2):445P2J:J((JP1)2):44524:"REFERENCED LINE NOT FOUND...":N$" ?":520NNL(J)09:18:LR;" ";:31:N;" "ENL(J)OL(J)550`NL(J)MF%1PL%:530~MF%(NL( LN.# REF. NEW LN.#":"----------- ------------- --------":868:ADBEG:34,10R1 LR(255)256(254):LN(2042)256(2043):PL%(235)(2046)7AD(28)256(29):(AD)(AD1)760d:9:" ";LN;" ";:868:P1P1:P20:J1vLROL(P)OL(P):20:OL(P);" ":370TFLNSN:F0:360^LNLNSIhNL(P)LN:AD2,LN(LN256)256:AD3,(LN256):(9RF2):20:LN;" "rADINDEX:ADEE320G|Fĺ"STARTING LINE NOT FOUND...":770SRF7607:"ON NEW LN.# OLD(Q$,1)"Y")25018:958,:OL(P),NL(P):P0:ADBEG:F167RF2:"OLD LINE #","NEW LINE #":"----------","----------"@INDEX(AD)256(AD1):INDEXBEG380JPP1:OL(P)(AD2)256(AD3):9RF2:3:OL(P);" ",;:OL(P)SOOL(P)SENR NEW LINE #'S MAY OVERLAP AND/OR ":"DUPLICATE SOME OF THE LINE #'S IN THE ":"OLD PROGRAM THAT ARE NOT BEING CHANGED."e"LAST NEW LINE# =";23);"":4);"NEXT LINE# =";23):22:18:HL:18:L:"(PRESS ANY KEY... )";19):24:21:Q$::100}(ILN:HL0HL65536240::20::"YOUR LINE #'S WILL GO OUT OF RANGE ":"USING THE PRESENT STARTING # AND INCR. ":"(LAST NEW LINE # = ) ... PRESS ANY":"KEY TO RESUME...";23):22:20:HLM:756::100[HLL30019::"YOU----- -----"3:SO;:13:SN;:22:SI;:31:SERFĞ::"LINE #'S ONLY TO BE RENUMBERED..."::"IS THIS O.K.? (Y/N)";I$::((I$,1)"Y")100b249,0:1784,(1912):1785,(1913):254,255:255,255:LF:P(206)256(207)20HLSNS256(207)1AD(AD)256(AD1):I(AD)(AD1):L(I)65536(I)((AD2)256(AD3)))RF0::"DO YOU WISH TO RENUMBER LINE #'S ONLY?":"FOR SPEED? (Y/N)";I$:(I$,1)"Y"RF1}:" START # NEW # INCR. END #":" ------- ----- "WHAT LINE # TO END AT?":"(IN YOUR PROGRAM)":(37)1:22:I$:I$""I$"64999".SE(I$):SE(SE65000)SE(SE64999)64999:249,1:255,SE(SE256)256:254,(SE256):LF:AD(6)256(7){SE(AD2)256(AD3):"(ACTUAL END=";SE;") ":LN(206)Z#BUFFER1,17:BUFFER2,S1;d#JBUFFER11BUFFER25535Hn#XSEQ(I)`x#J,T%(X):J1,S%(X){#J2,P%(X):J33,L%(X)#J34,E%(X)#K130:JK2,((FILE$(X),K,1)):#0,17:1,S:2,WR#RWTS#II1:IN9200#J#S#S093Q(I):SEQ(I)SEQ(I1):SEQ(I1)X*FLAG11IBFLAG15000HapI0N:L%(SEQ(I)):gzXZBUFFERBUFFER255:Z,0::@(# ----WRITE TO DISK----2#C$"WRITING DIRECTORY":10:11<#I0F#S1511P#7000:CLEAR BUFFERI FLAG13005 3----SORT BY TYPE---->FLAG0YTYPE04:TYPE34070dI0NXP%(I)128:X0XX128XTYPESEQ(FLAG)I:FLAGFLAG1ITYPEFLAG0I0N1L%(SEQ(I))L%(SEQ(I1))5060XSE31)\FILE$(N)"">fJ029:FILE$(N)FILE$(N)((IJ)):JEpILzSbI0N:SEQ(I)I:h 10:C$"SORTING DIRECTORY":11 FLAG0 I0N1 XSEQ(I):YSEQ(I1) FILE$(X)FILE$(Y)3060 SEQ(I)Y:SEQ(I1)X FLAG1 0:C$"READING DIRECTORY":11/RD1:WR2:N1>S1511S0,17:1,S:2,RD]RWTS|IBUFFER14BUFFER25535 (I)02180(I3)2552160 NN1*P%(N)(I1)4T%(N)(I3)>S%(N)(I2)HL%(N)(I30)RE%(N)(I"(3) SORTING BY LENGTH":N" THIS DOES THE SAME AS THE 1ST SORT,"|" BUT ALSO PLACES THE FILE INTO"" SEQUENCIAL ORDER BY SECTOR LENGTH.":"< PRESS SPACE BAR TO CONTINUE >";A$:A$" "12701301"/" NAMES. WHEN COMPLETED, THE PROGRAM"_" WILL CLEAR UP ALL DIRECTORY PROBLEMS"y"(2) SORT BY TYPE":" THIS DOES THE SAME AS THE ABOVE, BUT";" ALSO PLACES THE FILES INTO GROUPINGS";" BY TYPE (I.E. I,A,B,T).":AND CLEAN... IT WILL ALSO MAKE"EL"FINDING PROGRAM NAMES A SINCH!"qV::"< PRESS SPACE BAR TO CONTINUE >";`A$:A$" "1120j:"(1) SORT BY NAME"t:" ENTER '1' WHEN ASKED FOR SORT TYPE."~" THIS WILL ONLY ALPHABETIZE THE FILE YOUR CATALOG INTO ALPHA-"K "BETICAL ORDER. IN ADDITION, YOU HAVE THE"{ "OPTION OF GROUPING FILES BY THEIR TYPES." $"ORDER IS INTEGER, APPLESOFT, BINARY AND " ."TEXT FILES. " 8" THIS WILL MAKE YOUR CATALOG LOOK "B"VERY NEAT EASE INSERT DISK INTO DRIVE 1":11G 4C$"":11_ >(16384)160830m H16368,0s R \7:15::"DISK SORT" f p  12:"CATALOG SORT":: " THIS PROGRAM WILL REARRANGE THE " "FILE NAMES OF SORT BY SECTOR LENGTHS"& ::958M "ENTER NUMBER OF DESIRED SORT? ";U S$e S$"1"500u S$"2"600 S$"3"700 220 800:2000:3000:9000 X800:2000:3000:4000:9000 800:2000:3000:5000:9000 :10" *C$"PL27)ė: PC$" "60 Z> d10:"INSTRUCTIONS (Y/N)? ";S nC$:C$"Y"1000d xC$"N"110j "THERE ARE THREE TYPES OF DIRECTORY" " SORTS AVAILABLE: " ::"1 - SORT BY NAME" :"2 - SORT BY TYPE" :"3 -  958:20(C$)2* C$:PRINTS LINE@ 23:17:""F ` 5:C$"DISK SORT":11{ C$"BY - TED COHN":11 (C$"DATE: DECEMBER 1, 1979":11 221:" PRESS 'ESC' TO END" 7"< PRESS THE SPACE BAR TO CONTINUE...>"; <C$ FC$(z3255:16384:MAX70:RWTS16384:BUFFERRWTS256E(RWTS)725n(4)"BLOAD SORT CATALOG.X,A16384,V"|16420,65FILE$(MAX),P%(MAX),T%(MAX),S%(MAX),L%(MAX),E%(MAX),SEQ(MAX)RD1:WR2 16298,0::936:20 PRINT CENTER ROUTINE      =<>@>?>@A@=?<>ܠАg|h}~xgyhz{|x}y~z{ij  e  e I^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHIS SORT ROUTINE!!!!x'-------------------- TED COHN, 1411 ARLINGTON, EL CERRITO, CA. 94530 (415) 529-2502BER 1, 1979 BY TED COHN?.'--------------------W8' PROGRAM SEGMENTSsB'1000-1300 INSTRUCTIONSL'2000-2999 READ CATALOGV'3000-3999 ALPHA SORT`'4000-4100 TYPE SORTj'5000-5100 SECTOR SORTt'HOPE YOU HAVE FUN WITH~'T00 #7000#$0,17:1,S1:2,WRG $S1ĹBUFFER1,17:BUFFER2,S2Q$RWTSqT$C$"SORT COMPLETED":10:11^$:(4)"CATALOG"h$' *** DISK SORT ***' DONATED TO THE APPLE CORE OF SAN FRANCISCO%' DECEM `L1S4 j3120% X(S$)11? D1$(S$,(S$)X1,1)K L116s D1$("0123456789ABCDEF",L,1)2100z L "ERROR IN INPUT":S40: 4S4S4(L1)16(X1) >X H 20992 BINARY FILE TO DATA STATMENTS CRAIG COPLE(Z1):A$:XX1:LILI10:A$(LI)" DATA "0 XB A$A$"0":A$R "SAVE ";B$i "DELETE BIN.FILE"y D$;"CLOSE" D$;"EXEC BIN.FILE"  S$(S1$,2,(S1$)) S40 2000 S1S4 3090 LS$(L1$,2,(S1$)) MS40 V2000 COPYRIGHT MECC 1979C BINARY FILE TO FP 9/13/79 FPR AUTHOR:\,3000rD$;"BLOAD ";A$:D$;"WRITE BIN.FILE"XLI1000:A$"1000 DATA "bX0L11lZ1(S1X):A$A$(Z1)","v(A$)130650) Z1(S1X1):A$A$  eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-% eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(L,169,3,133% 188,96,141,48,192,201< 58,176,3,76,190,0L 76,200,0,0$M TAP INTO CHARGET'I896935.X8(ZZXA2I,XG<WFZ515590P"OK":909:"NOW RUN A PROGRAM AND ENJOY":Z"OOPS. Z="Z:d 169,201,133,186,169,58n133,187,169,176,133,188x96,169,76,133,186,169 154,133,187 US STMTS ARE IGNORED 8 -,-QB 000000000000,000000000000,000000000000D 001111111100,001111111100,000000000000F 000000000000,000000000000,000000000000H AJ 000011110000,000111111000,001110011100!L 01110 $ :6000). Q111000:Q1:103 :X(117)(118)2561:123,X((X256)256):124,(X256):125,(184):126,(185):: MODIFIED 8/8/84 JMK4 THIS LINE TELL APPLESOFT THAT THE FOLLOWING DATA STMTS ARE THE NEXT STMTS TO BE READ. ANY PREVIO)2130H2100RJ19#\L$5fT$(I10J)L$<pJCzIOL119_L21(A$)sL$T$(L210L1)L3112T$(L2)" "2270(L$,L3,1)"0"2270T$(L2);L32290" ";L3" ";L2  L10& *** BLOCK LETTERS ***A2355: SET DATA STMTSGST$(80)x"ENTER UP TO 6 CHARACTERS ":A$5000I1(A$)T$(I)(A$,I,1) II1(A$) T$(I)" "2170*2355: SET DATA STMTS4D$>D$T$(I,3,14,6,6,2,10,12 30,8,6,5,3,14,6,7,1,10,1T 31,9,6,3,3,15,6,16,1,1,1v 32,9,6,3,3,15,6,15,2,1,1 33,10,6,1,3,16,6,14,3,1,1 34,10,10,16,6,12,5,1,1 35,11,8,13,27,1,1 36,11,8,13,27,1,1& 37,60,1# 22,4,6,13,3,10,6,12,5,1,1F 23,5,6,11,3,11,6,14,3,1,1i 24,5,6,11,3,11,6,15,2,1,1 25,6,6,9,3,12,6,16,1,1,1 26,6,6,9,3,12,6,7,1,10,1 27,7,6,7,3,13,6,6,2,10,1 28,7,6,7,3,13,14,10,1 29,8,6,5 13,4,6,19,1,1,5,10,10,4,1= @ 14,4,6,18,2,1,6,8,11,4,1_ J 15,4,6,17,3,1,7,5,13,4,1} T 16,4,6,15,5,2,23,5,1 ^ 17,1,29,5,17,8,1 h 18,1,29,9,9,12,1 r 19,60,1 | 20,1,13,5,11,1,28,1,1 21,1,13,5,11,1,28,1,1,21,6,1$  5,4,6,22,12,5,6,5,1A  6,4,6,21,11,8,6,4,1_  7,4,6,21,10,10,5,4,1}  8,4,6,21,9,11,5,4,1  9,4,6,21,8,11,6,4,1  10,4,6,21,7,11,7,4,1 " 11,4,6,21,6,11,8,4,1 , 12,4,6,19,1,1,5,11,9,4,1 6 6):125,(184):126,(185)::MODIFIED 8/8/84 JMK THIS LINE TELL APPLESOFT THAT THE FOLLOWING DATA STMTS ARE THE NEXT STMTS TO BE READ. ANY PREVIOUS STMTS ARE IGNORED  1,60,1  2,1,12,26,9,12,1  3,3,8,24,17,8,1  4,4,6,23"; I A1601170# (1210) 2/ <9 F6000P PQ111000:Q1:10\ ZA1A1Ag dI1Aq n" ";x xI A1A1B A1601170 IA1BA11 T$(I); I 13101 :X(117)(118)2561:123,X((X256)256):124,(X25LETTERS ":N B5000# LL(A$)4 VJ1(60L)? `I1LY jT$(JLIL)(A$,I,1)` tIg ~Jo C0~ A11:CC1 C381330 A  A,B N21370 A1A1A IA1AA11 T$(I); I A1A1B I1B " 51CHANGE STMT 5010 FOR YOUR PRINTER SLOT7 B10000_ *** LOVE PICTURE ***z1465: SET DATA STMTST$(90)936"KEY IN THE WORD(S) - UP TO""30 CHARACTERS":A$$:."1 FOR CLEAR LETTERS" 8"2 FOR DARK                    0 FOR X=0 TO ";L11;" : READ D1 : POKE ";S1;"+X,D1 : NEXT"| "120 PRINT CHR$(4);";(34);"BSAVE ";C$;",A";S1;",L";L1;(34) "130 END" A$""400 390-"1100! & L1(L1$):L1$""3090= 0 "OUTPUT DATA FILE=";B$C 2 S 4 B$""3120q : "OUTPUT BINARY FILE=";C$w < > C$""3130 D D$;"OPEN BIN.FILE" N D$;"WRITE BIN.FILE" X "FP" b "10 REM CREATES BINARY FILE: ";C$ l "20 REM": v "10Y 11/15/78 3 D$(4)::D$;"NOMON C,I,O":V :"THIS PROGRAM MAY ABORT IF"w "THE BINARY OVER-WRITES IT"} "LOAD NAME=";A$: :"STARTING ADDRESS=";S1$: (S1$,1)"$"1000  S1(S1$)  "LENGTH=";L1$:  (L1$,1)"$0001110000;# 000001110000,000001110000,000011111000G# Zx# 001111111111,001111111111,001100011110# 000000111100,000001111000,000011110000# 000111100011,001111111111,001111111111# .$ 000000000000,00 X:" 111110011110,011100001100,001110011000k" 000111110000,000011100000,000111110000" 001100111000,011000011100,111100111110" Y" 111110001111,011100000110,001110001100 # 000111011000,000011110000,00 011100000110,011100000110,001110001100^! 000111011000,000011110000,000001100000j! W! 111110001111,011100000110,011100000110! 011100000110,011100100110,011101110110! 011111111110,011110001110,111110001111 "10000,000011110000,000111111000+ U] 1111110011111,011100001110,011100001110 011100001110,011100001110,011100001110 011100001110,001111111100,000111111000 V 111110001111,011100000110,011100000110-!1110,011111111111,111000000011O 111000000000,011111111100,001111111110 100000000111,111111111110,011111111100 T 111111111111,111111111111,110011110011 000011110000,000011110000,000011110000 00001110111,111000110111B 011100011110,001111111110,000111111011N R 111111111100,011111111110,011100000111 011100000111,011111111110,011111111100 011100011100,011100001110,111110001111 S 001111111000 PA 111111111100,011111111110,011100000111r 011100000111,011111111110,011111111100 011100000000,011100000000,111110000000 Q 000111111000,001111111100,011100001110 111000000111,111000001104 011111000110,011101100110,011100110110e 011100011110,011100001110,111110011111q O 000111111000,001111111100,011100001110 111000000111,111000000111,111000000111 011100001110,001111111100,00011111 011100000110,011111111110,1111111111113 Md 111110001111,011110001110,011111011110 011101110110,011100100110,011100000110 011100000110,011100000110,111110001111 N 111110001111,011100000110,011110000111110001111,011100001110,011100011100W 011100111000,011111110000,011111110000 011100111000,011100011100,111100011110 L 111110000000,011100000000,011100000000 011100000000,011100000000,011100000010' 000011100000,000011100000J 000011100000,000011100000,000111110000V J 000000011111,000000001110,000000001110 000000001110,000000001110,111110001110 011100001110,001111111100,000111111000 K& 000111111100 HI 111110011111,011100001110,011100001110z 011111111110,011111111110,011100001110 011100001110,011100001110,111110011111 I 000111110000,000011100000,000011100000 000011100000,11100000011<t 011100011000,011111111000,011111111000mv 011100011000,011100000000,111110000000yx Gz 000111111100,001111111110,011100000111| 111000000000,111000011111,111000011111 ~ 011100000111,001111111110,f 011100001110,011111111100,111111111000;h Elj 111111111111,011111111111,011100000011l 011100011000,011111111000,011100011000n 011100000011,011111111111,111111111111p F r 111111111111,011111111111,0Z 000111111100,001111111110,011100000111_\ 111000000000,111000000000,111000000000^ 011100000111,001111111110,000111111100` Db 111111111000,011111111100,011100001110d 011100000111,011100000111,011100000111/0001110,111111111111,111111111111RN 111000000111,111000000111,111000000111^P BR 111111111000,011111111100,011100001110T 011111111110,011111111100,011100001110V 011100000111,011111111110,111111111100X C.3920360003COPYCOPY133 COPYLIMIT3940=35000J3LC125P3(X32LCb3<6000l3F30703P::"APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE":"6708 39TH AVE SW, SEATTLE, WA. 98136"3Z::"(206) 932-6588"::3d10 4n31283130313L$(M16),1,2)" "3640 2$M1*2.3800828M1MM2N2BX$(M$,M121,2)b2LY$L$(M166L)m2VN17z2`X2N212jP$(Y$,X2,2)2tX$P$37402~P$;2" ";237502" ";2N2" ";2M122L22T3SU MO TU WE TH FR SA "#1 5000I1 20)"CALENDAR FOR THE YEAR 19";AO1 Z1 T14g1 T3T32t1 T$B$C$1 B$;J$(T3);T$;J$(T31);T$;J$(T32)1 1 K$;K$;K$1 T3T321 L161 MT1 MM321L636401M1MM22( M$ 0 D$0 D$(S)3320)0 R1610 D$80 RB0 3260M0 R16U0 D$h0 L$(M66R)D$o0 R0 T((M$,M221,2))0* TTS04 T1(T7)0> T1T170H T1TT10R T10T170\ ST10f M0p B$" ":C$" "1z K$"(7)"JULY "%/l J$(8)"AUGUST ";/v J$(9)"SEPTEMBER"R/ J$(10)"OCTOBER "i/ J$(11)"NOVEMBER "/ J$(12)"DECEMBER "/ M112/ :X(117)(118)2561:123,X((X256)256):124,(X256):125,(184):126,(185): MODIFIED 8/8/84 JMK0 ":LI. LILIMIT/. Y1A1:Y1(Y14):AA1L. Y1A365Y13:Y2(Y17)f. Y3Y1Y27:Y30Y37u. SY3:AA1.& J$(1)"JANUARY ".0 J$(2)"FEBRUARY ".: J$(3)"MARCH ".D J$(4)"APRIL ".N J$(5)"MAY ".X J$(6)"JUNE "/b J$ 001100001100,000111111000,000011110000/- N- *** CREATE A CALENDAR ***p- J$(12),L$(75):COPY0:LIMIT0- 936:" SET-UP PRINTER WITH THE"- " TYPE OF PAPER ( 80 COL. ) "- "YEAR OF CALENDAR ";:" 19":A. 936:"HOW MANY COPIES WANTED 000111111000,001111111100,001100001100Y, 001100001100,001111111100,000000001100, 001100001100,001111111100,000111111000, 0, 000011110000,000111111000,001100011100, 001100101100,001101001100,001110001100)- 0,000001100000,000001100000L+v 000001100000,000001100000,000001100000X+x 8+z 000111111000,001111111100,001100001100+| 000110011000,000011110000,000110011000+~ 001100001100,001111111100,000111111000+ 9(, 0,001111111000*h 6K*j 000111111000,001111111100,001100000000|*l 001100000000,001111111000,001100001100*n 001100001100,001111111100,000111111000*p 7*r 001111111100,001111111000,001100110000+t 00000110000,000011110000>)\ 000110110000,001111111100,001111111100o)^ 000000110000,000000110000,000000110000{)` 5)b 001111111100,001111111100,001100000000)d 001100000000,001111110000,000000011000*f 000000001100,001111111101(N 000110000000,001111111100,001111111100=(P 3n(R 000111111000,001111111100,001100001100(T 000001101100,000001111100,000001101100(V 001100001100,001111111100,000111111000(X 4 )Z 000000110000,0000011100000'B 000001100000,000011100000,000111100000a'D 000001100000,000001100000,000001100000'F 000001100000,001111111100,001111111100'H 2'J 000111111000,001111111100,001100001100(L 000000001100,000000011000,00000110000000100011100,000001111000,000001100000U&6 000000000000,000001100000,000001100000a&8 +&: 000011100000,000011100000,000011100000&< 011111111100,011111111100,011111111100&> 000011100000,000011100000,000011100000&@ 100000000000,000000000000$%( !U%* 000001100000,000011110000,000011110000%, 000011110000,000001100000,000001100000%. 000000000000,000001100000,000001100000%0 ?%2 000011110000,000111111000,001100011100%&4 00000000000,000000000000H$ 000000000000,000000000000,000000000000y$ 000001100000,000001100000,000000000000$ ^$" 000000000000,000000000000,000000000000$$ 000000000000,000000000000,000000000000%& 000000000000,0:"LIBRARY DISC #";X;" HAS BEEN PRINTED!"[ :"TYPE 'E' OR 'END' & 'RETURN' TO QUIT.": "CHANGE DISC AND TOUCH 'RETURN' TO" "CONTINUE LISTINGS. ";B$ : B$"E"B$"END"Ā 110 E TO":"THE NEXT PAGE!":H H"PROGRAM REQUIRES PRINTER CARD IN SLOT 1"N Iy K"TOUCH 'RETURN' TO START PROGRAM!";C$ P: dA$"" n"ENTER DISC VOLUME #";X s: xA$;"PR#1" "LIBRARY DISC #";X A$;"CATALOG" A$;"PR#0"* :ILL BE SENT TO PRINTER, EXECUTION OF THIS OPERATION IS AUTOMATIC!":: E"WHEN NOTIFIED OF COMPLETION, REMOVE":"DISC, INSERT NEXT TO BE PRINTED OUT AND TOUCH 'RETURN'" G:"AS USUAL IF CONTENTS ARE GREATER THAN":"ONE PAGE TOUCH 'RETURN' TO ADVANC2<X0A"THIS PROGRAM WILL LIST THE CONTENTS OF":"LIBRARY DISCS. ENTER THE NUMBER OF YOUR":"DISC WHEN PROMPTED! IT WILL BE PRINTED"C"ABOVE THE CATALOG LISTING FOR YOUR":"CONVENIENCE!":H D:"ONLY THE HEADER DISC NUMBER AND CONTENTSW PROGRAM CAPTUREV BEFORE RUN INPUT START AND END LINE NUMBERS IN LINE 1006kD$(4): CTRL-DD$;"OPEN LISTING"D$;"WRITE LISTING"33,300,200D$;"CLOSE LISTING":TI>;*::3:10:"A.P.P.L.E. PRESENTS:":7:"PRINTER PAK I";+10:"1 LOVE PICTURE":"2 BLOCK LETTERS":"3 CALENDAR":20:"WHICH DEMO #";; +KEY:KEY1KEY311020;+KEY1000,2000,3000;0<8TURN PRINTER ON: LINES 5000 TO 5030 R A A":14:"S A R N"o:~'15:"O M Y G":16:"U";:40:"E";:'17:"N":18:"D":'50,63:::10:" ":10:" P R E S E N T S ":10:" ":'50,255;'I12000:3:" ";:25:" ";:31:" ";:33:" ";:39:" "D9V'50,255:9`'"A P P L E":2:"P U R I X"9j'3:"P G O B C":4:"L E G R H"6:t'5:"E T 8$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "8.'" ";:9:" ";:17:" ";:25:" ";:33:" "88'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "8B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";69L'2112131415"?7@16171819202122,23242526272829,"3031 " ]7** TURN PRINTER ON ** p7(4);" PR# 1"v77p** TURN PRINTER OFF ** 7z(4);"PR# 0"77'50,63::7'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "K 1 2 3"," 4 5 6 7 8 910",11121314151617[618192021222324,25262728293031," "b666" 1 2"," 3 4 5 6 7 8 9",101112131415166"17181920212223,24252627282930,31 "6,7 76" 1"," 2 3 4 5 6 7 8"," 9101 "53E5" 1 2 3 4 5"," 6 7 8 9101112",13141516171819y520212223242526,2728293031 ," "545" 1 2 3 4"," 5 6 7 8 91011",12131415161718519202122232425,262728293031 ," "55'6" 03131303130314x1J4" 1 2 3 4 5 6 7"," 8 91011121314",15161718192021422232425262728,"293031 "," "424Q111000:Q1:104" 1 2 3 4 5 6"," 7 8 910111213",14151617181920521222324252627,28293031 ," \D YOU CAN FOOL SOME OF THE PEOPLE SOME OF THE TIME, ETC. DEPT.2 THIS PROGRAM WILL OUT-PUT A CATALOG WITH CONTROL CHARACTERS APPEARING IN INVERSE VIDEO.< LINE 80 MUST BE SET FOR MEMORY CONFIGURATION  A FOR 16K X=11579, FOR 32K X=27963, FWRITE";F$;",R";I T$(I)" "I2 ,D$;"CLOSE"8 6D! n"*** DOS ERROR = ";X;" ***"' xU YI1:Y;" RECORDS READ, ";X;" EXPECTED."i D$;"CLOSE":D$z I12000:I I1Y:T$(I):I "INSERT DISK, HIT RETURN ";A$ D$;"OPEN";F$;",L20" D$;"WRITE";F$;",R0" Y I1Y D$;"9  :D$(4)#T$(1000)D("FILENAME: ";F$:(F$)140]2D$;"OPEN";F$;",L20"u7D$;"READ";F$;",R0"|9X<100FI11000KD$;"READ";F$;",R";IPT$(I)ZI:D$:"TOO MANY RECORDS":dY(222):216,0 iY5Y254200INSERT DISKETTE THIS FILE WILL BE STOREDONTO AND PRESS RETURN ";X$U D$;"OPEN ";B$i D$;"WRITE ";B$t J0I A$(J) J D$;"CLOSE"  2D$;"OPEN ";B$;", V0", <D$;"READ ";B$[ FX$:X$;:X$(13)100:CHR$(13)='RETURN' PA$(I)A$(I)X$:70:ADD X$ TO A$ STRING dA$(I)"END"150 nII1:70 D$;"CLOSE" :B$;" NOW IN MEMORY" :"(NEW) NAME OF FILE - ";B$B :"FILE COPY 3 MAR 79'1723LGA$(100):ALLOW 100 STRINGS] D$"":CONTROL-DqD$;"MON C,I,O":"THIS PROGRAM WILL ONLY WORK WITH TEXT FILES THAT END WITH THE THREE CHARACTER STRING 'END'"(:"ENTER NAME OF INPUT FILE - ";B$D$;"CLOSE ";FILE$;",V01 D$;"CLOSE ";F2$;",V0"9 :E ON DRIVE 2 BE CALLED? ";F2$H FD$;"OPEN ";FILE$;",V0,D 1"e PD$;"OPEN ";F2$;",VO,D2"{ ZD$;"READ ";FILE$ dIN$ i(IN$)0120 n(IN$)0150 xIN$(1,1)A$ī200 D$;"CLOSE ";FILE$ : D$;"WRITE ";F2$ 90 ; BY ANDY HERTSFELDB ABACUS VOL 1 ISS 8 PG 4 AUG,1979_ IN$(80),FILE$(35),D$(1)rA$(1),F2$(35)D$"": CONTROL DA$"": CONTROL AD$;"NOMON C,I,O"!936#"WHAT IS THE FILE NAME?";FILE$ (:"WHAT SHOULD THE FIL   ' N1254:A$A$(0):B$B$(0):NC$"300:0 301<300.3CEM 800:0 801<800.BFFM 3D0G":N1(C$):511N,((C$,N,1))128:N:72,0:144 10/15/79 CLEAR MEMORYLESOFT II BASIC r:& s WRITTEN BY: t ROBERT F ZANT@ u:O v 04-01-79U w:r z ROUTINE IS FOR VALUES: { .01 > 38(A$)::A$ 200: INFINITE LOOP p NUMERIC FORMAT ROUTINE q FOR APPOW MANY CHARACTERS IN":"LENGTH. THE 'D' MEANS HOW MANY "g Z"DECIMAL PLACES YOU WANT IT ROUNDED TO." d24:"PRESS RETURN TO CONTINUE ";R$: i INTERFACE AGE, MAR '80,P.27 n DEMO PROGRAM FOR APPLESOFT x NUMERIC FORMAT ROUTINE : WR:S ("THIS PROGRAM ALLOWS YOU TO FORMAT":"NUMBERS IN COLUMNS. IT ALLOWS YOU TO" 2"ENTER A DECIMAL NUMBER, THEN SPECIFY" <"HOW MANY DECIMAL PLACES YOU WANT IT":"ROUNDED OFF TO." F::"WHEN YOU ARE ASKED TO 'ENTER W,D'"9 P"THE 'W' MEANS Hn :7I180:"*";:IG:10);"HENDERSON JUNIOR HIGH"::q7);"INDUSTRIAL ARTS DEPARTMENT"::12);"COMPUTING CENTER"::16);"PRESENTS":I180:"*";:II13000:I 5 "***** FORMAT NUMBERS *****":    USE THIS AT THE END6OF A PROGRAM THAT USESMTHE HI-RES SCREENj(BY G. ROBBINS OF ABACUS0::W02792:W,0W,191:279W,0279W,191::W*************************************'# "INPUT START OF DUMP:";STARTD"INPUT END OF DUMP:";FINISHTSTART;8);j(XSTARTSTART20{2((X));:X<FSTARTSTART20PSTARTFINISH30Z% d ************************************************************************** d"ALL CONTROL CHARACTERS WILL NOW APPEAR AS FLASHING VIDEO. TO RECOVER, TYPE 'PR#0'"I\( COPIED FROM APPLE DOS MANUAL 3.2? BY J. APPLE SEDE\ 201,141,240,21,201,136x 240,17,201,128,144,13 201,160,176,9,72,132( 53,56,233,64,76,2492 253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002[   R INTEGER BASIC POKE 27031,251 (-22121 FOR 48K) AND TYPE CATALOG. (TO RESET POKE 27031,253)6OR 48K X=44347& F BY DARREL DUNMIRE2 PX443478 d n768,72:769,233:770,159:771,48:772,5:773,104:774,32:775,237:776,253:777,96:778,104:779,233:780,127:781,76:782,6:783,3 X,0:X1,3 "CATALOG" X,237:X1,253:[ FO 16368,0:16298,0:!'-(]2"****************************************"<" THE DEFOGGER FINDS ILLEGAL CHARACTERS"F" BY GERRY VROOMMAN"P"****************************************"Z3000 d"ILLEGAL CHARACT           !` ᥡ)p>`)?``= = BY DARRELL ALDRICH CALL-APPLEZ CTRL D SET IN LINE 10l D$(4):100D$;"NOMONC,I,O":I0D$;"OPEN FULL FILE,L256"(II12D$;"WRITE FULL FILE,R";I<F40d(222)255ĦnI0130 xD$ (A$,(A$)B%)","(A$,B%)(|B%B%42}CC1<~6522B:OA$A$C$Um, <><><> END <><><>I B%(A$)(C$)? BB%W%A$("***************",W%)::6610E :ed NOW NEED TO INSERT COMMASe C-NUMBER OF COMMAS NEEDEDf OR MAXIMUM POSSIBLEnC((A$)1((A)1))3p:x READY NOW TO INSERT COMMASyB%3zC16600{A$PC(C10D%.5)10D%&QC$(C)C NOW C$ CONTAINS '0' OR_ '.X' OR~ '.XX' ETC.:C$"0"C$".0"(C$)D%1C$C$"0"::6311: CHECK FOR SUFFICIENT WIDTH B%-MINIMUM WIDTH NEEDED C - INTERGER PART THEN3C FRACTIONAL PARTXD ROUNDED TO 'D%' DECIMALS{E A$ - AT FIRST CONTAINS ONLYF THE INTERGER PORTIONG C$ - FRACTIONAL PARTH:LC((A))(A)MA$(C)ND