' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `&&`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-%(% `&͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠&z# &u`&z#?????    ήҠŠήͮŠήӠ ʮˠîԠʮԠҠӠήŠ͠٠ˠؠ̠Ҡ̠îˠRECTORY !!!": |:1000r"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 8(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:     :"NAME OF FILE:"NAME$::.&CHECK1NUM1Q0NAME$(CHECK)" - "LINE$(CHECK)n:"---------------------"yDCHECKN0:NAME$(CHECK1):NAME$(CHECK1)TEMP$jTEMP$LINE$(CHECK):LINE$(CHECK)LINE$(CHECK1):LINE$(CHECK1)TEMP$z:FLAG450::"APPAVAREX - by Elwood J.C. Kureth"4:"NAME OF FILE=>";NAME$::"TURN ON PRINTER?";TEMP$:(TEMP$,1)"Y"Ċ1K)LINE$(CHECK)(LINE)" ":CHECKNUM::2702^NAME$(NUM)NAME$:LINE$(NUM)(LINE)" "qNUMNUM1:27012:1:"SORTING DATA"40)FLAG0CHECK1NUM2NAME$(CHECK)NAME$(CHECK1)500"FLAG1:TEMP$NAME$(CHECK):NAME$(CHECK)N40ADDRESSADDRESS1:390@JADDRESSADDRESS1:BYTE(ADDRESS)vTBYTE40NAME$NAME$"(*)":ADDRESSADDRESS1:390^BYTE36BYTE90390hBYTE37BYTE48390rBYTE57BYTE65390|310CHECK1NUM1,NAME$NAME$(CHECK)LINE$(CHECEM1:260# BYTE131D1TA1:260O BYTE64BYTE91QUOTED1TAR1EM300e ADDRESSADDRESS1 ADDRESSNXTLINE1200 (ADDRESS)0(ADDRESS1)0440 "ADDRESSADDRESS1:150 ,NAME$"" 6NAME$NAME$(BYTE)@BYTE36(ADDRESS1)2049 QUOTE0:D1TA0:R1EM0E LINE(ADDRESS2)256(ADDRESS3)W 12:21:LINE NXTLINE(ADDRESS)256(ADDRESS1) ADDRESSADDRESS4 BYTE(ADDRESS) BYTE58QUOTER1EMD1TA0:260 BYTE34QUOTE1QUOTE:260 BYTE178R1 APPLESOFT  PROGRAM1  VARIABLEF ( EXTRACTORL 2T <BYo F ELWOOD J.C. KURETHu P{ Z d::"APPAVAREX"::12:"BY ELWOOD J.C. KURETH" n12:"NOW WORKING ON LINE" xNAME$(200),LINE$(200) NUM1 ADDRESS     . (4)"OPEN INSTALL":(4)"WRITE INSTALL"CA14:A$:A$:T(4)"CLOSE"s("POKE(PEEK(176)+1)*256,0"2"POKE104,PEEK(176)+1"<NEW,RUN APPAVAREX1Ũ˨ű˨׍Π؍Ġ٠à čٍѠҠˠĬōРԠҠĠĿӠҠΠԍРĿѠŮΧ˦ԠΠũ̠Ž٠ŠҠҠϠԩٍٍٍ̍ȍǠĩ̠̠ˠ٠̠̍٠ԠϠ ң٠ؠȠ˧ȠŠԠ̠ӠĠ٠ӬϠŠԠŠԍȍ٠ΠˠҠύ٠ɠŠƠŠҺ̠Рή˿àҍРàخ˿ӠҍԮԠ٠ ҍٍĠưӠΠŠҍҳ٠٠٠ŠϮϠԠŧŠ٠ŠԠԠŧōٍԮˠ٠ԠĠˠϮٍԧ٠čΠҠҠƍٍŠ٠٠ԠŠϮРŠŠҠŠԮӍҠŠҍ٠čٍàנҠŠǍӍԠ٠ƍ٠ԠԠ̠ȠԠ͠ٍРԠѠԠЬŠ׍ϮԠŠŠ٠Ġ΍٠РŠΠŠƠ̠ӧҍȍūРijԠӬˠӠСˠ٠̠ӧԠҠōԠ٠ȍ٠ԭˠˬ٠٠ˠϠנÍٍٍ̩٠ƍŠȠ̠ŠҠƠˍ̠İàԭˠɠũİÍİŠҠԫԠà̍İàҍȠѠҠƠʮˍ̠ÍİРӠ٠ȍàԭˠƠˠōİΠƠ̠ӍŠѠ·¸ΠƠҠİ̠ѠàҠĠӍȠѠč̠ѠōȠѠƍ̠ѠϠĠӠŠűˠҍҠˠŠҠìӠ٠ҮӍԠ٠ǍŠѠó٠ԮҠˠōԮӠѠİ       ҠÍӍԍ΍ٍР٠̠ŠԠƠŧҠŠ٠ҠϠҠҠ֮ȠŠϠӠō̍ŮÍƠĠƠϠŠà̠ϠŠŮč̍àȍȍĮԠ٠àԠĠŠ΍ԠРƠύӠ̠ŧӠҠٍؠ̠ϠӠԠō̠čؠ̍ȍؠȍȍؠ`8驍i&<i=9`<<=LHIH0IHL@ H8`H HHHHHРH)ȥBHCHH H=<HBȱHC H4e=? H hChB```BC ~```BC ~````z```#```?aa ``BC ~``<`=>a?8 `ӠĠΠϠ͍ҍ΍ҍȍҫƠŠč̍ҫƍȍàΠϠ؍ҠŠ̠ŠŠōˠҠȍҠԠŠҍӠšԠҠԠŠӍ̠ŠԍԠԠΠٍƍҫٍҫٍ؍ؠàſŠŠƠԍ̍ōҫčРؠנӠ ӠōԠˠ͠Ϡԍ̠̠٠ӠҠˍ̍٠ӍҫӠҠˍҫàҫӠҠҍƠנŠƠˠҫÍ̠ҫԠˠčҫԠˠӠΠƠˠ΍ҫĠˠӠԠƠԠϠԠԠҍҫӠ΍ҫŠˠōҫӠҠԯӠԍŠΠԠ΍ҫԠϠˠԠƍ̍ƍȍҠԠ٠Šҍà̠ԠϠ˧ӍŠˠҠōȍҠԠŠŠҧϠ͍ԠǠҺҫԠϠĠҍƠʮԍԠ٠ŠˠҍҠĠԩԠҍҬ٠ŠԠӍٍŠ̠ѠōȠѠƍ̠ѠȠѠҧӠĠӠԠҠͬԠΠŠĠŠčҠ԰ˠҠҠ˧͍٠ҮӍԠ٠ǍŠѠó٠ΠϠؠ͍̠ѠàҠȠӍȠѠč     144: '(4)"BLOAD ALT.RWTS" EA EA EA EA EA EA EA EA EA N 298E:EA EA EA EA EA EA EA EA EA EA EA EA":5040 A$"4D84:EA EA EA F0 N 69F9:EA EA EA F0":5040 A$"2707:EA EA EA EA EA EA N 2727:E9 E9 E9 E9 E9 E9" A$A$" N D9C6G":A1(A$):511A,((A$,A,1))128 :72,0:ɰ360:490:610:(TRK)LT1050< TK(TRK):ST(SCT):1020k 775,176:TK0:LT1:ST0:LS15:CDWR:FAST0y $490:610 )BK0İ5030 .490:610 8:"COPYDONE": A$"3429:96 97 N 3449:D6 D7 N 3496:0 1 N 34D6:20 21":5040M A$"297B:EA EA EA FAST CONTROLLER;::"BOOT SIDE OR SIDE TWO ? ";YA$:A$"B"A$"2"1002oBK0:A$"2"BK1775,96:550TK0:LT35:ST15:LS15:CDWR:FAST1360:490:610BK1030TK0İ5000TK14İ5010TK21İ5020    ,51,74 `16,0,52,153' j16,0,53,647 t16,0,54,729OTHER SIDE CONTROLLERDTK0:LT17:ST15:LS15:CDWR:FAST1R490:610uT1TK:TK(TRK)1::310:TKT1490:610:(TRK)LT1050TK(TRK):ST(SCT):1020(TRK)17TK18:LT35:1020$:"COPY DONE":L4 CHANGES V16,0 :7684,64: START WITH TAIL #0. BUFFER AT $4000.c T134:7470:: READ 34 TAILS (ALL OF THEM). A$"INSERT SLAVE DISK":470 (13)(4)"BSAVE FS-II.D000,A$4000,L$2CA0": SAVE THE TAILS. wKTT4:T434āTKT343 VST015:100:430::_ `TT5:T351070: CHECK FOR LAST TRACK 7481,175:7482,32: 1D38- (JSR) "$20AF". MODIFY TO GET TAILS. 49385,0:49386,0: DRIVE #1 ON. BSAVE IN LINE 2050 WILL TURN IT OFF.0 7681,0:7683,0 READS FROM THE FS-II DISK.# $T1 .7448,T44:7466,(T5)44:T534Ĺ7466,3444: 7448 = STARTING QUARTER, 7466 = ENDING QUARTER. SET TO READ 20 QUARTERS, OR FIVE TRACKS. 87470: 1D2E BVL0:CDRD:490:BUF,64: WRITE IT TO NORMAL DOS LTU  96,162,0,181,0,157,0,28,202,208,248,32,0,29,162,0,189,0,28,149,0,202,208,248,96 I74697493:X:I,X:: SHORT PROGRAM BEGINNING AT 1D2E TO SAVE AND RESTORE THE ZERO PAGE, RESPECTIVELY, SO CALLING 1D00 WON'T CLOBBER DOS. CALL THIS PROGRAM FOR ALL 1D00- "LDX" ($1E08). LOAD X-REG WITH SLOT NUMBER INSTEAD OF STORING SLOT NUMBER. 7438,0:7443,64: 1D0D- (LDA) "#$00" AND 1D12- (LDA) "#$40". THE COMMAND IMMEDIATELY FOLLOWING EACH OF THESE COMMANDS STORES THE NUMBERS AS THE TARGET BUFFER AT 1E03,4.c<7167:10010: HIMEM JUST BELOW RWT. BUFFER WILL START AT $4000 LEAVING ROOM FOR FIVE TRACKS.A$"INSERT DISK W/FS-II.RWT":470:(13)(4)"BLOAD FS-II.RWT": LOAD RWT. IT WILL USE ALL OF HI-RES PAGE ONE.A$"INSERT FS-II":470Q 7424,174:     WILDERNESSDTK3:LT4:ST15:LS15:CDWR:FAST1:776,0:170ST1TK:490x610:LT4İ230:TK4:LT35:1025TKT1:490:610:(TRK)LT1050TK(TRK):ST(SCT):1020:"COPYDONE":170,222,222,17095(PRINTSTEP):XCOS((STEP)POP)1.73U FYSIN(STEP)POP:HTAB2XCOS,VTABYSIN P(YSIN)10(XCOS)10Ĺ28,RND((1)5) Z(GET)127ľINPUT$::30 d60 n42,85,127,170,213D$ RND(4):DATA04:RND(DATA):DGET16384:HTAB140:VTAB96:"POLAR PRINTS:":4:"NUMBER OF PRINT (3.2 IS GOOD)?";PRINT(:"SPEED (1-500, 100 IS GOOD)?";SPEED:SPEEDSPEED10002:3:16302,0:HTAB,VTAB:STEP0( <STEPSTEPSPEED:POP