' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#:D$;"CATALOG" ! D$(4)9 "PRESS RETURN";KY$P D$;"UNLOCK HELLO"e D$;"SAVE HELLO"n 510 ,11 11 E10$ E381310 E1E11A E114E114Z 11:E:(E$,E1);" "a Ej ,250{ Z11000:Z ::D$;"CATALOG" " E ,250 6::::: J:" "; T:" PRESS RETURN KEY TO CONTINUE ": KY$ :  :D$(4)6A$"SOFTWARE TO-GO/ABIILENE"NB$"ABILENE, TEXAS"dd34,7:35,7:32,7pi210:7nA1(A$)x(A$,A)A:25035,23:32,10B218134,B:936B$:C$Z190:ZB :210:34  Š٠ԠŠŠԠˠݠˠȠĠȠˠȠŠȠ٠ȠDDɠ Fi`Li`ɩ$$ ©$Ԙȩȩۑȭ ȩݑȩȄ! `) )  Ff8`ǠΠˠĠˠ l Ji8  Ѕ# P# Ѕ# P#! `FEɠL 8kE888"8(8.pGLXLiLzLЅ `Li80!i ~x ɖs v w { n .s  w s ܩ8s l `` '` ~'΅    ~ m i '  ~i#΃ и 410 D$(4)$ D$;"EXEC";N$* C";N$A DBCPCLXpT{ERWCO(B0PAX`ECkC ADmNIxPACE" ::19:"OR": 12:"PRESS ESC TO EXIT" A$ (A$)27Ā BC 36,0 E64ĺ"DRIVE ERROR":: E128ĺ"READ ERROR":X "SOMETHING WENT WRONG":f :10:13} "INSERT NEW DISK" :13:"AND PRESS SPACE" ::19:"OR": 12:"PRESS ESC TO EXIT" A$ (A$)27Ā BC D$ 1030 AD":1400 C$"LOAD":14003 C$"UNLOCK":1400< 410i (:12:"ARE YOU SURE YOU WANT TO DELETE"v -:N$;: 2405:A$:(A$,1)"Y"ČCLGAR:1050 <C$"DELETE":1405 FC$"VERIFY" x410 }D$(4) D$;C$;N$ 1020  492+ I130:N$N$((ADDR)):ADDRADDR1:1 9 BCR E(ERRC):E01500_ C(COM)m $C01100 .C1150,1200,1250,1300,1350,2000 L(B)194C$"BRUN":1400 Q(B)2123000 VC$"RUN":1400 ~C$"LOCK":1400 (B)194C$"BLO SUPER-CAT BY DR. MICRO- (C) 1985H( DELETE O.K.-10-10-85T@D$(4)`MBC3328oTCLGAR3463y^T251hERRC3448rCOM4165|B4166PAGE34621020(PAGE)0ĹPAGE,(PAGE)1ADDR(T)256(T1) N$""    ALL RIGHTS RESERVED > *************************** BN27ė: L:B :8::"PRESS ANY KEY TO CONTINUE";:^ X(16384):X1282005l 16368,0t : *************************** WRITTEN BY NEVILE STOCKEN COPYRIGHT 1986 PUBLIC DOMAIN EXCHANGE - PRESS 4"? 17:4:"QUIT - PRESS ESC"t $19:2::"YOUR CHOICE?";::N$:N(N$):N1(N$) .N11TI$"SYNOPSIS"::100:1000 3N12TI$"START"::100:1000 5N13TI$"INDEX"::100:1000 8N14ė:D$:D$;"RUN MENU":000:  , 5:2::"CHOOSE ITEM":I 7:2:"DO YOU WANT TO:"y 9:4:"READ SYNOPSIS - PRESS 1" 11:4:"READ HOW TO START - PRESS 2" 13:4:"READ INDEX FILE - PRESS 3" 15:4:"RUN A PROGRAM ? 700(T$(1))2D$(4)3Z1000Rd:D$(13):D$;"OPEN";TI$eD$;"READ";TI$m,A$@(A$)95(A$)123A(A$)32:A$(A)T1$T$A$:T1$;(A$)7İ2000::300(A$)0300D$;"CLOSE";TI$  2 ::D$;"RUN HOWDY" $ D$(4)< "PRESS RETURN";KY$S D$;"UNLOCK HELLO"h D$;"SAVE HELLO"q 510 34,B:936 B$:C$( Z190:Z/ BA :190:34,11I 11R E10b E38141n E1E11 E114E114 11:E:(E$,E1);" " E ,250 6::::: J:" "; T:" PRESS RETURN KEY TO CONTINUE ": KY$ s  :D$(4)9A$"THE PUBLIC DOMAIN EXCHANGE"UB$"2076C WALSH AVENUE"t(C$"SANTA CLARA, CA 95050"2E$"(408) 496-0624"d34,7:35,7:32,8i190:7nA1(A$)x(A$,A)A:25035,23:32,11B2181 "C$ %T$"0":I1:2880  I1(H$)1  P$(H$,I,1)B " P$"."2870I , I\ 6 T$(H$,(I1))l @ R(H$)2Iz J R52920 T H$(H$,(I2)) ^ R4 h R2930,2930,2950,2970 r C$"00" | 2980 C$(H$,1)"0" 2980 C$(H$,2) NS$T$".  K15AMOUNT(K)*AMOUNT(K)1K<LK15MVJJAMOUNT(K)W`2800hjSAMT$(K)NS$otKu~K1515(SAMT$(K)))SAMT$(K)K 120,54.3,27.15,.05,0.25 FORMATTING ROUTINE H$(JJ)  (H$,1)"." rq-rq-rq -rq -rq -rqNu_ N KM6 o P a(ϠԠӠƠŠ)oQ)8HNd"eM6PS(Π)'`$4RNKM6Ld6?efUV(W/iŰj'kY\Nfq\aN`$ N"fNq.?6@rd6?e`$fNpN_ N<0uO4rD4rD4 rC@"(rD4r-rq-rQDu-\[- NKM6Poa(ϠԠӺ)"Ncc3*NP a(Ġ)cP a()c74NP a(Ԡ)cP a(̠)c9>NP a(̠)cP a()c$CNP a(٠ҠҠϠWf-rUVWqlŰm/nYqY*[ Kd6?ecM6! UVW&XUVWX oPa()G YY []̠"UVW lm.nY[]ڠ&UVWij'kY[p\Ӻ) c\dc#a(ŠϠҠҬ)c+S(ҠǠŠҠՠή)'`$BM6Ld6?e(fd6?eUVW'lŰm/nY" q.?6@rd6?e`$ _B[ ]EqUV),PԱa(͠)GPԲa(),PԱa(Ԡ)GPԲa()[ oPa(ԭپ)"q.?6@rd6?e`$_0u KM6&Pa(ҠŠƠĠ)c(a(ŠӠŠΠƠԱqԲq'nPԱa()GPԲa()*xPԱa()GPԲa()*PԱa(ˠ)GPԲa()'PԱa()GPԲa(),PԱa(ˠ)GPԲa()'PԱa()GPԲa(<a(ԠŠ٠Ġ٠Ԡ֠έ)-Aa(ŠŮŠӠϠŠ),Fa(Ҡ̠٬ĠŠ)(Ka(ϠŠŠŠ)Pa(ҠӮ) UcP%Za(ӠŠԠƠŠӺ)_c\d_d]ϠӠ]Π٠]̠Π]]] KM6P a(Ҡ) cP#a(Ϡ) 2cP*7a(ӠŠƠؠԠӠ)-   67L)L BRUN UN-NEW"230 SOUND ROUTINE6EP768781QD:P,DW] S2,89,32,49,57,56,49,190,190,197,197,199,189,190=8:64578c"I'M COPYING THE PROGRAM NOW..."rT768972~D:T,D(4);"BSAVE UN-NEW,A$300,L$CD""OK, UN-NEW IS ON THE DISK AND READY TO""USE, JUST TYPE:":" 0,32,88,252,160,0,185,156,3 9,128,153,14,4,200,192,12,208,243,160,0,185,168,3,9,128,153,5,5,200,192,30,208,243,169,22,133,37,32,63,255,96,62,62,32,85,78,45,78,69,87,32,60,60,66,89,32,69,68,87,73,78,32,71,79,69,73,32,32/ 32,32,70,69,66,82,85,65,877,250,240,27,234,24,216,169,1,101,250,133,250,169,0 101,251,133,251,144,233,32,221,251,32,221,251,24,144,74,234,200,177,250,208,225,200,177,250,208,220,24,216,169,4,101,250,133,175,133,105,133,107,133,109,169,0,101,251,133,176,133,106,133,108,133,11T TIME."f23p! COPY[ 162,255,173,48,192,169,8,32,168,252,202,208,245,964 32,74,255,160,0,185,5,8,201,0,240,11,234,200,208,245,32,221,251,24,144,54,234,24,216,152,105,6,141,1,8,169,8,105,0,141,2,8,169,5,133,250,169,8,133,251,160,0,1:64578)768A*"TO HAVE YOUR FREE COPY OF UN-NEW, SIMPLY";J3768x4"ANSWER YES AND I'LL COPY IT ON TO YOUR"=768>"DISK. DO YOU WANT A COPY OF THIS"G768H"PROGRAM? ";IN$R(IN$,1)"Y"900[768\:"WELL, MAYBE NEX" BRUN UN-NEW" 768&/768U"AFTER RUNNING UN-NEW, THE LAST"^ 768 "APPLESOFT PROGRAM WILL BE RECOVERED"768"READY TO BE RUN, LISTED, OR SAVED."76823:"PRESS ANY KEY TO CONTINUE ";:AA$:(13); 88( 23:"PRESS ANY KEY TO CONTINUE ";1 AA$= (13);K 8:64578T 768 "UN-NEW IS A MACHINE LANGUAGE PROGRAM" 768 "THAT IS LOADED IN PAGE 3 OF MEMORY AND" 768 "EXECUTED BY TYPING THE COMMAND:" 768  768. D"HAVE BEEN ENTERED AFTER THE NEW COMMAND"7 M768_ N"ALTHOUGH ANY IMMEDIATE EXECUTION"h W768 X"COMMANDS CAN HAVE BEEN ENTERED. ALSO," a768 b"NO APPLESOFT PROGRAMS CAN HAVE BEEN" k768 l"LOADED AFTER THE NEW COMMAND." 76 THAT HAS BEEN ERASED BY A NEW"( 768U "COMMAND. THIS PROGRAM WILL ONLY WORK"^ %768 &"DIRECTLY AFTER A NEW COMMAND. NO" /768 0"ADDITIONAL PROGRAM STATEMENTS (COMMANDS" 9768 :"WITH LINE NUMBERS PRECEEDING THEM) CAN" C768==============" D11500:+ T1202 5V (A$,21T,T);41T);(A$,21,T)u I(S)(S)(S)(S)(S) D125: D11500:  INSTRUCTIONS 768 "UN-NEW WILL RECOVER THE LAST APPLESOFT" 768 "PROGRAM !-  -----------------------9  ? dL fS16336X iT115_ l1 nT);">>";18);"UN-NEW";40T);"<< " pD150: s v2000 x6);"BY EDWIN GOEI FEBRUARY 1981" A$"==============INSTRUCTIONS_  -----------------------= ! ![ ! UN-NEW !y ! INSTRUCTIONS ! ! ! ! EDWIN GOEI ! ! ! ! FEBRUARY 1981 !  !       J 6ؘiiةee Jȱȱةeikmejln X   % ?`>> UN-NEW <a(Ԡ)Gd2Y_Yq.?rq.?r`$x @p()[q.?rq.?rq.?rq.?!rq8rq "\[+]Π͠,N@"rC@"rC@"_,d]ˠҠŠŠnqq q;@rxq\LUV WX#`.?r$`.?r$,UVW`.?r<@*#rr$Y`$*UVW`.?r$ 6d<e8.?rrd=e.?r8.?rrkd>e8.?<r[rd?e.?=r8.?<r[rdBedCede.?>rde.??rM6_   ȱȥ     ȱ `   Lb      < 0` p؈856CHARS?F INCA4H-NEWPAGE P RETY1RTSZ BRKd *n *TEDISSEMBLER.Sx * .EN5RIDOFEXTRASPACES BNERET INCFLAG BNEOK * * COUT2ALDYINDEX8 STA(A4L),Y-PUTSASSEMBLYLANGUAGEINTOSOURCESTR CMP#$8D-ENDOFLINE? BNERETY  LDA#$0  STACH ( RETYINY2 STYINDEX#< BNERETY1-STRING>2RK * *$ *. COUT2JSRSAVE 8 LDACH B CMP#$146L BCCRET-IGNOREFIRST20CHARSINMONDISASSLINE V LDAACC ` CMP#$A0j BEQTFLAG t LDX#$0 ~ STXFLAG OKJSRCOUT2A RETJSRRESTORE INCCH RTS+ TFLAGLDXFLAG-GETJSRCOUT2ALDAINDEX-STAENSRC-TELLTEDIIWHERESTRINGENDS LDAA4HSTAENSRC1!LDA#$FF-MARKENDOFSTRINGJSRCOUT2A(JSRRESTORE-PUTMONBACKTONORMALLDA#COUT1 STACSWLLDA/COUT1 STACSWHRTS BAG. JSRINSTDSP-MONDISASSEMBLER,CALLSCOUTJSRPCADJ-PCADJUSTER STAPCL *CMPA2L 4STYPCH>BCCAGAINHBEQAGAIN RCPYA2H\BCCAGAINf*8pJSRSAVE-PROTECTREGISTERSWHILEWEFINISHOFFSTRzLDA#$8D-PUTONACRALvJMPRETRY GOTRTS***DISSLDA#$1D/STAA4H-DESTINATIONFORASSEMBLYLANGUAGE)LDA/COUT2-SWITCHCHARACTEROUTPUT STACSWLLDA#COUT2 STACSWH LDX#$1JSRA1PC-PUTSA1INPCAGAINLDA#$0 STAFL*ADRSLDX#$0 &JSRNXTCHAR-TAKESINREPLY0RETRYLDY#$08:JSRGETNUM-PUTSADDRINA1&A2IFMODE=0;ELSEINA23DCMP#$C6="CR",AFTER'GETNUM'HASBEENATIT NBEQGOTXLDA#$24'$'bSTAPROMPT(lJSRGETLN-GETAPROPERHEXADECIM^* hLDY#$0 rINCMODE0|LASTLDATBLL,Y-PRINTSLASTADDRESSREQUEST JSRCOUTINY CPY#$A BNELAST JSRADRS JMPDISS**TBLF.AS-"HEXADDRESSES:".HS8DA0A0.AS-"FIRST?$"TBLL.AS-"LAST?$"*.OR$7226DECIMALEQUIVIS29222***NOPFROMMON,USE7227GJSRZMODE-MAKESY=0STYINDEX STYCH STYA4L*2"FIRSTLDATBLF,Y-PRINTSFIRSTADDRESSREQUEST ,JSRCOUT6INY @CPY#$19JBNEFIRST TJSRADRS2ACC.EQ$45<INSTDSP.EQ$F8D0FPCADJ.EQ$F953PGETLN.EQ$FD6AZNXTCHAR.EQ$FD75dCOUT.EQ$FDEDnCOUT1.EQ$FDF0xA1PC.EQ$FE75RESTORE.EQ$FF3FSAVE.EQ$FF4AGETNUM.EQ$FFA7ZMODE.EQ$FFC7.TFTEDISSASSEMBLER%TURNTOTED**INDEX.EQ$6FLAG.EQ$7ENSRC.EQ$EENSRC1.EQ$FCH.EQ$24MODE.EQ$31PROMPT.EQ$33CSWL.EQ$36CSWH.EQ$37PCL.EQ$3APCH.EQ$3B A2L.EQ$3EA2H.EQ$3FA4L.EQ$42(A4H.EQ$43Y ***TEDISSEMBLER*^^^^^^^^^^^^* *BYDAVEEDMUNDS,014AUG80$*.*8*B*PROCEDURE:L*-RUNTEDII+V*-LOAD,ASM,TEDISSEMBLER`*-QUITTOBASICORMONITORj*->CALL29222,OR*7227Gt*-GIVETHEADDRESSES~*-RE        $:B$ 2T pHEX$"3B0: 20 E3 DF 85 85 84 86 20 BE DE 20 E3 DF A0 02 B1 85 48 B1 83 91 85 68 91 83 88 10 F3 60 N D823G"I1(HEX$):511I,((HEX$,I,1))128::72,0:144:1013,76:1014,176:1015,3 1013,76:1014,176:1015,3A$,B$A$,B$ (A  GARBAGE COLLECTIONH&STRING1$,STRING2$:..$ EXAMPLES1 &A$,B$P $A$ (J+9,K/4),B$(I) n , HERE IS ANOTHER EXAMPLE 6"FIRST STRING>";A$ @"SECOND STRING>";B$ JA$,B$ TA$,B$ h330: r THIS SWAP USES NO ADDITIONAL STRING SPACE, THUS AVOIDING :72,0:144: DUMP BUFF TO MEMORYQ 1013,76:1014,176:1015,3: SET & VECTOR ROUTINE IS COMPLETELY RELOCATABLE WITH NO ABSOLUTE REFS EXCEPT TO APPLESOFT ROM IT CAN RUN JUST AS WELL AT $800,$2000,OR ??? FORMAT TO USE IT AS FOLLOWS ..:Ad "STRING SWAP" BY RANDY WIGGINGTONnHEX$"3B0:20 E3 DF 85 85 84 86 20 BE DE 20 E3 DF A0 02 B1 85 48 B1 83 91 85 68 91 83 88 10 F3 60 N D823G": GET ASSEMBLY LANG INTO KBD BUFFER# xI1(HEX$):511I,((HEX$,I,1))128:   ` `L  L ` `BEGINNING ADDRESS: ENDING ADDRESS: SEARCH BYTES: ASCII OR HEX SEARCH? ASCII BYTES:  XZ  L L >?n  L L <= . L L7 S  L LG ɍL LT S   L LyH h? ȥ> ȥ߄ S  Li u S ` ɍ LJʩ  235,76,237,253I Processor Test !100'C("This Apple has a 65";M2TESTg<"02 microprocessor."mFsPZ Initialization: dTEST700nXTESTTEST12x::Y::X,YX:128,2,234,96,169,184,235 169,195,  E TOP OF THE PAPER?":YE$>(YE$,1)"Y"1200PG$;D$;"PR#1"[(12)mG$;D$;"PR#0"w&1000 :10::"PRINTER SET PROGRAM II":*4::>"PRINTER IS AT TOP OF PAPER" I TESTING-*******************************N" DO YOU WANT AN EXAMPLE ?"WUV$iUV$"Y"510{"# LINES:";L"TYPE YOUR LINE HERE:";EW$G$;D$;"PR#1"I1LEW$IG$;D$;"PR#0"&"DO YOU WANT TO ROLL TO TH****************** ACTUAL SETUP LINESO*******************************aG$;D$;"PR#1"oG$;(SO)E$;(B(A));(SO);E$;B$;E$;CC$;E$;DD$;E$;RS$D$;"PR#0"" THE PRINTER HAS NOW BEEN SET."*******************************" @::CC$' ECC$(13)CC$(65)> YCC$"B"CC$(66)L ^800:820e h"UNDERLINED? (Y/N)"n rDD$ |DD$"Y"DD$(88):391 DD$(89) 800:820:"UNIDIRECTIONAL ? (Y/N) ":RR$:RR$"Y"RS$(62):400 RS$(60)**************D OUT WHY A$G$A3:210( I07@ A$AA$(I)AI:210G IP 800Y 820o 10:"BOLD? (Y/N)w B$ (B$,1)"Y"B$(33):270 B$(34) 800 820 5:"SPACING:" ":"A-1/6 INCH (NORMAL)" ,:"B-1/8 INCH (CLOSE)ULT IS PICA (C)" A$D A$"B"A$"D"A$"F"A$"H"SO14:180h G$;D$;"PR#1":(15):D$;"PR#0" IT WOULD BE ALOT CLEANER IF I DIDN'T HAVE TO PUT THIS LINE HERE BUT IT DOESN'T SEEM TO WORK WITHOUT IT AND I CAN'T FINRTIONAL DOUBLE WIDTH" * "C--PICA"0 L "D--PICA DOUBLE WIDTH"R b "E--ELITE"h "F--ELITE DOUBLE WIDTH" "G--COMPRESSED" "H--COMPRESSED DOUBLE WIDTH" ::"CHOOSE THE LETTER OF THE OPTION" :"DEFA,81 AA$(8),B(8) I07+ AA$(I)2 I= I07G B(I)N I[ E$(27)p G$(13):D$(4) Z******************************** [ MENUS \********************************* d800 "A--PR0PORTIONAL"  "B--PROPO'********************************M*PRINTER SET PROGRAM FOR C.ITOH*s* GARETH TOBLER,M.D. ** * ******************************** "A","B","C","D","E","F","G","H" 80,80,78,78,69,69,81     @@ 0:ȡHe@ hhл`Ie@҈0 鈘 ȡ ?@ He@ h0Hh̘hЦ, Ї @@#0 `0  0 DDER.":"%";A$ PA$""Ā] U:" "::20:16368,0:X$c W ZD$"BSAVE"A$",A$4000,L"((0)(1)256)16384 d"DO YOU WANT TO PACK MORE? (Y/N) ";:X$:X$"N"Ā i: n30 ::"--:--ERROR--::--": 313)ĺ:D$"CATALOG"::30& )A$":"ĀN *A$"/"ĺ:(4)"RUNPICTURE DISPLAY"_ -A$(27)60x .A$;:"";X$:A$A$X$ 2D$"BLOAD"A$",A$2000" <4096 F"DONE. ENTER THE NAME YOU WANT TO SAVE THE PACKED PICTURE UN ::D$(4)G"THE PICTURE PACKER":" BY JOE LINHOFF":34,2eD$"BLOADPIX PACK,A$1000"o200"NAME OF PICTURE - 'RETURN FOR CATALOG - (ESC) TO PACK THE PICTURE IN MEMORY %";:A$ (A$(    ,0:16302,00 P16368,0:16384,128:16368,08 Z30U :"--::--ERROR--::--":] 40 -PRESS (ESC) TO DISPLAY THE SCREEN THAT'S PACKED NOW. %";:A$] -A$(27)70k .A$":"Ā /A$"/"ĺ:(4)"RUNPICTURE PACKER" 2A$(13)ĺ:D$"CATALOG"::40 7A$;:"";X$:A$A$X$ <D$"BLOAD"A$",A$4000" F4096 K:16297_  D$(4)G THE UNPACKER IS COMPLETELY RELOCATABLE N pD$"BLOADPIX UNPACKER,A$1000"z200:#"THE PICTURE UNPACKER/DISPLAYER":" BY JOE LINHOFF"::34,2L ("PICTURE NAME -PRESS 'RETURN' FOR CATALOG  LL-`  <$<&<ʊ XH`+HP) +V '&=Iɪ꽌ɵ (I٠**<%<(=о<Y<<Y<&，YЍ`J>J><& <&3*  A):D$;"PR#0"+N"THIS IS A TEST FOT EH"1VDEī10000I10Ā'#(#%%+'1'7t'F ND$;"PR#1"e*ND3ĺESC$;(42D);:20030t4NESC$;"1";>NE80:C2E81HNECS$;(84);ESC$;(E):B3ĺESC$;(70);:20060RN(69)\NESC$;:B1B3ĺ(2);:20080fN(71);pNESC$;(63TYPE1:I4A2:)I5A1:8I6C2:GI7C1:Y I8TYPE2:iI1020000o?@I9J1::520I1B1:I2B2:I3B3:C2:I4B4:C2:I5DD1:I6DD2:I7DD3:I8D1Ĺ36,((I7)FW)'PIID8S$(J,I)::END5ıd|I1I5D1:2900:5700I6INDİ4400:II6:D1:TP:3700DII4INDIND1 p4800XJ28000I9J2::520I1ī9000I29500 I INDĺ"HELP" T & TP9 36,((I1)FW)F S$(J,I)NH TPThtD1Ĺ36,(IFW)D1Ĺ36,((I2)FW)<IIDS$(J,I)h0TP136,((I6)FW):S$(J,I)\TP1$D1Ĺ36,((I5)FW)IONS","BOOT A NEW DISK" 9 I1D1İ2900:IND1:4800_ 4(I1I5)(I1D1)İ2900:3700} I6D1İ4400:TP:3700 I5D1İ2900:4800 ` I5D1İ2900:3700 (I5IND)(INDD1)İ4400:4800( INDD1İ4400:I0:TP:36,0:3700GRAM,FILE SAVED AND SWITCHES SET"  "SINGLE STRIKE ","TWO VERTICAL STRIKES","TWO HORIZONTAL STRIKES","QUADRUPLE TRIKES,SET TO 80 CHAR/LINE","BEATS ME"   "SAME","AGAIN I DON'T KNOW","EXIT TO THE EDIT/SWITCHES SET AND SAVED","CONTINUE WITH MORE OPT.STATUS FILE","SAVE MX.STATUS FILE AND SET PRINTER" "SET SWITCHES FOR THE MX80/GRAFTRAX80","SET TO ITALIC FONT","SET TO STANDARD FONT","SET TO 10 CHAR/IN"!  "SET TO 132 CHAR/IN","SET SWITCHES FOR THE MX100","CONTINUE WITH MORE OPTIONS","EXIT PRO {  "LOAD ","SAVE ","MX-80 ","ITALIC ","STANDARD","80 CHR ","132 CHR ","MX-100 ","MORE ","EXIT " l "SINGLE ","DOUBLEV ","DOUBLEH ","QUAD ","SPACE0 ","SPACE1 ","SPACE2 ","EDIT ","MORE ","BOOT " 3 v "LOAD MX::% J12:I1ND:EX$(J,I)::- J17 :TPO &I1ND:S$(J,I);:W XI1e TP:36,0t :S$(J,I) :TP5:868:EX$(J,I): L768:CH(783)128 CH32İ5400 CH8D1:2000 xCHAR21D1:2000 CH13İ7000 @9002 @ 768,44:769,00:770,192:771,16:772,251:773,173:774,00 775,192:776,141:777,15:778,3:779,44:780,16:781,192:782,962D$(4)<ESC$(27)dn:I1160:" ";::TP2:TP,FW8ND10J12 I1ND:S$(J,I)        ?rE(Ԡî)FE(ΧԠŠԠ) q_k̠)'q| qde q (q2`$  7`$P<_Pq Qq RqZ|i`.?r$ kq nqs`$R x`$_Z%a(ŠҠƠĠӠӠ)FQ:a(Ԡ)F.<2M6c]Π٠̠Ҡ%a(٠)cJa(ՠΧԠԠ٠Ġ٠ӠͬԠŠҠנ)c4S(ԠŠҠԠԬΠ̠)'4S(ԠŠҠԠԬΠ   ``H  G h G  R `` ` `START ADDRESS:  END ADDRESS: MEMORY OK!--->6502 MEMORY CHECK<--- ) ` )80 08`x Ʉ` Ʉ` X" X " X( R X Ʉ  R R h Ʉ   R ( " X  G G   G G R LL` :     L :     ȭ    OCCURED ON LINE #";Y15(F$))2:" ";: F$;""4 CT140:"-";::= 425c 24:"PRESS ANY KEY TO CONTINUE";q %16368,0 *X(16384):X127830 4810 >""::LN0:425 Y(222):Y1(218)(219)256:Y5Y42470 "THE ERROR TYPE IS #";Y"ANDE **" I140:"-";:7 Y1$"Y"āI161LN2::G :D$"PR#0"p Y1$"Y"Ģ10:5:"** END OF FILE **"v   --- NEWPAGE ROUTINE PG0720 CT18:: PGPG1:LN0 " FILE LIST REV 3 PAGE ";PG: "";:CT1(4 hD$"READ";F$ rT$* wT$(13)4009 |DA$DA$T$B 370H Z Y1$"Y"420i LNLX700z Y1$"Y"425 LN20800 Y$"Y"440 :"<";(DA$);">";: DA$:LNLN1 DA$"" 370 D$"CLOSE";F$ " ** END OF FILI,O,C", ,:" ** FILE LIST REV 3 **"::B 6"FILE NAME? ";F$i @"PRINT RECORD LENGTHS (Y/N)? ";Y$ EY$"Y"Y$"N"320 J"OUTPUT FILE TO PRINTER (Y/N)? ";Y1$ OY1$"Y"Y1$"N"330 TY1$"Y"ĺD$"PR#1":LN1000:LX55 ^:D$"OPEN";F$ Z * NOT TO SELL *9 d* *U i* REWRITTEN IN *q j* APPLESOFT BY * k* MARC B. GOLDFARB * n* * x********************** 5000 D$"":PG0:LN0:DA$""  D$"NOMON3-13-80 2015 HRS5 **********************R * *o * *( * FILE LIST PROG *2 * *< * (C)1978 MICROSEEDS *F * * P * PERMISSION TO USE, *  :(10402<:@FDONE - PRINT INPUT STRINGFP:eZ:"YOUR INPUT STRING IS:"wd:T$IN$:180n:CV27 = 'ESC' KEY`:%jT88404tT131330B~T21610PT27300V:rMUST BE A NORMAL CHAR.x:370:ADD TO INPUT STRING:IN$IN$T$:PRINT THE LAST CHAR.:180 :GO FOR MORE DATASTRING ::2"TYPE IN YOUR STRING:":ILC2:IN$"":">>";O:rGET A CHAR & CONVERT TO ASCIIx:T$:T(T$):$CHECK FOR CONTROL CHARS..:8 8 = BACK ARROWB13 = CARRIAGE RETURNL21 = FOWARD ARROWAR. A STRING AGAIN :( T$(T)2 12408 *:S 4BACK SPACE SUBROUTINEY >:k HT$;:L(IN$) RL2IN$"":1040 \IN$(IN$,L1) f1040 p: zMAINLINE PROGRAM STARTS HERE : SET UPPER CASE LOCK ATSTART & NUL INPUT vGET ADDRESS OF T.V. LINE4 BASL(40)(41)256: :W GET THE CHARACTER THERE] :n T(BASLCH)t : CONVERT TO ASCII PROPER : T128TT128 :  T < 27 MEANS INVERSE LETTER : T27TT96 :  MAKE CHASE :! LC0: SET L/C FLAG/ T$"A"ı= T$"Z"ıC :[  CHAR. IS A LETTERa :r T$(T32):x &: 0RIGHT ARROW SUBROUTINE :GET NEXT CHAR. FROM SCREEN D: NGET CURRENT CURSOR LOCATION X: bCH(36) l: 61040 @:) JMAKE L/C SUBROUTINE/ T:J ^RETURN IF U/C LOCK ONP h:\ rLC2ıb |:{ RETURN IF 1 U/C SET AFTER RE-SETTING L/C : LC0LC0: : L/C FLAG IS ON - CHECK IF CHAR. IS A LETTER IF SO, MAKE LOWERCOWERCASE LETTERS IN- INVERSE VIDEO FORMAT3 :B (T$)1ıQ I1(T$)d M((T$,I,1))r M97230 MM32: (M);: : : L/CASE CK FLAG SUBROUTINE : IF U/C LOCK, MAKE L/C ": ,LCLC1:LC3LC02L/C INPUT IN BASIC7:=<WRITTEN BY: JERRY RIVERSCA:[FTHE MICHIGAN APPLEqPSOFTWARE LIBRARYwU:ZJANUARY 1980d:nENTERED BY MARC B. GOLDFARBs:x1000: MAIN PROGRAMSUBROUTINE TO PRINT ALL L  180 (1040 26 Z:"YOUR INPUT STRING IS:"H d:T$IN$:180P n:TT96 T$(T) 1240. HT$;:L(IN$)D RL2IN$"":1040W \IN$(IN$,L1)a f1040i : "TYPE IN YOUR STRING:": LC2:IN$"":">>"; T$:T(T$) jT8840 tT131330 ~T21610 T27300 370 IN$IN$T$97230 MM32: (M);:( :? ,LCLC1:LC3LC0I 61040U rLC2ıf LC0LC0:~ LC0: SET L/C FLAG T$"A"ı T$"Z"ı T$(T32): bCH(36) BASL(40)(41)256 T(BASLCH) T128TT128 T27R2L/C INPUT IN BASIC7:=<WRITTEN BY: JERRY RIVERSCA:[FTHE MICHIGAN APPLEqPSOFTWARE LIBRARYwU:ZJANUARY 1980d:nENTERED BY MARC B. GOLDFARBx1000(T$)1ıI1(T$)M((T$,I,1)) M    T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m      :,1):J(K$)# J70J48İ800:509 J64JJ55:460L J57İ800:50W JJ48g :KKJ:MK~ M32767MK65536 800 " ";Z$;11);H$;21);K;31);M:50 CV(37):CV: *: BY DAVE EDMUNDS, 1 JUL 80 HEXCON(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 Fz   ,,(,   z`( )jjjj) j)jj)i ( 8H^jJJ h(  L/ ԠĠŠϠҍٍŠʵԠԠŠҠԍؠԠҠ؍ŠΠ؍٠ĠԠΠٍ٠ƠԠάҍàʷҠԠĠҠϠҍ ҠԍʷРбؠ͠Š̠àʶƠŠԠ̠ōҠԠҠϠӠύҠԠϠԠРˠϠŠŠϠ̠ӠŠԍŠʸƠԠȍҠԠĠŠϠҠ̠ҠʸҠѠʴӠРčŠϠԠŠҍÍàԍōʴŠٍ٠Ġ؍ʵҠ̠ӍؠԠ؍ʶҠҬؠȠԠϠٍҠȠ٠ϠؠвҫҠȠԍʳҩ٠ԠŠ͠ɭӠӠҠҬؠҠΠӠҍàŠԠōؠԠҍؠҠ̠àбϠԠԠō٠Ԡ΍٠ԠΠҠҠĠҫҫōҠĠŰҍҠҠĠҍҍРΠȠοѠʳȠƠΠҫԠȠōÍàĠҠΠz#ӠԠؠϠŠΨ̳̠éέנέנ٠ΠҠŠϠԠ  ŧӠҠ Ȩ̤² Ψĸ̤ ǠРϠ Р ҮӠ ŠӠ  Š٠ ŠҠ ؠˠ ؠҠ Ҫ ҠԠ Ƞ ̯àԠׯӠ ԠԠ ٠ˠ ٠ˠ̵ ٠Ԡ ̧ӠנԠ Π ! ԯΠ" ԯήʰ" ԯӠ ԯӮʰΠҠíˠ ̯àԠ  Π Π ȠŠԠ Ҡ ԠŠ ͠Π ҠҠ ƠΠׯӠ  ˠ٠3 ؠˠˠРɠˠРɮŠ(˯ˠҠ   ԠҠӠ ԠҠԠǠˠˠ̠ƠΠϠ٠ ՠ ҠŠɫɯ͠Ԡ WORD #";C; d" => ";W$(C)4 nW$(C)"ABCDE"130< x70Q SORT THE WORDSW u 15:13:"I AM THINKING."{ NWC1 I1NW1 JI1NW W$(I)W$(J)220 T$W$(I) W$(I)W$(J) W$(J)T$ J I PRINT THEW$(500)(u2"THIS PROGRAM WILL ALPHABETIZE ANY SET OFWORDS. TYPE THE WORDS ONE AT A TIME AS ASKED."<:"WHEN YOU HAVE ENTERED ALL THE WORDS YOU WISH TO, ENTER 'ABCDE' TO GET THE ALPHA-BETIZED LIST."FCC1P10:958 Z"ENTERŠ٠ԠŠŠԠˠˠȠĠȠˠȠŠȠ٠ȠDDɠ Fi`Li`ɩ$$ ©$Ԙȩȩۑȭ ȩݑȩȄ! `) )  Ff8`ǠΠˠĠˠ l Ji8  Ѕ# P# Ѕ# P#! `FEɠL 8kE888"8(8.pGLXLiLzLЅ `Li80!i ~x ɖs v w { n .s  w s ܩ8s l ``  %` ~'΅    ~ m i '  ~i#΃ и 410 D$(4)$ D$;"EXEC";N$* C";N$A DBCPCLXpT{ERWCO(B0PAX`ECkC ADmNIxPACE" ::19:"OR": 12:"PRESS ESC TO EXIT" A$ (A$)27Ā BC 36,0 E64ĺ"DRIVE ERROR":: E128ĺ"READ ERROR":X "SOMETHING WENT WRONG":f :10:13} "INSERT NEW DISK" :13:"AND PRESS SPACE" ::19:"OR": 12:"PRESS ESC TO EXIT" A$ (A$)27Ā BC D$ 1030 AD":1400 C$"LOAD":14003 C$"UNLOCK":1400< 410i (:12:"ARE YOU SURE YOU WANT TO DELETE"v -:N$;: 2405:A$:(A$,1)"Y"ČCLGAR:1050 <C$"DELETE":1405 FC$"VERIFY" x410 }D$(4) D$;C$;N$ 1020  492+ I130:N$N$((ADDR)):ADDRADDR1:1 9 BCR E(ERRC):E01500_ C(COM)m $C01100 .C1150,1200,1250,1300,1350,2000 L(B)194C$"BRUN":1400 Q(B)2123000 VC$"RUN":1400 ~C$"LOCK":1400 (B)194C$"BLO SUPER-CAT BY DR. MICRO- (C) 1985H( DELETE O.K.-10-10-85T@D$(4)`MBC3328oTCLGAR3463y^T251hERRC3448rCOM4165|B4166PAGE34621020(PAGE)0ĹPAGE,(PAGE)1ADDR(T)256(T1) N$""   d(4)"RUN MENU" nR+ 936:I10691099:I,32:I896,32:IRI11971867128:I,32:I30,32:I{11:9:"THE PUBLIC DOMAIN EXCHANGE"(13:9:"2076 C WALSH AVE."214:9:"SANTA CLARA, CA. 95050"<15:9:" (408) 942-0309"ZA12500:A_936     THAN THOSE CONTAINED IN THE SUPPLEMENT"7"IS USED."b::"THAT'S IT, FOLK!! NOW, ENJOY..."n29440t''23:7:"PRESS ANY KEY TO CONTINUE ";:A$:: H IS USED TO RETURN TO THE"06"SUPPLEMENT.":_>"CONVERT WILL STAY IN THE MODE SET UNTIL"H"ITS COUNTERPART OR A SLASH IS ENTERED."R10000\9"PLEASE NOTE THAT CONTROL IS RETURNED TO""THE MONITOR WHEN ANY FUNCTION OTHER"'"C58":!"WOULD BE DISPLAYED.",10000Y:"HEX VALUES ARE CONVERTED BY ENTERINGi:"^H":"THEN THE VALUE TO BE CONVERTED" :"^FC58":"WHICH RESULT IN" :"64400 -936":*"BEING DISPLAYED.":4"THE SLASALUE -936, YOU WOULD ENTER"+:"^T"r:"(THIS IS A NORMAL "(34)"T"(34)", NOT A CTL ";::"T";::")""THEN ON THE NEXT LINE":"^936"::"(MINUS SIGN NOT ALLOWED OR NECESSARY)":"AND THE CONVERTED VALUES":"03A8 F^"(34)", YOU MAY SET THE DECIMAL":H"MODE BY ENTERING"JN:"^T"zX:"FOLLOWED BY THE DECIMAL VALUE YOU WISH"b"TO CONVERT."l10000::"FOR INSTANCE, IF YOU WERE IN THE""SUPPLEMENT AND WISHED TO CONVERT THE""DECIMAL VRSELY, IT WILL CONVERT A DECIMAL"M&"VALUE IN THE RANGE OF 0-65535 TO ITS"w0"HEX AND TWOS COMPLEMENT HEX VALUE."2:"CONVERT IS REACHED FROM THE SUPPLEMENT"4"BY ENTERING A CTL ";::"T";::". ";:"ONCE YOU SEE THE""D"PROMPT "(34)"ED."10000>2:"A NEW FUNCTION HAS BEEN ADDED TO THE"o"SUPPLEMENT -- "(34)"CONVERT"(34)". THIS""ROUTINE WILL CONVERT A HEX VALUE""IN THE RANGE OF 0-$FFFF TO ITS DECIMAL""AND TWOS COMPLEMENT DECIMAL EQUIVALENT."!"CONVE MINI-ASSEMBLER BACK TO"2 r1:"THE SUPPLEMENT."8 tn |"THE "(34)"TRACE"(34)" FUNCTION ALSO USES THE" "SLASH TO TERMINATE. A CTL ";::"S";::" ENTERED" 1:"WHILE IN THE TRACE MODE WILL CAUSE A"1:"PAUSE UNTIL ANOTHER KEY IS PRESS(34)" AND"8 @1:"ALL MONITOR COMMANDS CAN BE ENTERED"j J1:"FROM WITHIN THE SUPPLEMENT, EXCEPT THAT" T1:"THE MINI-ASSEMBLER IS REACHED BY ENTER-" ^1:"ING A CTL ";::"A";::". A SLASH ("(34)"/"(34)") WILL CAUSE" h1:"AN EXIT FROM THEC AND THE REGULAR F8 ROM."M :1:"THE SUPPLEMENT MAY BE ENTERED FROM THE" 1:"MONITOR VIA THE CTL ";::"Y";::" FUNCTION IF YOUR" "1:"HELLO PROGRAM CONTAINS LINES SUCH AS":100110 ,10000 65:"THE SUPPLEMENT'S PROMPT IS A "(34)")"0 "APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"] 6:4:"THIS PACKAGE MAKES AVAILABLE TO" 1:"APPLESOFT/AUTOSTART ROM USERS THE MINI-" 3:"ASSEMBLER, STEP AND TRACE FUNCTIONS" 3:"PREVIOUSLY ACCESSIBLE ONLY THROUGH" 2:"INTEGER BASICONTROL CHARACTERS DISPLAYED IN INVERSE"X ^:3:"CARRIAGE RETURN REPRESENTED BY " b(4)"BLOADSUPPLEMENT":$8D00.$912F c10000 d29440: HIMEM SET TO $8D00 n1016,76:1017,0:1018,141:SET UP JUMP TO $8D00 AT $3F8 p ::8  :=8:"APPLESOFT/AUTOSTART ROM":14:"SUPPLEMENT"a2::10:"ORIGINAL ROUTINES BY"|<:13:"STEVE WOZNIAK"F::10:"APAPTED BY & "(34)"CONVERT"(34)P:15:"WRITTEN BY"T:15:"GUIL BANKS"V:X140:".";::( \:1:"      LIST  C1NW" W$(C)9 (C20)C20320l "23:"PRESS ANY KEY TO CONTINUE THE LISTING.";z ,JG$:JG$ 6 @C E::: J"THANK YOU."CLLOWING":" CONTROL CODE:"::12);"CONTROL-I 255 N":" DON'T WORRY ABOUT THE RETURN. THE":" PROGRAM WILL TAKE CARE OF THAT."22:12)"( HIT ANY KEY )":16384,128:16368,0::"CONTROL CHARACTERS (CONTINUED)":I140:"-";:NOL CHARACTERS"$D:I140:"-";:X:"1. AFTER YOU HAVE TYPED THE SLOT #,":" ENTER THE DECIMAL VALUES OF THE":" CONTROL CHARACTERS, ONE VALUE FOR":" EACH CHARACTER."6l:"2. FOR EXAMPLE, THE APPLE PARALLEL":" INTERFACE REQUIRES THE FOILL ONLY WORK IF YOU":" DO NOT NEED TO SEND CONTROL CHAR-":" ACTERS TO INITIALIZE THE INTERFACE.":" THERE IS PROVISION FOR THIS."::12)"( HIT ANY KEY )":KEY,128:X(KEY):16368,0:X155920:I140:"-";:0:7);"TO SEND CONTROAD APPLESOFT LISTPRINTER":"2. PUT YOUR PRINTER SLOT NUMBER AFTER":" THE 'CALL' INSTRUCTION. IF YOUR":" INTERFACE CARD IS IN SLOT #1 THEN THE";:" INSTRUCTION WILL LOOK LIKE THIS:":8)"CALL 27000,1:LIST:&"g:"3. OF COURSE THIS W7);"( HIT ANY KEY TO GO ON )":7);"( HIT 'ESCAPE' TO END )":KEY,128:X(KEY):STROBE,0:X155920 |16368,0::I140:"-";: :7);"EXPANDED 'CALL' INSTRUCTION" :I140:"-";::"1. LOAD THE PROGRAM YOU WISH TO LIST,":" AND BLTER THE FOLLOWING COMMAND:"8 8);"CALL 27000:LIST:&"m :11)"( HIT ANY KEY )":16384,128:16364,0: ,4:"NOW THAT IS ALL THERE IS TO IT. TRY IT THAT WAY TO SEE IF YOU CAN MAKE IT WORK." @8:" BUT THERE IS MORE, IF YOU WANT IT."f T18: PROGRAM YOU WISH":" TO LIST."I :"2. BLOAD APPLESOFT LISTPRINTER" :"3. CONNECT YOUR PRINTER WITH A 'PR#'":" COMMAND." :"4. SEND WHATEVER CONTROL CHARACTERS YOU":" NEED IN ORDER TO PRODUCE A 255":" CHARACTER LINE." :"5. ENES MEMORY LOCATIONS $6978 TO":"$6B34.":12);"( HIT ANY KEY )":KEY,128:X(KEY):STROBE,0j <X155920 d:I140:"-";: x10);"INSTRUCTIONS FOR THE" :6);"*** APPLESOFT LISTPRINTER ***" :I140:"-";:! :"1. LOAD THE APPLESOFT YOUR LISTINGS INTO 60 CHARACTER LINES."::"IT PUTS THE NAME OF YOUR PROGRAM AT THE TOP OF EACH PAGE, AND NUMBERS THE PAGES." (" < APPLESOFT LISTPRINTER.APPLEASM >":"IS THE SOURCE LISTING. IT IS PREPARED FOR THE APPLE ASSEMBLER."[ 2:"IT OCCUPIKEY16384:STROBE16368 ::I140:"*";::"*";40);"**";9);"APPLESOFT LISTPRINTER";40);"**";40);"*";:I140:"*";:7:19)"BY":14);"MIKE MACKAY"~ 10:"'APPLESOFT LISTPRINTER' IS A MACHINE":"LANGUAGE ROUTINE WHICH WILL FORMAT    ɰ$0 $` d' gɯ; Y ?ɀ> А H >Ii>?Ii> А,L gʆ ɯɰɹ)3} & &ee &}થi @ HIiIi @⩰# 祝.=D5֤4 J :3 g YɯLɠɤ ɓΊ x=    &B&C= 4ݴ ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL㎹ɠ`ޅ3 gʆ ɯY[ Y( Lh:h; G :LhHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8LyLjJ?>ʊ:>Ș;k/=:   S;:L O4 40K14 L= BC D.(ʈ3 g Y ɨH40 ^4Lم O4LHH11`HLiLˏ4Hh uLLLqli h,h-~<,ɓ,ɯL:B/ \`HL_l\@8)I:< ?L<EhH 0l  201,141,240,21,201,136: 240,17,201,128,144,13U 201,160,176,9,72,132o( 53,56,233,64,76,2492 253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002 d"ALL CONTROL CHARACTERS WILL NOW BE VISIBLE AS FLASHIN ée89L Copyright 1985 by Jim Popenoe All rights reserved )H  hh `,Ph,c0  0 I@hhɁɛH7hL4Íύ ȩ`0,c` 89LHɤ1 w Ɲh$(N O(HHc HIh +$ $߅hh,(,$)$%c0 ۰ (`ɕ(LX  AAAA0Ā9BB$((AA.005),(((AA)))3)N10(BB$));BB$V(10R.k kk.k` lj lj.k` lj lj j ljLj !k lji؅) Lj ljLlj lj (!`޺ҠΠР𠠠xi Xk 8k9k89 ɟ  Liɕ(LiɈ Liɍө85k8k9!! + )   祉 ٩LjSmjTnjHSjTLjɍ9PLljk lj<`LD ;"THAT'S ALL!": KTHAT IS WHAT HAS BEEN DONE IN THE":" EXAMPLE."s23:12);"( HIT ANY KEY )":16384,128:X(16384):16368,0:7:" FOR INFORMATION, INQUIRE:":11:14);"MIKE MACKAY":12)"14 PLAZA COURT":12);"NEPEAN, ONTARIO":16);"K2H 7W1"22:14)THE DECIMAL VALUE OF A":" CHARACTER, LOOK FOR 'ASCII CHARACTER":" CODES' IN THE INDEX OF THE APPLESOFT":" MANUAL."\:" IT MAY BE NECESSARY TO SET THE HIGH BIT. IN THAT CASE, ADD 128 TO THE":" DECIMAL VALUE IN THE TABLE."1p:" '5'":" 181 = DEC. VALUE OF NUMERAL '5'":" 196 = DEC. VALUE OF 'N'"} :" SO THERE YOU ARE:":10)"CONTROL-I 255 N" 22:12)"( HIT ANY KEY )":16384,128:16368,04::"CONTROL CHARACTERS (CONTINUED)":I140:"-";:{H:"4. TO FIND :"3. IN THIS CASE YOU WOULD TYPE:"::"CALL 27000,1,9,178,181,181,196:LIST:&"l:" GETS RATHER LONG!":" 1 = PRINTER SLOT #":" 9 = DECIMAL VALUE OF CONTROL-I":" 178 = DEC. VALUE OF NUMERAL '2'"H" 181 = DEC. VALUE OF NUMERAL 06,(106)1:2FUNCTIONS AND TOKENLVALUES. THESE CAN BEfFOUND ON PAGE 121 INTHE APPLESOFT MANUALSGN,210,INT,211,RND,219ABS,212,SQR,218,LOG,220EXP,221,COS,222,SIN,223TAN,224,ATN,225,+,200-,IF LEFT WITH CTRL C/>VARIABLES WILL BE LEFTFHONE PAGE TOO HIGHaRAND IF PROGRAM IS RUN}\AGAIN IT WILL CONTINUEfTO PUSH VARS UP. THISpWILL SOON RESULT INzMEM FULL ERRSO BRING VAR PAGE BACKDOWN ONE PAGE. 1ON  1260 4 USER PROGRAM FITS HERE: Z "EVALUATE FUNCTION AT >";V :E$;" EVALUATED AT ";V;" = ";A(V) "ANOTHER FUNCTION? ";R$ (R$,1)"Y"260  OFPROAM ** MUST NOT USE CTRL C * TO EXIT **4,177:A1A11 A1,0:A1A110 &A1,0:A11,06 0R :ADJUST NEXT LINE INDEXX Dq NA2,A1(A1256)256 XA21,(A1256) b lADJUST PROGRAM LENGTH vPOINTERS  175,A1(A1256)256 176,(A1256)  DEFINE FUNCTI h rI1(E$) |' J1161 F$,TK (E$,I,(F$))F$440R Je T((E$,I,1))w A1,T:A1A11 II(F$)1 I  PUT IN END OF LINE FLAGS, REUTNR, AND END OF PROGRAM FLAGS  A1,58:A1A11 A1NDEX TO NEXT LINE / RETURN HERE TO DEFE ANOTHER FUNCTIONK ] A1L7:A2L4m ::10:12 "DEFINE FUNCTION" "13 ,:"DEFINE THE FUNCTION IN TERMS OF X" 6: @"FUNCTION =";E$ JE$""320 T ^TOKENIZE FUNCTIONSEARCH FROM END OF. nPROGRAM UP FOR 'DEF'F xTOKEN WHICH EQUALS` 184 DECIMAL, $B8 HEXf L(175)(176)25620481 (L)184260 L:"NO 'DEF' TOKEN FOUND": A1= POINTER AFTER '=' FOR REST OF LINE A2= I  WRITTEN BY BLAKE HOBSON1415 REGENT DRNBUFFALO GROVE, IL 60090T(q2FROM NORTHWEST SUBURBAN<APPLE USERS GROUPFHARVEST VOL. 1-NO. BKPMOVE APPLESOFT VARIABLEUTABLE UP ONE PAGEWZ106,(106)1:_ d204( :E$;" EVALUATED AT ";V;" = ";A(V)E "ANOTHER FUNCTION? ";R$Z (R$,1)"Y"260l 106,(106)1t : SGN,210,INT,211,RND,219 ABS,212,SQR,218,LOG,220 EXP,221,COS,222,SIN,223 TAN,224,ATN,225,+,200 -,201,*,202,/,203,^,$,I,1)) A1,T:A1A11) II(F$)10 IC A1,58:A1A11W A1,177:A1A11i A1,0:A1A11{ &A1,0:A11,0 NA2,A1(A1256)256 XA21,(A1256) 175,A1(A1256)256 176,(A1256) 1260 "EVALUATE FUNCTION AT >";V' TOKEN FOUND":" A1L7:A2L42 ::10:12I "DEFINE FUNCTION"Q "13| ,:"DEFINE THE FUNCTION IN TERMS OF X" 6: @"FUNCTION =";E$ JE$""320 rI1(E$) | J116 F$,T (E$,I,(F$))F$440 J T((E WRITTEN BY BLAKE HOBSON1415 REGENT DRNBUFFALO GROVE, IL 60090T(q2FROM NORTHWEST SUBURBAN<APPLE USERS GROUPFHARVEST VOL. 1-NO. BKZ106,(106)1:L(175)(176)25620481(L)184260 L:"NO 'DEF     G VIDEO." D$"READ "F$",R0"(NR-)NR01370P*936:12:15:" RECORDS READ"\2I1NRr<D$"READ "F$",R"IFFL$(I),FT$(I),FD$(I),C1(I),C2(I)G12:12:IPIZD$"CLOSE"n900:590oF$""1393p12100:590$q936:12:" INITIALIZED -"900!590C30000: - LOAD FILE ROUTINElD$"OPEN "(F$,(F$)5)" CATEGORIES"D$"READ "(F$,(F$)5)" CATEGORIES"936:12:12:"PLEASE STAND BY."I126CA$(I)I D$"CLOSE"D$"OPEN "F$",L60"936:12:12:"PLEASE STAND BY."ILD$"OPEN "(F$,(F$)3)" CATEGORIES"sVD$"WRITE "(F$,(F$)3)" CATEGORIES"`I126jCA$(I)tI~D$"CLOSE"D$"OPEN "F$",L60"D$"WRITE "F$",R0"0D$"CLOSE"936:12:10:"- FILE" ILLEGAL FILE NAME - PLEASE TRY AGAIN.":9007940B12000RF$F$" DL"nD$"RENAME "F$",BOOBOO"$D$"RENAME BOOBOO,"F$.936:11:"THERE IS ALREADY A FILE BY THAT NAME ON"::" THIS DISK. PLEASE DELETE IT FIRST."8900:940 BRY936I12:"DO YOU WANT TO CREATE A LIBRARY (Y/N)?";:A$bA$"N"A$"Y"940rA$"N"590936:11:" ENTER A NAME FOR YOUR LIBRARY FILE :"13:1:">>";F$(F$)0940FF$F$((F$,1))01040.936:12:"N"810>A$"N"590SH936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."YIbR900l\840f936:12:14:"LOADING....":p(4)"RUN MENU"z24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936:: - CREATE DISK LIBRA QUIT."(21:15::"SELECTION :";:0A$@A$"H"790PA$"Q"810gA$"1"A$"8"723sA(A$) A910,1230,1391,1530,1910,2080,2150,31006000 590*936:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$ 4A$"Y"A$ATE A DISK LIBRARY."7 5:"2) LOAD A DISK LIBRARY."O 5:"3) ADD DATA."c 5:"4) EDIT." 5:"5) DISPLAY LIBRARY." 5:"6) PRINT LIBRARY." 5:"7) SORT LIBRARY." 5:"8) CHANGE CATEGORIES." :5:"H) HELP.":5:"Q)NS (Y/N)? ";:A$) A$"Y"A$"N"530; &A$"Y"İ6000A 0N : - MENUT Ds N::1:2:I138:" ";:I XI223:I:2:" ";:39:" ";:I b5:2:I138:" ";:I:23:2:I138:" ";:I: l3:14:"DISK LIBRARY" v7 5:"1) CREJ37891: 1ST SECTORE TV$((26)):(V$)3V$("00",3(V$))V$K ^T |150p 37894: LOOK FOR MOREy 150 390 5000 936:12:" T H E D I S K L I B R A R Y" I12000:I 936 12:4:"DO YOU NEED INSTRUCTIOTY1FT$(NR)"I"( TY2FT$(NR)"A"> TY4FT$(NR)"B"V L(TN$)3:I1L3 (TN$,I,3)" "FL$(NR)FL$(NR)(TN$,I1):300 I "FL$(NR)(TN$,29) #C1(NR)0:C2(NR)0 , 6 READ CATALOG & PUT @ PROGRAM NAMES IN NA$(XX) ERROR":I NA$(105),CA$(26),FL$(400),FT$(400),FD$(400),C1(400),C2(400)R 490b MOVE NAMEs (28)0190 (28)255ġ: 936:12:15:"DISK ERROR"::590 NRNR1 FD$(NR)R$ TY(27):TY4TYTY128 TY0FT$(NR)"T" 037072:U(1013,76:1014,208:1015,144: SET UP '&' HOOK. $3F5:JMP $90D0{2 TN$ MUST BE 1ST VAR & LENGTH 30<TN$"QUIT TITLE "FD$(4)dD$"BLOAD DLBXX,A$90D0"eD$"BLOAD PCHK"n37888 x(28)1ĺ"TN$                  THEN ADUMMY VAR, THEN 415FOR RIGHT ), THENJ208 FOR =, THENcUSE REST OF PROGRAMTO PUT IN THE FUNCTIONTHIS MUST BE THE LASTLINE OF THE PROGRAM.201,*,202,/,203,^,204$6.TO DEFINE MORE THAN 1P8FUNCTION, OR TO HAVEhBDIFFERENT FUNCTIONLCHANGE LINE 260 TO:VA1=L+2:A2=L-4`POKE A1,(VAR NAME)jYOU MUST INCREASE A1tACCORDINGLY~THEN POKE IN A 40FOR LEFT (, "WRITING.":13000$ 900$$ 5904$ F$""1392Q$& 936:1:"CATEGORIES :"_$0 I1252$: (I64)") "CA$(I);:20:(I65)") "CA$(I1)$D I$N 19:1:"ENTER LETTER OF CATEGORY TO CHANGE :";:A$$X A(A$)64$b A1A263150 %l 19:1:82(J)3000#$ 2600+#. FD$(I)FD$(J)3000b#( AL$FL$(I):AD$FD$(I):TT$FT$(I):A1C1(I):A2C2(I)#2 FL$(I)FL$(J):FD$(I)FD$(J):FT$(I)FT$(J):C1(I)C1(J):C2(I)C2(J)#< FL$(J)AL$:FD$(J)AD$:FT$(J)TT$:C1(J)A1:C2(J)A2# I# J$ 936:12:14:6:12:14:"SORTING..."'"CNRNR:B03"J1NR?"I1NR\"BB1:D(B100)C:D(D)~"14:12:D"%";:17:"SORTED.""A2290,2310,2330,2350"FL$(I)FL$(J)3000"2600" FT$(I)FT$(J)3000" 2600" C1(I)C1(J)3000 # C2(I)CANT TO :"::/!z10:"1) SORT BY FILENAME.":R!10:"2) SORT BY FILE TYPE.":t!10:"3) SORT BY CATEGORY.":!10:"4) SORT BY DISK.":!10:"5) RETURN TO MENU."!20:14:"SELECTION :";:A$!A(A$):A1A52220!A5590"93PRINTER FOR MALFUNCTION."( (900:2081] *936:12:"PRINT STARTING AT WHICH RECORD? ";A$i 4A(A$) >A1ANRė:12:"THERE IS NO SUCH RECORD IN THE LIBRARY.":900:570 HD$"PR#1" RLP1 \1941 fF$""1392 !p936:5:12:"DO YOU WER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."l#20:4:"DO YOU WANT TO CONTINUE (Y/N)? ";:A$$A$"Y"A$"N"2083%A$"N"590&255,1:832:Z9(255):Z902090 ':11:" UNABLE TO COMMUNICATE WITH PRINTER."::" CHECK YOUR T$(I)"]";:5::FL$(I):A"CATEGORY: "CA$(C1(I))" "CA$(C2(I))G[LP1LPLP4lLP202030900:936:LP0I22:10:"-END OF INFORMATION-"D$"PR#0" 900590 F$""13929!936:9:" MAKE SURE YOUR PRINT0XA$"N"5901Y936:12:14:"WRITING..."IbFL$(REC)"1":13000Sl1820cvF$""1392{936:12:"DISPLAY STARTING AT WHICH RECORD? ";A$A(A$)A1ANR590LP0936IANR"REC #"I" ON DISK "FD$(I)"["F(A$):A1A9991841!3I1NR;4FD$(I)A$FL$(I)"1"B5Ii6936:12:14:"WRITING...":13000s81240:936:10:"RECORD #"REC" ON DISK "FD$(REC):">> "FL$(REC)D17:1:" DELETE THIS RECORD (Y/N)? ";:A$NA$"N"A$"Y"186Y/N)? ";:A$& A$"N"A$"Y"1804<A$"Y"A1:1630\936:12:14:"WRITING..."13000: WRITE INDEX TO FILE.936:12:" UPDATES SAVED ON DISK."&90005901936:12:" DELETE WHICH DISK (1-999) :";A$2AB$(13)B$"@":1780/B$"A"B$"Z"17607B$FA(A$)64UB(B$)64mC1(REC)A:C2(REC)B 24:1:868:" IS THIS CORRECT (Y/N)?";:A$ A$"N"A$"Y"1801 A$"N"1670  24:1:868:" CHANGE MORE CATEGORIES (REC)"TITLE :"FL$(REC)!C"CATEGORY #1 : "CA$(C1(REC))e"CATEGORY #2 : "CA$(C2(REC))24:"ENTER LETTER FOR DESIRED CATEGORY :";21:28:"?";:A$A$(13)A$"@":1760A$"A"A$"Z"1740A$22:28:"?";:B$1630,1841,590>^936:12:" EDIT WHICH RECORD # :";Sh"";A$:REC(A$)irREC1RECNR590z|A1670,1850936:"CATEGORIES :"I1252(I64)") "CA$(I);:20:(I65)") "CA$(I1)I18:"RECORD #"REC" ON DISK "FD$( WANT TO :"::E" 1) CHANGE THE CATEGORY OF A RECORD.":"" 2) DELETE A RECORD."::" 3) DELETE ALL ENTRIES ON A DISK."::" 4) RETURN TO MENU."::,22:14:"SELECTION :";6A$@A$"1"A$"4"1580JA(A$) TA1630,01440R$(R$,3)"A(R$)6A1A9991440?310w936:12:" CATALOG INFORMATION LOADED.":90012000936:12:9:"WRITING DATA TO DISK.":13000: WRITE INDEX900:590F$""1392936:812:"DO YOU CATALOG A NEW DISK (Y/N)? ";:A$>rA$"N"A$"Y"1393NsA$"N"590x936:11:4::"INSERT THE DISK TO BE ";::"CATALOGED"::90028,0936:12:"ENTER AN I.D. # (1-999) FOR THIS DISK:":">>";R$(R$)31440(R$)FILE$" ":LTRLTR1:XXX104uTEST$N$:N$(LTR)l4u1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$4uTEST$" "N$" "VSELV21:302704v" ";:50,63192(LOCK$" ")4 vXXX0ĺ" ";::"*";::FILE$;4vXXX1ĺFILE$;5 v:" ";::XXARY FILES :"*3uX1452:(5,X)11)ĂXQ3uLTR64:XX1:VX442::V21:1s3uLOCK$" ":0,V)10LOCK$":"}3uXXX03u1,V)1FILE$" "3u1,V)2FILE$" "3u1,V)9FILE$" "4u1,V)4THAN 'DISK LIBRARY'"E2Xu24:" HIT ANY KEY TO CONTINUE.";:A$2bu936:24:" SELECT LETTER OR HIT RETURN TO ABORT.";:1:2luCA$"CATALOG":OP$"OPEN ":NO$"NOMON"2vuMAX$"W":D$(4)::D$;NO$;"C,I,O"2u:1::D$;CA$ 3u4:" CURRENT LIBRI)","FD$(I)","C1(I)","C2(I)"12I912D$"WRITE "F$",R0"A13NRP13D$"CLOSE"V1310uCA$"CATALOG":OP$"OPEN ":NO$"NOMON"1:u936:8:" ";::"*WARNING*":1Du12:"DO NOT ATTEMPT TO LOAD FILES CREATED BY"2Nu:"ANY OTHER PROGRAM ;::"DATA";::" DISK IN THE DRIVE NOW.":90040.r0D/936:12:"YOU HAVEN'T DECLARED A LIBRARY FILE YET":900x0N/02D$"OPEN "F$",L60"02X002I1NR02FL$(I)"1"NRNR1:FL$(I)"":1304002XX102D$"WRITE "F$",R"X12FL$(I)","FT$(U WANT TO BE UNDER THE":y/`"CATEGORY 'GAMES'. FINALLY, YOU CAN SORT"::"YOUR DISK LIBRARY IN SEVERAL DIFFERENT":/j"WAYS; ALPHABETICALLY BY FILE NAME, BY"::"FILE TYPE, BY DISK #, OR BY CATEGORY."/k900/l.0.936:12:"INSERT YOUR "ENU OPTION #8. THESE CATEGORIES CAN BE"::"USED TO ADD DESCRIPTIONS TO YOUR FILES.":_.C900.L"FOR EXAMPLE, YOU COULD SPECIFY 'GAMES'"::"AS BEING A CATEGORY, AND USING THE EDIT":/V"OPTION (#4 IN THE MENU) YOU CAN SELECT"::"RECORDS THAT YO AND THE TWO"::"CATEGORIES ARE 15 LETTER DESCRIPTIONS":-."THAT YOU CAN APPEND TO EACH FILE ENTRY."::"THE DISK LIBRARY MAINTAINS A":-8"PERMANANT LIST OF UP TO 26 DIFFERENT"::"CATEGORIES THAT YOU CAN CHANGE USING":V.B"M CATEGORY1 CATEGORY2":w,:"X IS RECORD NUMBER OF THAT ENTRY WITHIN"::"THE DATA BASE. Y IS THE DISK NUMBER":,900,"(1-999) THAT YOU SPECIFIED FOR THAT"::"DISK. [T] IS THE FILE TYPE (A,B,I,T).":<-$"FILE NAME IS THE FILE NAME,"::"CATALOGED YOU CAN EDIT THEM, DISPLAY":+"THEM ON THE SCREEN, SORT THEM OR PRINT"::"THEM OUT ON YOUR PRINTER. EACH FILE IS"::"DISPLAYED IN THIS MANNER: ":+:" REC #X ON DISK Y"+" [T] FILE NAME"," CATEGORY :S AND FILE":k*"TYPES (BINARY, APPLESOFT, TEXT, AND"::"INTEGER BASIC) OF ALL THE FILES ON THE":*"DISK AND STORE THEM UNDER A DISK LABEL"::"(A NUMBER 1-999) THAT YOU PROVIDE FOR":*9000+"THE PROGRAM. ONCE YOU HAVE YOUR DISKSNED DATA BASE. THIS CAN BE":~)"ACCOMPLISHED USING DISK LIBRARY MENU"::"OPTION #3 (ADD DATA). ALL YOU DO IS":)"INSERT THE DISK YOU WISH TO CATALOG AND"::"THE DISK LIBRARY DOES THE REST. DISK": *"LIBRARY WILL TAKE THE NAMEOF ALL":g(z"THE FILES ON ALL YOUR DISKS. IT IS VERY"::"SIMPLE TO USE. THE FIRST THING YOU MUST":("DO IS CREATE A DISK LIBRARY FILE ON A"::"BLANK APPLE-FORMATTED DISK.":(900 )"YOU WILL WANT TO START ADDING TO YOUR"::"NEWLY DEFI0'E45200M'936:12:" YOUR DISK IS WRITE-PROTECTED.":900:590\'PE55300'Z936:12:" YOUR LIBRARY FILE HAS BEEN DAMAGED.":900:590' (p936::"THE PURPOSE OF THIS UTILITY IS TO ALLOW"::"YOU TO KEEP CENTRALIZED RECORDS GORIES"'& D$"WRITE "FF$" CATEGORIES"3& I126?& CA$(I)F& IU& D$"CLOSE"^& 900g& 590t&E(222)&E1(218)(219)256&E6E110501090&E85100&936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":900:590'E2558168:"ENTER NEW CATEGORY TITLE :"8%v 20:1:">>";CA$(A)^% (CA$(A))15CA$(A)(CA$(A),15)% 23:5:"CHANGE ANOTHER CATEGORY (Y/N)? ";:A$% A$"N"A$"Y"3201% A$"Y"Ģ23:1:868:3110% 936:12:14:"WRITING."& D$"OPEN "FF$" CATE R Ӡ`뷍췩  ` X R ˠϠҬĠ8`hh LZ l80 % "$   $  `H.mm.h`L X% "$ 0# i:0 %% "L% "$0 $$ H hi:% "$ R Š$ R Ġ% "$ R    :  .. % "$ R Ӡ$@0ic i[ 0``ȭ  hh`ɺɠ @)`L L=LiTȱiȱi`ȱiȱi ``ȑ Ŕ8 Đ0ȑ Ŕ 0/# `i!LȭLL ޘи8ޥ߰ L,L L4Hȥؑȥّڥݑօوܑօ؈ڑh`Н(kٓlړPӓ`(ٓkړlӓP`PJ TuVTvP`SRT#(VARIABLE NOT FOUNDlnLۓLKkiRliSޅP߅QTU qPХQFf N`8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]0 ܰ Lڒܐ@ Lڒ6 А4H +hݏ%  , ۓʽۓ$LZ ܓܓ g RPޥQ g RP8ޅQ߅Y  NLޠ ʬꓖ ꓖ D0Ȍ ),л гkۓȱkܓ+kekHȱkellhkm V)XT$T$(XN):9Bw:M923:14::"**ABORTED**";:I12000:I::590TN64:BSC13N80"8$wBSC10N3238.wBSC11N48W88wX015:H,V)XT$T$(XN):_8Bw:823:14::"**ABORTED**";:I12000:I::5908008w8wBSCH,V1):TSCH,V)8wN64:BSC13N808$wBSC10N328.wBSC11N4898wX015:H,PSP17vSP2304407vU7vMEM1313,22:MEM1466,21:MEM1463,12:MEM1464,2537vPOKE 216,0: POKE MEM + 1463,12: POKE MEM + 1464,2537v19::F$(T$,6,(T$))7vFF$(F$,(F$)5)7v(F$,5)" DL "300007w7wBSCH,V1):TSCH,V)8w96,I1)9)303506v$6vT$OP$[6vJX21VSEL1:J:1:" ";::VSEL:1:9586vI21:1::" ";:2:T$;:6vVI:H737:30480:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V16vBSC10TSC0SP07vBSC10TSC0SX1ĺN$;5*v54v:5>v 15HvVSEL0VSEL24f5RvVSEL:1:37):6::" CHOICE :";:16368,0:A$5\vA$(13)ĢVSEL:15::A$" ";:5fvTSC14,2VSEL2):BSC14,2VSEL1)5pvA$(LTR)A$"A"350006zvI0462:(5,I)TSC5,I1)BSC)(4,I1)ōԺàΠҠԠƍӠŠӠˠҠȠΠĠӠĠ˧ӍӠŠàӠĮ٠ŠҍԍàӠĢԠȍҠԍàӠŢԠӠúŠÍԺȍҠԍ֠ˠРɺ٠ʮŮҠԠԠӠӍ֍ҠȍҠҠԍàŠҢԠȍҠԍàĠҢԠԠŠĠԠō֍ҠРĠƠӿŠРϠޱؠŠгԠč֍ҠȍȍгҠԱ٠Ԡō٠ȍҠԱҠԠԠ׍ààԠҮΠҠҠ͍ҠРбޱؠԠƠǠȠӍԠԠΠ֍ҠԠōӠԠԠޱؠԠҍŠвōҠԱȠРĠ͠ĿР֍Ѡ֠ϠӠԱààԠҮРԠ̿ŠРϠޱРԠؠԠƩŠбԠ΍ȍŠԠŠōҠԱԠźƍؠԠ̠ύвŠƠӠŠӠϠōĠĠҠ͍ԍҠŠҠԠ΍ΠҠԠР׍֍Ҡ֠ՠòՠñՠðՠǠՠҠàŠ֠κŠ΍ԺōԺĠԠ΍ϠڠŠڠȠڠ֠ڠ ՠòԱՠưԠՠĸōҠՠijŠՠŠՠõƠՠˠՠҠՠ͠ՠĠӍӠ̠РƠҠŠΠŢРЍΠՠ·̠ՠ·ˠՠ·ÍԠՠ·č̠ՠ·ưȠՠ·ƱĠՠ·ƴĠՠųӠՠĹҠ                L  $$mmmi8ȱ,8jL3 %H " $hL3  L1 # t % "'$LL͠ˍԺРƠŠҠŠΠˍŠĠĠҠԍŠƠӠŠӠϠРŠҠŠҠōŠ̠ Ԡԍ٠ԠӍŠеĠҠ̠ō٠Ӡк͠ЍԺàӍе̠͍̠ͫԠԠԠƠԍðàððŠ̠ԍñàññ̠òԠúŠӍðҠԍñòĠ̠ō٠ŠҠɍҠŠčΠ٠ŠˍӠŠӠōĠ٠ԠΠ͍נҩĠͫȠҩϠ̠ԠΠðשñĠòȩȠͫҠÍΠҍȍñҠŠԍðҠōӠŠҠȍñҠŠԍðҠōĠԠĠҠԠύ̍͠īîŠӍàč͍àīͫҠàԠϠ̍Πҍ֍ӠҠƍŠӠ٠ǠŠĠҠԠ͠Š̠ōƠӠŠǠȠŠҠƠĠӠӠĠύŠĠӮàԠРϠ΍ӺŠӍӺĭĠҠҍӺҠƠĠӠΠˍҠƠŠӠΠˍӠŠӠūԳũ٠ԠҍѠԴҠԱРԲԴàŠŠҠύŠԵàūԵРũɠԠΠӠĠōōūԲàŠŠŠϠԠԍРԠԠҍŠԳàӠƠŠӠƠŠԠҮŠҠӠĠ̠ϠӠĬΠԠРˍϠŠΠ͠ӠΠĮ٠ŠҠ؍ŠԍԺŠӠƠŠԠҍӠĠΠŠˍԺҠӠĠϠ΍ӠŠӠŠΠӍƠŠˠĠӠԮ΍̠ȍҠčҠӠĠÍӠҍӠҺҠōҠԍàˠϠҬĠâԠàӠԺ̍ԠҠĠōčˠˠƠԠРҠӍ̍ƍΠƠŠâ]@dedede(de]ԠŠŠϠɯϠӠΠ" K$: ' Y02 T$(X)9 X? u " " K$: (4)"RUN JIM'S HELLO" inter, Slot 2"P" 3) 80-column screen"dT$(120)xIN768FIX62308 (4)")"PR#"A$ JV340,340,4005 TX1N1:T$(X):YY1S ^Y49T$(X)""ĺ(12):Y1Z hXg rCHR(12)w |(4)"PR#0" 500 (12): X1N1:YY1 Y4T$(X)""T$(X2)""480 X10XN1480  " (k2"Enter number to send documentation to"<" 1) Printer, Slot 1"F" 2) Printer, Slot 2"P" 3) 80-column screen"dT$(120)xIN768FIX62308 (4)" 0:144 30ҍРΠȠοѠʳȠƠΠҫԠȠōÍàĠҠΠҫҠȠԍʳҩ٠ԠŠ͠ɭӠӠҠҬؠҠΠӠҍàŠԠǠŠҫΠȢ ЬŠŠĬŠ̠Ϯ̠ҠҠҠҠĠҫҫōҠĠŰҍҠҠĠҍԠԠōҠԠŠ٠Ǡàˠ ŠƠӠӠ΍ҠԍҠԍҠԍРʲ̠ԠƠŠŠɭӠ̠͠͠ĠàŭɠɭӠӺĠō ԠŠǠҠԠύӠҠȠҠԠàҠԍӠΠϠǠ͠ʱ٠ŠϠԠΠĿàʲϠōʷ٠ԍ ԠҠ̭ĠРĠѠԠƠ̭ĠΠϠǠ͍ӠԠӠҠĠōŠԠЍР̠ԠŠàʱϬȠč٠ԠΠàʲϠȠčԠԠӠҠ ĠҠҠҍҠԍҠԍ̠ԠǠŠŠĠōؠҠؠؠРʷРϠԠԠŠōбԠĠ٠Ġ̠ӠϬӍӬˠҠŠՠŠՠññҠ٠ŠΠՠ΍ҠՠĠՠðӠՠðҠ  ԠŠǍҠԠàҠԍ٠ҠԍŠƠƽȠŠŠӠŠŠӠŠŠРнҠұĠнҠҲ̠ՠ̠ՠŠӯҠŠǠӠԠŠԠŬӠӽǠŠҠұҲĤҤԠĤĠԮʰŠԠĠԮʰΠτ̠ϠōǠӯҠԠϠĠҠ̠͠ΠàՠԠŠŠӠ! ! !!!!!!!!!""" " 6377063810 0OR (C)ONTINUE ?";B$. VB$"E"B$"C"63820U `B$"E"ė:XST20:YST20:63900:e jB$"C"Į:s LIST X-Y ADRS(121)256(122)144 I401 ADRSI,X10(X10)48 X(X10) ADRSI6,Y10(Y10)48 Y(Y10) I ILE LOCKED",11,"SYNTAX",12,"NO BUFFERS AVAILABLE",13,"FILE TYPE MISMATCH"  14,"NO BUFFERS AVAILABLE",15,"NOT DIRECT COMMAND" $ER(222) .I132:A,A$:AERĂI 8I32ĺA$"UNIDENTIFIED" B:A$;::" ERROR IN LINE ";::ST: L" (E)DIT OO COMPLEX",224,"UNDEFINED FUNCTION",254,"BAD RESPONSE TO AN INPUT STATEMENT",255,"CTRL-C INTERRUPT"I  1,"LANGUAGE NOT AVAILABLE",2,"RANGE",3,"RANGE",4,"WRITE PROTECTED",5,"END OF DATA",6,"FILE NOT FOUND",7,"VOLUME MISMATCH",8,"I/O",9,DISK FULL",10,"Fō٠ԍРʲ̠ԠƠŠŠɭӠ̠͠͠ĠàŭɠɭӠӺǠŠҫΠȢ ЬŠŠĬŠ̠Ϯ̠ҠҠӠҠĠō΍ҠԠύ̍ҠԠōԠҍҠԍΠΠōύӠΠϠǠ͠ʱ٠ŠϠԠΠĿàʲϠάˠҠ̭ĠРĠѠԠƠ̭ĠΠϠǠ͍ӠԠӠҠĠōŠԠЍР̠ԠŠàʱϬȠč٠ԠΠàʲϠȠčԠԠҠԍҠԠҠȠٍҠԍԠӍҠԠō̠ԠǠŠŠĠō٠ōؠӍбԠĠ٠Ġ̠ӠϬӍŠՠҠՠΠՠ΍ҠՠԠՠčĠՠðӠՠðҠ ŠōŰԠҍҠԍĠҠҠҍŠàýүȠǬĬ̩ŠРнҠұĠнҠҲ̠ՠ̠ՠŠǠӠԠŠԠŬӠӽǠŠҠұҲŠƠƽȠŠŠӠŠŠӠŠĤҤԠĤĠԮʰŠԠĠԮʰōǠӯҠԠϠĠҠ̠͠ΠàՠԠŠŠӠ"""""""""    A    Lc,,(-, A  `( K    )jjjj) j)jj)i 7( 8H^* h(  L1`" РԠðĠŠϠĠΠԠ٠ŠԠҠӍРŠٍ̠Ѡ٠ӬˠΠӍԠҠ؍ŠΠ؍٠ĠԠΠٍ٠ƠԠάҍàʸĠĠҠϠҠҠԠĠƠϠҠҠԍʸРбРӯҠҠҠԠϠԠҠ̠ӍؠԠ؍ʶҠҬؠȠԠϠٍ̠Ƞ٠Ϡؠؠ͠Š̠àʶƠŠԠ̠ōҠԠĠŠϠҍٍŠʵԠԠŠҠԍؠōؠԠҍؠҠ̠àʸϠԠԠō٠Ԡ΍٠ԠΠѠʴӠРčŠϠԠŠҍÍàԍōʴŠٍ٠Ġ؍ʵ