' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( `Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`z"#  ŠҠ!ŠҠ٠! ŠҠ!ŠӠ" ٠Ӡ ԠŠԠԠŠˠ ԠŠĠԠŠĠĠԠɠԠŠĠĠԠɠԠŠŠ Š ŠӠ ŠӠҠϠ ŠӠҠϮؠ ŠӠҠ ؠĠ ؠĠҠؠŠ ԠĠǠ ԠĠǠǠҠĠӠ5 Š͠ ǠӠǠҠҠ٠Ϡ Ġ٠ϠԠԠŠҠ+ Ԡ̠ԠǠҠ  ԠǠҠ ԠĠǠC ::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              ::" 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     d IBS COMPUTERS HELLOB"I.B.S. COMPUTERS PUBLIC DOMAIN"e,"AND USER SUPPORTED SOFTWARE""332 RIVER STREET, WOONSOCKET, R.I. 02895""CALL 401-766-5523 TO ORDER"X"LOTS OF NEW TITLES ADDED EVERY MONTH" 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 SELECT"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 Q *!,*******************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*&+D$"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 * ***************]͠Ҡˠ@p()]̠a@E(Πìɬ)*KM6oS(ԠŠŠ)&@`@9()$a@E(Ġ)E@E(ְ)3`.?Mr$]ϠϠŠҠˠ]ĠBq.?Lr.?Mrq͠٠4]ΠΠҠG6]Ӡ͠Ӡ̠ϠҠ٠ӠΠ <M6d_n`.?Mr@$x@]ԠͺN@"(r_Q]Ԡ488.?Mrrr_٠͠ǠŠŠ٠͠ӠĮ) /a()a()V0a(Š̠ŠԠԠӠŠͭҠӠŠΠƠӠӮ);1a()a()S(ŠӠΠΠ٠ϠϠ)&@/2]ŠĠǠĭӠĠԠ̩ƠΠԭǠ٠͠Πî),a()~-a(ǠԺҠǠ٠͠ΠìԠŠנϠҠ٠ΠŠŠ)p.a(Šؠ̠اנՠŠ]Ġ٠]ԠΠҠ]Π] ]] M6 a() #t u(UVW Y )M6*a()t+a(Ӡ͠ӠŠ ] ] ]Ҡ ] ]٠̠ʠǠ]͠ǠƠŠ]ŠƠ]̠Š]?6JVrq.?6]Vr.?6\Vr_?q.?rq.?rq2xq.?rq.?rqcc%a(ŠǠӠӠ)Fa(ŠȠӠ)FQ6dKe88.?Mrrr_(]Ԡ͠ҠˠȮ=q.?6KVr.) `.?Mr@$:)]κ٠ԠˠΠˠ(N@"rC@"r2@p()]̠<a@E(Πìɬ)FKM6o *PS(ԠӠŠŠƠŠſ)&@Za@E(Ġ)E@d`.?Mr$Fnq.?Lr.?Mr TER 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)Ua(̠)FHdoP a(Ҡ©Ŭՠ)cP a(©Π٭̠ا)nxo a()Q]]ΠΠƠ]٠]]Ġ]ΠǠ]a(۠Ԡ)o P &-M6a(ŠƠ©Š)M6|2oPR@7a@E(Ġ)E@+<q.?r.?r(Aq.?r.?rFoa()KoP;@r Pa()FE()FE(q(q$q@p()]̠a@E(Πìɬ) KM6^#oPM6a(٠ŠǠӠ)cP a(ĠȠҠ)M6|!(cPW]]ħӠԧ]]:q.?Mr(qqq q N@"rC@"2r q`$#q6.?6\Vr_d`.?r$&4q.?r.?r]ŠԠȠͺ4`.?rb%de`.?rK$nq_$&q8.?rr8.?rr40`.?rb%de`.?rK$nq_0Q q.?r.?r.qqq.?r.?rXM6o Pa(̠ǠӠӺ)Fa(̠ԠӺ)FcPS(ſ)&@"`@9()$`@9()$_=q.?6KVr.?6JVrq.?6]Vrˠ@p()]̠a@E(Πìɬ)*KM6oS(ԠŠŠ)&@`@9()$a@E(Ġ)E@E(ְ)3`.?Mr$]ϠϠŠҠˠ]ĠBq.?Lr.?Mrqq͠٠4]ΠΠҠ;6]Ӡ͠Ӡ̤ϠҠ٠ <M6d_n`.?Mr@$x@]ԠͺN@"(r_Q]Ԡ488.?Mrrr_]͠Ҡ٠͠ǠŠŠ٠͠ӠĮ) /a()a()V0a(Š̠ŠԠԠӠŠͭҠӠŠΠƠӠӮ);1a()a()S(ŠӠΠΠ٠ϠϠ)&@/2]ŠĠǠĭӠĠԠ̤ƠΠԭǠ٠͠Πî),a()~-a(ǠԺҠǠ٠͠ΠìԠŠנϠҠ٠ΠŠŠ)p.a(Šؠ̤اנՠŠ]Ġ٠]ԠΠҠ]Π]Π]] M6 a() #t u(UVW Y )M6*a()t+a(Ӡ͠ӠŠ ] ] ]Ҡ ] ]٠̠ʠǠ]͠ǠƠŠ]ŠƠ]̠Š]    rq.?6]Vr.?6\Vr_`.?r$&4q.?r.?r]ŠԠȠͺ4`.?rb%de`.?rK$nq_$&q8.?rr8.?rr40`.?rb%de`.?rK$nq_0Q qq.?r.?r.qqq.?r.?rXM6o Pa(̠ǠӠӺ)Fa(̠ȠӺ)Fa()cPS(ſ)&@"`@9()$`@9()$_=q.?6KVr.?6JV5000 LL(A$)" VJ1(60L)- `I1LG jT$(JLIL)(A$,I,1)N tIU ~J] C0l A11:CC1{ C381330 A  A,B N21370 A1A1A IA1AA11 T$(I); I A1A1B I1B " "; I A1ϸ31CHANGE STMT 5010 FOR YOUR PRINTER SLOT7 B10000_ *** LOVE PICTURE ***h tT$(90)~936"KEY IN THE WORD(S) - UP TO""30 CHARACTERS":A$$:."1 FOR CLEAR LETTERS"8"2 FOR DARK LETTERS ":N B               Ġ٠%]ΠǠ&]ΠàǠ']ҠŠŠŠ(]ĠϠ٠)]ǠΠ*] #r @p@*#r[/q`@9()$a@E@E@E@Gq[$`@9()$ a@E@E@Gq[! `@9()$!a@E@Gq[!a@Gq["]#]ħӠԢ$]a(ŠŠ)+oPR@a@E()E@q.?%r[8q.?6Ur.?6Urq.?6Ur.?6UroM6a(Š)E@Gq;@r[q\q\[@p@*#r @p@*#r[@p@* Pa()FE()FG_ \\q \qPa()G\q\Pa(̤)G\a()a(̠)FoP %Ma(ϠΠ̠)FE()MMoQ!a@E()cM`$a(ŠŠ)_Πìɬ)KM6oPGMa(©ŠǠӠ)cP a(ĠȠҠ)'McPa(۠Ԡ)o P M:a(ؠҠàӠ)MMcPa(ݠҠݠ)2 q.?6@rd6?e`$ `$ _  \\]۠ԢΠ!dJe.?LrdKe.?Mr Rq.?Mrqqqqqqq6q6|q6@p()JN@"2rC@"rC@"2r@p()`$q6qqq'a@E(]]Ġ]Π]]ŠŠ]Π]٬ @E(Ġ)E@+Fq.?r.?r(Pq.?r.?rZcc!doP;@ra()F'noP;@ra()FE()sxo a()Q}]]̠͠]٠Ġ@p()]̠a@E(Πìɬ) #KM6^(oPM6a(٠ŠǠӠ)cP a(ĠȠҠ)M6|!-cPa(Ԡ)o P #2M6a(ŠƠŠ)M6|#7oa()oPR@<a_:q.?Mr(qqq q N@"rC@"2r q`$#q6q(q$q    ]נŠϠŠ]ŠԠƠ]ӠŠ02 011100000110,011111111110,111111111111> Mo 111110001111,011110001110,011111011110 011101110110,011100100110,011100000110 011100000110,011100000110,111110001111 N 111110001111,011100000111 111110001111,011100001110,011100011100b 011100111000,011111110000,011111110000 011100111000,011100011100,111100011110 L 111110000000,011100000000,011100000000 011100000000,011100000000,011100000010011100000,000011100000,000011100000U 000011100000,000011100000,000111110000a J 000000011111,000000001110,000000001110 000000001110,000000001110,111110001110 011100001110,001111111100,000111111000 K1111111110,000111111100# HT 111110011111,011100001110,011100001110 011111111110,011111111110,011100001110 011100001110,011100001110,111110011111 I 000111110000,000011100000,000011100000$ 00111111111,011100000011Gt 011100011000,011111111000,011111111000xv 011100011000,011100000000,111110000000x Gz 000111111100,001111111110,011100000111| 111000000000,111000011111,111000011111~ 011100000111,00100000111:f 011100001110,011111111100,111111111000Fh Ewj 111111111111,011111111111,011100000011l 011100011000,011111111000,011100011000n 011100000011,011111111111,111111111111p Fr 111111111111,011 C9Z 000111111100,001111111110,011100000111j\ 111000000000,111000000000,111000000000^ 011100000111,001111111110,000111111100` Db 111111111000,011111111100,011100001110 d 011100000111,011100000111,011 011100001110,111111111111,111111111111]N 111000000111,111000000111,111000000111iP BR 111111111000,011111111100,011100001110T 011111111110,011111111100,011100001110V 011100000111,011111111110,111111111100X :6000. Q111000:Q1:10+8 -,-\B 000000000000,000000000000,000000000000D 001111111100,001111111100,000000000000F 000000000000,000000000000,000000000000H AJ 000011110000,000111111000,001110011100,L 2100RJ19\L$+fT$(I10J)L$2pJ9zIEL119UL21(A$)iL$T$(L210L1)vL3112T$(L2)" "2270(L$,L3,1)"0"2270T$(L2);L32290" ";L3" ";L2  L1 $,60,1 0+ *** BLOCK LETTERS ***1=T$(80)b"ENTER UP TO 6 CHARACTERS ":A$l5000{I1(A$)T$(I)(A$,I,1) II1(A$) T$(I)" "2170*:123,56:124,15:125,247:126,0164D$>D$T$(I)2130H8,6,5,3,14,6,6,2,10,17 30,8,6,5,3,14,6,7,1,10,1Y 31,9,6,3,3,15,6,16,1,1,1{ 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& 378,1,1(  22,4,6,13,3,10,6,12,5,1,1K  23,5,6,11,3,11,6,14,3,1,1n  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,6 13,4,6,19,1,1,5,10,10,4,1B @ 14,4,6,18,2,1,6,8,11,4,1d 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,2,6,23,21,6,1)  5,4,6,22,12,5,6,5,1F  6,4,6,21,11,8,6,4,1d  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 601170 (1210 2 <' F6000> PQ111000:Q1:10J ZA1A1AU dI1A_ n" ";f xIr A1A1B A1601170 IA1BA11 T$(I); I 1310  1,60,1  2,1,12,26,9,12,1  3,3,8,24,17,8,1  4,4000001100000,000001100000,000001100000W)v 000001100000,000001100000,000001100000c)x 8)z 000111111000,001111111100,001100001100)| 000110011000,000011110000,000110011000)~ 001100001100,001111111100,000111111000* 001111111100,001111111000%(h 6V(j 000111111000,001111111100,001100000000(l 001100000000,001111111000,001100001100(n 001100001100,001111111100,000111111000(p 7(r 001111111100,001111111000,001100110000&)t 00001110000,000011110000I'\ 000110110000,001111111100,001111111100z'^ 000000110000,000000110000,000000110000'` 5'b 001111111100,001111111100,001100000000'd 001100000000,001111110000,000000011000(f 000000001100,00001100000<&N 000110000000,001111111100,001111111100H&P 3y&R 000111111000,001111111100,001100001100&T 000001101100,000001111100,000001101100&V 001100001100,001111111100,000111111000&X 4'Z 000000110000,0%@ 1;%B 000001100000,000011100000,000111100000l%D 000001100000,000001100000,000001100000%F 000001100000,001111111100,001111111100%H 2%J 000111111000,001111111100,001100001100 &L 000000001100,000000011000,00$4 000100011100,000001111000,000001100000`$6 000000000000,000001100000,000001100000l$8 +$: 000011100000,000011100000,000011100000$< 011111111100,011111111100,011111111100$> 000011100000,000011100000,000011100000 000000000,000000000000,000000000000/#( !`#* 000001100000,000011110000,000011110000#, 000011110000,000001100000,000001100000#. 000000000000,000001100000,000001100000#0 ?#2 000011110000,000111111000,00110001110000000000,000000000000,000000000000S" 000000000000,000000000000,000000000000" 000001100000,000001100000,000000000000" ^"" 000000000000,000000000000,000000000000"$ 000000000000,000000000000,000000000000##& 00011110000,000001110000F! 000001110000,000001110000,000011111000R! Z! 001111111111,001111111111,001100011110! 000000111100,000001111000,000011110000! 000111100011,001111111111,001111111111! ."" 000010001111 XE  111110011110,011100001100,001110011000v  000111110000,000011100000,000111110000  001100111000,011000011100,111100111110  Y 111110001111,011100000110,001110001100! 000111011000,000000001108 011100000110,011100000110,001110001100i 000111011000,000011110000,000001100000u W 111110001111,011100000110,011100000110 011100000110,011100100110,011101110110 011111111110,011110001110,1111 000011110000,000011110000,0001111110006 Uh 1111110011111,011100001110,011100001110 011100001110,011100001110,011100001110 011100001110,001111111100,000111111000 V 111110001111,011100000110,01110 001111111110,011111111111,111000000011Z 111000000000,011111111100,001111111110 100000000111,111111111110,011111111100 T 111111111111,111111111111,110011110011 000011110000,000011110000,000011110000* 11,111000000111,111000110111M 011100011110,001111111110,000111111011Y R 111111111100,011111111110,011100000111 011100000111,011111111110,011111111100 011100011100,011100001110,111110001111 S) 00,000111111000 PL 111111111100,011111111110,011100000111} 011100000111,011111111110,011111111100 011100000000,011100000000,111110000000 Q 000111111000,001111111100,011100001110 11100000010,011110000110? 011111000110,011101100110,011100110110p 011100011110,011100001110,111110011111| O 000111111000,001111111100,011100001110 111000000111,111000000111,111000000111 011100001110,0011111111URE":"2 BLOCK LETTERS":"3 CALENDAR":20:"WHICH DEMO #";X9 +KEY:KEY1KEY311020p9+KEY1000,2000,3000:THIS PROGRAM CAN NOT BE MODIFIED WITHOUT CHANGING LINES 3245 AND 3246. 3246 SPECIFIES EXACT MEMORY LOCATION G":16:"U";:40:"E";08'17:"N":18:"D"8'50,63:::10:" ":10:" P R E S E N T S ":10:" "8'50,2558'I12000:I8*::3:10:"A.P.P.L.E. PRESENTS:":7:"PRINTER PAK I"<9+10:"1 LOVE PICT P L E":2:"P U R I X"7j'3:"P G O B C":4:"L E G R H"7t'5:"E T R A A":14:"S A R N"8~'15:"O M Y ";:9:" ";:17:" ";:25:" ";:33:" "k68'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "6B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";6L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "6V'50,255:@7`'"A P 5** TURN PRINTER ON ** &51,5K5p** TURN PRINTER OFF ** R5z0X5g5'50,63::5'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "5$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "26.'" 262728293031," "$46Z4" 1 2"," 3 4 5 6 7 8 9",101112131415164"17181920212223,24252627282930,31 "4,746" 1"," 2 3 4 5 6 7 8"," 9101112131415"5@16171819202122,23242526272829,"3031 "6171819;320212223242526,2728293031 ," "B34x3" 1 2 3 4"," 5 6 7 8 91011",12131415161718319202122232425,262728293031 ," "353" 1 2 3"," 4 5 6 7 8 910",11121314151617418192021222324,25161718192021B222232425262728,"293031 "," "I22`2Q111000:Q1:102" 1 2 3 4 5 6"," 7 8 910111213",14151617181920221222324252627,28293031 ," "233" 1 2 3 4 5"," 6 7 8 9101112",1314151 1LC1251(12LC$1<6000.1F30701P::"APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE":"6708 39TH AVE SW, SEATTLE, WA. 98136"1Z::"(206) 932-6588"::1d101n3128313031303131303130311x1 2" 1 2 3 4 5 6 7"," 8 91011121314",15$(M$,M121,2)$0LY$L$(M166L)/0VN17<0`X2N21N0jP$(Y$,X2,2)^0tX$P$3740g0~P$;q0" ";{037500" ";0N0" ";0M100L00T03920060000COPYCOPY10 COPYLIMIT394005000 YEAR 19";A/ / T14)/ T3T326/ T$B$C$]/ B$;J$(T3);T$;J$(T31);T$;J$(T32)c/ q/ K$;K$;K$~/ T3T32/ L16/ MT/ MM32/L63640/M1MM2/(L$(M16),1,2)" "3640/$M1/.3800/8M1MM20BX3260. R16. D$*. L$(M66R)D$1. RJ. T((M$,M221,2))T.* TTSb.4 T1(T7)n.> T1T17z.H T1TT1.R T10T17.\ ST1.f M.p B$" ":C$" ".z K$"SU MO TU WE TH FR SA ". 5000 / 20)"CALENDAR FOR THE "-b J$(7)"JULY "0-l J$(8)"AUGUST "F-v J$(9)"SEPTEMBER"]- J$(10)"OCTOBER "t- J$(11)"NOVEMBER "- J$(12)"DECEMBER "- M112- :123,10:124,15:125,133:126,49- M$- D$- D$(S)3320- R16- D$- R. PIES WANTED ":LI, LILIMIT:, Y1A1:Y1(Y14):AA1W, Y1A365Y13:Y2(Y17)q, Y3Y1Y27:Y30Y37, SY3:AA1,& J$(1)"JANUARY ",0 J$(2)"FEBRUARY ",: J$(3)"MARCH ",D J$(4)"APRIL ",N J$(5)"MAY "-X J$(6)"JUNE 1004+ 001100001100,000111111000,000011110000:+ Y+ *** CREATE A CALENDAR ***{+ 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 CO 93* 000111111000,001111111100,001100001100d* 001100001100,001111111100,000000001100* 001100001100,001111111100,000111111000* 0* 000011110000,000111111000,001100011100+ 001100101100,001101001100,001110001E 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        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":T SW SEATTLE WA. 98136 * SPECIAL THANKS TO * APPLE CORP SAN DIEGO, CALIF ;** EDITED BY ** ** DAVE GARSON ** OF DATA IN LINE 3950 ~:8TURN PRINTER ON: LINES 5000 TO 5030 TURN PRINTER OFF: LINES 6000 TO 6030 :** PRINTER PAK I ** DISTRIBUTED BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE |;6708 39TH AVENUE' 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 MEMORY:"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 CONTENTSWK 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 STRING11,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%eEde dedede6dedede@[J]Ġ٠Š)T]̠ˠȠȠӠƠ dede]dedededehdedehdedehdeLde]"dededede deSdeEdeCdeTdeOdeR],deSde deFdeRdeEddedededendededendedede]dededededede dededede]dededededede dede d{e d|ed}e d~ededede]dedeLdededemdedededede]dededededededendededen]_ed`edaedbedce ]ddedeedfedgedhe diedjedkedledme]dnedoedpedqe dredsedteduedvedwe]dxedyedzedDedEeL]dFe-dGedHedIe8dJedKeLdLedMedNe dOe]dPedQedRedSedTedUedVedWedXedYe]dZed[ed\ed]ed^edd(ed)ed*eMd+ed,ed-ed.ed/e d0ed1e]d2ed3ed4ed5ed6ed7ed8ed9e d:ed;e]d<e d=ed>ed?ed@e dAedBedCeed e dededededede]xdededededededededede]deded ed!ed"ed#ed$eLd%ed&ed'e] M6\dca(Ԡ) (ca(Ԡ٠٠Ϡ)-`.?6@r$2._- 2d6?e3c<MF_ZQ]ddeHdedeHdedeHdedededed e]nd ed ed HHH LMȑ ȑ   L-8L Đ驍   mnnnn  hhhLC FREE SECTORS REMAIN WHICH IS ABOUT K OR SO M 2 dM6c"xa(ΠŠӠҠϮ)Q2Ӯ)Q> ȑ ȑ   L-8L Đhhh`< M6cc ]ŠӠ qq.?r.?r (de.?Lr2de.?Mr<]ԠǢFMiPc'Za(Ӡź)F.?r.?rdQ]ŠŠӠHHH LM0 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 :" 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 :" 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$(     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 OTHPR#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(BUFA2,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     !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   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 PROGRIF 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!!!!""(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 JUST 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! ! ! !!!!a :"'UNDELETE' AND 'UNDELETE INSTRUCTIONS'"::"MUST BE USED WITH 16 SECTOR DISKS."::"MUFFIN THE TWO PROGRAMS TO 16 SECTOR DISK BEFORE USE." !  / 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 Nh)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" " " " "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,"% |: