' +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*`,200,210,220,230) ::(4);"BRUN BLU"N ::(4);"RUN BLU.INSTRUCTIONS"n ::(4);"CATALOG":A$:10 ::(4);"RUN BFILE LISTER" ::CTO BASIC "( PC6C15 ZC0C5O dN15:11N:A$(N):d x11C::A$(C):t 10:36:A$ 11:1 A$(10)A$(21)CC1:80 A$(8)A$(11)CC1:80 A$(27)C4:A$(13) A$(13)ĺ(7):130 C190SELECTED ENTRY" <C1K FA$(1)" RUN BLU " GA$(2)" RUN INSTRUCTIONS " HA$(3)" CATALOG DISK " IA$(4)" LIST BINARY FILES " JA$(5)" EXIT   :9"IAC DOM 46: BLU - BINARY LINKING UTILITY":"THIS DISK WILL LOAD, LINK, MOVE AND STORE MACHINE LANGUAGE (AMPERSAND) ROUTINES."(10:"CHOOSE BY MOVING THE ARROW KEYS: [ ] " 220:1:"HIT ";::"RETURN";::" TO ACCEPT t's simple &-command,"; Z10:"this starts in column 10,"l d41:"and this works starting in column 41."r ns  :#(4);"BLOAD HTAB 80"@1013,76:1014,0:1015,3Q((4);"PR#3"2"DEMO OF 'HTAB' FOR 80-COLUMN APPLE //e":<10:"This HTAB over 10 spaces works"F41:"but this didn't HTAB to column 41 to start." P:"By using John Wrenhol  0LP{`L ALUEIN1403&RTS;EXITBACKTOCALLINGPROGRAM2ERRORJMPILLEGAL;GIVEILLEGALQUANTITYERRORANMODE?&BMITEXT80;YES->THENCONTINUE...,JMPHTAB+3;NO->THENLETHTABHANDLEIT1TEXT80DEX;DROPX-REGISTER'SHTABVALUEBY1'CPX#80;ISX-REGISTERVALUE>80?,BCSERROR;YES->THENGIVEERRORMESSAGE/STXHTAB80;STOREX-REGISTERVL.EQ$E199;PRINT"ILLEGALQUANTITY"&STOP&`GETBYT.EQ$E6F8;EVALUATEFORMULAjHTAB.EQ$F7E7;t*~*:-*+.OR$300;PROGRAMORIGINAT$300(768)*5STARTJSRGETBYT;YES->EVALUATEANDPUTINX-REG.)LDACOL80;AREWEIN80-COLUMc*:-*#*&HTAB80-COLUMNFORAPPLE//e*3*WRITTENBYJOHNWRENHOLT-BIGREDAPPLECLUB*$*:-.**8HTAB80.EQ$057B;SAMEASDECIMAL1403%BCOL80.EQ$C01F;80-COLUMNSTATUS,LSYNCHR.EQ$DEC0;SYNTAXCHARACTERCHECK6VILLEGA  's simple &-command,"; Z10:"this starts in column 10,"m d41:"and this works starting in column 41."s nt  :"(4);"BLOAD HTAB80"?1013,76:1014,0:1015,3P((4);"PR#3"2"DEMO OF 'HTAB' FOR 80-COLUMN APPLE //e":<10:"This HTAB over 10 spaces works"F41:"but this didn't HTAB to column 41 to start." P:"By using John Wrenholt   0LP{`L  TO SORT" A$:# R$> F1N:F;:4:R$(F):D F(4);"BLOAD SHORT SORT";1013,76:1014,0:1015,3D(N10O<R$(N)sFB$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"P"BUILDING STRINGS"dF1N:X((1)7)2:G1XnR$(F)R$(F)(B$,((1)26)1,1)x:F1N:F;:4:R$(F): "PRESS   ȱѩҩiiii"iҥiАԥѐΥ`ձȱȱ퐼 HhLF0,196+  213,240,179,196,214,208,237,160N  2,177,225,72,177,235,145,225q  104,145,235,136,16,243,169,1  133,212,76,70,3,0A,165* X 210,197,209,144,206,165,212,208K ` 1,96,169,0,133,212,240,174r h 133,213,177,235,240,239,133,214 p 200,177,225,133,233,177,235,133 x 237,200,177,225,133,234,177,235  133,238,160,0,177,233,209,237  144,188,240,2,176,9,20,133,211,24,165/  1,105,7,133,235,165,2,105S ( 0,133,236,165,235,133,225,165v 0 236,133,226,24,165,225,105,3 8 133,235,165,226,105,0,133,236 @ 160,0,177,225,208,34,24,165 H 210,105,1,133,210,165,211,105 P 0,133,211,197,208,144,212x1013,76:1014,0:1015,3TADDR768941:CODE:CKSUMCKSUMCODE:ADDR,CODE:CKSUM26104ĺ"ERROR IN DATA STATEMENTS": 32,217,247,165,155,133,1,165 156,133,2,160,5,177,1,133 208,200,177,1,133,209,169,1  133,210,169,0z#???? ŠϠ      :   ԠԠϠԯ̠ϠŠϠԠԠϠŠϠǠԠϠ РϠ ϠϠ ϠƯίŠϠԠϠ ٠РϠԠǠϠ ̠Ϡ  ԠŠŠϠҠ٠ϠҠǠ٠ϠŠ٠Ϡ ŠӠϠ  ŠǠԠ Р Š      :   ٠Р ԠǠ̠ԠԠԯ̠ŠԠԠ  ҠǠ٠Š٠ŠӠϠ   ƯίŠ Ԡ           ԠŠŠҠ٠ Ϡ"ՠM  ծӠ ӠŠҠ   . .. -                    x (4);"BLOAD TONE"51013,76:1014,0:1015,3>Y50KX1255T(X,Yj- 1###,###.###":500   A$;X;:20:A$;Y  X (4)"BLOAD PRINT USE";1013,76:1014,0:1015,133XX1234.5678:Y876.54321x#:"X = ";X;22);"Y = ";Y:(A$"######.#####":5002A$"+######.#####":500<A$"######.#####+":500FA$"#####.##":500PA$"#####":500 ZA$"$IOVER 17 MINUTES." #:"NOTE THE BRIEF PAUSE AT LINE 2774.":"THIS PAUSE FOR MEMORY CLEANUP NORMALLY TAKES 14 MINUTES.":34,9 (A$(3500) 2I13500 <A$(I)"$"(I) F: CLEAN-UP MEMORY PI,A$(I):I Z(7);"DONE AT LAST..." d34,0:( (4)"BLOAD MEMORY CLEANUP,A$9000"G1013,76:1014,0:1015,144R36864 ::"THIS PROGRAM FILLS A STRING ARRAY WITH 3500 VALUES, TAKING 3 MINUTES TO DO SO.":"WITHOUT THE GARBAGE CLEAN-UP IN LINE 70 (THE AMPERSAND ROUTINE), IT WOULD TAKE    1+ <:"CHOOSE AN ITEM ";:B$:9 FA$,B$,I%o PI%0ĺ"YOU DIDN'T CHOOSE AN ITEM ON THIS LIST": Z"YOU CHOSE ITEM NUMBER ";I% d40A# (4)"BLOAD IN STRING SEARCH"@1013,76:1014,0:1015,3OA$"ABCDE"W(:t)"A - THIS IS A CHOICE"*"B - THIS IS ALSO A CHOICE"+"C - THIS IS ANOTHER CHOICE","D - AND ANOTHER ONE"-"E - THIS IS THE LAST CHOICE" 2I%  # (4)"BLOAD IN STRING SEARCH"@1013,76:1014,0:1015,3dA$"THE QUICK BROWN FOX JUMPED"o(B$"O"x2I%1<A$,B$,I%FI%0ĀP"THERE IS A ";B$;" IN POSITION ";I%ZI%I%1d60." A '? EXTRA IGNORED' ERROR."W Z"TRY THIS ROUTINE..."::"JUST ENTER RETURN TO QUIT.":i d"INPUT ->";:q nA$ x(A$)0ī160 "YOU INPUT:" A$: 100 :"THIS ROUTINE CAN ALSO BE USED TO INPUT DATA WHEN READING A TEXT FILE FROM DISK  (4);"BLOAD INPUT"61013,76:1014,0:1015,3@A$""o(:"THIS SIMPLE ROUTINE WILL ALLOW YOU TO"2"INPUT STRING DATA THAT CONTAINS THE"<"COMMAS (,) AND COLONS (:), WHICH THE"F"APPLE WOULD OTHERWISE IGNORE AND GIVE" P"YOU ANT CTRL-C TO END" P30 3  (4);"BLOAD IF/THEN/ELSE"=1013,76:1014,0:1015,3Z:"IF/THEN/ELSE DEMO":(:"IS THIS RIGHT ?";(8);:A$:A$2A$(3)Ā<A$"Y"ĺ"THIS IS RIGHT.":30:ELSEA$"N"ĺ"THIS IS NOT RIGHT.":30:ELSE"YOU DON'T KNOW..." F:"HIq AMPER GOTO DEMO-(4);"BLOAD GOTO"5X5?(12XZ2"THIS FELL THROUGH":o<"THIS WORKED":X  (4)"BLOAD FREE SECTORS"<1013,76:1014,0:1015,3f:"THE LAST CATALOGED DISK CONTAINS"l(2:"ONCE INSTALLED, THE ROUTINE READS THE VTOC RECORD IN MEMORY TO FIND THE FREE SPACE ON THE LAST USED DISK."   % ZX(0):X0XX65536U d:"FREE SPACE AFTER DELETING ARRAYS IS":X;" BYTES."[ n ]  (4);"BLOAD DELETE ARRAY"=1013,76:1014,0:1015,3\A(1000),A$(1000),A%(1000)v(X(0):X0XX655362:"FREE SPACE AFTER DIMENSIONING ARRAYS IS":X;" BYTES":<A: DELETE ARRAY A FA$:DELETE ARRAY A$ PA%:DELETE ARRAY A  ING STRING ARRAY 'A$'...":# PA$D ZI025:(A$(I))":"A$(I),:L d:z i"...LEAVING STRING ARRAY 'B$' INTACT.": nI05:B$(I),: x35I% (4)"BLOAD CLEAR STRING ARRAY"B1013,76:1014,0:1015,3TA$(25),B$(5)|#:"FILLING STRING ARRAY 'A$'...":(I05:B$(I)"ABCD":2I025:N((1)5)1<J1N:A$(I)A$(I)((1)2665)::(A$(I))":"A$(I),F:: K"CLEAR d500 nN I08:"A$(I)=";A$(I);" B%(I)=";B%(I);" C(I)=";C(I):I: AP (4);"BLOAD CLEAR ARRAY"<1013,76:1014,0:1015,3RA$(8),B%(8),C(8)p(A$"TEST":B%5000:C(2)2I08:A$(I)A$:B%(I)B%:C(I)C:I<:"THE ARRAYS CONTAIN DATA..."F500PA$:B%:C Z:"THE ARRAYS ARE NOW RESET TO ZERO..."# (4)"BLOAD CAT + FREE SPACE"@1013,76:1014,0:1015,3"THIS ROUTINE CATALOGS A DISK AND GIVES THE FREE SPACE.."(2 -L  j0 L` 6 ߅HH hE0hE0$0Hh`Lvv ߅HH hE0hE0$0Hh`Lv  0ȑͷͶii`p> ߍ ߍ g RPQ`Q5Lԍδε  iiδйεд.mm   $Lv eȱe8HH {$ H \۩B \۩S \۩A \۩V \۩E \h @۩, \۩A \۩$ \ۥ , \۩L \۩$ \h h $vL<`2 g R  ڠɃi}i~P{Q|L/`L-BL-vȽ'Ѹ' ٽ)H(HLREPE>UNTILXRWhhvHuHHHHHH` {ݥ$ɸ-uvLɸ iLL L7 { lݥHH g hh  = ʰ;LL  $Lv eȱe8HH {$ H \۩B \۩L \۩O \۩A \۩D \h @۩, \۩A \۩$ \ۥ hah -Lh` lL$vL<` { lݩ ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 4ZNEF- ,00 *$,XǘP$,ȱ8# =ۥ % ,L ;LL   Ф0,ץ Ȱ \ƪ` א  ˆ׊ \۰צoʈƪ j, .L ʈ ,*$ $  ƥ^ ^ ++вf`-8`+-.* = >#`-8`+-.* = >#ױ`   `e48/)%5 `1膞`0`  b`,0F  ` 0ʤױ,$䥬.+5-1^@E  b b-$0+  0П 08f ЎƥQ j jL8f  ` ,Ƣ8墐0 к* `篆ЫƟХ83 IiƢ, 턞`4I `$0E L0 $hh`I01`9` {$ #Lީ; ބ {$:v 8 =Jiʩ^  4 ,H8f h;LLESU,*-.E$޹-fȄ "6 膡 \0Y  `ŝў ŝj `eejje$0p %d0  Α 0  Α0 ːD7d$8孕宕d ːHHHH LLؐL$0p'8垪垪jEQ. IBƥ $0 Iȅde8dȱ(eȱ 0Lȱȱ8ߺ ↭8d eʥjʆdG8de`d`` `h6 ş>0ȱ׈iȱȱ` lkFnm ȱHȱeȱeh֊0ȱ ie L`sp+ƞ0Hepo ʆ8h`1enmop8` ې 퐰;尐 0䱝ȑȩ0 L_ >) ȱȑ𽥡 ې 퐐 op`ꈱ0 $ ȥȥ˩8ij `e  ߠȱ<ȱ=<m>=i? ߠȱ@ȱA>8>?? ߠΔe<<e==<= <@̓L  ߢ uȩȩ 9`  lɭ ILL { ɫ ޥ!ɯɭ KL٠f ȱ ٠`8`ESLE   g RLALA٥HHH8 Đ H $ hhh`L- + o@Dȱu> ,ʵCn`D lݠ i8Hȱe朠 h`A  ieȥieȱe敥`HHH n ȩ   }8 Đ H $ hhh`L-hhh`L-   LE PARAMETER LIST":5:17:"APPLE ";(93);(91):12:I::# SETUP DEC-HEX CONVERSIONY 76,0,032,32,12,225,165,160,166,161,32,65,249,96qI1012:Z:I,Z:II81928202:Z:I,Z:I34,0:35,24::R140:1:R:"*";:7:R:"*";::R26:1:R:"*";:40:R:"*";:53:8:"BINARY FI,0,162,9,24,42,16,1,200,202,208,249,165,161,162,9,24,42,16,1,200,202,208,249,169,0,32,242,226,96,96zfI1012:Z:I,Z:pI81928227:Z:I,Z:zCNT0I561954:S(BASEI)256(BASEI1):V(S2)S2(S2)CNTCNT1CNTCNT(V)254,96,1,0,1,239,216/ I84488474:J:I,J:JI89608980:J:I,J:q RWADV8448:TA8964:SA8965:RD8972*SL6:DR14DA37148>DA,SL16:DA14,SL16:DA1,DR:DA15,DRHR DETERMINE FREE SPACEc\ 76,0,032,32,12,225,165,160,160"("L")"LCLC1*TNCT:SNCS:720:B READ TRACK/SECTORcTA,TN:SA,SN:RD,1:RWDRV:{ SETUP RWTS DRIVER8191 169,035,160,00,32,217,3,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0: 19 ZEROES 1,96,1,0,17,0,17,35,0,36,0,1,1,0,PARAMETERSlI315*v((B3I));:IGTN(B3):SN(B31):720lTN(BASE12):SN(BASE13):720A(BASE)(1BASE)256:AAA:AATCAAAA216L(BASE2)256(BASE3):LLL:LLTCLLLL21615:Z(AA):"("A")";28:Z(LL): "; LC1:21# + B2= CTNTC:CSNSCF &360[ 0 : EXIT PROGRAM :21:958:10)"NO MORE BINARY FILES" D11)"FREE SECTORS = ";CNT N24:11:"READ ANOTHER DISK ?";:29:A$:A$:A$"Y"Į:100 X980 b DISPLAY FILE (B3)255ī4300 PR(B32):PR4PR1284İ610? LC16530r 24:16:"CONTINUE ?";:25:A$:A$:A$"Y"500 1:24:" "; 35,23 21:958 :21: 580 1:24:" C) HEX(DEC) "& @34,3:6::U JTNVT:SNVS:720:CT(BASE1):CS(BASE2)f TLC1:35,21t ^850:930 hTNCT:SNCS:720 rNTC(BASE1):NSC(BASE2) |B21122435 B3BASEB2 (B3)0(B31)0Ĺ35,23:21:958::570 "THEN", 8:"HIT < RETURN > TO CONTINUE": 19:"OR"a 8:"HIT ANY OTHER KEY TO QUIT ?"; 34:A$:A$:A$(13)ī980 VT17:VS0:BASE9216:NULL$"":TC2151 ": ," FILE NAME START LENGTH " 6" (13 CHAR) HEX(DE 3:"13 LETTERS OF THE FILE NAME FOLLOWED"Z 3:"BY THE FILE START ADDRESS AND FILE" 3:"LENGTH IN BOTH HEX AND DECIMAL." :3:"THE NUMBER OF DISK FREE SECTORS IS":3:"ALSO CALCULATED." 16 8:"INSERT DISK TO BE SEARCHED" 18:6 d740Xn::R140:1:R:"*";:23:R:"*";::R222:1:R:"*";:40:R:"*";:x3:8:"BINARY FILE PARAMETER LIST"5:2:R239:"*";::73:"THIS PROGRAM WILL SEARCH A DISK FOR"3:"ALL BINARY FILES, GIVING THE FIRST"-  ՠ㧠宠է󠡡ՠ堧䬠ծ󮍍堧̧ŠٮϠ䬠ϬҬԬƬΠàͺͺ󮠠ӠӠӬ򮠠լ䠺ԠҤĠ¢ӠՠԠӠ򮠠宮堡嬠󮠠宮ԠӠ§䮠Š٬ٮŭϠԠ堧̧٧ĮŠ٠󮍍嬠ЮР䮠嬠׮䬠ՠ堨Ġ蠧ԧРРŠ٠ՠ򮠠ՠ嬠ŠٮŠ٠Ϡͨ亍͠亍¤¤嬠嬠묠ԧ箠󮠠РŠ٠뮠РϬР箠ũӮӠӠ󮍠宮󮠠䬠à嬠Ӡՠ亠Πծ򩬠󮠠𮍍堧̠䮍ՠ󮮮䬠ﮮ堧䮠Ṷ̆ŠϮ뮠àΠլ묠󮠠ᠧ̠ا䮠Ƶ䠨䮠Ƶ젱宠٠Ǡٍ®̮ծ٠Ǡ٠䮠䠨嬠à󮍍          VSCREENLINES1İ70002`SCREENL21İ7000>jSCREENLo16368,0Vt6080\~:b:zX **--PAGE FULL--**]16368,0bLINESLINES10l:23:"PRESS THE RETURN KEY TO CONTINUE ";:v"";L${}L?:? "";L$:10D$/D$;"CLOSE":216,0H16368,0v"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"YES$"y"6200:::8 **--DISPLAY AGAIN--**9LINES10:=SCREEN1L21BPAGE$(SCREEN)LY TO EXIT.";,KEY(16384):KEY127500665004W::KEYKEY128:KEY276080]c:q16368,0z205::p **--ASK IF USER WANTS TO SEE INFO. AGAIN--**zD$216,0:23:"PRESS THE RETURN KEY TO CONTINUE ";151 F$F$(13)1060)10001$D$;8C$""EBF$""NL200TV:Z`:| **--DISPLAY INFORMATION--**20LNE038:"_";:LNE:"_" 22:"PRESS THE ";::"RETURN";::" KEY TO CONTINUE."::"PRESS THE ";::"ESC";::" KE:- **--FIND SPACE BEFORE CURRENT WORD--**9 X(B$)A YXZ ((B$,X,1))32800d XX1m 720~ C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$ F$"."1000 A$F$ C$""LENGTH/STORE IN TWO LOCATIONS--**4 (B$)39İ700: K PAGE$(L2)B$Q :] L2L21t L(37):L185000| B$ : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$"" Z1 C$"" : 150 : 160& **--CONVERT TO UPPER CASE--**7 A95AA32O A13Z35A32180^ B$B$(A)h ZZ1q 150w :} : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."215 (B$,1)" "B$(B$,2,((B$)1)) : :! **--CHECK LINE ECKING."H k:"THERE IS NO DELAY IF YOU ASK TO SEE":"THE FILE AGAIN." l:"CAN YOU DISPLAY LOWER CASE? Y";(8);:LC$:LC$"N"LC$"Y" m n**--READ FILE ROUTINE--** 6000 D$;"READ";FILE$ A$ A(A$) : LC$"Y"ī:- `"THERE MAY BE A SLIGHT DELAY BETWEEN"V b"LINES OF TEXT. THIS DELAY OCCURS " d"BECAUSE THE PROGRAM CHECKS THE LENGTH" f"OF EACH LINE AND DOES NOT BREAK BETWEEN" h"WORDS. ANY DELAY AFTER SWITCHING PAGES" j"IS CAUSED BY THIS SAME CH ' ***--TEXT FILE/APPLE II/40--***- :3 :P **--INITIALIZATION--**hD$(4): CONTROL DxPAGE$(500)(I1:Z1:L212:PFILE$"INSTRUCTIONS"R:T:U **--USER INFORMATION--**Z:2\^"PLEASE READ!" _:      mQiPhP bQkPjP bQ8iP mQhP mQmgP tQmfP tQLP```:):=Le::HʽH ,`mc Ea o c /e ` Wa ` LQ Wa ` ` B $a c mc sotp`LW ԧR?BC ,\P`LLvPRR L +c TL<^ 4` Te 1` b  +c T a c $L<^ ` 1 bf _ aLG e LG*****FATAL ERRORS ENCOUNTERED tG  L<^ ac {a Pb e  e  e  ^ a a e  e LG,B G  a ua a \b lf ac R`NED FUNCTION E  4` |c Te n c d i # a a   4` |c Te _ a c _   4` ^c Te ` jFLE \ LFREFERENCED LAST IN LINE sF   +c T d > +c TLFTYPE CNTRL-C TO ABORT, F  LGANY OTHER KE LE )b ^c je a LD ^L6EUNDEFINED LINE NUMBER E  )b ^c je n B a )b je ` jF (` > c T e  e L~E,B0 zE  +c a 1 bf ac bf c  ~ )b 1` 4` Te (c $LUG 4` Te 1` ^c Te a 4\ 4` c Te a &e a LE 4\LE ^LFUNDEFI b ^c je _ a ^c je _ (LD b je a b le a je o a le a o b ^c je a b ^c le a ^c je o a ^c le a o Db b b vc LC 1 bf Db vc L}C +c a c bf c b  c  a ` $LE ] ` a ] a ^c a )b ^c je a $LE )b ^c le ` o ^ U` bf `  ~ )b 1` 4` Te (c LSC 4` Te 1` ^c Te a 4\ 4` |c Te a 4\LC 1 bf b vc $LE b c $LD c b Ab c 2b 5b c 2b _ c 2b # _ LC ac ;b Ab c 2b _ c 2b # _ $LC c ;b Ab c bf c b u Db  c  )b b b >b aL$BCOPYRIGHT(C)1981,MICROSOFT  B e LKB*****BEGINNING PASS 2 5B  LlB _ 3d _ #`L|B _ _B 0d _`LB _ d`LB ` d ``LB ` c  d ``LB ` A c c i #` +c b ]d ` ` a 4\ &e a 4\ e  e  e  e  e  ΕٕǕ |L䔯AAe Lh2jLh2oLh2tLh2yLh2~Lh2Lh2Lh2Lh2Lh2Lh8  8 8  8 8  8 891L 893L 895L 897L 899L 89;L 89=L 89?L 89AL 89CL 89EL 8  G9 8  ]91Lh1Lh1Lh1Lh1Lh1Lh1Lh2Lh2Lh2 Lh2Lh2Lh2Lh2Lh2$Lh2)Lh2.Lh23Lh28Lh2=Lh2BLh2GLh2LLh2QLh2VLh2[Lh2`Lh2e1RLh1WLh1\Lh1aLh1fLh1kLh1pLh1uLh1zLh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh1Lh8Lh8Lh0Lh0Lh0Lh0Lh1Lh1Lh1 Lh1Lh1Lh1Lh1 Lh1%Lh1*Lh1/Lh14Lh19Lh1>Lh1CLh1HLh1MLh8#Lh8(Lh8-Lh82Lh87Lh8#@#x#z### 6 #}#~##*s*r*`*a#C#D#F#G8L 8Lh8 Lh8Lh8Lh8Lh8Lh`@ P `p08 Xxp@ `dT@df"V*^#~X@ ;?v4  4 L"0(C) COPYRIGHT 1983 0  [4  4 LM0LOGIC & K.S.LIND <0  4  4 Lx0TORONTO, ONTARIO g0  o5 E 4 U 5  X` L0THATS ALL FOLKS........ 0  5 E "4 U 3 +4 (L0Lg 4 LgLg@ s "4 <8 95  L/% /  5 <8 "4 <8 4  L>/% -  Ld-STARTING ADDRESS: Q-  3 .4 e L-LENGTH: {-  2 6 c 14 e 3 :4 (L.L-FILENAME -  4 L-COMMAND -  5 L-ADDRESS -  7 3 t7 c [4 s 3 t7 4 , 2 3 t7 4 8 La, [4  7 [4  7   L, 5 x8 @4 t7 6 2 I4 t7 5 2 2 R4 t7 5 2 2 v4 t7 2 3` X sL,DO YOU WANT A PRINTED REPORT: ,   7 XL,Y 7 14  , L2 6 c 14 e :7 E 5 U C7 E 5 U L7 E x5 U U7 E 5 U` 7 7 7  r s4 ,L+Lf+$0 7  r c 14 7  c+  7LL+ 7  x8 @4  14  3 v7 7 3  14 5  r s 3 v7 3 t7 c ]5 s 3 t7 4 L, 3 v4 E 3 .4 2 3 .4 c 5 i # 5 2 UL.*2 7 9 ,* Lz* 3 ,3 86 .4 P3 [4 E 5 J3 # U j4 E 5 J3 # 5 M3 U +L*ENTER YOUR LIBRARY NAME - *  7  7 L*BSAVE *  7 L*.LIB ,A *  2 .4 eL*,L *  ? (   7L)Y 7 9 ) L0L/)CAT 7 9 +) LE) .LJ)A 7 9 H) L$Lb)R 7 9 `) LN%L)'I AM SORRY BUT I CAN'T CONTINUE... x)  L0 :7 E [4 U C7 E "4 U L7 E j4 U U7 E "4 U [4 E 3 .4 c 5 i # U jLB( L4(&BAD RESPONSE TO INPUT STATEMENT ERROR.  (  L( 5 K r 5 (L( Lx(CTRL C INTERRUPT ATTEMPTED. \(  L( 5 K r d4 (L( [4  L(THE FILE IS NOT ON THIS DISK (  L()Lu) 5 E "4 U L)DO YOU WANT TO CONTINUENT. C OR WRONG TYPE AS RESPONCE TO INPUT. &  Lu) 5 K r T5 (Lz' Ll'ILLEGAL QUANTITY ERROR. T'  Lu) 5 K r 5 (L' L'BAD SUBSCRIPT ERROR. '  Lu) 5 K r 5 (L' L'TYPE MISMATCH ERROR '  L( 5 K r 5 (L0 5 K r 4 (L?& L1&THE FILE IS LOCKED &  L( 5 K r 4 (L& Ly&WRONG FILE TYPE, MUST BE BINARY Y&  L( 5 K r 4 (L& L&THE PROGRAM IS TO LONG &  L0 5 K r 4 (L:' L,'KSYNTAX ERROR--ALLSO SOMETIMES CO x8 14  14  2 E 3 K X 14 2 2 14 3 3 14 3 3 5 x8` @4 3  zLX%END 7 9 T% Lq% lLK% ) ,L0L% }%  X 5 K r 4 (L% L%DISK I/O ERROR %  L( 5 K r 4 (L& L%THE DISK IS FULL %  5 J3 # U 3 ,3 86 c 5 c @4 P3 2 B5 E 5 J3 # 5 M3 U 2 K5 E 5 J3 # U 3 .4 c 5 P3 2 5 E 5 J3 # 5 M3 U 2 5 E 5 J3 # UL" 5 3 6 3 $ 5 3 6 3 $ 14 Y3 ) , 14 3L0 14 3  zL$END 7 9 $ L lL$ 3 @4 3 c $5 c 5 P3 2 .4 E 5 J3 # 5 M3 U 2 g4 E 5 J3 # U 3 ,3 86 c 5 .4 P3 2 4 E 5 J3 # 5 M3 U 2 4 E 5 J3 # U ;6 P3 2 4 E 5 J3 # 5 M3 U 2 4 E 5 J3 # U 3 .4 c 5 P3 2 -5 E 5 J3 # 5 M3 U 2 65 E 5 M3 U q6 E 5 J3 # U z6 E 5 4 # 5 4 U 6 E 5 4 # U 6 E 5 4 # 5 4 U 6 E 5 4 # U 6 E 5 3 # 5 3 U 6 E 5 3 # U 6 E 5 3 # 5 3 U 6 E 5 3 # UL"2 7 9 " L$ 5 3 6 3 $ 4 3 q6 3 $L$ 6 2r 2 3 7  r 3 (L)! 2 5 2 3 E 2 U 14 3 3 14 2 2 5 -8 5 x8 2 3 3 2 2 .4 4Lk!2 7 9 i! L" 5 3 c @4 P3 D6 E 5 J3 # 5 M3 U M6 E 5 J3 # U 5 3 .4 P3 V6 E 5 J3 # 5 M3 U _6 E 5 J3 # U h6 E 5 J3 #  3 E 3 i7 c 14 c 5 i # U 14 3 E 3 i7 c 14 2 3 i7 c 14 c 5 i # 5 2 U @4 3 3 @4 2 2 5 x8 2 .4 3 3 E "4 U 14 3 3 14 2 2 3 x8 14  14  3 7  -8 14  14  3 7 #3  14 5 7  ? 14 3 2 14 2 3 z3 eL3 BYTES LINKED FROM   7  LYPRESS ANY KEY: J   7 3 7 7 s 3 k7 3 .4 s 3 7 7 s 3 `7 z3 s ` z3 .4 3 2 t3 3 $L 3 4 (L( \3 +4 (L$ 14 3 2 14 2 3 3 x8 14  14 3 # U 3 .4 E 5 ;3 # 5 >3 U 3 =4 3 3 E 5 2 # U 3 .4 E 5 2 # 5 2 U 3 =4 3 E 5 3 # U 3 .4 E 5 3 # 5 4 U 3 =4 3 E 5 e3 # U 3 .4 E 5 e3 # 5 h3 U 3 =4 3 3 E 5 3 # U 3 .4 E 5 3 # 5 3 U 3 =4 3 3U 3 :4 (LbL<'WITH WHAT COMMAND DO YOU WANT TO ACCESS   w 7  s +  7  3 .4 3`Lt.REL 7 R4  o L 6 3 &6 3 z3 3 2 z3 2 3 2 t3 A3 14 >3 A3 4 t3 k3 3 E 5 2 # U 3 .4 E 5 2 # 5 2 U 3 =4 3 E 5 ;7 X .L}LEND 7 9  ` 6 E 4 U 6 E "4 U 7 E 4 U 7 E "4 U 7 E 5 2 # U 7 E 5 2 # 5 2 U 7 LBLOAD   7  (7 K 2 17 K r 5 2 w3 4 K 2 4 K r 5 2 4 6 E x5 U 6 E 5 U 7 E 5 U 7 E 5 5 7 9  Lg +L8ENTER YOUR LIBRARY ADDRESS-   7 LK$ 7 14  I Lg F+Lp 7  3Ls 3 3`L} XL%ENTER NAME OF YOUR FILE (END TO EXIT)   +  7 LCAT 7 9  L  X 7 LCATALOG    HE LIBRARY   s 4  14   7L-1L25 7 9 + 6 2 7 9 0 M8 Lz [4  7 [4  7   LL1 7 9 } L 6 3LsL2 7 9  L 23 3LsL3 7 9  L 6 3LsL4 7 9  L ;6 3LsL<1> BELOW DOS   L><2> BETWEEN DOS AND BUFFER !  Lg<3> IN FIRST HI-RES PAGE L  L<4> IN SECOND HI-RES PAGE u  L<5> OR YOUR SPECIAL ADDRESS   4  wL 6NOTE: THE ADDRESS IS THE ENDING ADDRESS OF T2 "4 3 6 2 X s .LiJDO YOU WANT TO CONSTRUCT AN AMPER LIBRARY OR A ROUTINE LIBRARY (A,R)    7L|A 7 9 z L$LR 7 9  LE% [4  7 [4  7   XL XL&WHERE DO YOU WANT YOUR LIBRARY LOCATED   Lq,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé r9809r9 6  ;z% 6 /3 6 3 &6 3 4  7 R4  7  7 /6 L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   % 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` Lh 8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` Z ,խwqq膸 J즸 , :hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J Bw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5唐=ooppȆbcĂbfUVd8ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:ew \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!UUdUV0*UiUViVUmVnɊȢwU𧰸ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ ep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   堰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhHHHH Hȱh HIH HHȩH$HȱHH  h HiHhhHL`80qL+ v`vL`0 \8Єτ ,0 \ \ ,0 \ \۩ LLLL`ª`LQLY8LALeL""" " " " " """""""""!!! ! ! ! ! !!!!!!!!!