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`"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 (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 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  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   SPACE AT END"A$(I)E"IS THERE ANOTHER LINE (Y/N)";Z$Z(Z$,1)"Y"600c260{50,255:"":10000(#I139:"*";:I:"*":') I ::E "IS THERE A LINE YOU WISH TO CHANGE (Y/N)";Z$K ` &(Z$,1)"Y"595i 0260o S X"WHICH LINE (1-";N;")":I Y b:A$(I) k l m v(Z$,1)"Y"650 600"OK' TYPE YOUR NEW LINE IN QUOTES & ADD A |(A$(J),I,1); I 0 J:"PR#0": ::\ "WOULD YOU LIKE IT AGAIN";Z$q (Z$,1)"Y"270w  :"THANK YOU FOR USING APPLE-2 TYPE-SETTER":690 "NEXT PARAGRAPH..." L)"]" ""  :: I1N A$(IY"275G "PLEASE TURN IT ON NOW THEN PRESS ANY":"KEY TO BEGIN.":A$U " PR#1"[ c :p "J1 Nx ,K0 6A(A$(J)) @ALL1.3ĺA$(J):400 JB(LL1)A TI1A ^TT1 hTKLL1T0:400 r(A$(J),I,1)""KBĺ"";:KK1"-";:T:"]HERE" ! I1N, A$(I)< XX1:QQ1\ A$(I)"DONE"IN:NX1:500r A$(I)A$(I)(32) Q7İ430:Q0 I 500 : "PRESS SPACE BAR FOR JUSTIFIED COPY":Z$ ::"IS PRINTER ON ?":50,255 A$:(A$,1)"GTH OF LINE DESIRED";LL L "IF YOUR LINE IS A SHORT LINE AT THE END"w "OF A PARAGRAPH,TYPE SPACES TO END.."} LLL2 A$(N) :"ENCLOSE IN QUOTES":50,255 "YOUR LINE LENGTH IS ";LL;" AND RUNS FROM THECURSOR TO" T1L: 2""no9000:Ep" COMPUTERIZED TYPESETTING"Kqtr" ****** PROGRAM *****"s:9000:x"HOW MANY LINES";N"IF YOU FINISH BEFORE TYPING";N;"LINES,"::"THEN TYPE DONE":50,255 "LEN        1M4S 16S 32S"5 n" 600 1M4S 2M8S 32S 1M4S"Y x"1200 2M8S 4M16S 1M4S 2M8S"_ yD`' " TAPE SPEED (INCHES/SEC)"-Q" S.T.= SINGLE TRACK"u(" D.T.= DOUBLE TRACK"{2<"FEET 1-7/8 1-7/8 3-3/4 3-3/4"F" S.T. D.T. S.T. D.T."PZ" 150 16S 32S 8S 16S" d" 300 32S Y Q160300A ZQY:TEMP$(Z)TEMP$:TEMP(Z)TEMP:K:60250G M ### SORTING ####"::KK1100:KK. ZY(Y2)= dY060350M nDENTRYNOY~ xK1D:ZKY:TEMP$TEMP$(Z):TEMPTEMP(Z):QK USE<= FOR ASCENDING SORT; => FOR DESCENDING SORT TEMP$(Q)TEMP$60330 ZQY:TEMP$(Z)TEMP$(Q):TEMP(Z)TEMP(Q):QQART,LNGTH)  60210! E I1ENTRYNO:ENTRY$(TEMP(I)):w :"ANOTHER SORT WITH SAME WORDS (Y/N) ";:Y$ (Y$,1)"Y"60050 :::::" THE END" ( 2 SORT SUBROUTINE 'BY DAVE EDMUNDSN ' 20 AUG 80 'SORTS OUT A$(I) IN DESCENDING ORDER VERY QUICKLY. HOWEVER PREVIOUS RANKINGS ARENOT RESPECTED. FOR ASCENDINGORDER, USE <= IN LINE 3060A 99909996: J5I* J5(J52)9 J503150J J3IJ5:J21T J1J2a J4J1J5z A$(J1)A$(J4)3120 T$A$(J1) A$(J1)A$(J4) A$(J4)T$ J1J1J5& J1130500 J2J21: J2J33010D 3040N X : ' SU   LIH( (N$(I,S))(N$(L,S))5004 V1NHC S$N$(I,V)W N$(I,V)N$(L,V)f N$(L,V)S$l v IIH I1410 JJ1 JK360 400  ( PRINT SORT ) J J1NRU "I13c ,N$(J,I),i 6o @u J T ( THE SORT ) ^HNR hH(H2) rH0530 |KNRH J1 IJ Z6 d"CREATING "NR;" RECORDS WITH ";NH;" FIELDS"< nW sI1NH:"FIELD ";I,:] ti xJ1NRu I1NH K((1)100000) N$(J,I)(K) N$(J,I), I J "SORT BY FIELD (1-";NH;")"; " ";S 350>    NH3X ( SHELL-METZNER ) hN$(500,NH)n(2"SHELL-METZNER SORT":<"NUMBER OF RND NUMBERS: ";F"";NRP ( INITIALIZE )  936:I0N:V(I): N 936*" *** SORT ***"3" "e "ENTER THE NUMBER OF VALUES TO BE SORTED?";NuNN1:V(N)I0N:"ENTER VALUE..";I1;") ";:V(I):FJ1N:SV(J1)PIJNZSV(I)AS:SV(I):V(I)AdxV(J1)S} )J KM6a()GP(a()GP(Ka( L   * *  e e 8 8 L@L@`           i i    `NB  e e 8 Ȍ A7 i i  m m  m m  * * e e8 m  m Ȍ  LLL * * e e  e e * *  e e  LO * * 8   m m ͘ L ͗ LLr m m  * * e e8 * * m ` +8   ʎ  8   m m   * *  e e LOm m iii i  ܥ ` * *ffee`8JK@̇&)ei ȱ `8ȱL2 * *  * * 8   j j L8   m PLvLL L012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678      `&&      T";IF-LIST' SIGNAL:";17"N(J1) JJ1!  AN(J) 660/ N(I)N(J)9  600D N(I)AN  530Y N(1)Ag  I1 Nr  N(I)z  I  130 "PLEASE INDICATE A STOP CODE --SOMETHING NOT IN YOUR" "LIST,WHICH WILL ACT AS AN'END-OF-LIST' SIGNAL:";  NN1  N(N)(  N(N)S 4902 NN18 G L(N2)1Q N1 Na  L1 550k LL1v AN(L) " 590 &AN(N1) +N(N1)N(1) 0N1N11 : N11 680 NJL XIJ ]J2J b JN1 640 l JN1 660 v N(J)ц C$(J)C$(J1) 400" JJ19  A$ C$(J) 420I C$(I)C$(J)S  360` C$(I)A$j  290w C$(1)A$  I1 N C$(I)  I  130 REM NUMBER ST 936  720  S "THIS IS YOUR STOP CODE SIGNAL,";S  NN1 C$(N)* C$(N)S$ 2304 NN1: I L(N2)1R N1Nc " L1 310 m ,LL1z /A$C$(L) 2 350 6A$C$(N1) ;C$(N1)C$(1) @N1N11 J N11 440 ^JL hIJ mJ2J r JN1 400 | JN1 420 N(150),C$(150)  $ M "TYPE C FOR CHARACTER STRING SORT,"m "TYPE N FOR NUMBER SORT.";v W$ NO W$"N" 471 W$"C" 140 936 720 S$ "THIS IS YOUR STOP CODE SIGNAL,";S$936::::::::::H"HEAPSORT....MODIFIED AND DEBUGGED"b"BY ELLIS TELFORD": "THIS PROGRAM IS DESIGNED TO EITHER PLACE WORDS OR LETTERS IN" "ALPHABETICAL ORDER OR PLACE NUMBERS IN NUMERICAL ORDER"; T1 3000: T  x   HEREIN RESIDETH SUBROUTINE x"PLEASE INDICATE A STOPCODE - SOMETHING NOT IN YOUR LIST THAT CAN ACT AS AN 'END-OF-LIST' STATEMENT:";: (x : JN1 30640: JN1 30660: N(J)N(J1) JJ1J w JN1 30660f w N(J) N(J1) JJ1{ w AN(J) 30660 wN(I)N(J): 30600 wN(I)A: 30530 wN(1)A: I1 N: N(I): I w" HIT RETURN TO EXIT" w 30130 w 0" w NUMBERSORT BEGINS . w 307209 w S: C wNN1N w N(N)g w N(N) S 30490 s !wNN1: 8wL(N2)1: N1N Bw L1 30550 LwLL1: AN(L) Qw 30590 VwAN(N1): N(N1)N(1): N1N11: N11 30680 ~wJL7 wIJ: J2JJ: J2J: JN1 30400 , v JN1 30420K v C$(J) C$(J1) 30400U vJJ1m v A$C$(J) 30420} vC$(I)C$(J) v 30360 vC$(I)A$: 30290 vC$(1)A$ vC$(1)A$ v I1 N: C$(I): I v " HIT RETURN TO EXIT" v 3013 u CHARACTERSORT BEGINS* u 307203 v S$9 vC vNN1O v C$(N)i v C$(N) S$ 30230 4vNN1:: L(N2)1: N1N Rv L1 30310 WvLL1 \vA$C$(L) av 30350 fvA$C$(N1): C$(N1)C$(1): N1N11: N11 30440 vJL vIД ^JL-u KNUTH/WILLIAMS/FLOYD HEAPSORTCu N(150), C$(150)ou" ALPHANUMERIC SORTING PROGRAM"::xu: u: "TYPE C FOR CHARACTER STRING SORT, TYPE N FOR NUMBER SORT:";: W$uN0u:u W$"N" 30480u W$ "C" 30140     Š  Π Ӡ Π ٠ ƍӠàԣDZ čàŠɠ àԠħ֠     ֵ ֶ  ؠö֬؍Ԭ؍؍ؠŠöֶڶֶ«ڶ«ؠöֵ؍ڵ؍؍ؠŠöӍ РؠõԬ؍֬؍؍ؠŠõڶֶڶ«ֶ«ؠõڵ؍ֵ؍؍ؠŠõӍРɲٍٍɫɲٍɲɩٍɫٍɲɩٍɍٍɲٍɩٍɲٍӍаɩٍٍ̠ааٍɲٍɩٍɲٍ٠ŠаʹРôР٠ɩٍٍɍŠʹٍɩٍ̠аɠʹР٠ɩٍĠɲٍɩٍɠʹٍɩٍŠаٍɲٍ̠ʹа٠ɩٍàɲٍѠа̠ЍɠЍаٍ٠ŠаѠʹР٠ɩٍĠɲٍɲٍɠаٍɲٍΠɩٍɲٍٍɩٍٍɩٍРôРɩٍҠɲٍɠ΍̠ôǠԠԠà٠аÍɩٍàɲٍàЍɩٍҠɲٍɠôРɠȠʠΠٍɲٍٍɲٍɩٍɲٍٍàӱàɍԠŠΠҠЍӍʠРʍɠРɍȠÍҠӠÍРÍҠԠà٠ɩٍРɲٍٍʠôàʍŠóàʫóʍР΍ʫàΫàʍԠɠàɍŠôàɫôɍРӱɫ٠ʍѠòàòó٠ʍàòѠòòٍ٠ɍѠò٠ʍѠòòРά؍Šóò؍ؠ΍ŠҲά؍ɠčɩٍРɲٍӠòҠЍРôĠɩٍРɲٍàôѠòòҠЍРôòŠôٍ٠ɍѠóɲٍɲōѠԍРȍҠԠԠ٠ɩٍѠôɍɲٍѠôʍؠҲ٠Ҭ؍óɫàʫРҲҠʽɫϠΠЍʠÍɲàЍɲɲàɲҲ٠ɲٍɲٍ̍ɩٍɍٍɩٍɫÍɍàЍɲɫàɲÍɍàʠʽɫٍڵɍڵɫРҲΠԠҠɽɠϠέРɠÍɍàЍɍɫàɫҲ٠٠ҍΠÍڶàڵڶ«àڵɍڵɫڵЍڵڵҠ«ڶ«ڶРڶčڶ«àڶōӠҲРòŠԠĠҲؠҲŬ؍ɬ؍؍̠ҲРҳȠԠ٠ōò٠ڶ©ٍРōŠòٍڶ©ٍРūѠ΍òÍ٠ڶ©ٍàڶٍڶ©ٍàڶѠҰƍɠҰҰҰάٍٍ٠ٍҠǍРѠԍРàѠұŠύԠ٠΍͠ҠǍŠύàҍԠԠӠұ٠٠ٍұҠǍҠ؍٠ٍؠҬٍҠǍҠ٠ٍؠάٍҠǍàύРħڵӱàΫōŠ͍ѠұҠҳؠұDZ؍Ҡԍ؍ؠŠұϠҠЍԠӠҰōҠǍҠ͍ҠڵɍڵɫҠǍҠ͍ҠڵӱÍà΍ЍŠҰРԍаЍŠҰؠРύҠԍҠūūЍԠРŠҰѠ؍Ұ؍Ŭ؍РѠҍРŠаҠԍŠؠԱŬ؍Ŭ؍؍̠ԱҠЍؠҰРӬ؍Š؍ҠǍ؍ؠŠҰؠѠ͍ҰҠǍ͠РÍѠҰŬ؍؍ؠ¶ƠՠƍǠՠ±ԍ͍͠ ƠŶƸҠùù͠ĶƴƠŷ ՠƍҠՠù͠ՠՠƴƍ٠ՠ¶ԠՠčӠԠɲՠÍɠՠōΠՠŰҠՠŲΠՠŷРՠÍʠՠčɠՠƍʠՠưŠՠƱڵՠڵՠڵՠڵՠڵՠڶ ՠڶĠՠčڶŠՠōڠǯʾŠͭŠˍˠðˠðˠðǠʠԠՠİӱՠĴɠՠĶɠՠĸɲՠ hҭԠ٠ΠǮ̠̬̠ӠĠϬ٠               * [*ŠҰРԍаЍŠҰؠРύҠԍҠūūЍԠР * * * * * *** * ** * * * * ** * * * * * * * * * * * *** *** * * * * * * * * * * *** *** *** *** *** *** * * * * *** * * * * * * * * * * * ** ** ** ** * * *** *** * * * * *** *** * * * * * * *** * ** * * * * ** * * * * * * ҥӐ`Hȥؑȥّڥݑօوܑօ؈ڑh`Н̔0klP `̔0klP`PJ TuVTvP`SRT#(VARIABLE LE A$ NOT FOUNDA10 2ȱ0+10!ȱHȱڑhLLk iekRliSޅP߅QTU PQkȱkҦee`$sօڥׅۦeޅ֥e߅eڥeօȱօٱڅ݈څ e֥eeڥe֥e߅eڥeօȱօٱڅ݈څܥLb\0 ܰ Lܐ? L5 ޘй8ޥ߰ LӑLLۑjLڈڐ"Q0ȱHH֑ȱ֑ڈhhLQ0ڐ  D0Ȍ ),П ИkͲȱkͳ kekHȱkellhkmlnL,Lk ȱkQȱkPޅR߅S҅TӅU k iekRliSTU PХQ$ HFf b`8ޥeeЅօڥхׅۦeޅH 5h҆ݣW  , :ʽ$5%&LĐ  g RPޥQ g RP8ޅQ߅t $ bLޠ  g RPҥQLѐʬ      090''SE%2000,3000,1000,12000,10500-)R*"HIT ANY KEY TO RETURN TO MENU"b+16384,128p +16368,0{+10090.:"SELECT ARRAY SIZE: ";N%.10110109t'N%8 ~'$'8:15:"SORT DEMO"<':15:"SELECTIONS"Z':10:"1. INTEGER SORT"}'10:"2. FLOATING POINT SORT"'10:"3. CHARACTER SORT"'10:"4. DIM OTHER THAN ";N%'10:"5. EXIT"'17:"SELECTION: ";SE%'SE%0SE%510 D FP(I):I:' ' ** &SORT DEMO **< ' SAVE ROOM FORP $' SORT ROUTINEb .'37376:$9200 8'D$(4): CONTROL-D B'D$;"BLOAD SORT AMPERSAND.X" L' SET UP '&' HOOK V' AT $3F5: JMP $5200 `'1013,76:1014,0:1015,146 j'H10:"AFTER" RI0N%+ \IN%(I):I:? FLOATING POINTK FP(N%)W I0N%u FP(I)1000(1)(I7.16)| I 3110 SORT SRT#(FP,0,N%)  3120  11000  PRINT ROUTINE & 10:"BEFORE":3130 0 10:"AFTER" : I0N%1210( " AFTER":"ASCEND DESCEND"4 I0N%E AB$(I):I:W INTEGER SORTd IN%(N%)p I0N% IN%(I)7500((1)15000) I 2110 SORT SRT#(IN%,0,N%) 2120 *11000 4PRINT ROUTINE >10:"BEFORE":2130 )1,1)" B$(CH$,((1)L)1,1)- $J13C .C$C$C$:B$B$B$J 8J[ BAB$(I)B$C$b LIl V1180 `SORT HALF ASCENDING jSORT HALF DESCENDING tSRT#(AB$,0,N%,1,8,A,9,16,D) ~1200 11000 PRINT ROUTINE " BEFORE"  *"# 2"* *"B 7"* MICRO MAGAZINE *"a <"* JULY, 1979 *" A"* *" F"************************" CHARACTER SORT CH$"ABCDWXYZ":L(CH$)1 AB$(N%) I0N% C$(CH$,((1)L 10000+ "************************"J"* *"i"* AMPER-SORT *""* BY *""* ALAN G. HILL *"#"* APRIL, 1979 *"("* COMMERCIAL RIGHTS *" -"* RESERVED  IJ LIH+ N$(I,S)N$(L,S)5007 V1NHF S$N$(I,V)Z N$(I,V)N$(L,V)i N$(L,V)S$o y IIH I1410 JJ1 JK360 400 N0G  ( PRINT SORT ) S J1NR^ "I13l ,N$(J,I),r 6x @~ J T ( THE SORT ) ^HNR hH(H2) rH0530 |KNRH J1 Z6 d"CREATING "NR;" RECORDS WITH ";NH;" FIELDS"< nH xJ1NRT I1NH_ C15q K((1)100) K65K90150 N$(J,I)N$(J,I)(K) C N$(J,I), I J "SORT BY FIELD (1-";NH;")"; " ";S  35  NH3X ( SHELL-METZNER ) hN$(500,NH)n(2"SHELL-METZNER SORT":<"NUMBER OF RND NUMBERS: ";F"";NRP ( INITIALIZE )    K)İ1070BB1:BY1040&10059II1:IY195IBI1:1005k.D$A$(I):A$(I)A$(B):A$(B)D$q32"C"220 210 :" TC :"THAT'S ALL THERE WAS":: "ANOTHER SORT OF THE SAME DATA";C$: C$"Y" NN1::"OPTION #1 - NUMBERS AND LETTERS":"OPTION #2 - LETTERS ONLY":25   I1:B2 K254 (A$(I),J,K)(A$(B),J, xR21000 zR2 195( I1:B2> A$(I)A$(B)180` N$A$(B):A$(B)A$(I):A$(I)N$t BB1:BY130 II1:BI1:IY1130 : T1Y:A$(T):(TZ)TZ209 230 ::"PRESS *** C *** TO CONTINUE LISTING" D$:D$A$(I)"ZZ" YI1:119. nY$(((A$(I),J)))N o((A$(I),J))(Y$)Ă:116 p((A$(I),J))(Y$)Ą"NUMBER TOO LONG. REENTER TERM";A$(I)::116 qQQ((A$(I),J))(Y$):A$(I)E$(QQ)A$(I) t I w:::::" *** SORTING ***":R21000EN YOU ARE READY TO BEGIN - PRESS THE SPACE BAR": C$; c} d:"YOU SELECTED OPTION ";R::"HOW MANY TERMS TO SEQUENCE";Y fY300 :"BE SERIOUS - THAT'S TOO MANY"::100 i"PRINT HOW MANY TERMS BEFORE PAUSE";Z mA$(Y):I1Y:"TERM";A$(I):";R:R1 NN1 129+ R2 NN1 10002 : "YOU MAY ENTER LISTS WITH NUMBERS FIRST":"AND IF YOU SELECTED #2 THE SORTING":"WILL BE DONE BY THE LETTERS ONLY" !:"HOW MANY DIGITS ON YOUR PREFIX NUMBERS";J:JJ1:I1J:E$(I):5 #::"WHs NN0L "0","00","000","0000","00000","000000","0000000","00000000"::"YOU MAY SEQUENCE YOUR LIST BY":"NUMBERS AND LETTERS OR JUST LETTERS":"OPTION #1 NUMBERS AND LETTERS":"OPTION #2 JUST LETTERS"  "WHICH OPTION WOULD YOU LIKE U "  dF30, e" THE ALPHABETIZED LIST IS :"F fD$"": D$=CONTROL D\ gD$;"OPEN SORTED"s hI1N1:A$(I):I iD$;"WRITE SORTED" oD$;"CLOSE SORTED" s x::"DO YOU WISH TO DO ANOTHER SORT ?";M$:M$"Y"10 }:: " THANK YO 16 ( D$"": D$=CONTROL D; D$;"OPEN ";G$N D$;"READ ";G$Y I1Nx "(#";I;") ";:A$(I) I D$;"CLOSE ";G$ &F0:I1 (A$(I)A$(I1)90 2T$A$(I1) <A$(I1)A$(I) FA$(I)T$ PF1 ZII1:IN40 THE NAME OF THE FILE IN WHICH YOU HAVE YOUR DATA STORED?";G$t "HOW MANY WORDS DO YOU WANT TO SORT. ";N A$(240) : "IS THE DISK WITH THE DATA IN THE DRIVE ? ";Q$ Q$"Y"20 "PUT DATA DISK IN THE DRIVE AND CLOSE DOOR." n"THIS PROGRAM WILL ALPHABETIZE A LIST OF WORDS. NAMES OR NUMBERS CAN ALSO BE SORTED WITH THIS PROGRAM."t"THE ONLY CAUTION IS DO NOT SEPARATE 1ST AND LAST NAMES WITH A ','.""NUMBERS MAY BE INCLUDED IN THE SORT.":= "WHAT IS JM21300#A$(M)A$(M1)1300IT$A$(M):A$(M)A$(M1):A$(M1)T$kSET BEGIN AND END POINTS FOR ARRAT SEGMENT OF LARGE ELEMENTSMB(L)1:LL1:L01030 NELEMENT BETWEEN IM1II1/JM11220ST$A$(I):A$(I)A$(M1):A$(M1)T$vSAVE STARTING POINT FOR ARRAYSEGMENT OF LARGE ELEMENTSLL1:B(L)I REPEAT SORT OF SEGMENT OF SMALL ELEMENTS1030 1 AND 2 ELEMENT CASES LARGE ELEMENT! .II1:IJ11709 8A$(I)A$(M1)1070i B FIND A SMALL ELEMENT AMONG THE LARGE ONES} LJJ1:IJ1170 VA$(J)A$(M1)1100 ` EXCHANGE jT$A$(I):A$(I)A$(J):A$(J)T$:1070 ~ ARRAY SEGMENT NOW DIVIDED MOVE COMPARE ARRINGTON2  INIT BEGIN AND END POINTS OF ARRAYG L1:B(L)N1:M1f  SET END OF ARRAY SEGMENTq JB(L)  SET START OF ARRAY SEGMENT IM1  IF ONLY 1 OR 2 ELEMENTS THEN SPECIAL HANDLING JM31250 $M1((IJ)2) ) FIND A NTEGER,VALUES,MUST BE,-32767,32767,FOLLOWING,RULES,EXACT,NEGATIVE NMINUS,SIGN,FALL,UNDER,CATEGORIES,SCIENTIFIC,NOTATATION,FORMATTED,FOLLOWS,MANTISSA XWE,WILL,DIGRESS,FOR,A,MOMENT,TO,EXPLAIN,THE,FORMAT,NEVER,TRAILING,ZEROES QUICKSORT BY STEVE Hz#Xձ ŠĠŠ ŠҠ Š ŠҠŠҠ٠ŠҠ ŠӠ ԠР ԠР֠ Ԡ̠ ԠӠ ԠҠ̭ڠ Ԡ̭ڠ ԠӠɠ "Ԡ  ԠҠҠɠԠҠҠɠ Ԡ̭ڠԠĠ ԠĮؠԠĮ٠! ؠŠ!͠ԠˠӠ! Ԡ! Ġˠ!ŠĠӠ"ŠŠ" ΠӠ  ҠŠŠŠ ԠР ŠŠ٠Ϡà ؠĠ ؠĠҠ ԠŠàԠ ԠĠӠԠǠŠ  Ϡ ҠŠ ҠҠҠ  ҠԠ Р٠ĠҠ РŠРŮؠԠŠ٠ ϠҠɠϠҠɮؠŠԠӠˠ Ԡɠ Ƞ *i~}X~`a fgA/!2ݮ=p fWeʵpe````f`````Ʒ`@faE``fEALggApLgfALCg`f```Ya`ieuxee  xe~ue`| ` bu0Ҫi`rbe(Z$)36400% M((Z$)):KM:G$""8 K0KM65536J K0İ800:50U I(K)y J%I16.01:K%I16J%:K$(K%) K%9K$(K%55) G$K$G$ J%0H$"$"G$:470 IJ%:240 J0:K0:H$Z$:G$(Z$,L) I1L:K16(KJ):K$(G$,IJ ::A$"HEXCON":L(A$):(40L)2);A$:(40L)2);:I1L:"^";::" INPUT";11);"$HEX";21);"POS";31);"<";(92);"32768";(92)24:"**PRESS 'RETURN' WHEN FINISHED**";:35,23:34,4:4:2Z$:Z$""ĉ:<L(Z$)1:L5İ800:50 Fz89LHzh({0z`ɰ0<ɺ8`h ɕ({ɘ%ɍH{{ɺ{hz` -z89 `*) "A K:9:"HIT RETURN TO CONTINUE";A$:936:5L M0,100h P TYPED BY WM.J.KERR SR Z CALL APPLE MAR/APR 1980 PAGE 20 d PROGRAM BY WAYNE THROOPD-NUMBER ROUTINE CONTINUES TO PROVIDE NUMBERS UNTIL YOU PRESS CTRL-X. THIS WILL ALLOW FOR EDITING. " F"IF YOU WANT TO CONTINUE FROM WHERE YOU LEFT OFF WITH THE CTRL-X, JUST TYPE CALL 773 RETURN ER THE AUTO-NUMBER HAS INPUT IT, BY USING THE BACK-ARROW, AND OVER- TYPING. THE AUTO-NUMBER WILL CONTINUE BY 10'S FROM THE ALTERED LINE NUMBER. " 7:9:"HIT RETURN TO CONTINUE";A$:936:5k <" THE AUTOCTIVATE THE AUTO-NUMBER TYPE CALL 768 RETURN. THEN TYPE 00010 OR" ("ANY NUMBER YOU CHOOSE TO START WITH. IT MUST ALWAYS HAVE 5 DIGITS AND LEAD- ING ZER0ES MUST BE ZEROES AND NOT BLANKS. THE LINE NUMBER CAN ALSO BE " 2"CHANGED AFT A MACHINE LANGUAGE PROGRAM HAS BEEN LOADED INTO MEMORY THAT ALLOWS AN AUTO-NUMBER SYSTEM TO WORK IN APPLESOFT --THIS ROUTINE WILL ALSO WORK IN "G "INTEGER BASIC SHOULD YOU NEED IT. TO A(D$"":D$;"BLOAD AUTO NUMBER I.X"8:936:10 " APPLESOFT AUTO-NUMBER INSTRUCTIONS "D13500:D:936:5 "    * d::D$(4)),D$;"CATALOG" UN(1,T)N:T:FL95) ZQ$Q$"+0":75J _S0:B0:TQPA11:170:To dAB:B0:S0:TPA111:170:T iAAA:SSAAA nMI$"":(BAA)0MI$"-" sC(BAA):C0125 xB$(1)"0":B$(2)"0":310 }Z1:QP2:QC:135:HBH:QP16:Z2:135:H:" ";(I);" IS CHR$(";I;").":I7I28I51I74I97ĄQ$j 7I120I141I164I187I210I230ĄQ$q <I| AQ$:5 F PROGRAMMED BY HIRO TANAKA JUNE 14,1979 FOR DECODER KFL0:Q(Q$):T1Q:N((Q$,T,(T1))) PNN(K(N64))L:N0175"TO END PROGRAM .............5":I140:"-";:I:: TS T30,45,190,230,265 :::"INPUT STRINGS FOR DECODING":A$ #A(A$):B1A:B$(A$,B,1):B;" ";B$;" ";(B$): (Q$:Q$""5 -:936:"CHARACTER STRING CHART";Q$= 2I1255Ik:936:"------ CHARACTER DECODER FOR HIRO ------":I120:"]";(91);::"HIT SPACE BAR AND RETURN" 34,4::"CHR$ SPELING ...............1":"INPUT FOR LISTING OF CHR$...2":"HEX CONVERTER ..............3"3 "CHR$ DECODER ...............4":   ETREIVE DATA FROM DISK Z> _D$;"OPEN ";F$: RE-OPEN FILE\ dD$;"READ ";F$: READ SETb i n NOW INPUT DATA INTO MEMORY s xX:Y:Z }D$;"CLOSE ";F$: CLOSE FILE "VARIABLES READ FROM DISK" X,Y,ZZ D$(4): CTRL D1"WHAT FILE NAME? ";F$SD$;"OPEN ";F$: OPEN FILE F$s#D$;"WRITE ";F$: WRITE SET(X20:Y25:Z30-2 FILE OPEN, PRINT DATA7<X:Y:ZAD$;"CLOSE ";F$: CLOSE FILEFKX0:Y0:Z0P U R 6"FILE '";FILE$;"' :": @:"STARTING ADDRESS: ";STAD\ J:"LENGTH: ";LNGTH T::" (NUMBERS ARE IN DECIMAL)" D D$(4) ::8@"THIS PROGRAM WILL PRINT STARTING"i:"ADDRESS AND LENGTH OF 'BLOADED'"(:"PROGRAMS ENTER FILE NAME "2:FILE$<D$;"BLOAD "FILE$dSTAD(43634)(43635)256LNGTH(43616)(43617)256,:8  O.": dX174 nX;:Y1(A(X).5):"*";::""Z xX;:Y1(Z(X).5):"#";::"":,N\ -1.3,8.2,15.5,17.5,19.0,26.0,42.5S1.7,9.5,20.6,21.7,23.7,36.2,51.8b(A(7),Z(7)p-C3851.82X17:A(X):A(X)CA(X):<X17:Z(X):Z(X)CZ(X):F"APPLE = * ZAPPLE = #"::P"BENCHMARK SPEED IN SEC": Z"N PÆCO$(16)%ZÁE015:CO$(E):E?dð50200: PRINT HEADERWnð50400: PRINT MENUjxíI$"DP"52000}íI$"VR"52200íI$"DM"52500íI$"AM"53000íI$"EN"50100ú"INVALID FUNCTION":50030Àė: HEADER SUBROUTINE ė:2:        935:2,350:2,3539:&I1(A$)=2I2:(A$,I,1);FI:P::((IP)29):P255P255"1500H21:"X IS ";X;" ":"Y IS ";Y;" "X(E)Z200f(G)ZĈz(H)ZU(U1)U16U0U:X,Y:9406,P:7,D:768:((40(A$))21):A$:: :I031:I2:0,39I3:I 5:0,392:0,3 CONTROLS AND BUTTONS.":2000P *A$"THE BUTTONS CLEAR THE TV AND CHANGE":2000 4A$"THE DISPLAYED COLOR. TRY ONE NOW.":2000 (G)Z(H)Z930 (E)Z200 900 : P(0):X(P6):X39X39 I(1):Y(I6):Y39Y39P142 l2I4:I; vI:* I11529 2I4:I;I I:::450{ ::W350:I119:J019:KIJ:(E)Z200 J3(I3)IW12 I,K:K,I:40I,40K:40K,40I K,40I:40I,K:I,40K:40K,I J,I,W:450 :A$"USE THE GAMEN(A$)48 N1N5ī200: N500,600,700,800,5000J (E)Z450S 200] 3000 A$"BMDPDGMLBOGPLYAW":4000: A$"LGBUGRBBRRRIGEQI":4000: A$"ATLRRELLWNENRLUT":4000: A$"KAUPNYUUNGYKNOAE":4000 &450 X3000 bI0STANDARD COLOR NAMES":2000& 6"2.";L @A$"STANDARD COLOR NUMBERS":2000W J"3.";s TA$"KALEIDOSCOPE":2000~ ^"4."; hA$"SKETCHING SCREEN":2000 m"5."; oA$"EXIT PROGRAM":2000 r |"WHICH WOULD YOU LIKE?";A$ (A$)0ī200 TRATION PROGRAMS":2000:F " TO OPERATE A DEMONSTRATION, TYPE"s "ITS NUMBER. THEN TYPE THE KEY MARKED" "'RETURN' AT THE RIGHT EDGE OF THE KEY-" "BOARD. TYPE THE 'RETURN' KEY TO STOP" "ANY DEMONSTRATION.":: ""1."; ,A$"Q7U9:D3:E16384:F16368:G16287:H16286:Z127~d768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7n776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96:::F,0 A$"APPLE DEMONS ":A$::5:405H ::"PROGRAMMED BY KUNIHIRO TANAKA.....END":AMMED BY KUNIHIRO TANAKA.....END": PROGRAMMED AND PROPERTY K U N I H I R O T A N A K A B750::"INPUT STRING TO BE DECODED: ";A$PA(A$):B1A:B$(A$,B,1):"CHARACTER (";A$;") = ASC#";(B$);" AND .........";:::"FORMED BY ";A;" NUMBERS OF CHARACTERS.":I140:"=";:I :"HIT ANY KEY TO GOBACK TO COMMANDSESS RETURN WITHOUT":"MAKING AN ENTRY"w:"ENTRY MODE (D, H, B)? ";M$:D(M$"D"):H(M$"H"):B(M$"B"):BHD70P2(8D)(14H):"ENTRY FORMATS: N , N+N, N-N"B$(1)"":B$(2)""::"ENTER EXPRESSION (";M$;:") ";Q$(Q$)0200$;C;" =$";MI$;B$(2);" =(B)";MI$;B$(1)::"CHR$(";C;") ='";(C)"'"L A$:5m BB((N(1,T)(PS))):SS1:{ N5185 SS(N3):PAT:FL1:85 :"ENTRY ERROR"::215 H$"0123456789ABCDEF":N(2,60):K7:L48:B$(2)&"TO CHANGE MODES, PRHH 1503 H(((Q)(QP))1):U1H:T1HU HPQPT:LPQP(T1):QA((QHP)(QHP))HP:QB((QLP)(QLP))LP:N(Z,U)(QAQB)LP U: Z12:FHB:Z2FHH T1F:QN(Z,T)1:L$(H$,Q,1):B$(Z)B$(Z)L$:T:Z::"RESULT:"A :6:MIA;") = $";HX$;"(";DC;") "B$̺:"REPLACE THIS BYTE ?(Y/N) ";I$T.̭I$"N"52300_8̰50800jB̫52240L̺:"CHANGE ADDRESS ?(Y/N) ";I$V̭I$"Y"52230`̫50030͗:3:" *** DISPLAY MEMORY ***":10:52700: DISPLAY MEMORY ROUTINE  ˫50030+˲ VERIFY/REPLACE SINGLE BYTE_˗:3:" *** VERIFY / REPLACE ***":10˺"THIS ROUTINE ALLOWS YOU TO FIRST VERIFY A BYTE IN MEMORY AND THEN CHANGE IT IF YOU WANT TO."̺::51100DC(DA):50600̺"VERIFY: $";A$;"(";DITH THE BYTES IN THEIR LOGICAL ORDER. IE:SECOND BYTE FIRST."L>˺::51100fHJDA:DC(J1):50600RJX$HX$:DC(J):50600\KX$HX$f˺"MEMORY LOCATION: $";A$;"(";J;") = $";JX$KX$p˺:"DISPLAY ANOTHER POINTER ?(Y/N)";I$:z˭I$"Y"52030ʱXX$F$:51000'bFX:X16518508lX$H$:51000LvHX:X1651850cHXF16H:DA,HX:ʺ"INVALID ENTRY":53070 ˲ DISPLAY POINTER ROUTINE*˗:3:" *** DISPLAY POINTER ***":10=4˺" THIS ROUTINE WILL DISPLAY THE POINTERW:DADA1:518000E$(D$,16,2):E$"XX"53100_F$(D$,16,1):H$(D$,17,1):DADA1:51800E$(D$,19,2):E$"XX"53100F$(D$,19,1):H$(D$,20,1):DADA1:51800&E$(D$,22,2):E$"XX"531000F$(D$,22,1):H$(D$,1):DADA1:51800:$,4,1):H$(D$,5,1):DADA1:51800BE$(D$,7,2):E$"XX"53100oF$(D$,7,1):H$(D$,8,1):DADA1:51800E$(D$,10,2):E$"XX"53100F$(D$,10,1):H$(D$,11,1):DADA1:51800E$(D$,13,2):E$"XX"53100F$(D$,13,1):H$(D$,14,1)ȱ <Ⱥ:"INVALID ENTRY":51100@dȲ INPUT NEW DBL WRD OF DATAanȺ"$";DX$;"(";DA;")";14):D$lxȰ51600rȱɲ PULL BLANKS THEN STORE DATAE$(D$,2):D$"XX"53100F$(D$,1):H$(D$,2,1):51800E$(D$,4,2):E$"XX"53100"F$(D,1):E$(A$,1)X$B$:510003BX:X1651260DX$C$:51000XCX:X1651260iX$D$:51000}DX:X1651260X$E$:51000EX:X1651260 FB4096C256D16EȭF32767DA65535F1ȭF32768DADA(ȭF32768DAF2BǭX$"9"X9:"CǭX$"A"X10:5DǭX$"B"X11:HEǭX$"C"X12:[FǭX$"D"X13:nGǭX$"E"X14:HǭX$"F"X15:IX16:Dz FETCH & CONVERT ADDRESS SUBROUTINEDŽ"FOUR DIGIT HEX ADDRESS ?";A$:B$(A$,1):C$(A$,2,1):D$(A$,3;" ";A2$;" ";A3$;" ";A4$;" ";A5$;" ";A6$;" ";A7$::[8Dz HEX TO DECIMAL LOOKUP SUBROUTINEm9ǭX$"0"X0::ǭX$"1"X1:;ǭX$"2"X2:<ǭX$"3"X3:=ǭX$"4"X4:>ǭX$"5"X5:?ǭX$"6"X6:@ǭX$"7"X7:AǭX$"8"X8:HX$:DC(DA):DADA1:50600?A2$HX$:DC(DA):DADA1:50600cA3$HX$:DC(DA):DADA1:50600A4$HX$:DC(DA):DADA1:50600A5$HX$:DC(DA):DADA1:50600$A6$HX$:DC(DA):DADA1:506004.A7$HX$:"$";DX$;"(";P;") ";15);A0$;" ";A1$ F$(B$,1):H$(B$,1)) X$F$:51000= FX:X1650880N X$H$:51000b HX:X1650880y HXF16H:DA,HX: ƺ"INVALID ENTRY":50800 Ʋ READ FULL SCREEN SUBROUTINE DC(DA):DADA1:50600 A0$HX$:DC(DA):DADA1:50600A1$A655351 ƭDA0KDA9 *FI(K4096):FRK(FI4096)Y 4SI(FR256):SRFR(SI256)w >TI(SR16):TRSR(TI16) HFI$CO$(FI):SI$CO$(SI):TI$CO$(TI):TR$CO$(TR) RDX$FI$SI$TI$TR$: pƲ INPUT NEW BYTE SUBROUTINE zƺ:"HEX BYTE ?";B$: :Ţ20:15);"***********") DŢ23:I$:` Ų SINGLE BYTE DECIMAL TO HEX CONVERSION SUBROUTINE~ TE(DC16):UNDC(TE16) TE$CO$(TE):UN$CO$(UN):HX$TE$UN$: Ń 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F Ʋ DEC TO HEX ADDRESS CONVERSION ƭDA0KD18);"MENU"' Ģ4:15);"***********"H Ģ6:11);"PROGRAM FUNCTIONS"l Ţ10:5);"'DP' DISPLAY POINTER" Ţ12:5);"'VR' VERIFY/REPLACE SINGLE BYTE" Ţ14:5);"'DM' DISPLAY MEMORY" &Ţ16:5);"'AM' ALTER MEMORY" 0Ţ18:5);"'EN' END PROGRAM"6);"ALTER/DISPLAY"< Ģ5:19);"UTILITY":8:26)"PROGRAM"s Ģ16:17);"WRITTEN BY:":20);"RALPH D. GUSTAFSON" ĺ20);"APPLE USER'S GROUP":21);"PORTLAND,OREGON" Ģ22:" *** 'RETURN' TO CONTINUE ***";I$ ı IJ MENU SUBROUTINE ė:2:BEFORE LINE? ";IL:ILC1ILCL(ILF1ILT)ĺ"INVALID LINE #":7800r T NITF1C1:14500:F1ILF1F1NI:TTNI LDF1IL:TMILNIC1:IILTM:TX$(I)TX$(ILD)::CLCLNI:T$"COPY"7800  13600:7800 :"RANGE (FROM,TO)? ";F1,T:F1C1F1T32OC02100$ ORO9O9C1:1800b 4RSP9TL:LN$(LN$,C1,P9C1)NE$(LN$,RS,SLRSC1):EDC1{ OC0P9P9NL:1400 Y$"Y"Ğ:"EDIT LINE ";I::LN$ ` TX$(I)LN$ :: ( :"RANGE (FROM,TO) ";F1,T:F1C1F1T2600 TCLTCLD "RENCE (0 FOR ALL)? ";O:"WATCH? ";Y$J A(Y$):Y$(ATR(A97A122))d LTL(OL$):NL(NE$): IF1T:P9C1:O9C1:EDC0 LN$TX$(I) xSL(LN$) R((LN$,P9,TL)OL$)O9 @P9SLTLC1ĴEDC12500,2300 R1900 P9P9C1:1500 l! d3500HA$:(A$)CCTX$(CL)LN$:CLCLC1:LN$"":16135,0:200\,LN$LN$A$:200wTX$(CL):CLCLC1:400:"EDIT RANGE (FROM,TO) ";F1,TXF10F1T500TCLTCL "OLD? ";:16500:OL$LN$:"NEW? ";:16500:NE$LN$$ "OCCUR          ̶ҠǍHȱh Aȩ лi@УlŠҠ٠ŠӠРĠōҠؠŠӠԠӍŠҠӠůҍ̬ܽݽΩéΠč̠p  ʽ8iȅL  X ,T H$ ɠIP5ɕP-ɈP%ɛ?ɍΙ Ȅ$˩$ >% @ &u J  J % J, ɍ ɠې 0 -d1184:+n(4);"BRUN DUMP PAGE.X"  "DATA WILL ALSO BE DISPLAYED IN THE SAME FORMAT.":к"TO END THIS FUNCTION: ENTER 'XX' IN THE BYTE FOLLOWING THE LAST BYTE THAT YOU WISH TO CHANGE.":: к5);"----RETURN KEY TO CONTINUE----"ЄZ$:53010EϭI$"Y"53010$ϭI$"N"50030Ϻ"THIS ROUTINE WILL ALLOW YOU TO VERIFY A DOUBLE WORD OF DATA, STORE IT AWAY AND THEN GO ON TO THE NEXT DOUBLE WORD.":Ϻ"DATA MUST BE ENTERED IN THE FOLLOWING FORMAT.":Ϻ"XX XX XX XX XX XX XX XX":4 ALTER MEMORY ***":3:532002ϗ:5:51100APDA::L1R&ρLL100001]0ϰ50700o:A$DX$:51120DPDA:SDA:50900NDAS:51300XDAS:50900bPDA:LlDAP:51120qϰ50900vϺ:"DO YOU WISH TO CHANGE ADDRESSES ? (Y/N)":I$ͺ" THIS ROUTINE WILL ALLOW YOU TO DISPLAY 80 BYTES OF DATA FROM MEMORY STARTING ATTHE LOCATION YOU SPECIFY."ͺ"THE ADDRESS ENTERED MUST BE A FOUR DIGIT HEX ADDRESS."͢20:5);"---- RETURN KEY TO CONTINUE. ----"΄Z$α"ϗ:1:" ***͗:2:51100(͗'2́L110:507009D$;"WRITE ";F$>ICI:NIC1780028NICLC1LMĺ:"TOO MANY":7800L9ICLNIC1ILNIC1al9TX$(I)TX$(INI)g94:T$"COPY"T$"MOVE"ı:TMILNIC1:IILTM::"INSERT NEW LINE ";I::16500:8300:TX$(I)LN$:`;CLCLNI;(TX$(I)H?)?D$;"CLOSE"3@7800>t@LN$""b@A$:A(A$):ACCACDACEĺ:"FOR THE INDIVIDUAL USER'S NEEDS. AT THE"H"MOMENT, IT WILL SIMPLY PRINT TEXT OUT"R"TO A SLOT# AS IS. THERE IS AN OPTION" \"FOR THE NUMBER OF COLUMNS E OF THE MOVE"<"COMMAND. THE CURRENT TEXT MAY ALSO BE"i"APPENDED TO, RATHER THAN REPLACE, THE""OUTPUT FILE. THE OPTIONS: CREATE A NEW" "FILE OR APPEND ARE AVAILABLE AFTER THE""USER TYPES 'P' FOR PUT TEXT TO DISK.." 10000+","MAY BE ADDED TO THE CURRENT TEXT IN"Y"THE EDITOR PROVIDED THAT ENOUGH SPACE""HAS BEEN ALLOWED. IN EFFECT THE FILE""CAN BE INSERTED ANYWHERE IN THE CURRENT""TEXT BY USE OF THE APPEND FILE FROM ""DISK COMMAND PLUS THE USl"LINE NUMBERS TO THE TEXT IN ANY RANGE."Xv"THE FILE IS THEN PUT OUT TO DISK AND""SIMPLY EXEC'D INTO THE BASIC PROGRAM.""THIS INSTRUCTION FILE WAS CREATED IN""THIS MANNER..........""""APPENDING---- TEXT FROM OTHER FILESE STRUCTURE";:"OR WHATEVER, THE @ COMMMAND CAN BE USED"hD"TO ADD: PRINT ' TO THE BEGINNIG OF "N"THE LINES. THE & COMMAND CAN THEN ADD "X"THE QUOTE TO THE END OF ALL THE LINES."]10000b"THE 'ADDN' FUNCTION IS THEN USED TO ADD",RITING INSTRUCTIONS FOR PROGRAMS. THE"T"ACTUAL TEXT OF THE INSTRUCTIONS CAN BE""WRITTEN IN EDIT SO THAT IT IS EASIER TO""SEE HOW TO FORMAT THE LINES NICELY FOR"&"40 COLUMNS. ONCE THEY ARE DONE AND THE" 0"USER HAS CORRECTED SENTENCIS IS A FUNCTION OF"A"DOS AND WILL CHANGE WITH VERSION 3.2."m"ALSO, WITH THIS LOAD THERE MAY BE NO""QUOTES INSIDE THE TEXT......."""" THE @, &, AND ADDN (ADD LINE NUMBER)""COMMANDS IN COMBINATION ARE USEFULL FOR"&"WY MIKE PETRIE "F 2A$(4)" ALL RIGHTS RESERVED"O <120Z PXABd UCC1~ Z(A$(N),C,1);:X,190 d nC0::X1,160: xA1665:B1703:N2:6:80 A1921:B1959:N1:8:80 A1193:B1231:N2:10:80 A1449:B1 >>TITLE PAGE PROGRAM<<: -BY MIKE PETRIE-@:]FOR USE AS A SUBROUTINEuTO BEGIN A PROGRAM} :A$(1)" TITLE PAGE PROGRAM "A$(2)" ********************************** " (A$(3)" BVO$V1$V$"%" 6V3(V$)" @V*************6  THIS SUBROUTINE FORMATS THE % DATAN V1(V1100.5)100_ VO$"":V$""m V1$(V1){ V2(V1$) I1V2 V2$(V1$,I,1) V3I V2$"."ī4130  V$".00" 4140 "V3V21V$"0" 'V11VO$"0" ,V$ THE FINAL+ STRING TO BE PRINTED AND ISd USEFUL WHEN ATTEMPTING TO LINE UP COLUMNS OF DATA.j THE STRING TO BE PRINTED IS V$   ***************** #* SUBROUTINE * %* BY * (* MIKE CICERCHI * -****#THIS SUBROUTINE FORMATS<DATA AND PLACES A % SIGNJAFTER ITgIT PROVIDES TRAILING ORLEADING ZEROES WHERENEEDEDSET V1 EQUAL TO THE VARIABLE THAT YOU WISH FORMATTEDBEFORE CALLING THE ROUTINE V3 IS THE LENGTH OF3095 309000 XO$"":X$""! X1$(X1)/ X2(X1$); I1X2N X2$(X1$,I,1)W X3Ii X2$"."3085p I}  X$".00"  3090 X3(X21)X$"0"  (X1)14000  X$"$"XO$X1$X$  X3(X$)   (X1$,1)"-"X$"$-0"(X1$,2)X$:ECIMAL  7POINTS ARE ADDED 1 8AUTOMATICALLY7 9U :'FORMATTING PERCENTAGES'm ;IS A ROUTINE QUITE <SIMILAR TO THIS ONE = F******************** P SUBROUTINE BY Z MIKE CICERCHI c******************* X1(X1100.5)1 X3 IS EQUAL TO THE TOTAL8 LENGTH OF THE FINALM  PRODUCT AND ISf THEREFORE USEFUL IN #FORMATTING (RT MARGIN (JUSTIFICATION) -FOR EXAMPLE ONE COULD 2PRINT X$ AT TAB(25-X3) 4 5DOLLAR SIGNS,TRAILING 6ZEROES,AND D SUBROUTINE FOR FORMATTING8DOLLARS AND CENTS.XTO UTILIZE IN YOUR PROGRAMxTHE VARIABLE THAT YOU WISHTO FORMAT DEFINES X1THAT IS SET..X1=A(Z)THEN GOSUB 3000AT THE POINT OF RETURN TO THE PROGRAM PRINT X$     CORRECT FORM !" V `10505 j(D$(D))71170N t"NUMBER TOO LONG !"T ~^ 1050d v TT(D$(D)) DD1 1050 DD1  I1D 39(D$(I)));D$(I) I :T$(T) "TOTAL ";30)"$";39(T$));T$D$:12)"DOLLAR FORMATTER,:2:GD1:T0:D$(25)u"ENTER SEVERAL EXAMPLES THEN TYPE 'END'"}:D;" ";$"DOLLARS - ";D$(D).D$(D)"END"12008D$(D)"0"D$(D)"0.00"B(D$(D),(D$(D))2,1)"."1130 L"INLkcȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe g feѕxh$0 gxx ԅբ H 0 f g f$ f( gx$0  gxx f0$FԴX)HЄ ȹ)eHe0hޤȄ dh󰩠ɩcehe ceɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ` uߙ`` n$0LbLk*iS 00)ȆȘHJI@hLr`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ)q 6*Ȇ0LcJɢ  dȈ Ϡ cȢ dii)ɰLh c̥͐Eʑ˥ʥ˰ਈ$ u~q g ue g meʥ` ȹk0 Lڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM aL6g Tb&ϐ eڅeۅ &L~g g畠(LogU [b΅ڥυ g  og g` ln3 c3` 4nJ G 4n&(JJJJ) g` o F٩ `$ eh$0 o)?i `h](Њ aPx+Lc 4nP oxL#h 4n8` aPxLa aPeHxeH˰iکeۅȱhڙ`ꠀЕ gx gت3 Qs3ؕxQεy aNvNδPPPL#rQ8y2<> =!?B`C , p`M˩` oL` pLb3L`) #L $  ` g ve m`L;`ʅ˅LM g medžة *` *` *` e `  ` % `0LH΢mQPHΪ01  ::"****************************************";k"* INTEGER BASIC -- $A000 VERSION *";("* *";2"****************************************";<1016,76:1017,3:1018,096F2304     FILE" ZDBE CONVERTED? ";A$% <D$;"LOAD ";A$- AD$8 F33,33i PD$;"OPEN ";A$;"FILE":D$;"WRITE ";A$;"FILE"o Z dD$;"CLOSE ";A$;"FILE" iD$ nD$;"OPEN I-A FILE":D$;"WRITE I-A FILE":"FP":"EXEC ";A$;"FILE" xD$;"CLOSE I-A FILE":D$;"EXEC I-A NGED (TAB TO HTAB, INPUT COMMAS TO SEMICOLONS, ETC.)N 76,(202):77,(203)m A$(35):D$"": D$=CTRL D D$;"NOMON C,I,O" (:936:3:"A.P.P.L.E. PRESENTS: "::"APPLE INTEGER BASIC - APPLESOFT II":"CONVERSION PROGRAM" 2::"PROGRAM TO   "CONVERT" BY RON ALDRICH PROGRAM LOADS INTEGER BASIC PROGRAM FROM DISK, SAVES IT TO A TEXT FILE ON DISK THEN EXECUTES THAT FILE IN APPLESOFT II4  SOME COMMANDS WHICH ARE LEGAL IN INTEGER BASIC WILL NOT WORK IN APPLESOFT II AND MUST BE CHA    1 ,2202 :8)"YOU'RE PROGRAM BEGINS HERE."8 W *************************v * DONATED BY AUTHOR TO * * NORTHERN ILLINOIS AUG * * DECLARED PUBLIC DOMAIN* ************************* 487:N3:12:804 A1105:B1133:N4:17:80:X1,3D I13000:k A1664:B1920:C1192:D1448:E1104{ A1704400 A,170:A1,160 B,170:B1,160 C,170:C1,160 D,170:D1,160 E,170:E1,160 AA1:BB1:CC1:DD1:EEB&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?lJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   & `$$Lr$Ն$L,rLf 8!$`L#h ȱ0` 4n `8`HP8εxh`ɅLdLHdxܥyݥPQLuhƵPxLhnQεyϱΠ gLt 4n) ؘ g` uHɃL`h` b Ts` g g`ѥ΅ g΅ҥυө g0ХҠ gӕ "bLs 4ni` gF`ٚ .pLh 4nH۰hЅѠȱ0@ȱHШhh0J L赟0Ls0ܤ }q qLq赟Ls0ܤ }q qL t` g` [r Sr g ogP g YgVPL6g oO o5OPLo gΙ_LfiP0Q@PPxA@QPa`qpʥ˰JυKLe q 8Mϕڥ۰եڅʥۅ ,q ` :Lq΄<Ȅ>=?`ʕ>?>`8M˕ q  ,q ` cL:Lh``F`$ ܪȱ eLܤ`Ś25 a0 gLJK 6gP`JLKMLexLa eL6h eL[hL `JLKMMLILLILLLeLyq 2pLh,PQ܅x݅yLh gآ8ЕNЕKʵ˕ە LkcLMNܕ`LΥΥLMLʥMː gL(n c crLaq ?r&0ΰ` gΔLg 4n΅` gȑ` ln΅υLDb nL4a nxPiڄeΕPeϕxPȵxڰL#h gN gONi)OO i@ &N&O gϕLzb gJKLυMLe gLMJυKLn qaLo nȩ` 6g` ` `嶡䡯z~" `` gOڵw۴Nv Ln`xw8OPL#h g(` 4n0!(L 4nLdF` s %L"wLc{ TbL~g&&&ڥې څΈ` gl 4nȐ,` 4n0L 4nȐ-` 4n(~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg ȹɀI ȄȹH gh3 ogLhP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkgnaoghookihirhhhhhhhnghoonononnonnnahh```qrrqssqst7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLhϚΠ cκ fs ٢  d٦ΤWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqhhpqsoocceeggnppggboggrrrgrrrbshahhok`onoggshggghabnsbbhaaonghngsȱ eLb[ĨP?xO_ڹo g g hʤ g g Yg gYoܹݾЇ`TP@xLr` gΙϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUU rgPՆϦ e` g΅υȩ ` gΤ gPڵxۥΑȥLr`hh$ F`` o%ֈ`ʤZA^ܙ ݙ0 g me7;܄iȢٚ .p yf$IqܤݐLM͠1FLcJܹ/ݾLuhc cܪֹi)U hi)װ H s֐jιj fLfl`w0P`fLcPεϵxϱHȱ΅hΈ` Jg g gP` g Yg g$0` g g$0 g8 gP# og g΅ڥυ ge gepݕ` 4nLnLs$ ` g g 7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLèϚΠ ģκ f ٢  ٦ΤWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUU rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͯ%ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FL࣠Jܹ/ݾLuc ģܪֹ)U h)װ H 볥֐ι Lئl`w0P`fL࣠PεϵxϱHȱ΅hΈ` J  P` Y $0`  $0 8 P# o ΅ڥυ e epݕ` 4LˮL$ `  Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  $ ( x$0  xx 0$FԴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ` uߙ`` Ӯ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) V*Ȇ0LJɢ  Ȉ Ϡ ΣȢ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 Lڅ`Sε{ϵQڵyxȔPMuHOwh(WP`΅h(OM סL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 Σ3` 4J G 4&(JJJJ) ` ӯ F٩ $ h$0 )?i h](Њ Px+L 4P 䯕xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8y2<> =!?BC , M˩ oL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ01  ::"****************************************";k"* INTEGER BASIC -- $A000 VERSION *";("* WITH MINIASSEMBLER LOCATED AT B666 *";2"****************************************";<1016,76:1017,3:1018,160F2304         ` 5I` 5Iй` f f`LǶ`8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` AND COLONS CANNOT BE USED."D 20:"HIT RETURN WHEN READY ";:756L :l "INPUT STRING TO BE CODED"t A$ A(A$):: " 490 DATA "; B1A B$(A$,B,1) (B$);:ABĺ","; :: " 430 FOR B=1 TO (--)":"INSERT CHARAd:430::n"THIS PROGRAM DISGUISES YOUR COPYRIGHT":"AND CREDIT LINES IN APPLESOFT PROGRAMS."::"JUST APPEND THE SMALL PROGRAM THAT IS"x"LEFT BY THIS PROGRAM TO YOUR PROGRAM." }:"A MAXIMUM OF 118 CHARACTERS MAY BE INPUT":"AND COMMAS  ` 5I` 5Iй` f f`LǶ`8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   & `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4H۰hЅѠȱ0@ȱHШhh0J L赟0Lճ0ܤ } ɱL赟L0ܤ } ɱL ` ` [ S oP YVPL6 ɯO ɯ5OPLɯ Ι_LfP0Q@PPxA@QPa`qpʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ģL:L``F`$ ܪȱ Lܤ`Ś25 a0 ǧLJK 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLè آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː L(n ģ ģrLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䮴xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKLˮ qL ȩ` 6` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL࣠{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg ::"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     :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------Q( 7:"CHEYENNE * WY * USA * 82009":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND AAA" X112 1:X1:A$; X:" ";:Z125:Z:X JOY AND USE."6 6:"-- PLEASE, SEND 3A A COPY --":c "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpd3A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$,173:1010,17:1011,192:1012,104:1013,76:1014,240:1015,253] (1016,76:1017,218:1018,3g 21016p <976 F WILL WORK WITH BOTH VERSIONS OF DOSwING MODES IF THIS PROGRAM IS ACTIVE."} 986,169:987,227:988,133:989,54:990,169:991,3:992,133:993,55:994,96:995,72 996,173:997,1:998,192:999,16:1000,8:1001,173:1002,17:1003,192:1004,173:1005,1> 1006,192:1007,16:1008,251:1009IS PROGRAM WILL REMAIN ACTIVE UNTIL DOS IS RELOADED OR THE MACHINE IS PLACEDBACK INTO INTEGER BASIC MODE." " USE THE'INT STOP LIST'VERSION TO LIST PROGRAMS WRITTEN IN INTEGER BASIC.% " DUE TO'POINTER DISTRUCTION' DOS SHOULDBE RELOADED WHEN CHANG"IF THIS PROGRAM IS BEING RUN ON AN APPLEWITHOUT THE APPLESOFT II ROM CARD:LOAD, CALL 3314, THEN SAVE IT BEFORE RUNNING."" YOU MAY NOW LOAD AND LIST ANY PROGRAM WRITTEN IN APPLESOFT II. USE ANY KEY TOSTART/STOP THE LISTING."j " TH   . TAYLOR  I133! A, (A);2 8 > D   32,32,32,32,32,32,87,82,73,84,84,69,78,32,66,89,32,67,82,65,73,71,32,67,82,79,83,83,77,65,78,10,10ILETE"/ "THE PARENTHESES WHEN INSERTING THE"I "CHARACTER LENGTH!)" "THEN CLEAR SCREEN, DELETE LINE #470":"AND TYPE RUN."   "THE INVISIBLE SIGNATURE"  BY CRAIG CROSSMAN  FROM SOFTSIDE, 4/80, P 3