' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < 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^6L65`  \* ?*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`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`٠Ҡō©ٍӠ렱򠰍ҠҠӰàō٠ˠϮ©ٍ͍٠ҍ©ٍٍͫ©ٍ٠čō©ٍ򠰩卪͠󍪠䩬䍪󮍪٠ō©ٍ٠ҍ͍©ٍ͍ 򍪍Ҡ٠«®󍪠卪ﮠ堍렱ʠРԍĠΠŠàҍà͍͍čō󍪍ӠǠʠ͠Ӡ͠ӠŠӠˠӠҠӠ͠ӠԠӠԠӠ٠ӠȠӠҠӠנӠǠĹ͠ՠÍԠՠčҠՠƲčҠՠč٠ՠҠՠΠՠŠՠĶԠՠĠՠŠՠ ՠ̠ō 2Ԡ΍ԠĊҠӠ٠ˍ٠٠č 󍪍 ՠÍŠՠҠՠҠՠĠՠÍ󠍪 ՠųӰ    46 1005" RICK WILLIAMS> 150 W DAKOTA APT 204U FRESNO CA 93705o WORK: 209 485-6181 HOME: 209 229-1848 THIS CAN BE MODIFIED JUST LIKE FLASH CARDS TO ADD DATA BASES F0 09 CA D0 F5 AE B8 03 4C BA 03 60 N D823G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144TRUMPET(10):TRUMPET(1)94:TRUMPET(2)127:TRUMPET(3)154:TRUMPET(4)75:TRUMPET(5)63:TRUMPET(6)37:TRUMPET(7)47:TRUMPET(8)188:TRUMPET(9)41:TRUMPET(10)SOR":14)"PRESS ANY KEY TO CONTINUE>";E^ADVANCE$:ADVANCE$"@"ijVcCOUNT1ĺ:sh100:ANSWER$(ITEM):255mADVANCE$:ADVANCE$"@"ijrw21:75:"STARTING NEXT CYCLE":255:1280|1480bHEX$"03B8: FF FF AD 30 C0 88 D0 05 CE B9 03',,21:75:"STARTING NEXT CYCLE":255611280I6I12:856:S;1480e@CYCLECYCLE1wEITEM1PAIRSJCOUNTCOUNT1::5)COUNT;:952,(1)1001:953,5:954:"/"CYCLEO:QUERY$(ITEM)TCOUNT11630'Y18)"AT THE FLASHING CUR(1)PAIRS)1:A5((1)PAIRS)1:A2ITEMA3ITEM1520TA4ITEMA5ITEM1520jA2A3A2A41520 A2A5A3A41520A3A5A4A51520I((1)10)5CHOICE((1)I)1:CHOICE51560CHOICE1060,1100,1140,1180,1220"1305SING INTERFACE CARD, CHANGE TO PRINT D$"PR#1" OR AS APPROPRIATE E BALL ROLLING #@(222)53400,J: (#CONTROL Z IN ENTRY MODE RETURNS TO MENU WHERE CHAR- ACTER SPACING OR SINGLE GRAPHICS CHARACTERS CAN BE INTERMIXED; THEN RETURNS TO NORMAL ENTRY MODE I2# CALL 768 IN LINE 800 TURNS PRINTER ON. IF UӠЍ٠ؠРά؍РčѠԍٍͩ؍ٍ٠àЍԠōҠ׍ҠǍؠčàҧؠԍҠō٠Рٍٍͩ٠ŠĠ͍ŠנҠϠŠÍנؠ٠Р׬؍ٍٍͩ؍̠ЍӍԱӠŠàčӠԠˠԍԱŠōٍͩÍӍŠҠǍؠĸà٠Ϡ̠ϠàŧؠĸÍӍנؠĸĸàӠˠӠ٧àġؠİÍӍ˱ƍٍͩ٠ˠͩ٠Рƍٍ؍РŰˠӠƠӠ̍ˠҠÍ٠ٍͩРƍŠ˱ҠǍȍŠЍӍŠčԠҠˍàԍҠ׍ҠԱҠԱԠؠؠ׍ؠ׫ؠ׫٠Рά؍Ҡ׬ٍ׬ٍ؍ٍ̠ˍ٠ˠРĠӍנӠΠŠčĠӠĠ΍ƠԮנҠǍؠčàħؠԍҠōŠбàҫбҩٍѠōҠԍРЍŠҫҍ宍Šٍ؍ӍǠōǠҍҫ٠Рàҍƍ٠č©ٍҠԠԍҠĠĠˍҠҍD$"CLOSE" d,,PEEK(176)"9 "IFPEEK(175)=255THENPOKE104,PEEK(104)+1"q ("POKE103,(PEEK(175)+1)-INT((PEEK(175)+1)/256)*256" 2"POKE PEEK(103)+PEEK(104)*256-1,0" <"POKE PEEK(103)+PEEK(104)*256,0" F"POKE PEEK(103)+PEEK(104)*256+1,0" P"RUN FP LISTER" Z ********************7 *** MAKE FP LIST ***R *** EXEC FILE ***m *** *** *** MARK CAPELLA *** *** 12/01/79 *** ********************  D$(13)(4):D$"OPENFP LIST"D$"WRITEFP LIST" "POKE104  ÍٍٍٍͩͩŠРӡҠŠҠҠƠ٠ƍРٍٍͩΠ͍РӠЍҠƍРҠӍà͍͍РѠˍӠЍӍˠ٠٠ō٠ōҠƍР͍٠ٍٍͩؠ͍؍ٍͩ͠ҠӍà͍ōРӍԱӠˠٍǠԠĠǠōٮРϠӍΠŠԠΠŠˠҍԱ͍Í͍0:TF1:: "THEN""BY178RF1(.pGz*** GET A FILE BYTEM`TESTINGĺ"*";wBY(PB):PBPB1:OYĺ:BY584160)BY178ĺ:LP1341709R *** OUTPUT A TOKENXaTF0xLP1PT69ĺ" ";BY130ININ4: "NEXT"LP1Ĺ36,8INTIN:;TKN$(BY127);" ";BY129ININ4:: "FOR"BY196ĺ:TINTIN4:LP00:4150T'^ *** BYTE IS A CHARBh *** FORMAT/OUTPUT ITHrp|LP1RFTFĹ36,8INTIN:"LET ";BY58ĺ" ";LP1TFĹ36,8INTIN:;:LP0LP1BY324150(BY);BY34QFQFBY58QF41506000:NBNB1:BESTINGĺ"LINE #= "LNE: GET THE LINE NUMBERCTESTINGĺ"NB= ";NBUNB1EOP1:n6000:NBNB1:BYıBY178SRFĺ:SRF1:4140"BY178SRFĺ:SRF0,LNE;:416066000:NBNB1:BYĺ:@LPLP1: # OF LINE BYTESJBY127İ50 *** GET A LINE AND- *** OUTPUT IT3KLP0:TI0:QF0:RF06000:XBY:6000:XBY256X:NBNB2:TESTINGĺ"MEMPTR= "X:SKIP OVER THE MEMORY POINTERSTESTINGĺ"NB = ";NBNB1EOP1:+6000:XBY:6000:LNEXBY256:NBNB2:TRE DONE  VIDEOė VIDEOČ768:TI$:FI$,:36,60:DA$::: SUBSTITUTE PRINT CHR$(4)"PR#1"IF APPROPRIATE TO TURN PRINTER ON TESTINGĺ"MAIN LINE."  IN0:TIN0:SRF0:PB82561:NB(103)(104)256PB1  4000:EOP3090  N,TAN,ATN,PEEK,LEN; STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$A ]  *** GET OUTPUT TITLESc  VIDEOĉ::DUMMY$:"TITLE: ";TI$:"NAME : ";FI$:"DATE :";DA$  *** GET AND PRINT ONE *** LINE AT A TIME, *** UNTIL WE ASTORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURNh REM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONT LIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,AT NOT,STEP,+,-,*,/,^,AND,OR,> =,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS SQR,RND,LOG,EXP,COS,SITOKENS `> jEND,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXTv tPR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOT ~DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRACE,NORMAL INVERSE,FLASH,COLOR=,POP,VTAB,HIMEM,LOMEM,ONERR,RESUME,RECALL4 000: VIDEOĺ:::"COMMENTS: "L (4)"PR#0":R m  *** SETUP TOKEN LISTs  TESTINGĺ"SETTING UP TOKENS" TKN$(127):I1107:TKN$(I)::TKN$(36)TKN$(36)":":TKN$(37)TKN$(37)":": L V *** DATA FOR y  ********************7 *** FP LISTER ***R *** MARK CAPELLA ***m( *** NOV 25, 1979 ***2 ********************<Fdn *** THE FOLLOWING ISx *** MAIN ROUTINE CODETESTING0:VIDEO0 1000:2000:3     60AA8FAA62AA21*PAA61AA13;ZAA94AA24IdCC$(AA)YnII$II$CC$zxAA32Ğ:(AA64);::60300CC$;TTĹ1063,9760050Ԡĺ)E@ a@cca@E()Ma@E(ң)a@E(Σ)M6_hˮΠԠˠ)rS(ĠŠҠ©)&@|`@9();@r%Qde`d8ed9ed eZM ccc a@GUVW@;@ra()GYa(ˠϺ)E@aı@aIJ@GUVW@;IJ@ra()GYa()ı@p(̮)#"IJ@p(),@p()6a(ǠǠ) @cccJS(Ԡſ)&@0Ta(Ԡҧ٠ΠҠĠԠ)G#^a(ϠŠРƠŠԠͮ)*ha(Ԡ]]]@p()]̠a@E(ĠҮ)5]ҠԠŠĠӠĠŊ M6AN@" rC@" rC@"(rCı@"2rCIJ@"2rC@"2r@p(ԠӮàӠˠӠԠàġؠĸİРŰǍàؠĸİРŰנҠǍؠĸĸà٠ĠġؠĸİРŰĠҠǍؠĸĸōҠӍҠǍؠĸčàנĠϠà٠ؠŠ؍ؠҠųҠٍРƍŠčҠ׍Ҡ׍à׍٠ٍͩҠٍͩĠō̠ЍÍӍĠÍӍȠčȠҠÍŠŠˠӠč٠ͩŠЍٍͩӍ- 22::"HIT ANY KEY TO SELECT ANOTHER"H :"HIT TO QUIT":X ROT:SCALEf N139,79n B$ B$"Q"ĉ:: 120 "BLOAD ";A$ S d:/n"NAME OF SHAPE TABLE ";:A$:2707x:S"NUMBER OF SHAPE ";:NN(3072)ĺ"YOU ONLY HAVE ":(3072);:" SHAPES IN THE TABLE ";A$:X11000::120232,0:233,12:115,0:116,123"INPUT ROT,SCALE ";ROT,SCALE  CONVERT TO HEX . L3:I131:" ";::" ":O256:1000:"":300:PRINT CMD ADDRESSES A ::37,(37)2:: S ,(37)18320Y 6 @37,((37)2):::6:"HIT ANY KEY FOR MORE DATA"::756::5:300: 3:I131:" ";::" ": N2N(N16)16:N1N16:(HEX$,N11,1)(HEX$,N21,1);::HEX$"0123456789ABCDEF":INITIALIZE; D FINDS MEM SIZE ] IBC2: TABLE OF CMD POINTERS CHR(A):AA1:(CHR);:CHR127Ė12:" = ";:220:PRINT CMD NAMES 210( X(I)(I1)2561:15:X65536" = ";X" = $";:N(X256):1000:NX(X256)/; RON'S DOS COMMAND FINDER BY RON ALDRICH 3.80 vEMBELLISHMENTS BY GARTH HITCHENS AND VAL GOLDING d::1::1100:3:" * RON'S DOS COMMAND FINDER * ":1100::34,4:5: FORMAT SCREEN 6 nD(978)256:AD2948:BD30:CD84:   ŠŠ٠̠ʠNJede_dede$ded ed e-Q]ƠנϠŊ1`7%q]ԠŠϠԠĠŠƠŊ[];]Ơ̠ӠԠĬԠŠԠŠϠŊ2]٠Š=q8.?r8.?rrrqu]ĠàŊ<]ŴҠԺѽˠŽѭ UVWD`.?r.?r%\]ĠԠŠĠΠàŊYWdede[dede\d  z89LHzh({0z`ɰ0<ɺ8`h ɕ({ɘ%ɍH{{ɺ{hz` -z89 `* B$ T(B$)11300A ^A111:38575A,((B$,12A,1))128:S h47092,2:736Z r6 | TO USE ON 32K SUBTRACT 16384 FROM ALL COMMANDS IN THE DOS AREA (BETWEEN 38400 AND 49151) 2:47085,8 736 ; A38586385761:((A));:A G k "YOU MAY CHANGE THE INIT NAME" "TO WHAT EVER YOU LIKE. THE ONLY" ""RESTRICTION IS A MAX OF 11 LETTERS" ,"NEW LABEL=(-----------)"; 6B$(8) @A113:B$;: JE REPLACED WITH THE 11 CHARACTER INPUT. BY DARRELL DUNMIRE"i " THE PRESENT DOS READS "; 160,232,169,183,32,0,189,96 A736743 B A,B: 47083,0 X(38400256):47089,X:47088,38400X256 47092,1 47084,*d PERSONIFY * DARRELL DUNMIRE 9/79 n:"THIS PROGRAM WILL MODIFY THE DOS ON THE DISK. ANY BOOT FROM THIS DISK WILL NOW READ THE WORD YOU PUT IN. I FOUND IT TO BE USEFULL TO IDENTIFY MY DISKS. "H x"AFTER THE DOS MOD 'DISC VOLUME' WILL B  edMedede]a@E(ˠ)E@Q] _d]cbE(ԠĮ)_|erp()@B;@rrp@h\M6 m_?]?|cS(ŠȠӠ͠٠ҠΩ)&@`@:()$],S(ŠŠĠ͠٠ҠΩ)&@`@9()$`@:()$]hdLedMededea@E()E@dLAdede]FEde.?rde.?rde.?rde.?rM]0JcS(ԠӠŠ٠ҠΩ)&@`@:()$|)TS(ŠԠӠΠة)&@*YS(ԠӠŠנΠة)&@9^@p@@B;@rqqa@E(נĮ)S(ŠȠ)',]ȯȪ<1dedededede,6dedeM];`7.?r$?dede @tcȮǮȠ]ŠGdKM6tucS(ԭԠȠ͠)&@n@p@a@E(ˠ)E@TxdLedMea@E(Ġ)E@dLedMeq.?rq.?r-}dedeеıİö)\M6z@p(òŵŵð)\M6 @p(ô°ŵ)\M6]ԠԠĠ]rq.?rq.?Lrq.?Mr @p()]̭( N@"rC@"rC@"rC@"rN@"rq_L@B;@rrp(ΠŸ)UVW;@rde<@*rrYdHe[z@p(ð±øıİ øe]]Ҡê]ԭҠ]Ҡ٠]]t q6Mq<q=q>q?q qqqqqq3 q.?   7 SO WHAT DID YOU EXPECT BY NEIL KONZEN A A$""YQ(175)(176)256sQ2,40:Q3,0:Q4,4(A$;:40 _]Ԡ٠̠ȊAttttttttttttQ_  =d "C R A W L E R" BY VAL J GOLDING - 1.80 Hn:900_xA$(A$,2)(A$,1)B$(B$,1)B$:B$(B$,1,(B$)1)10:A$:18:B$:120A$" CALL -APPLE : FOR UP TO DATE INFO : :"B$" A.P.P.L.E. : FOR TOPS IN SOFTWARE : "  ؠϠŠҠҠǠԠŠàŠϠӊΊG]ؠϠŠҠҠǠԠŠàŠϠӊ]ҠŠ͊A]Š٠̠ϠؠΠ ΠŠĊ:de.?rde.?r]ԠؠϠàӊM6]̠ÊQqde.?rde.?rq.?r.?r[]ƠӠΠƠ؊G]== ]ŠϠԠӠΠҠÊ]٠̠ʮNJd\n]͠ӠŊ+T]٠ŠҠ͠٠Ŋ-M6o P ]РΠϠԠ؊)q\]ŠؽҠàŊQ  JSCREEN$;(13);:LINE: PRINT ONE LINE OF SCREEN AND A C/R TO PRINTER r ::D$;"PR#0"::PRINTER OFF ESAVED SCREEN FROM DISK 5 D$;"PR#1":: PRINTER ON ,LINE124:LOOP TO PRINT SCREEN LINES IN ORDER SPECIFIED BY VTAB 6(LINE):990: STORE CURSOR ADDR IN BASL,H @STRING,40:STRING1,(40):STRING2,(41): POINT SCREEN$ TO SCREEN O RESS OF THE CURSOR POSITION IN (DEC) 40, 41 L ( CALL -APPLE JUNE 1980 dSCREEN$"":D$(13)(4):STRING(105)(106)2562: INITIALIZE 34,23:33,1: SET WINDOW TO ONE CHR  :PRINTD$;"BLOAD SCREEN":REM REMOVE FIRST REM TO LOAD A sW APPLESOFT TEXT SCREEN DUMP BY VAL J GOLDING  THANX TO ROG WAGNER WHO CUT THE PROGRAM IN HALF BY POINTING OUT THE BASCALC ROUTINE ,  BASCALC IS A MONITOR ROUTINE THAT AUTOMATICALLY STORES THE MEMORY ADD (10W.5)).001ĺ"0";: Nd=99)(((X))999)(((X))9999)(((X))99999)(((X))999999)(((X))9999999)w 4NF(X)(X)((X)100.5)100 >N: HN *** PRINT SUB *** RNWF(W) \N36,DT(W) fNW(W)ĺ"0"; pNW; zN(W(W.5)).001ĺ".00";: N(10W ARRAY ***  I110$ ::J13D ::::DD(J):WA(I,J):20040M ::JU ::\ Ie : y  *** DATA *** 100.005,.457,278.1,0,.005,-456.335,99.99,99.995,10000.2,.23: N *** FORMAT FNS *** T *NT(X)(X0)2(((X))9)(((X)) DECIMAL NUMBER FORMAT < BOB HUELSDONK 11/14/79 R20000: DEF FNS l *** MAKE ARRAY *** xI110::N::J13::::A(I,J)NJ::J I:  *** SET DECIMALS *** D(1)9:D(2)18:D(3)27: *** PRINT   z#????? Ҡɠ!ɮ®Ǡ٠" Š РΠР ŠŠ٠ ̠Ϡ  ̠ήӠ  ̠ήϠ ҮӠ  ҮϮ̠ Ӡ  ŠРԠԮӠԮϠȮӠȮϠǠҠҮ  ԭҠ ٠ ̠ͮ٠ŠӠҠŠŠРҠ  !àՠ"РԠàҠӠҠ Ԡ ϠԠ ˠӠή̠ĽΠǠРɮ®ΠРҠŠҠΠҠ ̠͠  -        -  1980 ՠӠӠ ͮ͠ðͮS ALREADY INITIALIZED!`LxLL8` pSORRY ... TOO FULL TO INITIALIZE` L` V pOWNER3 j&LɍL&L  LȮʊL  ` LȩLLL`LHH LMȑ ȑ  2H?2  -h2hh`hh LxHH` pPASSWORD3 j  HY  hɍ`HHH   d hhhL ;L, pTHIS DISK I ӍנӠԠŠĠΠŠנҠӍŠŠӠŠŠΠŠÍנؠ٠Р׬؍РٍͩŠčٍ؍׍ؠ׫ؠ׫٠Рά؍Ҡ׬ٍ׬ٍ؍ٍ̠ˍ٠ˠРčŠЍנӠΠŠčĠӠĠ΍ƠԮנҠǍؠčàħؠԍҠōؠؠРàҫбҩٍѠōҠԍРЍŠҫҍӍŠٍ؍ӍǠōǠҍҫ٠РàҍŠбƍ٠č©ٍҠԠԍҠĠĠˍҠҍ宍٠Ҡō©ٍӠĠҍҠҠӰàō٠ˠϮ©ٍ͍٠ҍ©ٍٍͫ©ٍ٠čō©ٍˠĠҩō͠󍪠䩬䍪󮍪٠ō©ٍ٠ҍ͍©ٍ͠ 򍪍Ҡ٠«®󍪠卪ﮠ堍ĠԠʠРȍĠΠŠàҍà͍͍čō󍪍ӠǠʠ͠Ӡ͠ӠŠӠˠӠҠӠ͠ӠԠӠԠӠ٠ӠȠӠҠӠנӠǠՠĹ͠ՠÍԠՠčҠՠƲčҠՠč٠ՠҠՠΠՠŠՠĶԠՠĠՠŠՠ ՠ̠ō aԠ΍ȠĊҠӠ٠ˍ٠٠č 󍪍 ՠÍŠՠҠՠҠՠĠՠÍ󠍪 ՠųӰ         p mpNOW SWITCHED TO DIRECTORY h mp.L mpSORRY ... BAD PASSWORD!L mpTHIS DISK IS NOT INITIALIZED!LapLpHH LMȑ ȑ  2H?2  -h2hh`hh LupHH` mpPASSWORD3 j  HY  hɍ` L8``HHH p;Lr p pELIL)H  bd]n]x]̠]ǠҠ]]Ԡî]٠]ԠӮɠ] - ogy, Vol ]I[, Jan-Jun 1980 Version 1 Release date 6.24.80"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 6708 39TH AVE SW SEATTLE, WA. 98136 ARE NOT INTENDED TO BE RUN AS STANDALONE PROGRAMS":+32,10::"ZOOM (BINARY)":"STRING SWAP":"CRAWLER":"LIST":"SWITCH & INIT":"SCROLL RTN":"DRIVER.B" + *+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:C2"Call -Apple Anthol100009X(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110Lb(222)255ĦVl::'2::4:"CALL -APPLE ANTHOLOGY, VOL ]I[":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, INCLUDING THE FOLLOWING"6+"AS THEY R A A":14:"S A R N"p>15:"O M Y G":16:"U";:40:"E";H17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::= 23:" ";:25:" ";:31:" ";:33:" ";:39:" "E: "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R H"745:"E T "R" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";UN PROGRAMS  :u 2::" CALL -APPLE ANTHOLOGY VOL ]I[ JAN - JUN 1980 ":: I112:(I64)" "MENU$(I);:20:(I76)" "MENU$(I12):  ::1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "SPLITTER.O.L":MENU$(17)"IAS":MENU$(18)"CRAWLER II":MENU$(19)"ALPHABETIZE":MENU$(20)"FP SCREEN DUMP" MENU$(21)"FP LISTER":MENU$(22)"MAKE FP LIST":MENU$(23)"C -A MENU":MENU$(24)"DEC FORMATTER" 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRMENU$(06)"DISASSEMBLER":MENU$(07)"RANDOM DRILL":MENU$(08)"SO WHAT":MENU$(09)"POST-EDITOR":MENU$(10)"PERSONIFY" :MENU$(11)"AUTONUM.L":MENU$(12)"MODIFY PLE":MENU$(13)"DOS FINDER":MENU$(14)"CATALOG PRINTER":MENU$(15)"SCROLL DEMO"h :MENU$(16)OADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"ZOOM":MENU$(02)"HIRES CHRS":MENU$(03)"WOZ HIRES RTN.L":MENU$(04)"SPEED=N":MENU$(05)"I.B. SCREEN DUMP"s :L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"L =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     H6 Z$hL`HH!!,c$hH,o phHI  pX !i$!h`x HYXH Jhhjx(`67`LLLLɍɈɀɠ8  ɀ 08@L$d6?e`$\\xq5`%q`%q(`%q_8`$\\xqq`%q_`$\\x>q`($q(q`$q_qqqqq['q"qqqqqq[-q>q qqqqq[%q>q0qqqqq[)qqqqq"qq[%qqqqqqq[ \\x?q.?6@r`q,[+qq"qqq qq[)qq"qqq qq[%q>qqqqqq[%q"qqqqqq['q"qqqqqq['q"qqq*qq6q['q"qq qqqq[%qqqqqqq>['q"q6q*qqqq[)q"qq&q*q2qq[%qq"qqqqq['qq"qqqqq[+qq"qqq*qqq['q>qqqqqq['q>qqqqqq[)q<qqqq2q"q[%q"qqq>qqq[%qqqqqqq['q qqqqq"q[)q"qq qqq[+qq"qqqqq[/qq"q*q:qqq<[)qqq"qq>qq[%qq"qqqqq['qq"qqqqq[%qq"qqq[%qq"qqqqq[-qq"qq<q qq[%qqqqqqq['qqqqqqq[)qqqqqqq[%qqq>qqqq[)qqqq"q qqqq>[+q>q qqqq"q[+qqqqq>qq[-q>qqq qq"q[-q8qqqq"qq[+q>q qqqqqq['qqqqqqq[%qqqq>qqq[%qqqqqqq[-qq qqqqq[+qq"q2q*q&qq['qq qqqqq[/qqqq2q0[+qq qqq*qq,[%qqqqqqq['qqqqqqq['qqq qqqq['qq*qqqqq['qqqq>qq edededede[#qqqqqqq[%qqqqqqq[%qqqqqqq[%qqq>qqqq[-qq<q qq(qq[/qq&q ]ǠɭӠӊ]٠٠ˊ]ŠҠ͊Hdd ed<ed=e d>ed?e?dBedCe M6&nd6?ed6?ed6?e_gxq (dededed     a()G<;`%a()Ga(ĠԠ·)d6?e_J]@cca(ԠŠŠՠȠϠ)a(ĠԠΠϠΠǮ)d6?e&J`.?6@r$Jd6?eM6[a̽)F.?rMIqq` $qq`#$`$`$,Y(\6Yqq_,M6a(ć)QG6UVWYM6oa(ԠŠ)G`%qq q.?r \@;UVWd eq qq8UVWdeded eWoa(˽)FGP a(ý)FE()GPa(Ľ)FGPa(ΠϠ)a(ӠĠΠՠŠĮ)cTcd2e?Pa(·)d2eca(ҠŠŭԠԠΠ)Pa(ŠՠŠǠϠ)a(̠ӠƠҠӡ)  SdJe$dKeΠŸ)NxUVW;@rde<@*rrYdHeM6]Š٠ӠȠ͊9M6oP d2e?a(Šˠ)d2eLcca(Ӡ̠͠٠Π)a(ŠȠŠŮ)Uca(Š̠̠ՠŠ -]Ġؠ 2]Ȭ٠ 7] <]!A]dN@"JrKUn@p(Ĺ ·'dJe$dKede$de ] ] ]ŠŠ٠ ] ] #] (]Š>a@H()E@H()HdԴe[RM6o]HdedDZedԴeM6oa(̠Ҡſίɠ)#q.?r`$de`<()r$de_dedԴeM_](ΠŠԠžϠŠ)"a(̠͠ϠŠ)ca(Ԡ٠)$`.?r$de[]D M6dԴeoa(͠)**oS(ӠŠϠŠĿ)&@4`;@r$Ha(Ӻ)cc?a(ŠӠϠŠŠҠϠŠĮκ)\ca(̨Π̠͠Π)a(̨Π̠ΠՠϠŠ)cHa(ŠΠŠԠξϠ)a(ΠנӠ)c,aq\q0Mױq?q Mױq\qMױ[]dDzeM&`.?r<()r$`.?±r$dedDZe[] XKM6boP a(͠)lcP a(٠̠)vcӠή) ,M66\XM@de\ J\TUVW Y\^`.?°r%\h`.?r$@ r\_T |_T]Oٰq2?rUVWYذq2?r2`ذ]%ذq]`ذ%ذqq?qMS°q6?±q6?DZq6?Dzq6?q6@q6?Դq6?Դq6?Kd(e0d)ed0ed1ed2ed3ed4ed5e1N@"rqq@p()]̠Ġ8a@E(Ġͮð)a@E(Ġˠ ]͠à]٠̠Ί#dذqٰ.n]ŠԽҠ͠Ί xq0qqDױqG<q8rq7qq     04,12:POKE3072,0")"BLOAD SCROLL RTN"@"RUN SCROLL DEMO"O&D$"CLOSE"G.1 W:"BYE..":103,LP:104,HP:: RESTORE PGM POINTERS TO PREVIOUS VALUE CALL THIS ROUTINE WITH A "RUN 500" TO CREATE AN EXEC FILE TO CLEAR PAGE 2 D$(13)(4):D$"OPENSCROLL.EXEC"D$"WRITESCROLL.EXEC""IFPEEK(104)<12THENPOKE1N POINTERS AD(121)256(122)1:103,AD(AD256)256:104,(AD256): PSEUDO-MOD FUNCTION FOR 103; AD=NEXT STMT TO BE EXECUTED KEY(16384) KEY127400 16368,0:KEY136Č831:400 KEY149Č736:40016300,0: BACK TO P PROGRAM MEMORY ON " r4:41,(41)4:"TEXT SCREEN PAGE 2 * HIT ANY KEY FOR PG1":5:41,(41)4:"<-USE ARROW KEYS TO SCROLL UP OR DOWN ->":6:41,(41)4:" " |6,LP:7,HP: SYNCHRONIZE TOP & BOTTOM OF SCREETER TO START OF FILE D J10,8:11,1: SET PG=2 AND MODE=NEW DATA d T16299,0: SWITCH TO PG.2 ^I125:736:I: BRING A PAGE FULL ONTO SCREEN  h2:41,(41)4:" ":3:41,(41)4:" YOU ARE NOW VIEWINGTHOUT BRINGING NEW":"DATA ONTO THE SCREEN. NOW LET'S SEE":"HOW A LARGER BLOCK CAN BE VIEWED": ,"(USE ARROW KEYS WITH REPT KEY TO SCROLL":"ANY OTHER KEY TO RETURN..)" 6:"PRESS ANY KEY TO PROCEED...":A$ @8,LP:9,HP: SET SCREEN BOTTOM POIN=1 & MODE=SCROLL ONLY K :12:"THIS IS AN EXAMPLE OF SCROLLING ON PG.1"[ I1500:I| I15:736:I: SCROLL UP I1500:I I110:831:I: SCROLL DOWN I1500:I I15:736:I I1500:` ":"THAT WAS SCROLLING WIP: SCROLL DEMO BY ROGER WAGNER Z CALL -APPLE * JUNE, 1980 rdLP(103):HP(104)nHP11ĺ(4)"BLOAD SCROLL RTN":200x(13)(4)"EXECSCROLL.EXEC"::CLEAR PAGE 2 FOR ACTION WITH EXEC FILE  10,4:11,0: SET PG     H&I`& &I`&  7%@A]@&%0  X @A>><= 7L. h`&I`&&H'H0HH@ e@*A eA .B } B" !" 7L &I`&hh0h'h&`:̍ӍàҍĠōȍĠàòàƍò̍̍̍̍̍ĠӍȍàIJԲÍЍàȍРЫàЫÍ͍àȍ͍ͫàͫӍ ֍ڠҠÍàԍҠڍҲٍ̩Ӳٍٍ̩̠Ҳɠβ˲ōŠР٠Բٍ̩٠٠ȍàԲԲР٠IJЩٍٍٍ̩٠΍Í͍àȍ͍ͫàͫРΠÍ͍àҠڍβ̍Ӳ̍ȍӲȍ٠ȍٍàРЍɠ˲͠٠ıٍٍ̩٠ȍàıԱР٠ıٍٍٍ̩ͩ٠ȍàıԠÍЍàȍЍЫàЫōԠ̠ЍҠڍΠ̍Ӳ̍ȠӲȍ٠ȍٍàР͍Ӡ˱ҠڍҠٍ̩Ӳٍٍ̩̠ҍɠ΍˱ōŠҠǮҠǮŠՠŽҠ̍͠ŽҠנРՠϯɠӠƠԍƠŠԠŠРō͠ՠϯɠӍƠԠƠŠԠō͠ɠʠŰǠŰԠՠȠՠРՠ͠ՠȠՠ֠ՠ̠ՠȠՠӲ̠ՠӲȠՠŠՠŠԠĠӠ̠ԠҠŠ̠ΠҠήԠӠŠΠƠԠǠŠΠҠǠΠנ͠ΠƠٮ ŠǠŠ٠ҠҠ̠Š    H&I`& Э&I`&  7Ь%@A]@&%0  X @A>><= 7L.h`&I`&&H'H0HH@ e@*A eA .ЩB } B" !" 7L&I`&hh0h'h&`"H (*)+!hi# H (*0 (!L(!e!ie! i L8#H (*)+!h"0 H (*0 (!L(!8!8! `% e (`HJ) )h)i( ((``Lk$ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ` ', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00    ٍٍٍ̩̍ȍٍٍ̩Š؍ŠӠӠƠčĠРԍԠՠčٍ̩РøѠ؍ٍٍ̩̍ȍٍŠԍĠ÷ϠŠȠōƠ̠ŠԠƠōӠΠŠ͠Ơӭɽ΍ŠŠԠŠĠƠ͍ؠÍàöȍàöȍȍȍנԠ̩Ϡ͍ҍ̍̍ȍȍנϠ͠ŠӍϠӠ̠ŠӍȠŽøΠϠύŠϠŠӮԠٍٍ̩̩à̍à̍̍Šű̠ǠӠנŮԍø÷Ԡō͠ĠӬōŠӬĠō٠ŠӮ٠÷øàøÍРƍŠōȍàȍàȍƠȠŠŠí÷ΠŠŠԠŠǍƠŠԠŠנōРϠŠĮƠϬ΍Š̠ĠƠŮƍԠΠԠŠΠōР÷Šōű̠ŠŠōӠŠĠĮΠԍƠŠȠٽ٠Ԡٍٍ̩ŠԍŠӠŠŮӍŠԬȠˠҍŠٍŠٍ̩àٍ̩̍à̍̍àԠӠҠŭŠ͠ĠƠ͍ϠǠƠԠƍРӠŠҍÍȍȍàöȍ̍̍̍ŠӠԠŠčƠŠ͠ϠϠԍŠנĠנӠɠȠԠöՠ÷ՠøՠ̠ՠȠՠ̠ՠȠՠ̠ՠȠՠȠՠȠՠÍ̠ՠƍȠՠ°Ǡʠ ԠԠҠŠӠ͠ӠŠ͠ΠҠϠԠҠŨөҠҠΠƠРӠŠ͠   Ϡӊ6deQ]Ԡ̩ĠҠي-]ŠŠҠέˠӊj ]ĽΊ]٠Šӊ dN@"<rEn@p(ưŵààưĠΠŸ)/xUVW<de<@*rrYdHeM65d6ed7e]ԠנҠӊ#M]ӠҠ 8AeC@BB@@BBBACA@B@BB8ejlg@hA@ H@@hA8e@H@@hAȱ@L US AVOIDING GARBAGE COLLECTION &STRING1$,STRING2$:.. % EXAMPLES 1 &A$,B$K $A$(J+9,K/4),B$(I) i ,HERE IS ANOTHER EXAMPLE 6"FIRST STRING>";A$ @"SECOND STRING>";B$ JA$,B$ TA$,B$ ^I1500: h330: ! rTHIS SWAP USES NO ADDIT-IONAL STRING SPACE, TH4:DUMP BUFF TO MEMORY E 1013,76:1014,176:1015,3:SET & VECTOR ROUTINE IS COMPLETELY RELOCATABLE WITH NO ABSOLUTEREFS EXCEPT TO APPLESOFT ROMIT CAN RUN JUST AS WELL AT $800, $2000, OR ??? FORMAT TO USE IT AS FOLLOWS  ..:"8d "STRING SWAP" BY RANDY WIGGINGTON nHEX$"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 ASBLY LANG INTO KBD BUFFER  xI1(HEX$):511I,((HEX$,I,1))128::72,0:14   FF:" ";(8);:II$"":600500AA27TT(TT)PAA27TTĹ1063,160:60050_TT60260zAA27Ĺ1063,97:60050DD$"Y"AA64AA91AAAA32:60260 AA45AA95AA47AA92AA40AA91(AA41AA932AA33AA27>>>> ";:TT0:60020:ENTER IAS AT #2 ENTRY POINT -- SEE LINES 40 & IVELYO P150:JUMP TO ANALYSIS SUBROUTINE (ANALYSIS OF WHAT WAS INPUT TO IAS) Z:"MM=3 ***** DEFAULT EXITS *****":"MM CAN EQUAL 1 TO 255": d"INPUT YOUR OWN VALUE FOR MM=";:TT0:MM3:60020:MM(II$):II$""ĉ:::EXAMPLE OF IAS TO GET (PUN) YSIS SUBROUTINE (ANALYSIS OF WHAT WAS INPUT TO IAS)_ <:"MM=5 ***** DEFAULT EXITS *****": F"INPUT ANYTHING >>>>> ";:TT0:MM5:60020:USE PRINT STATEMENT THEN ENTER IAS AT #2 ENTRY -- FREE TO SET TT & MM TO ANY VALUES -- HERE SET TO 0 & 5 RESPECTRST USE OF IAS< :"MM=255 ***** DEFAULT EXITS *****": ("INPUT ANYTHING >>>>> ";:60010: USE PRINT STATEMENT THEN ENTER IAS AT #1 ENTRY -- TT=0 (TOGGLE BETWEEN KEY RECOGNITION STATES) -- MM=255 (SETS MAXIMUM INPUT LENGTH)3 2150: JUMP TO ANAL Z INPUT ANYTHING SUBROUTINE BY ERIC E. GOEZ CALL -APPLE * JUNE, 1980  60000:INITALIZE INPUT ANYTHING SUBROUTINE ::"DO YOU HAVE THE DAN PAYMAR LOWER CASE":"ADAPTER? ";:60010:II$"Y"II$"YES"DD$"Y": SET/CLEAR DD$ & FIҠƊҠ̠ΠλŠŠſ7h`7$|]ƠϠǠǠΠŧŠŊ3rqP_,]ϠϠ̠ĠƠΊL|qq(_,]ŠǠĠϠϠĠԠƠΊcK%a@E(ң)Q]q.?r]ˠԠȠӠΠԠΊ'@deY]ŠӠϠ֤FJa@E@* # rG]ԠŠŠƠΠĠïҠϠҊ:TqY]ŠϠԠŠƠΊG^`O$]ԠԠӊ/x@p@*#rqqq.d"ed!e]נϠŠҊR]ĤĠ΢ŠԠ͠ϠĠΠ͠ˊMc]ҠΊ(,UVWUVW']ĠӊD6q = ]ԠΠРҠҠÊ ]٠̠ʠǠXdN@"(rd-ededeN@"~rUVWd8reYdeSn]ŠӠ֤ĠҤԠΠ٠ӠҠ    AUTOMATIC RE-TURN AFTER A GRAPHICS LINE "::35,17~::5:" NORMAL ENTRY MODE ":5:" ENTER DATA ":::34,4:1000FLAGFLAG0:230: GOTO CONCATENATION ROUTINE; DO NOT PASS GO; DO NOT COLLECT A$ 900:400: GO GET A CHR AND START TH0 QUIT":::"CTL Z SELECT FROM MENU ESC FOR CAPS ESC+ESC LOCK ESC UNLOCKS "::32,0:33,272:18::" ENTER GR CHRS: A-Z OR 1-5 ** GRAPHICS MODE IS: ";::"OFF";::" **TYPE CTL Z TO RESUME NORMALENTRY MODE ** (2):::4:"INPUT % OF MAX PAGE WIDTH TO BE USED";:" ";LPCT:LPCT10LPCT99LPCT100LPCTLPCT.01:::32,28:33,12:::" SELECT ":::"1 8.5 CPI 2 10 CPI 3 12 CPI 4 16.5 CPI 5 SET ENHNCD6 STD CHRS 7 GRCHR LINE8 GRCHR MODE9 GRCHR DEMO(IZ);"=";DD$;(I);B$;" ";.I122Z746:RD$"PR#0":950:400: Y A A1200,1300,1400,1500,1600,1700,1900,1800,2000 A0ĉ: 3000: INITIALIZATION MODULE WMXCR96:CHR30:Y$(30):D$(13)(4):DD$(0)(4):B$(A$)48(A$)54Z74:CONVERT TO GR CHRS i800:A$((A$)Z):DD$;:I1CR:A$;::B$:PRINT LINE D$"PR#0":950::900:400: BACK TO GET A NORMAL CHR Z32:800: GRAPHICS CHR DEMO MODULE 1381,79:1382,78:1383,32:I97127$((A$)Z):210:230:260:GCR0G0400: GO BACK FOR ANOTHER ROUND l960:16:"HOW MANY CHRS";:" ";CR:CRCR1.3:CHR31CRCR1.25: GRAPHICS LINE MODULE; COMPENSATE FOR GR CHR SPACES ,vCR(CR):15:"ENTER DESIRED GR CHR ";:200::Z32:00: _960:GCR1:Y$Y$DD$: GRAPHICS CHR MODE MODULE; DD$=PRINTER GRAPHICS CHR COMMAND 200:Z32:(A$)48(A$)54Z74:GET A CHR; LC OR SPL CHR CONVERSION RTN (A$)26Y$Y$B$:GCR0:950:270:400:IF CTL Z THEN BACK TO NORMAL !&A:1100ENHMXCR(MXCR5)2eLLLMXCRLPCT:A$(CHR):FLAG1:4060: SET CHR SPACING PER MENU ~MXCR67:CHR28:1010MXCR80:CHR29:1010xMXCR96:CHR30:1010MXCR132:CHR31:1010@ENH1:MXCR(MXCR5)2:CHR01:1100CHR02:10198:1383,198::DON'T UPSET APPLECART; POKE "NORMAL" BILLBOARD TO SCREEN 1028,71:1029,82:1030,65:1031,80:1032,72:1033,73:1034,67:1381,79:1382,78:1383,32:: POKE "GRAPHIC" TO SCREEN WITHOUT INTERRUPTING C$ ENHENH0:MXCR(MXCR5)2400: ( 768:: PRINTER ON n I0LL:".";:::V%LL27:SUBROUTINE TO FORMAT ENTRY WINDOW LL26LL53LL80LL107V%V%1 (37)V%:" ";:: J1028,32:1029,14:1030,15:1031,18:1032,13:1033,1:1034,12:1381,207:1382,HFT1:200: IF ESCAPE NEXT CHR WILL BE UC i (A$)27LOCK1:200:490:IF 2ND ESC KEY SET LOCK FLAG SHFTSHFT0:490:LOWER SHIFT FLAG A$((A$)32):CONVERT A$ TO LC 230:(A$)64(A$)91Ğ: IF CAPS, DISPLAY IN INVERSE 260:200:210] (A$)263000: IF CTL Z GOTO MENU; ALL CHR SIZES CAN BE INTER-MIXED IN Y$ (A$)65(A$)27İ230:500: IF NON ALPHA SKIP CONVERSION LOCK(A$)27LOCK0:SHFT0:400:UNLOCK? LOCK490: SKIP CONVERSION + (A$)27S HERE'S WHY WE SAVED C$; NOW PRINT IT TO SCREEN (A$)13(Y$)1Y$(Y$,(Y$)1):800:Y$;D$"PR#0":Y$"":900::IF C/R, DUMP Y$ TO PRINTER; WIND STRING UP IN A BALL; START OVER GCRġ:1810 ": NOT FINISHED; GET ANOTHER CHR RM; YOU'RE REACHING THE END OF THE LINE 2 { (Y$)1(A$)8Y$"":A$;::400:TRAP BACKSPACE INTO LEFT MARGIN (A$)8Y$(Y$,(Y$)1)::500:CHECK FOR BACKSPACE; THROW AWAY CHR Y$Y$A$:: BUILD Y$ FROM SINGLE CHRS 4 C$;::JU LOWER CASE AND GRAPHIC CHARACTER ROUTINE FOR INTEGRAL DATA PRINTER s BY VAL J GOLDING 11.79  APPLESOFT II BASIC d8000n:4000: A$:C$A$:: C$ PRESERVES CONTENTS OF A$ , (Y$)LL5ĺ(7);::SOUND THE ALA     : 22:P$:3 A$P$" "(A$,(A$)41):2010< CALL -APPLE : FOR UP TO DATE INFORMATION : JOIN A.P.P.L.E. : ONLY $40 INCLUDING APPLE-CATION FEE : 517 11TH AVE. E. : SEATTLE, WA 98102 :": 41 LEADING BLANKS IN A$ I1(A$)39 P$(A$,I,40) (16384)127Ĺ16368,0: K1904cd "C R A W L E R II" BY STEVE LAWSON - 3.80 CALL -APPLE * JUNE, 1980 n:100:I11000:::2000:xA$(A$,2)(A$,1)B$(B$,1)B$:B$(B$,1,(B$)1)10:A$:18:B$:120 A$" H12 H$"D"H13' H$"E"H148 H$"F"H15Q SSH(16((Z$)J))Z J:R256 L xI(58)(59)256. IN15008 1000J PRĺD$"PR#0"n 23:1:"WANT ANOTHER RUN?":A$~ @A$"Y"710  S0 J(Z$)11 H$(Z$,J,1) H$"0"H$"9"H(H$):2050 H$"A"H10 H$"B"H11 H$"C": CONVERT TO DECC 14:"ENTER END ADDR AS FOUR HEX DIGITS":EA$m 4Z$EA$:2000:NS: CONVERT TO DECIMAL PR7ČPR: PRINTER DRIVER ON PR8ĺD$"PR#"P$: PRINTER SLOT ON  944,((I256(I256))256.05)(I256):945,I256: IMOD256,/4): CTRL-D ,D$"NOMONCIO"d ::10:10)"APPLE II DISASSEMBLER":11:5)"BY NELSON R. CAPES"u XI11000:I :10:" INPUT PRINTER SLOT OR CALL ADDRESS":P$:PR(P$) :10::"ENTER START ADDR AS FOUR HEX DIGITS":SA$ Z$SA$:2000:IS\2 BASIC DISASSEMBLER FOR PRINTER L BY NELSON CAPES d946,173:947,176:948,3:949,133:950,60:951,173:952,177:953,3:954,133:955,61:956,162:957,1:958,32:959,94:960,254:961,96:1013,76:1014