' +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݌`%%%% "l^ȔЖȔЖȠ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*` 15:1::16368,0, A$"1"A$"4"3030= A$"1"3100N A$"2"3200_ A$"3"3300n  A$"4"20}  NO PAUSE & TRK,1:SEC,13:MODE,1:BUFF,96 0 RWTS:72,0 : 2457652,96:MODE,2 D RWTS:72,0:MODE,1!N :"DONE..."::::"PRES"PRESS A KEY FOR MENU:";:LOST$:2000: DOS PATCH r ::2:" DOS PATCH ": 5:"1.. NO PAUSE IN CATALOG":"2.. EXTEND BSAVE TO 64K":"3.. RE-TYPE OF ERROR LINE":"4.. RETURN TO MENU" 11:1:"SELECT:";:A$ RENT VOL# ";(32815)@p"NEW VOL#(C/R IF SAME):";VN$:VN(VN$)XzVN$""VN(32815)nVN1VN2542150::10:15:"FORMATTING":XSTETLP1İ23002,X:3,VNFMTLP1İ2400X:20:(7);"DONE";::"..."&A$"T"2080A$"R"20%20309  FORMAT TRACKSV*:::"FORMAT TRACKS":47:1:"STARTING TRACK:";ST$:ST(ST$)>ST0ST342100H9:1:"ENDING TRACK:";ET$:ET(ET$)R(ETST)ET342120\MODE,1:RWTS:72,0f11:1:"CUR"THIS IS A MASTER DISK"D23:"PRESS A KEY FOR MENU:";:LOST$:20^ REFORMAT TRACKS ::2:" REFORMAT TRACKS ":5:"SELECT....":8:" T.. FORMAT TRACKS":" R.. RETURN TO MENU"14:1:"WHICH ? ";:A$  MASTER OR SLAVE ":b12:1:"INSERT DISK & PRESS 'ESC':";:A$:A$(27)1720TRK,0:SEC,10:MODE,1:BUFF,96RWTS:72,0X2457624576255(X)01790X:10:4:"THIS IS A SLAVE DISK":1800:10:4:(X)25515903X"6EXX25@HD(E):20000IJDD$DD$HD$" "PTEWY1|^21:"ADDRESS FIELD: ";::AD$:h22:"DATA FIELD: ";::DD$:m25000r"PRESS A KEY FOR MENU:";:LOST$:20 MASTER OR SLAVE $::2:" ELDS "::12:>1:12:"TRACK TO READ :";T$:T(T$)QT0T341510d2,T: SET TRKo35,20::"TRACK # ";T::DUMP AD$"":35,24E2048020482HD(E):20000"AD$AD$HD$" ",E1DD$"":X20502206052(245761):NS(245762)'W020002>(24588W)01310c24588W24830ĺ"HI THERE":1310 T(C)(24588W):S(C)(24588W1)CC1:WNT0ı(TKNT:SCNS:12302 ADDRESS & DATA ::2:" ADDRESS & DATA FI551110IDELWW1:1050lV16368,0:23:1:868:"PRESS A KEY FOR MENU:";:LOST$:34,5:35,24:20 GET T/S OF FILE F$ D$;"VERIFY ";F$C0TK(46545):SC(46546)TRK,TK:SEC,SC:MODE,1:BUFF,96RWTS:72,0NT:_ù32,3:dâ2:"00000000001111111111222222222233333":"01234567890123456789012345678901234":"-----------------------------------"iù32,0:::8:"S":"E":"C":"T":"O":"R"::15:"10":"11":"12":"13":"14":"15"nù32,0:A$"0123456789":X  -DUMP1 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000,0,0Oò DRAW MAP HEADING P×::"DISK MAP";:21:"TRACK":Uâ1::30:"DRIVE:";DRZâ1:11:"FREE=";FS-DUMP1"45507ƱWW74096256k˱WW,173:WW1,0:WW2,4:WW3,32:WW4,141613:WW5,151613:WW6,96tͱLL1бC:C0ıձBB$"":UU039ڱ(CUU)27AA$((CUU)64):45540߱AA$((CUU))BB$BB$AA$鱂UUTB);BB$:45520816:LO32955:HI32956:LPRT32954.a784,36:D0u 'M'- MENU 2 :u::"MENU 2";::": S>ECTORS USED, ^R>EDRAW":" P>RINT MAP, ^QUIT, M>ENU 1"DuyF20F21:110"yF21F20:110 DUMP SCREEN TO PRINTER  ñA$:A$":<'RTTK:RSSC:TKNT:SCNS:TNNT:SNNS:Q71:CC1:10040B']a SET RWTS & JUNK caaRWTS32779:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:FMT33001:PRT32962 aHA32968:PBUFF32966:PT768:DIR32803:OS817:HP815:DUMP32826:PNT6)'8'TRK,TK:SEC,SC:MODE,1:BUFF,95@B'RWTS:72,0:BUFF,96`L'NT(243201):NS(243202)pV'W020002`'(24332W)010120j'24332W2457410120t'T(C)(24332W):S(C)(24332W1)~'CC1:W'NT0Q71ı'NT0Q70RTTK:RSSC4,98,162,112,162,116,162,233,162,26,165,197,165,15,165,220,165,162,162,151,162,128,162,109,165,50,162,60,162,40,162,45,162,80,162,121,165,157,165,48,163,92,163,141,163,124,1620|X0550A:DAX,A0X::51500 RETURN 1::"SAVE CHANGES ? 5250/ADDR(X1)2DA2/ADDR,109:ADDR1,165D/:34,0:5150U/ CHANGE ALL[/m/"XDADA542/,X,109:X1,165/6X:5150/J RESTORE ALL/T -STANDARD/^/hA$:A$"-STANDARD"54800r 78,165,18,164,150,163,208,164,239,16"-."( $ = RESTORE ALL , # = CHANGE ALL )"O.19:"DOS COMMAND TO ZAP:";Z$_.Z$""5540p.Z$"#"5400.Z$"$"5450..A$:A$"-DOS"5269.X128.A$.A$Z$5320.X/:"*** NOT LEGAL DOS COMMAND":DE1500:DE::14:A$:21:A$:C-4- 8-"A$:A$"-DOS"5154J-(XDADA262R--16r-2(X)109Ğ:"DONE"::5190~-<"SAME"-FX-K4-PXDA28DA542-Z35-d(X)109Ğ:"DONE"::5240-n"SAME"-xX-}34,18.20:"(C/R FOR MENU)E,LOCK,UNLOCK,CLOSE,READ,EXEC,WRITE,POSITION,OPEN,APPEND,RENAME,CATALOG,MON,NOMON,PR#,IN#,MAXFILES,FP,INT,BSAVE,BLOAD,BRUN,VERIFY,X417:X:20:"!":X,18:1:"---------------------------------------",4,C114:A$:A$:C,4- C1 DOS COMMAND ZAP "&+j+10:1:"INSERT DISK & PRESS 'ESC':";:LOST$:LOST$(27)5020+TRK,0:SEC,12:BUFF,96:MODE,1+RWTS:72,0++DA24606+ -DOS++A$:A$"-DOS"5070, INIT,LOAD,SAVE,RUN,CHAIN,DELET(NF$)1(*X,((NF$,X24692,1))128/*XO*MODE,2:RWTS:72,0:MODE,1n*TRK,0:SEC,13:RWTS:72,0*2457666,PT:MODE,2*RWTS:72,0*22:"DONE...":"PRESS A KEY FOR MENU:";:LOST$:20* DOS COMMAND ZAP +::2:" ))65ĺ(7):4670O)z18:1:"1.. BASIC":"2.. BINARY":"3.. TEXT FILE":17:1r)"PROGRAM TYPE:";PT$:PT(PT$))PT1PT34740)PT1PT6)PT2PT52)PT3PT20)X245761172457611740:X,160:X)C1 *X2457611724576117Y20TY$"TEXT FILE"C(*:8::"CURRENT BOOT PROGRAM"::": ";CF$`(4::"TYPE";::": ";TY$(>14:"NEW BOOT PROGRAM NAME:"(H".......................................":15:1(R"";NF$(\NF$""4670(f(NF$)40ĺ(7):4670)p((NF$,14520''TRK,1:SEC,9:MODE,1:BUFF,967'RWTS:72,0B'CF$""`'X245761172457611740t'CF$CF$((X)){'X'TRK,0:SEC,13:RWTS:72,0'TY(2457666)'TRK,1:SEC,9:RWTS:72,0' TY6TY$"BASIC"'TY52TY$"BINARY"( TA$"DISK I/O"*&;EC10A$"FILE LOCKED"E&@EC11A$"DOS SYNTAX"h&EEC15A$"NOT DIRECT COMMAND"x&JA$::4030& CHANGE BOOT &::2:" CHANGE BOOT PROGRAM ":'10:1:"INSERT DISK & PRESS 'ESC':";:A$:A$(27) COMMANDS:":" LOCK":" UNLOCK":" DELETE":" CATALOG":::4030P% ERRORe%"*** ERROR: ";s%EC(222)%"EC1A$"LANUAGE NOT AVALIBLE"%'EC2EC3A$"ILLEGAL RANGE"%,EC4A$"WRITE PROTECTED"%1EC6A$"FILE NOT FOUND"&6EC8:8$:"TYPE 'LIST' FOR HELP, 'QUIT' TO EXIT":34,4:D$":";F$]$(F$,4)"LOCK"4050x$(F$,6)"UNLOCK"4050$(F$,6)"DELETE"4050$(F$,7)"CATALOG"4050$F$"LIST"4070$F$"QUIT"20$4030$D$;F$$4030D%"LEGAL 198,37,32,34,252,108,94,157,0,05#\ X014<#f JR#p 24576223X,J:Xr#z MODE,2:RWTS:72,0:MODE,1# :"DONE..."::::"PRESS A KEY :";:LOST$:3000# HOUSEKEEPING #4100$::2:" LOCK,UNLOCK,DELETE FILES "TS:72,0"" 24576255,76:MODE,2:" RWTS:72,0:MODE,1Q" SEC,6:RWTS:72,0s" 24576,223:24577,188:MODE,2" RWTS:72,0:MODE,1"* TRK,0:SEC,6:RWTS:72,0"4 -RETYPE"> :X12000:A$"H A$"-RETYPE"ĂX)#R 198,37,198,37,198,37, S A KEY :";:LOST$!X 3000,! BSAVE 64KO! TRK,1:SEC,8:MODE,1:BUFF,96_! RWTS:72,0z! 24576100,255:MODE,2! RWTS:72,0:MODE,1! :"DONE..."::::"PRESS A KEY :";:LOST$! 3000! RETYPE" MODE,1:BUFF,96:TRK,1:SEC,5:RWg?@@?xCOgys?~Og00Go 3 3`B"bsqq"<"<0@?ppCa0L `` ` y!@*U*U*U c`<~qy<>q?~c?0`a?|ۍ@*UU @*U*U*U ~aq|0v>8|A @U*U@*U*U*U 00fa  3 sp B" " 0@0`Ca@| `` `<  @*U*U*U `<sy<>Oq?~s?~0`~@|@*UU @*U*U*U  @U*U@*U*U*U 00f`  3 >c?|c  0@a1`Ca`< `` `~`H `@*U*U*U o Gc0 Fp3 |߷@*UU ߶@*U*U*U |<@U*U @*U*U*U 00f` C3 ?c?|0@AapCa0l `` `f 8xx``,Q)1:Q,W93TRK,T:SEC,S:BUFF,B1:MODE,1:RWTS:72,0J3AD24587:C1^3(AD)2556210v3$(AD)0DN9:62303.T(C)(AD):S(C)(AD1):CC138C862303BADAD35:AD2480862303L61703VCC1:DD24588:FL04`TRK,T(C):SEC,S(C):RW02 READ CATALOG TRACK E2T17:S15:B297:B196:DA24832:DN0h2XB2256(B2256)255:X,0:X224833,17:24834,15:24835,32DA6,254:DA39,1222DA48,22:DA49,12DA52,35:DA53,162W034:Q0152Q6:W3:"1" 3M(W(Y/N):";:YN$1YN$"Y"5580-134,3:20W1MODE,2:RWTS:MODE,1:72,0:34,3:20m1p REDO VTOC 1z:2::" RE-MAKE VTOC "::110:1:"INSERT DISK TO REPAIR & PRESS 'ESC'";1LOST$:LOST$(27)60302682T  ]W 4 \  \L%/ m\ T  ]W 4 % L% 1 ]LN$ \  u ]W \  7] UD S BT A U Q HT iW ETL& & \ S BT S cT OY +Y S (LN$L% m\  u ]W m\  o\  u ]W m\  o\ m\ ]W  \L&' \ 5 & L& Y TL&+ \ 5 ,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨéR L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   qEC32A$"VOLUME MISMATCH"5A믭EC64A$"DISK I/O"LA33,32:35,16::8lA"*** ";A$;" ERROR"A"*** PRESS A KEY:";:LOST$A35,24:140A SYSTEM ERROR AEC(222):EC255ĝ:46035A34,17:Aij: Bɳ"*** SYSTEM ERROG$::PP1:PMAXPMAX 605(T$8T$"I"675HT$"D"685XT$"R"705hT$"E"672q605(N$)30N$N$(CC$,30(N$))F$(A)N$:110G$:N$(N$,P)G$(N$,(N$)P):6:10000:PP1:PMAXPMAX605P1N$(G$(27)650*gG$(8)PP1:P1P1;iG$(8)605\lG$(21)PP1:PMAXPMAXnqG$(21)605sP1N$G$(N$,(N$)P):635tP(N$)N$(N$,P1)G$:635vN$(N$,P1)G$(N$,(N$)P){VT:P5:G$" "Ğ:G$((G$)64)::"TYPE";::": ";TY$D:12:34:A$:A$"N"A$"F"A$"E"570T?A$"E"110dDA$"F"710I::"EDIT";::": I,D,R,E"N16:"ORIGINAL :";:N$F$(A):10000S18:"NEW :";:10000XVT18:HT6:P1:MAX(F$(A)):]VT:P5:G$b642 TRK,T:SEC,S:MODE,1:BUFF,64:DIR,D:RWTSJ T(DA1):S(DA2)` X1113161335s (DAX)0268 T(NF)(DAX):S(NF)(DAX1):TY(NF)(DAX2):L(NF)(DAX33)256(DAX34) T(NF)255261 EN32 N$"":Y3ENN$N$:"AND PRESS TO GO, TO EXIT:";T LOST$:LOST$(13)LOST$(27)210i LOST$(27)110o CN$"YES"SD$"NO "ĺ:"DIRECTORY NOT SAVED, CONTINUE ? :";:LOST$:LOST$"N"110  NF1:CN$"NO ":SD$"NO ":T17:S15:DA256ad CUSTOM CATALOGGERjiCN$"NO ":SD$"NO ":D1:D$(4):F$(122),T(122),S(122),TY(122),L(122):25000jCC$" "n34,0::s"<<<<< CUSTOM CATALOGGER VERSION B >>>>>"xX210:X:25:" ":X }40 !!!"!!!""!g@@xcOgys?~Ogp8vo x3 3`B"""&"""0@10Ca0  `` `{a<|py<>~`;|A0LCsp@*UU @*U*U*U ~cq~qX~8~c @U*U@*U*U*U (F$)64(F$)71F(F$)55:32090.@P}F(F$);@Z}HDEF:O@ BEEP-BEEP @I12:K15:ZZ(16336)(16336)::K150:::16368,0:@ȯ !! ERROR !! @үEC(ERR):ERR,0@ܯEC8A$"DISK FORMATTING"@ᯭEC16A$"WRITE PROTECTED"A(E55):31040?;yE$(E)'?@yFHDE16G?EyF9F16F$(F55):31055S?JyF$(F)a?OyHD$E$F$g?Ty?} CONVERT HEX->DEC ? }E$"":F$"":E0:F0?}E$(HD$,1):F$(HD$,1)?(}(E$)64(E$)71E((E$)55)16:32060?2}E(E$)16?<}"@F}5:>m CONVERT CO-ADDR =>mADDR(BF256)(16(V1))HCC>m^>Hq CONVERT ADDR->CO r>RqAADDR(BF256)>\qV(A16)1>fqHCA(A16)16>pqH(HC2)1>uq>y CONVERT DEC->HEX >"yE$"":F$"":E0:F0>,yE(HD16) ?6yE9E16E$F32810:FMT33001:PRT32962=aHA32968:PBUFF32966:PT768:DIR32803:OS817:HP815:DUMP32826:PNT816:LO32955:HI32956:LPRT32954=aUSED954:UBUFF958=aLB33137:HB33152:SH33133=a33178,169: PATCH=a=_m FIND BUFFER ADDRESS >`mBFBF9 VALUE $<^VLO,ADDR(ADDR256)2568"49P16368,0:16384,128:16368,0:6000I9@ RESET BUFFER V9JNBBF95j9TNB1Ĺ28672,NT~9VNB2Ĺ28674,NT9XNB3Ĺ28676,NT9ZNB4Ĺ28678,NT9\NB5Ĺ28680,NT9^9 RESET BUFFER (AGAIN) 9 NBBF959 NB1Ĺ28673,NS8>16368,0:16384,128:16368,0:6000L8B:10:"FILE STORAGE FORMATS":a8D"TEXT FILES:":8F" 00":8H"BINARY FILES:":8J" ":8L"BASIC FILES:": 9N" -QUIT*34,17::34,0::20*"INSERT TRAX DISK & PRESS A KEY":16368,0:16384,128:16368,0**1010,191:1011,157:1169*D$"RUN TRAX"752,169:753,0:754,162:755,255:756,157:757,0:758,A95:759,202:760,208:761,250:762,96f) 752x) (A95)256,0) A1Ĺ28672,0:28673,0) A2Ĺ28674,0:28675,0) A3Ĺ28676,0:28677,0)! A4Ĺ28678,0:28679,0)& A5Ĺ28680,0:28681,0)2715&( MODE,2:RWTS:MODE,1:72,0;( (ERR)045000S( 34,17::34,0:180n( 'W'- CLEAR BUFFER ( 34,17::34,0( 1:19( "CLEAR WHAT BUFFER#(1-5):";A$( A(A$):A1A5Ĺ34,17::34,0:180( A$(27)Ĺ34,17::34,0:180]) 7)180'n OT$"S"2690*'q OT$"R"26804's 2610L'x MODE,1:RWTS:72,0a'{ (ERR)045000'} 33,32:1:1:PRT:33,39:180' :"SAVE: ARE YOU SURE?";YN$' (YN$,1)"N"ī180' 34,17:( 20:1:"INSERT DISK & PRESS 'ESC':";:A$:A$(27 - SAVE !&2 34,17::34,0@&< :"READ/WRITE OPTIONS:":l&F " CURRENT TRK:";T;" CURRENT SEC:";S&P " S> SAVE AT THIS TRACK & SECTOR"&Z " R> READ AT THIS TRACK & SECTOR":"WHICH?('ESC' TO EXIT):";:OT$&_ 34,17::34,0'd OT$(252410'% NB1T(28672):S(28673)G% NB2T(28674):S(28675)g% NB3T(28676):S(28677)% NB4T(28678):S(28679)% NB5T(28680):S(28681)% BFNB95:BUFF,BF:PBUFF,BF% 33,32:1:1:PRT:33,39:34,17::34,0:180&( NS(NS$)W$ NS0NS15İ42000::"ILLEGAL SECTOR";::" PRESS A KEY:";:LOST$:140a$ 8200$$ SNS:SEC,S:34,17::34,0:180$` 'B'- BUFFERS $j 34,17::34,0$t :"CURRENT BUFFER #";BF95$~ :"NEW BUFFER #";NB$:NB(NB$)% NB1NB4İ42000::"ILLEGAL TRACK";::" PRESS A KEY:";:LOST$:140G#8000k#TNT:TRK,T:34,17::34,0:180# 'S'- SECTOR #34,17:::#"NEW SECTOR# <>DEC,<$>HEX:";NS$# NS$""ė:180# (NS$,1)"$"HD$(NS$,2):32000:NSHD:2330 $(BF256)255:X,0:X1"/33,32:1:1:PRT:33,39T"4HCE2:VE1:34,17::34,0:180i" 'T'- TRACK v"34,17:"::"NEW TRACK# <>DEC,<$>HEX:";NT$"NT$""ė:180"(NT$,1)"$"HD$(NT$,2):32000:NTHD:2250"NT(NT$)=#NT0NT3000:HCHD'!HD$"0"Y1$:32000:VHD12!28100>!R1ADDR[!HD$"0"X2$:32000:HCHDy!HD$"0"Y2$:32000:VHD1!28100!R2ADDR!XR1R2:X,0:!RR1! XR21(BF256)255!R,(X):RR1! X"*DFR2R1:X(BF256)255DF:::14:"ERASE BYTES"::% {34,0@ :X09:X1:33:X:_ X6570:33:X54:(X): 17:1:"0 1 2 3 4 5 6 7 8 9 A B C D E F <-- X ";  19:1:"MARKER1:";X1$,Y1$ "MARKER2:";X2$,Y2$ E1V:E2HC !HD$"0"X1$:32:HCHD$HD$"0"Y1$:32000:VHD1/28100;R1ADDRXHD$"0"X2$:32000:HCHDv&HD$"0"Y2$:32000:VHD1028100:R2ADDR:WR1R2:W,DA::VE1:HCE2D34,16::34,0:1:1:33,32:PRT:33,39:180l 'E'- ERASE BYTES  v34,17'>ASC:";NV$=(NV$,1)"$"HD$(NV$,2):32000:DAHD:1770`(NV$,1)"'"DA(NV$):1770qTY$(NV$,1)TY$"-"BIT0:1760TY$"!"BIT64:1760TY$"+"BIT64:1760BIT1289000:DAKE1V:E2HCHD$"0"X1$:32000::15:"REPLICATE"::%T34,0:1+YD^X09:33:X1:X:chX6570:33:X54:(X):r17:1:"0 1 2 3 4 5 6 7 8 9 A B C D E F <-- X ";w|19:1:"MARKER1:";X1$,Y1$"MARKER2:";X2$,Y2$ "NEW VALUE <>DEC,<$>HEX,<NV$D2$:9000:HDK/D2HD'2D2HD<78,1:6,D1:7,D2N<LB,BF:HB,BF]A33133,162gF:SHmPzZ34,17:d180 SEARCH ONLY8,0:6,D1:LB,BF:HB,BF33133,162:SH1370@ 'R'- REPLICATE J34,17::1270BIT128)NV$D1$:9000:HDK3D1HDDD2$""1470p (D2$,1)"$"HD$(D2$,2):32000:1330(D2$,1)"'"HD(D2$):1330(D2$,1)"+"BIT64:1325(D2$,1)"-"BIT0:1325#(D2$,1)"!"BIT64:1325(BIT128-X,1) XWX1(SR$)6(SR$,W,1)"/"1220MD2$D2$(SR$,W,1)TWZ(D1$,1)"$"HD$(D1$,2):32000:1280(D1$,1)"'"HD(D1$):1280(D1$,1)"+"BIT64:1270(D1$,1)"-"BIT0:1270(D1$,1)"!"BIT64-RIGHT .HH2:HCHC1:H31H1:HC0:10554HVV1:V16V1N!`$ 'M'-DOWN t)VV1:V16V1z.L 'F'-SEARCH V34,17:`::"SEARCH:";SR$jD1$"":D2$""tX2(SR$)~(SR$,X,1)"/"1180D1$D1$(SR$,p"HEX ";(91);HD$;"]":"DEC "(91);HD;"]":Iu"PRESS A KEY:";:LOST$\w34,17::34,0ez180n900~ 'I'-UP VV1:V1V16: 'J'-LEFT HH2:HCHC1:H1H31:HC15:1035 VV1:V1V16  'K'ERT 34,17: 34,0:D*"ENTER NUMBER <>DEC, <$>HEX:";N$Y4(N$,1)"$"850h> DEC->HEXCN(N$):N0N255Ğ::"ILLEGAL VALUE"::885HHDN:31000:870R(N$)2HD$"00":860WHD$(N$,2)\32000f34,17::19:34,0- BIT128 TY$"+"BIT644TY$"!"BIT64GTY$"-"BIT0^BIT128A$"B"A$iBTBITx28100:C0X2(A$)WQ$(A$,X,1):9020BITBTADDRC,K:CC1ADDRC(BF256)255605X:605  '$'-NUMBER CONVlA$(A$,(A$)1))q28100:N$"":C08vX1(A$)L{N$N$(A$,X,1)c(A$,X,1)"/"650oX:605HD$(N$,(N$)1):32000:ADDRC,HD:CC1:N$""ADDRC(BF256)255605645A$(A$,(A$)1):A$(A$,(A$)1)TY$(A$,1)RROR"%u"*** PRESS A KEY:";:LOST$9z34,0:FL1710C:47DREC(ERR):ERR,0z\EC16A$"WRITE PROTECTED"fEC64A$"DISK READ"k::8p"*** ";A$;" ERROR"u"*** PRESS A KEY:";:LOST$z34,0:FL1710:47$)NN$N$(A$,X,1).S(A$,X,1)"/"İ6105XX]34,0:35,17:33,32:1:1:PRT:35,24:33,39:17:1:"----------------------------------------":34,17::180bN(N$):N255N0N$"":gADDRC,N:N$"":CC1:ADDRC(BF256)255605iNGE BYTE +34,17:C,:28100:HD(ADDR):31000:V:H:HD$:I-j0::"<>DEC,<$>HEX,<'>ASCII"{5":";:100006A$""ĢV:H:HD$::1807(A$,1)"/"A$A$"/":(A$,1)"$"620?(A$,1)"'"660D28100:N$"":C0IX1(ABF:33,39:35,24:5002606 '/'-PRINT ASCII A35,17l33,32:X116:1:X:868::16368,0v1:1FL9FL0:25919,101:PT:530FL9:PRT35,24:33,39:17:1:"---------------------------------------":260 & 'C'-CHABACKWARDS FL9FL0:455(FL9LSS1:S0S15:TT1:T0T344:35:868:T:8:35:868:S:15:35:868:BF9533,32:1:1TRK,T:SEC,S:BUFF,BF:MODE,1:RWTS:72,0(ERR)045000NTT:NSS:8000:8200PBUFF,SS1:S15S0:TT1:T34T0Z4:35:868:T:8:35:868:S:15:35:868:BF95k33,32:1:1TRK,T:SEC,S:BUFF,BF:MODE,1:RWTS:72,0(ERR)045000NTT:NSS:8000:8200PBUFF,BF:33,39:35,24:500260  '-'-R"FL91600"TC$"E"FL919003YC$"B"2400E[C$"V"53000V^C$"T"2200gcC$"S"2280|eC$(13)İ51000mC$"W"3000oC$"D"3500pC$(17)4000qC$"X"5000r260| '+'-FORWARD ~FL9FL0:390FL9!60"C$"?"50000$'C$"+"3804)C$";"380D*C$"="380T,C$"-"450}/C$(23)OT$"S":34,17::::26701C$(18)OT$"R":26706C$"/"500;C$"P"55000@C$"C"FL9550EC$"$"780JC$"F"FL91100 OC$", FL9İ28100:HD(ADDR):31000::HD$:? FL0ľC$:270\ 784,177: STRANGE PATCH 16368,0:16384,128:KB(16384):16368,0:C$(KB128) V:H:HD$ C$"I"İ1000 C$"O"6000 C$"J"İ1020 C$"K"İ1040C$"M"İ10/=ASC/HEX TOGGLE"7 "CHOOSE: CFREBTS$WDXVOP^R^W^C^Q"Q X116:X:33:"!":r 3:34:"TRACK":35:868:T 7:34:"SECTOR";:35:868:S 10:34:"DRIVE":35:868:DR 14:34:"BUFFER";:35:868:BF95  GET COMMAND V:H9 MAIN PROGRAM 8 PRINT COMMAND SCREEN C 33,39T V1:H1:HC0 17:1:"---------------------------------------"; HD$"":HD0 18:1:"COMMANDS:" "I,J,K,M = MOVE CURSOR ?= HELP MENU" "(+)=FORWARD,(-)=BACK 44,254,96,0,0( I2867228681:I,0:I> I335363353626J J:I,JQ Ie #24576,0:33536 % SET BUFFER TO DEFAULT (BF1:28000:8000:8200 -BUFF,BF:PBUFF,BF 2T0:S0:TRK,T:SEC,S 34,0::33,32:PBUFF,BF:HAS,218:PRT:FLNCE, RTK, 01/08/93 +  INIT VARIABLES J FL0:25000: POKE RWTS V 46000o HC0:BIT0:F20:DR1{ D$(4) POKE MEMORY CLEAR ROUTINE  160,0,169,0,133,60,133,62,169,96,133,61,133,67,169,1,133,66,169,102,133,63,32,C ***************************** ** TRAX EDITOR ** ** ** ** CREATED BY... ** ** ** ** RON KNEUSEL 06/83 ** *****************************   REFERE                            !!" 6EC8ĺ"*** ERROR CODE=";EC;" FOUND":60060K"*** ";A$;" ERROR"k"*** PRESS A KEY:";:LOST${34,0::47H RWTS ERROR REC(ERR):ERR,0\EC16A$"WRITE PROTECTED"fEC64A$"DISK READ"k::8p"*** ";A$;" E1(A$):2:X4:(A$,X,1):6sÁX220:X:3:"!":exú"---------------------------------------"p}ù34,21vñ` SYSTEM ERROR jEC(222)o::8tEC25560070~EC6A$"FILE NOT FOUND"EC8A$"DISK I/O"0EC255ECD1HDD2$""1470E (D2$,1)"$"HD$(D2$,2):32000:1330h(D2$,1)"'"HD(D2$):1330(D2$,1)"+"BIT64:1325(D2$,1)"-"BIT0:1325#(D2$,1)"!"BIT64:1325(BIT128-NV$D2$:9000:HDK/D2HD2D2HD71)"/"1220"D2$D2$(SR$,W,1))W/[(D1$,1)"$"HD$(D1$,2):32000:1280~(D1$,1)"'"HD(D1$):1280(D1$,1)"+"BIT64:1270(D1$,1)"-"BIT0:1270(D1$,1)"!"BIT64:1270BIT128NV$D1$:9000:HDK055 VV1:V16V1#!5$ 'M'-DOWN I)VV1:V16V1O.cL 'F'-SEARCH pV34,17:`::"SEARCH:";SR$jD1$"":D2$""tX2(SR$)~(SR$,X,1)"/"1180D1$D1$(SR$,X,1)XWX1(SR$) (SR$,W,:u"PRESS A KEY:";:LOST$1w34,17::34,0:z180C900S 'I'-UP iVV1:V1V16:o 'J'-LEFT HH2:HCHC1:H1H31:HC15:1035 VV1:V1V16  'K'-RIGHT HH2:HCHC1:H31H1:HC0:1NUMBER <>DEC, <$>HEX:";N$.4(N$,1)"$"850=> DEC->HEXpCN(N$):N0N255Ğ::"ILLEGAL VALUE"::885HHDN:31000:870R(N$)2HD$"00":860WHD$(N$,2)\32000f34,17::19:34,0p"HEX ";(91);HD$;"]":"DEC "(91);HD;"]"!"BIT64TY$"-"BIT03BIT128A$"B"A$>BTBITM28100:C0\X2(A$)tWQ$(A$,X,1):9020BITBTADDRC,K:CC1ADDRC(BF256)255605X:605  '$'-NUMBER CONVERT 34,17: 34,0:*"ENTER vX1(A$)!{N$N$(A$,X,1)8(A$,X,1)"/"650DX:605xHD$(N$,(N$)1):32000:ADDRC,HD:CC1:N$""ADDRC(BF256)255605645A$(A$,(A$)1):A$(A$,(A$)1)TY$(A$,1)BIT128TY$"+"BIT64 TY$"610 XX|]34,0:35,17:33,32:1:1:PRT:35,24:33,39:17:1:"----------------------------------------":34,17::180bN(N$):N255N0N$"":gADDRC,N:N$"":CC1:ADDRC(BF256)255605ilA$(A$,(A$)1)q28100:N$"":C0 DDR):31000:V:H:HD$:-?0::"<>DEC,<$>HEX,<'>ASCII"P5":";:10000m6A$""ĢV:H:HD$::1807(A$,1)"/"A$A$"/":(A$,1)"$"620?(A$,1)"'"660D28100:N$"":C0IX1(A$)NN$N$(A$,X,1)S(A$,X,1)"/"İRINT ASCII 35,17A33,32:X116:1:X:868::16368,0K1:1nFL9FL0:25919,101:PT:530|FL9:PRT35,24:33,39:17:1:"---------------------------------------":260& 'C'-CHANGE BYTE +34,17:,:28100:HD(ASS1:S0S15:TT1:T0T34Z4:35:868:T:8:35:868:S:15:35:868:BF95k33,32:1:1TRK,T:SEC,S:BUFF,BF:MODE,1:RWTS:72,0(ERR)045000NTT:NSS:8000:8200PBUFF,BF:33,39:35,24:500260  '/'-P5:868:T:8:35:868:S:15:35:868:BF95@33,32:1:1oTRK,T:SEC,S:BUFF,BF:MODE,1:RWTS:72,0(ERR)045000NTT:NSS:8000:8200PBUFF,BF:33,39:35,24:500260 '-'-BACKWARDS FL9FL0:455FL9!"B"2400[C$"V"53000+^C$"T"2200<cC$"S"2280QeC$(13)İ51000bmC$"W"3000soC$"D"3500pC$(17)4000qC$"X"5000r260| '+'-FORWARD ~FL9FL0:390FL9SS1:S15S0:TT1:T34T0/4:3$";"380*C$"="380),C$"-"450R/C$(23)OT$"S":34,17::::2670n1C$(18)OT$"R":2670~6C$"/"500;C$"P"55000@C$"C"FL9550EC$"$"780JC$"F"FL91100OC$"R"FL91600TC$"E"FL91900YC$ƀ ɍ L `ML%`J aLD u`J aL[ u`/$ `/$ ```<>`=CBf? ,````<>`=CBf? ,`*+,-./0123456   's 2610!'x MODE,1:RWTS:72,06'{ (ERR)045000X'} 33,32:1:1:PRT:33,39:180y' :"SAVE: ARE YOU SURE?";YN$' (YN$,1)"N"ī180' 34,17:' 20:1:"INSERT DISK & PRESS 'ESC':";:A$:A$(27)2715' MODE,2:RWTS:MODE,1:72,0( EAD/WRITE OPTIONS:":A&F " CURRENT TRK:";T;" CURRENT SEC:";Sk&P " S> SAVE AT THIS TRACK & SECTOR"&Z " R> READ AT THIS TRACK & SECTOR":"WHICH?('ESC' TO EXIT):";:OT$&_ 34,17::34,0&d OT$(27)180&n OT$"S"2690&q OT$"R"2680 NB2T(28674):S(28675)<% NB3T(28676):S(28677)\% NB4T(28678):S(28679)|% NB5T(28680):S(28681)% BFNB95:BUFF,BF:PBUFF,BF% 33,32:1:1:PRT:33,39:34,17::34,0:180%( - SAVE %2 34,17::34,0&< :"RAL SECTOR";::" PRESS A KEY:";:LOST$:1406$ 8200Z$$ SNS:SEC,S:34,17::34,0:180q$` 'B'- BUFFERS $j 34,17::34,0$t :"CURRENT BUFFER #";BF95$~ :"NEW BUFFER #";NB$:NB(NB$)$ NB1NB52410$ NB1T(28672):S(28673)%KEY:";:LOST$:140#8000@#TNT:TRK,T:34,17::34,0:180V# 'S'- SECTOR g#34,17:::#"NEW SECTOR# <>DEC,<$>HEX:";NS$# NS$""ė:180# (NS$,1)"$"HD$(NS$,2):32000:NSHD:2330# NS(NS$),$ NS0NS15İ42000::"ILLEG33,39)"4HCE2:VE1:34,17::34,0:180>" 'T'- TRACK K"34,17:s"::"NEW TRACK# <>DEC,<$>HEX:";NT$"NT$""ė:180"(NT$,1)"$"HD$(NT$,2):32000:NTHD:2250"NT(NT$)#NT0NT34İ42000::"ILLEGAL TRACK";::" PRESS A 28100!R1ADDR0!HD$"0"X2$:32000:HCHDN!HD$"0"Y2$:32000:VHD1Y!28100e!R2ADDRy!XR1R2:X,0:!RR1! XR21(BF256)255!R,(X):RR1! X!*DFR2R1:X(BF256)255DF(BF256)255:X,0:X"/33,32:1:1:PRT::X09:X1:33:X:4 X6570:33:X54:(X):k 17:1:"0 1 2 3 4 5 6 7 8 9 A B C D E F <-- X ";q  19:1:"MARKER1:";X1$,Y1$ "MARKER2:";X2$,Y2$ E1V:E2HC HD$"0"X1$:32000:HCHD HD$"0"Y1$:32000:VHD1!8100R1ADDR-HD$"0"X2$:32000:HCHDK&HD$"0"Y2$:32000:VHD1^028100:R2ADDR~:WR1R2:W,DA::VE1:HCE2D34,16::34,0:1:1:33,32:PRT:33,39:180l 'E'- ERASE BYTES v34,17:::14:"ERASE BYTES"::{34,0 32000:DAHD:17705(NV$,1)"'"DA(NV$):1770FTY$(NV$,1)_TY$"-"BIT0:1760yTY$"!"BIT64:1760TY$"+"BIT64:1760BIT1289000:DAKE1V:E2HCHD$"0"X1$:32000:HCHDHD$"0"Y1$:32000:VHD12^X09:33:X1:X:8hX6570:33:X54:(X):or17:1:"0 1 2 3 4 5 6 7 8 9 A B C D E F <-- X ";uw|19:1:"MARKER1:";X1$,Y1$"MARKER2:";X2$,Y2$"NEW VALUE <>DEC,<$>HEX,<'>ASC:";NV$(NV$,1)"$"HD$(NV$,2):8,1:6,D1:7,D2#<LB,BF:HB,BF2A33133,162<F:SHBPOZ34,17:Xd180j SEARCH ONLY8,0:6,D1:LB,BF:HB,BF33133,162:SH1370@ 'R'- REPLICATE J34,17:::15:"REPLICATE"::T34,0:1Y0 :3 0 D$;"BLOAD TX.PIC,A$4000"T 16368,0:16384,128:16368,0\ :T  DA>(EV 0x8x D- ܸ H``),` )JJJJ% ") $ Lo` L0K14 L= BC D..=D5֤4 Jhg`! `.``3``    HP@P? ` `` LĀ`  کQP AL    J   \L w W > Z T X Y LJTRACK J  [ LJSECTOR J  sL KBUFFER 1 K  Y  V D ^ [  W D ^ LAKBUFFER 2 8K  Y  W D ^ [  W D ^ LvKBUFFER 3 mK  Y  )X D ^ [  qX D ^ LKBUFFER 4 = CONVERT NUMBER BASES I  LIW = CLEAR BUFFER I  LJX = TRANSFER BUFFERS I  L"JV = BYTE VALUE J  LIJ^R,^W= READ/WRITE BUFFER 0J  LiJ^Q = EXIT PROGRAM WJ  LJ^C = EXIT ANY OPTION wJ  LJ PRESS A KEY:  LHBR = REPLICATE BYTES. FORMS: (DATA) [ TL @\ D n T (Y $LF sLG W > Z T X L(G*** SYSTEM ERROR CODE= G  T a LJG *** IN LINE :  V TL X w A$A$((W)128)/='W/B'7/TV SET LPRINT VALUE T/^VLO,ADDR(ADDR256)256h/hVHI,(ADDR256)/mV(ADDR)141ğ:"M";::/oV(ADDR)160(ADDR)12722140/rV32954:/|V"^";::((ADDR)64);::/a POKE RWTS & JUNK /aK0aRWTS0:9080._#K(WQ$)BIT:5.d#(WQ$)64BIT0:9080H.i#K(WQ$)BIT:^.n#(WQ$)64BIT64o.x#K(WQ$)BITu.#.' INPUT ROUTINE .'2041,32:2042,111:2043,253:2044,134:2045,6:2046,96.$'2041..'LN(6):A$"".3'W512511LN/8'UFFER (AGAIN) - NBBF95/- NB1Ĺ28673,NSC- NB2Ĺ28675,NSW- NB3Ĺ28677,NSk-" NB4Ĺ28679,NS-$ NB5Ĺ28681,NS-& -(# EXTRA CHECKS -2#WQ$(NV$,2,1)-<#BIT128K(WQ$)BIT:-F#BIT09070-P#BIT649060.Z#(WQ$)64BITB1228671)-,B2228670,R1:B2228671,R2d,:::(7);"DONE... PRESS A KEY:";:LOST$::180y,@ RESET BUFFER ,JNBBF95,TNB1Ĺ28672,NT,VNB2Ĺ28674,NT,XNB3Ĺ28676,NT,ZNB4Ĺ28678,NT,\NB5Ĺ28680,NT,^- RESET B19:868:"TRANSFER BUFFER#(1-5):";B1$:B1(B1$)G+B11B155020w+21:868:"TO BUFFER#(1-5):";B2$:B2(B2$)+B21B2B1B255040+DA(B195)256+X(B295)256((B295)256)255+X,(DA):DADA1+X ,R1(B1228670):R2(:3530* DR2DR1(* DIR,DR::180>* -QUITW*34,17::34,0::20*"INSERT TRAX DISK & PRESS A KEY":16368,0:16384,128:16368,0**1010,191:1011,157:1169*D$"RUN TRAX"* TRANSFER BUFFER *34,17::3+757,0:758,A95:759,202:760,208:761,250:762,96;) 752M) (A95)256,0h) A1Ĺ28672,0:28673,0) A2Ĺ28674,0:28675,0) A3Ĺ28676,0:28677,0)! A4Ĺ28678,0:28679,0)& A5Ĺ28680,0:28681,0)0 140) 'D'- DRIVE * DR1DR2(ERR)045000(( 34,17::34,0:180C( 'W'- CLEAR BUFFER V( 34,17::34,0a( 1:19( "CLEAR WHAT BUFFER#(1-5):";A$( A(A$):A1A5Ĺ34,17::34,0:180( A$(27)Ĺ34,17::34,0:1802) 752,169:753,0:754,162:755,255:756,157:ΠӠˠàŠҠƠԠԠƠԠҠӠРРԠϠɠԠŠ"KU׉::140:140RPL RRL RTLdRYLdR^L R`L RbLdRgLdRlL RnL RpLdRuL RwL RyLdR~L RL RL RLdRL RLdRL RL RLdRLdRLdRLdRLdQLdQL QL QLdRL RL RLdR L RLdRL RLdRL RLdR!L R#LdR(LdR-L R/LdR4LdR9L R;L R=LdRBLdRGL RIL RKLd^Ld^Ld^Ld^Ld^LdQL QLdQL QL QL QL QL QL QL QL QL QL QL QLdQL QL QL QL QL HDXX(BF256):31000)J׺"$";HD$;": ";6JׁZZ015WJ#HD(XXZZ):31000:HD$;" ";_J(ׂZZkJ-׺" ";xJ2ׁZZ015J7׭((ZZXX))" "CC$".":55105J<׭(XXZZ)12832CC$".":55105J?CC$((ZZXX))JA׺CC$;JFׂZZ:JKׂXXKP׺(4);"PR#0*IֺSL$::"TITLE:";TL$:TL$""TL$(0)AI׺(4);"PR#";(SL$)I׺(TL$,20);" TRACK: ";T;" SECTOR: ";S;" BUFFER#";BF95I ׺"-------------------------------------------------------------------------------"I ׺IׁXXBF256BF25625516Ja LT32954a784,36: 675,73:28676,138:28677,32:28678,15:28679,112:a28680,136:28681,208:28682,244:28683,32:28684,63:28685,255:28686,96:28687,170:28688,202:a28689,208:28690,253:28691,44:28692,48:28693,192:28694,96:28695,0:TEN TO DISK, PRESS A KEY:";:LOST$::500/ J a SET RWTS VARIABLES aRWTS32779:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:FMT33001:PRT32962aHA32968:PBUFF32966:PT768:DIR32803:OS817:HP815:DUMP32826:PNT816:LO32955:HI32956:LPR11) dX111:24820X,0:XK gX1(NAME$):24820X,((NAME$,X,1)):Xy l::"PRESS TO GO, TO EXIT:"; qLOST$:LOST$(27)LOST$(13)625 vLOST$(27)500 {TRK,17:SEC,0:BUFF,96:MODE,2:RWTS:72,0 }:) :"ID WRIT58:"INSERT DISK, READ, EXITS:";R :CH$:CH$(13)CH$(27)570e <CH$(27)500p ?140: D12:"DISK ID IS >>>> ";NAME$ I565 X WRITE DISK ID ] b8:"ENTER DISK ID> ...........":8:16:"";NAME$ cNAME$(NAME$,E A DISK ID."9 17:"ENTER CHOICE, OR TO EXIT:";d CH$:CH$(27)CH$"1"CH$"2"535 CH$(27)Ģ17:1:868:"INSERT TRAX DISK AND PRESS A KEY:";:LOST$:::D$;"RUN TRAX" !CH$:CH(CH$) &CH2600 + READ DISK ID 0. ";::13:"DISK ID MARKER";::40:" ";:I :" ";::38);::" ";:X :40);:b 34,5 23:"(TRAX VERSION 1.0, RON KNEUSEL (C)1990)" 35,22 8:"POSSIBLE CHOICES:":: " 1. READ A DISK ID."  " 2. WRITd:255::(x LOAD NEEDED FILES4}D$(4)?25000H500xTRK,17:SEC,0:BUFF,96:MODE,1:RWTS:72,0NAME$"":X2457624524576255:NAME$NAME$((X)):X MAIN PROGRAM ::40):" ";::38);::" ";* "    1a$1_m FIND BUFFER ADDRESS 31`mBFBF95:M1m CONVERT CO-ADDR m1mADDR(BF256)(16(V1))HCs1m1Hq CONVERT ADDR->CO 1RqAADDR(BF256)1\qV(A16)11fqHCA(A16)161pqH(HC2)11uq1y CONVERT DEC->HEX 2"yE$""32779:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:FMT33001:PRT329620aHA32968:PBUFF32966:PT768:DIR32803:OS817:HP815:DUMP32826:PNT816:LO32955:HI32956:LPRT329540aUSED954:UBUFF9580aLB33137:HB33152:SH331331a33178,169: PATCH(W):MODE,1:BUFF,96")PBUFF,962.RWTS:72,0?0VT(37)x36:14:"TRK:";:868:T(W);" SEC:";:868:S(W):VT8PRT=FL01095BFL1Ģ23:10:"PRESS A KEY TO CONTINUE:";:LOST$CLOST$(27)1110D1100GDE150:(16384)1"FILE";::": ";F$;:22:" TO ABORT"<34,6::35,22]10:"A>SCII OR H>EX:";:AH$xAH$"A"ĹHA,237:1035HA,218 :"A>UTO OR M>ANUAL:";:AM$ AM$"M"FL1:1040FL08:1:958:W0T(W)01110$TRK,T(W):SEC,SHT:"TRACK ";T;" SECTOR ";S"R8 FILE HUNTER u::2:" FILE HUNTER "::4:10:"FILENAME(C/R FOR CATALOG):";F$F$""ĺD$;"CATALOG":24:"FILENAME:";F$Y0200:T(Y)0:S(Y)0:Y1200):::(X)0ı:X:((24588)35(24588)0)(24589)16770@YX24588245762552r (X)34(X1)15ı(X)0810 X*VTVT14VT21HT21Ģ24:"PRESS A KEY FOR REMAINING LIST:";:LOST$::VT6:HT1>VT21HT21:VT6HVT:BORT"{34,5:T334)S015LTRK,T:SEC,S:MODE,1:BUFF,96n(16384)155Ĺ16368,0:700~RWTS:72,0720S,T24:"PRESS A KEY FOR MENU:";:LOST$:20 SEE IF T/S LIST(24576)0ı X2457672457611: MENU:";:LOST$r:34,3:30>X SEARCH FOR T/S LISTS L]HT1:VT5b::2:" TRACK/SECTOR LIST FINDER "::5:l10:1:"INSERT DISK & PRESS 'ESC':";:LOST$:LOST$(27)620v::5:6:"SEARCHING";::": PRESS TO AOST$.T::"PRINT LIST ? :N";:20:YN$TWYN$"Y"ĺ:(4);"PR#1":ED1:345aXED0::oYX0BS1^"TRACK :";T(X);" SECTOR :"S(X)c(37)20ED0Ģ22:"PRESS A KEY:";:LOST$::hX:(4);"PR#0"m22:16368,0:"PRESS A KEY FOR384)155Ĺ16368,0:310 S,T)310; !! ERROR !!W"T(BS)T:S(BS)S:BSBS1g,ERR,0:270r6 END@34,0:5:868::"SEARCH COMPLETED"::34,14::JBS0ĺ"NO BAD SECTORS FOUND":365OBS;" BAD SECTORS FOUND":"PRESS A KEY:";:L---------------"@11:"CURRENT TRACK :":"CURRENT SECTOR :"t14:"----------------------------------------"34,14:TSTENS01511:17:868:T:17:868:STRK,T:SEC,S:MODE,1:RWTS:72,0(ERR)0280 (16 BAD SECTOR SCAN "::P :8:"STARTING TRACK:";ST::"ENDING TRACK:";ENe ST0ST34ST0{ EN0EN34EN34 :5::"SEARCHING";::" PRESS TO ABORT" 7:"SCANNING FROM TRACK ";ST;" THRU ";EN9:"-------------------------4 C13170P C200,600,900,1500,1700,2000,3000,4000,4500,5000,6000,6650 22::"INSERT TRAX DISK AND PRESS A KEY": 16368,0:16384,128:16368,0 (4);"RUN TRAX,D1" 'B'-BAD SECTOR SCAN BS0 :2::" ;(34);" TO ACCEPT"' oZX(0):ZX(0); sV:33::"<--"k x16368,0:16384,128:K(16384):16368,0 }K149K136K141120 V:33::" " K141155 K149VV1 K136VV1 V5V5 V17V17 115 C(37)......."0 _"CHANGE BOOT PROGRAM............."X d"ZAP DOS COMMANDS................" f"RE-MAKE VTOC...................." h"REMOVE DOS......................" i"EXIT............................" n:"ARROW KEYS MOVE CURSOR":(34);"RETURN"TOR LIST FINDER........"@ A"FILE HUNTER....................."h F"ADDRESS & DATA FIELDS..........." K"MASTER OR SLAVE DISKETTE........" P"RE-FORMAT......................." U"DOS PATCH......................." Z"HOUSEKEEPING.............^5/D$(4):S16384:S116368:BT(61),BS(61)KT(200),S(200),M(36,17)i 25000: POKE RWTS & JUNKo{60000:2:" DOS UTILITIES ":(34,3:25:V57"BAD SECTOR SCAN................." <"TRACK/SEC                  v -BINDEC+ 128,64,32,16,8,4,2,11 M A$:A$"-BINDEC"8340V NT0a Q18j BIT (NT$,Q,1)"0"8390 NTNTBIT Q:' GET T/S OF FILE F$ 'Q70'D$;"VERIFY ";F$;",D";DR$'C0.'TK(46545):SC(4654FS: |! DEC->BINARY : DB$"":D1$"":D2$""H I811a& BIT(I)(S22(I1))0 D2$D2$(BIT(I)2(BIT(I)2)):I: I811D BIT(I)(S12(I1))N D1$D1$(BIT(I)2(BIT(I)2)):IX DB$D1$D2$b l BINARY->DEC(4);"PR#";(SL$)::(4);"PR#0":(4);"PR#";(SL$)=45500S(4);"PR#0":110o@ PRINT MAP SCREEN E34,4:7,0:8,0J5:4:H3TX034^Q(4X)56:OS,QhHP,H:PNTm5rHH1:XwFS(7)(8)256::1:16:" ";:16:E  DR1DR2:3520! DR18 :1:36:868:DRA 110V PRINT MAP :"PRINTER SLOT: 1 TO EXIT";:15:SL$SL$(13)SL$"1"SL$(27)110SL$"1"SL$"7"4010:"TITLE:";TL$::(TL$,35)2TB1:0`T(Y)01160&jT3T(Y):S3S(Y)=tT34:S35::"0"D~Y`K1,0:K,128:K1,0:110v '^R'-REDRAW W520:W:4:868:8000:110 34,0::D$;"CATALOGD";DR 24:"FILENAME:";F$ 50000:8000:34,21: 'D'-DRIV$"0"110F$""İ3000%10000::"FILE";::": ";(F$,21):(91);"TRK#";RT;" SEC#";RS;"]";:TN0ĺ(91);"TRK#";TN;" SEC#";SN;"]";TN0CC1:(91);"SIZE:";C1;"]";:RS5:RT4:"0":TN0ĢSN5:TN4:"0"LY0300:MODE,1(ERR)061000'1104 EXIT V::" TO EXIT":K1,0|"INSERT TRAX DISK & PRESS A KEY"K,128K1,0D$;"RUN TRAX,D1" 'S'-SECTORS USED TN0:TS0::"FILENAME(C/R FOR CATALOG):";F$ FX2483225087:DA,(X):DADA1:XCvX520:X:4:868:X:100W '^W'-SAVE t::"SAVE ? (Y/N):";YN$(YN$,1)"Y"110:16368,0:::"PRESS A KEY TO SAVE"::K,128:K1,0DIR,DR TRK,17:SEC,0:BUFF,96:MODE,2:RWTS:72,30024576X,NT$NT$(DB$,8)<8300:24576X1,NTET4MC5yW1611:C:T4:(DB$,W,1):CC1:W&110X 'O'-ORIGINAL bDA24576::"ORIGINAL MAP ? (Y/N):";:YN$cYN$"Y"613d110e::16::"WORKING":#lr8200 |14:DB$ 23:14+ NT$""7 G116? A$Q A$(13)460c A$(24)330u A$(27)550 A$"1"A$"0"440 410 A$;:NT$NT$A$ G (NT$)16480 NT$NT$(DB$,16(NT$)) DB$NT$:NT$(DB$,8)861000! X520:X:4:868:X+ :90@ , 'C'-CHANGE m 6:"'C/R' TO QUIT":"TRACK#:";T$:T(T$)| ;T$""110 @T0T34ĺ(7):310 J:14::"FEDCBA9876543210": T"NEW TRACK#";T; ^X(4T)56 hS1(24576X):S2(24576X1) KB1963500 140' 'R'-READ p ::(34);"X";(34);" TO QUIT"::"INSERT DISK & PRESS 'ESC':";:A$ A$"X"110 A$(27)210 DIR,DR TRK,17:SEC,0:BUFF,96:MODE,1:RWTS:72,0 BUFF,97:RWTS:72,0:BUFF,96 (ERR)0ANGE,R>EAD DISK,D>RIVE"C "^W>RITE DISK, O>RIGINAL MAP, M>ENU 2"\ K1,0:K,128:KB(K)f K1,0v KB195300 KB210200 KB207600 KB20531000 KB151650 KB2084000 KB211900 KB145710 KB1462000 ING..." #DIR,DR 'FL1L (TRK,17:SEC,0:BUFF,96:MODE,1:RWTS:72,0n -BUFF,97:RWTS:72,0:BUFF,96 .(ERR)061000 /FL0:50000:90 Z MAIN PRG d8000: PRINT MAP n34,21: sF21İ30000:140 x:"MENU 1";::": C>HE(4);"NOMONCIO""60000EBIT(16),T(300),S(300):D$(4)c25000: POKE RWTS & JUNKCT4:K16384:K116368:DR1:F20 :2:16:"VTOC EDITOR":34,3::34,012:3:"INSERT DISK & PRESS 'ESC':";:A$:A$(27)20 "READ           z #?TRAX MASTER       خǠ"  ˮ"ˮ"ؠɠ خؠ2 Ϡ! خǠ خԠ" خĠخà"خӠخàҠˮΠ>"ؠ خ خ خҠ خӱ8خԠ̠"8 خԠE4):3000  ZZR) " A$(T$,9,4):30008 , NN(R16)M 6 A$(T$,4):3000W @ NNRf J Q56(4T) T 24576Q,Z:24576Q1,N ^ 25870,17:25871,0:25878,2 h 25856 r 72,0:25878,1:: | :4 16368,0 "'C' TO CHANGE:'M' FOR MENU":16384):16368,0( X205Ĺ34,0:12002 2450F (T$)162530R X116e W((T$,X,1))t W492790 W482790 8:(7)"ILLEGAL INPUT":P1700:P:8:868:2530 X Z0:N0 A$(T$,4):3000 ZZ(R16)  A$(T$,5, 20 "----------------"7 "ORIGINAL TRACK#";T;? 20P( A$;B$;C$;D$V2 j< "NEW TRACK#";TpF P "'RETURN' IF SAME"Z (37)1:18d "=>";T$n T$""Ğ:16368,0:2690x 2730 ": M)ENU OR C)HANGE :": 16384,128:X(:16368,0t X1952440*~ 34,0:1200: 34,0:32,0M "TRACK# ";T:` T0T344450f u Q56(4T) C(24576Q):C1(24576Q1) A(C16):A1(C116) DC(16A):D1C1(16A1) 5720  20 "FEDCBA9876543210":D1C1(16A1)5720W< G);T;G3);A$;B$;C$;D$F WW1[ W21W3:32,20e$ TT1t. T342370~8 2250B 32,0:34,22L 20:22:"1=FREE:0=USED"V ::16368,0` "C)HANGE OR 'RETURN' FOR MENU": j 16384,128:X(16384)3"T# FEDCBA9876543210 T# FEDCBA9876543210"b"-- ---------------- -- ----------------"25870,17:25871,0:25878,12585672,0T0:W3:G1Q56(4T)C(24576Q):C1(24576Q1)A(C16):A1(C116)DC(16A)15A$"1111"VT:HT$ A$;B$F*Q70HT22:QQ1:Q711:1720L4\>:16368,0fH6:6R"1=FREE SECTOR: 0=USED SECTOR":\16368,0f6:"C)HANGE OR 'RETURN' FOR MENU":16384,128:X(16384):16368,0pX1952470z1200A2A$"0010"#A3A$"0011"6A4A$"0100"IA5A$"0101"\A6A$"0110"oA7A$"0111"A8A$"1000"A9A$"1001"A10A$"1010"A11A$"1011"A12A$"1100"A13A$"1101"A14A$"1110"  AB5B$"0101"&B6B$"0110"9B7B$"0111"L&B8B$"1000"_0B9B$"1001"s:B10B$"1010"DB11B$"1011"NB12B$"1100"XB13B$"1101"bB14B$"1110"lB15B$"1111"vA0A$"0000"A1A$"0001"210" r14$|"----------------"7:"TRACK# ";TDVT(37)N1710X2110sHT14:Q70:A0:B0:C0C(24576Q)A(C16)BC(A16)B0B$"0000"B1B$"0001"B2B$"0010"B3B$"0011"B4B$"0100"ύĠخΠخԲ ^L 8^L 8^L 8^L 8^L 8^L 8^L 8^L 8^L 8^L 8_L 8_L 8_L 8_L 8_L 8_ L 8_ L 8_L 8_L 8_L 8_L 8_L 8_L bL SdL SfL ShL SjL SlL SnL SpL SrL StL SvL SxL SzL S|L S~L SL SL SL SL SL SL SL 8^L 8^L 8^L 8^L 8^L 8^L 8SLdSLdSLdS$LdS)LdS.LdS3LdS8L S:L SL S@L SBL SDL SFL SHL SJL SLL SNL SPL SRL STL SVL SXL SZL S\L S^L S`L SR CODE=";EC2B˳"*** IN LINE :";(218)(219)256RBγ"*** PRESS A KEY:";:LOST$cBӳ:34,0:140BOò EDITOR HELP MENU BPÉ:::12:"EDITOR HELP MENU"::Bdú"C = CHANGE DATA (ASCII,HEX,DECIMAL)"KCnú"F = SEARCH & REPLACE BYTES. FORMS: TRANSLATING":6PAA2488816ZT034:D10:D20@6dS1581]6nD1D1(M(T,S)(2(S8)))p6xT3:S6:" "w6S6S7016D2D2(M(T,S)(2S))6T3:S6:" "6S6AA(4T),D1:AA(4T)1,D26T7TRK,17:SEC,0:MODE,2:BUFF88:62705CC15DD2458825C0C1:6400<56240F56430U5 DN96450_56150}5TRK,T:SEC,S:RWTS:72,05(T(24577):S(24578):52X02:Y015:M(X,Y)0:Y6:X3:"0":Y,X5<X015:M(17,X)0:20:X6:"0":X6F5:14::"TS:72,004jM(T(C),S(C))0:S(C)6:T(C)3:"0"F4t(24577)0FL9X4~(DD)063204M((DD),(DD1))0:(DD1)6:(DD)3:"0"4DDDD24DD248296320462704FL063604TRK,(24577):SEC,(24578)4RWTS:72,0:FL05DD245׺CC$;>FׂZZ:>KׂXX)>P׺(4);"PR#0"6>U׉::140I"= ׺$=ׁXXBF256BF25625516>=HDXX(BF256):31000Q=׺"$";HD$;": ";^=ׁZZ015=#HD(XXZZ):31000:HD$;" ";=(ׂZZ=-׺" ";=2ׁZZ015=7׭((ZZXX))" "CC$".":55105=<׭(XXZZ)12832CC$".":55105=?CC$((ZZXX))>A(27)ė:180(<֭SL$"1"SL$"7"55015R<ֺSL$::"TITLE:";TL$:TL$""TL$(0)i<׺(4);"PR#";(SL$)<׺(TL$,20);" TRACK: ";T;" SECTOR: ";S;" BUFFER#";BF95= ׺"------------------------------------------------------------------------------- HEX ";(91);HD$;"] ASC ";(91);:22100:"]"k;0Ϻ:16368,0::"PRESS A KEY"::16384,128:16368,0|;5ϢV:H::HD$;:ϗ:180;ֲ PRINT BUFFER ;ֹ34,17::::"PRINTER SLOT: 1 , TO EXIT";;֖15:SL$;֭SL$(13)SL$"1" <֭SL$$:~ǭ(6)0ĢX18:35:B$$:ǂX:H:ǹ16368,0:16384,128:16368,0S:Ǘ:180j:ϲ BYTE VALUE w: Ϲ34,17::ϰ28100:HD(ADDR):31000::ϢV:H:HD$:::Ϻ"BUFFER <";BF95;"> BYTE # <";ADDR(BF256);">":Ϻ2;!Ϻ" DEC ";(91);HD;"] 3";:15:(28676);:25:(28677)O9`Ǻ"BUFFER 4";:15:(28678);:25:(28679)}9eǺ"BUFFER 5";:15:(28680);:25:(28681)9jǞ:A$"USED":B$"FREE"9oǁX15:975,969qǭ((X95)256)0Ĺ6,1:510659tǹ6,0:UBUFF,X95:USED:yǭ(6)1ĢX18:35:A = EXIT PROGRAM",8ú"^C = EXIT ANY OPTION"N8ú" PRESS A KEY:";:LOST$:140^88Dz STATS d8=Ǟq8Bǹ34,17:8Gǖ15:"TRACK";:25:"SECTOR"8Lǝ8QǺ"BUFFER 1";:15:(28672);:25:(28673)8VǺ"BUFFER 2";:15:(28674);:25:(28675)!9[Ǻ"BUFFERKER1.MARKER2)"-7ú"B = CHANGE BUFFER (1-5)"M7ú"T = CHANGE TRACK (0-34)"m7ú"S = CHANGE SECTOR (0-15)"7ú"$ = CONVERT NUMBER BASES"7ú"W = CLEAR BUFFER"7ú"X = TRANSFER BUFFERS"7ú"V = BYTE VALUE"7ú"^R,^W= READ/WRITE BUFFER"8ú"^QHANGE DATA (ASCII,HEX,DECIMAL)"6nú"F = SEARCH & REPLACE BYTES. FORMS: /DATA1/= SEARCH /DATA2/DATA2/= SEARCH & REPLACE"6xú"R = REPLICATE BYTES. FORMS: (DATA)DEC 2 }E$"":F$"":E0:F02}E$(HD$,1):F$(HD$,1)3(}(E$)64(E$)71EA KEY";:SA$::8/:"FORMATING: DON'T HIT 'RESET'":N/25869,V:25878,4_/25856:72,0/(25879)8ĺ:(7);"FORMATING ERROR:PRESS A KEY";:SA$:34,0:3760/(25879)16ĺ:"TARGET DISKETTE WRITE PROTECTED:PRESS A KEY";:SA$:34,0:3760+0 .:R0154.D25870,T:25871,R:25878,2:25875,DBE.N25856:72,0S.X3:15:R_.bDBDB1f.lR.v10:"DONE":"PRESS A KEY FOR MENU";:QA$:34,0:25878,1:3760.:"VOLUME# FOR DISK:";V$:V(V$).V0V2544480/"INSERT DISKETTE:PRESS 1,F:25878,1:25875,DB'-25856:72,05-3:15:FA-DBDB1H-Fm-:"PRESS A KEY TO FORMAT";:QA$-::"FORMATING:DON'T HIT 'RESET'":-25904-"DONE":"PRESS A KEY TO SAVE";:QA$-&DB103-0:"WRITING:TRACK#";T:8:"SECTOR#";SMATING:DO NOT HIT 'RESET'":6,25904: INIT ROUTINEK,(768)0İ6080,:"DONE":"PRESS A KEY FOR MENU";:QA$:34,0:3760,"INSERT DISKETTE:PRESS A KEY";:QA$,:"READING:TRACK#";T:8:"SECTOR#";S,DB103,F015-25870,T:2587V$(13)Ģ5:868:4:4120&+,V(V$)G+6V0V254Ģ5:868:4:4120P+@3,Vq+J:"SAVE DATA ON TRACK?";SD$+T(SD$,1)"N"4200+^4260: SAVE DATA+h:"TRACK:";T:"VOLUME#";V::+r"INSERT DISKETTE:THEN PRESS 'RETURN'";:QA$,|::"FOR890*K2104040#*K19844809*K209Ĺ34,0:200C*3890u*13:868:10:"RE-FORMAT TRACKS":P1400:P{***"TRACK TO INITALIZE:";T$*T$(13)4050*T(T$)*T0T344050*2,T*:"VOLUME # FOR TRACK:";V$+"" PRESS KEY TO SELECT PRESS KEY TO SELECT "V)(d)216368,0l)<X1~)FW$(A$,X,40))P13:W$)ZP175:P)d(16384)1273980)nXX1)xX40X1)3910)K(16384):16368,0*K198K210334,0:2002( *: INIT-> RE-FORMAT :* 8(>(n("**";10);"INIT->RE-FORMAT";10);"**"::2z(34,1:("MENU:"(32,5:("E-FORMAT TRACKS "("ORMAT DISKETTE "("UIT "( 32,0(12P)A$5856'72,0&'$(16384)1553710:'.(ERR)643680D'8SS1X'BS15S0:TT1g'LTET3710q'V3590|'`ERR,0'j"TRACK#";T;" SECTOR#";S't3640'~2::2::16368,0'"PRESS A KEY FOR MENU "'16384,128:16368,0 (R ALL)";Tg& T99T0:ERR25879:S0:ET34::2:19::"SEARCHING";::1:" TO ABORT":34,2:3590& T0T34Ĺ34,0:3460& & 2:19::"SEARCHING";::1:" TO ABORT"& 34,2& S0:ERR25879:ETT&25870,T:25871,S:25878,1'268,0%f 34,2::34,0 %p 3310G%z *: BAD SECTOR SCAN :* O% :|% "**";10);"BAD SECTOR SCAN";11);"**":% 2:34,1% " INSERT DISK IN DRIVE 1,SLOT 6"% " AND PRESS A KEY"% 16384,128:16368,0 & "TRACK#(99 FO37)20Ģ4:A21$ 31901$ 34,0:2:868:2:2?$ 16368,0p$ C10ĺ"NONE FOUND: 'RETURN' FOR MENU":3370$ "'RETURN' FOR MENU":$* 16384,128:16368,0:200$4 :22:7$> 16368,0$H "PRESS A KEY TO CONTINUE"$R %\ 16384,128:1631553330#l (D)03240$#v SS1:# S15S0:T1T11J# T1NE3330_# T117T118:S0i# 3140# (D1)2(D1)353260# 3190# (D2)163280# 3190# A# "TRACK#";T1;" SECTOR#";S:C1C11# (37)20A21Ģ4:A1:3380$ (**":," :"STARTING TRACK#";T1$:T1(T1$)A" T10T1343040f"& :"ENDING TRACK#";NE$:NE(NE$)|"0 NET1NE343040": 34,1::34,0:" TO ABORT";:16::"SEARCHING":"D 25878,1:25870,T1:25871,S"N 25856:72,0"X 72,0 #b (16384)%! 16384,128:X(16384):16368,05! X1954450?! 1200K! X015b! A$E$(X)RB(X):i! Xv! (07):! *: T/S LISTS :* ! :D24576:D124588:D224589:C10:A1! P1200:P! " "**";9);"TRACK/SECTOR LISTS";9);")::34,11: 3:"< 1 > READ/WRITE":"< 2 > EDIT CATALOG":"< 3 > ADD TITLE":"< 4 > SORT CATALOG":"< 5 > VIEW CATALOG":"< 6 > TOGGLE DRIVE":"< 7 > EXIT" 3:27:"CHANGED: ";CN$::27:"SAVED: ";SD$::27:"# FILES:";NF::27:"DRIVE: ";D VT25868,1:25869,0:25870,17:25871,0:25872,29:25873,101:<25874,0:25875,96:25876,0:25877,0:25878,1:25879,0:25880,16:25881,96:25882,1:<25883,0:25884,0:25885,0:25886,1:25887,239:25888,216:25889,24:25890,162:25891,0:S=25892,189:(X)B$E$(X):5780;X%;X015A;A1B(X)C$E$(X):5810H;XT;X015p;D1B(X)D$E$(X):5840w;X};;25856,169:25857,101:25858,160:25859,10:25860,32:25861,217:25862,3:25863,96:25864,0:9<25865,0:25866,1:25867,96: *: SUBROUTINES :* q: 0000,0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111}:X015:Q$:E$(X)Q$:&X:0X015::B(X)X:DX:N:XX015:bAB(X)A$E$(X):5750:lX:vX015;DBSS A KEY":16384,128:16368,0:5360[9:"NO ERROR-> PRESS A KEY":16384,128:16368,0r9ED19Ĺ34,0:4580934,0:2009:32,1:33,(33)1::9ZDA:INC26035:INC,09F0255:PRT:INC,F:F932,0:33,(33)1:INC,09: 8T54108^:8h"TRACK#";T;" SECTOR#";S:::16368,0m8r"PRESS A KEY TO SAVE":16384,128:16368,0:y8|MODE,28RWTS:72,0:MODE,1:16368,08(ERR)16ĺ"DISK WRITE PROTECTED":16384,128:16368,0:5360%9(ERR)64ĺ"DISK ERROR-> PRE"<1>......MENU"/7"<2>......SAVE THEN MENU"V7"<3>......SAVE THEN EDIT":21:26}7"....EDIT":26:23:"WHICH?"7"16384,128:K(16384):16368,07,K155ė:34,0:486076K177Ĺ34,0:2007@K178ED0:54707JK179ED19:5470:16368,06X1:Y:(K);B616384,128:K(16384):16368,0h6(K176K198)(K185K193)52806K192K199DLK183:53206DLK1766DDHDL6X11:Y:(K):624574C(13(Y1)),D:16368,064860634,20:16368,0:73:" "5XX3:CC1/5X1X37:C13:4940=5(C1C13U52X:Y:B$;:X3:A$i5<16368,0:48605FK192K19952405PK175K18652505ZK15553605dK14545805n16368,0:48605xDH(K183)16:52605DH(K176)16 6X1X1:14Y20X26Y19:5030)4Y20Y1A4X:Y:B$;:X3:A$U416368,0:4860_4X:Ys4" ";:X3:" "4XX3:CC14Y20X25X1:C14X37X1:C1:50004C13C14X:Y:B$;:X3:A$416368,0:48605 X:Y:" ";:XX3:A$-316384,128:K(16384):16368,0=3K2164920M3K2184980]3K1495050m3$K1365130w3.519038X:Y3B" ";:X3:" "3LYY13VY1Y193`X:Y:B$;:X3:A$3j16368,0:48603tX:Y3~" ";:X3:" "4YY"PRESS A KEY TO READ";::16384,128:16368,0:L2TRACK,T:SEC,S:MODE,1\2RWTS:72,02(ERR)64ĺ"READ ERROR-> PRESS A KEY";:Z$:45802"NO ERROR-> PRESS A KEY";:Z$2255702A$"]":B$(91)2X1:Y1:16368,03X:Y:B$;:(17)2001>T0T344580'1HX1771R(B$,X,1);R1\D13:Z1(16336):Da1fP130:Pz1pX:":";S$:16368,01zS(S$):S0S15Ģ8:868:46801RWTS25856:TRACK25870:SEC25871:ERR25879:MODE25878:DA24576:PRT260341C10212::"DONE":"PRESS A KEY FOR MENU";:SA$:3760M0 *: EDITOR :* U0:y0"**";15);"EDITOR";15);"**":06:A$"TRACK#":B$"SECTOR#"0X160 (A$,X,1);0D13:Z1(16336):D0 P130:P0*X:":";T$:T(T$): 14T$ K(16384)12790 PDE& U45. Z:^ _8:3:"LOADING MAIN PROGRAM, PLEASE WAIT."s dD$"RUN PK.MAIN"7 u PEEKER TITLE )"NOMONCIO"D:::255:::D$(4)_D$"BLOAD PK.1,A$2000"zD$"BLOAD PK.2,A$4000"#16368,0(16304,0:16297,0:16302,0-16300,02DE11007(16384)12790<DEA16299,0 FDE1100 1190 "TRACK#(0/34)?":"'99' FOR ALL TRACKS"K(37)1:14_" ";T$:T(T$)nT992180T0T341490Q56(4T)","READING...."625870,17:25871,0:25878,1@25856J72,0T^14h"FEDCBA9876543P 2A(A$)<A0A31190-FA11380;PA21490IZA3ī200Odbn"READING...."oxT17:S025870,T:25871,S:25878,12585672,025896,21825889:16368,0:"PRESS A KEY":16384,128:16368,0:TOC: VOLUME TABLE OF CONTENTS":I"LOCATION- TRACK 17($11), SECTOR 0"Q:b"COMMANDS-"" 1:::VTOC IN HEXADECIMAL"" 2:::SECTORS USED/NOT USED"" 3:::MENU"(37)2 "SELECT %% %%"(37):10A$:A$(P1200:2:1B25889:16368,0 L9V(13);"PRESS A KEY"S`16384,128:16368,0mj"M)ENU OR C)ONTINUE"st~16384,128:X(16384):16368,0X205Ĺ34,0:20034,0:930 *: VTOC :* P1120:P: "V%868:"TRACK#(0/34):";T$:T(T$)dT0T34ĺ"ILLEGAL TRACK":P1400:P:19:868:18:1020868:"SECTOR#(0/15):";S$:S(S$)S0S15ĺ"ILLEGAL SECTOR":P1400:P:20:868:19:1040$25870,T:25871,S:25878,1.25856872,0:X11ĺ"SYNTAX"540; *: SECTOR DUMP :* KP1150:PS:u"**";16);"DUMP";16);"**":34,116:16368,0"A)SCII OR H)EX?":16384,128:X(16384)16368,0X193Ĺ25896,237:102025896,218 "ALL OTHER FUNCTIONS ILLEGAL"*5407 X(222)F*X255200V4P1300:Pt>X2X3ĺ"ILLEGAL RANGE"HX4ĺ"DISK WRITE PROTECTED"RX6ĺ"FILE NOT FOUND"\X7ĺ"VOLUME MISMATCH"fX8ĺ"DISK I/O"pX10ĺ"FILE LOCKED"z$,6)"UNLOCK"690)(A$,4)"LOCK"690C(A$,6)"DELETE"690](A$,6)"RENAME"690(07);"ILLEGAL FUNCTION":540"";A$540"LEGAL FUNCTIONS-""CATALOG""LOCK""UNLOCK""RENAME""DELETE":32,0!FOR LIST OF LEGAL FUNCTIONS":."]";:A$""A&B$:B$;:868Z0B$(8)(A$)1550}:B$(8)A$(A$,(A$)1):550DA$A$B$NB$(13)610X550b(A$,4)"QUIT"Ĺ34,0:200l(A$,4)"LIST"710v(A$,7)"CATALOG"690(A1973750 X1983460) X1993040< X200Ĺ34,0:E 380d  *:HOUSEKEEPING:* t P1150:P 16368,0 : "**";10);"HOUSEKEEPING";10);"**"::: 34,1 "ENTER FUNCTION,TYPING 'QUIT' FOR MENU""OR 'LIST' D SECTOR SCAN"1 ,(91)"G] FIND T/S LISTS"7 6X @(91)"H] EXIT PROGRAM"| J32,0:::"CHOOSE "(91)"A-H]" T16384,128:X(16384) ^16368,0 hX193X200200 rX193470 |X194920 X1951190 X1964580 X n 5850:5630- 34,0::16368,0:A "MAIN MENU:":M 32,4:n (91)"A] HOUSEKEEPING" (91)"B] SECTOR DUMP" (91)"C] VTOC"  (91)"D] EDITOR" (91)"E] INIT-REFORMAT" "(91)"F] BA* RON KNEUSEL *i Q* * S* ALL RIGHTS RESERVED * W****************************** dQ70:E$(16):B(16):768,0:E0DOS 3.3 DISK UPDATE *Q E* PROGRAM * G* * I* COPYRIGHT(C) 1982 * M* *1 O<97******************************q;* *=* PEEKER!! PEEKER!! *?* * C*                     """&"B 25946,133:25947,69:25948,160:25949,86:25950,169:25951,0:25952,153:25953,255:25954,187:@H25955,136:25956,208:25957,250:25958,153:25959,255:25960,187:25961,208:25962,250:2596325917,169:25918,0:s> 25919,160:25920,3:25921,145:25922,0:25923,32:25924,227:25925,3:25926,32:25927,217:>*25928,3:25929,189:25930,137:25931,192:25932,165:25933,2:25934,133:25935,68:25936,165:9?425937,3:25938,133:25939,65:25940,25893,0:25894,96:25895,32:25896,237:25897,253:25898,232:25899,224:25900,255:= 25901,144:25902,245:25903,96:25904,32:25905,227:25906,3:25907,132:25908,0:25909,133:>25910,1:25911,165:25912,2:25913,160:25914,4:25915,145:25916,0:`p~3xO``00 @Ap? `@0f DHOH P`@0 @`800@?0`L?|`@0f ?``q~sxOA`?`|3pO BGD8$@HDGeCg`>808@}p `@0f |(HHA(xqx y ``90@A`00 @?0`L `@0f ?`@90@`""<b"D$D$@D$ $@`~p~sxO}DxHH!x  `p~3xO`00 @A?``|30pO?0`L `@0f ?`@0 @`""""BD$@Bd'DcGp``q~sxOAD OGGqpqhqp`?`|3pO`>808@}?`p~30xO?``|30pO0`L `@y3f|?`@0 @0L? a3fp<`800@?`p~30xO0`  `@y3f|?``90@A0?L @q3fx"bsqBD8@BC#DGC`@0 @ x@x``q~sxOA <`00 @          ?`p~3xO0p ` `A90f`?`00 @A`@0 @`800@0` `@ `@90@``|30pO" D D@@?`?`|3pO0` ` `@0f p?`>808@}``90@A`00 @0p `@0f D Hfqyp pq `@0 @`p~30xO G<@`?0` |`@0f 8?`~p~sxO}""""BD$@Bd'DcGp``q~sxOAD OGGqpqhqp`?`|3pO`>808@}?`p~30xO?``|30pO0`L `@y3f|?`@0 @0L? a3fp"""&"B /DATA1/= SEARCH /DATA2/DATA2/= SEARCH & REPLACE"Cxú"R = REPLICATE BYTES. FORMS: (DATA)~EC5360060,>"*** ERROR ";A$T>"*** IN LINE : ";(218)(219)256t>"*** PRESS A KEY:";:LOST$|>20>"*** TOO MANY BAD SECTORS">"*** PRESS A KEY :";:LOST$>20;:LOST$=203="*** TOO MANY BAD SECTORS"T="*** PRESS A KEY :";:LOST$\=2032966:PT768:DIR32803:OS817:HP815:DUMP32826:PNT816:LO32955:HI32956:LPRT32954=a=` SYSTEM ERROR =jEC(222)=tEC25520>yA$"CODE= "68:DIR32803:OS817:HP815:DUMP32826:PNT816:LO32955:HI32956:LPRT32954PNP19P1P155:HD$(P1):20050G;HNHD$(P1)o;RNP29P2P255:HD$HD$(P2):20070;\NHD$HD$(P2);fN;a;aRWTS32779:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:FMT33001:PRT32962JHEX$ ;*NP1(HD16):P2HD((:P4910:1:"DOS REMOVED-> PRESS A KEY:";:LOST$<920B9]9 DRAW SECTOR MAP 9:" 1=FREE SECTOR 0=USED SECTOR":9A$"0123456789012345"9B$" 111111"9Z621:Z:1:(B$,Z5,1):Z:2:(A$,Z5,1):Z :22:1:"ETURN' TO EXIT:";8LOST$08"LOST$(13)20F8,LOST$(27)6720P866680k8@TRK,17:SEC,0:MODE,18JBUFF,96:RWTS:72,08T24632,255:24633,2558^24636,255:24637,2558h24641,31:MODE,28rRWTS:72,0:MODE,19|:P15:ZX(16336),97:RWTS:72,0:MODE,1,75:1:868::6T7"VTOC REPAIRED-> PRESS A KEY";x716368,0:16384,128:16368,07207 REMOVE DOS 7::2:" REMOVE DOS ":810:1:"INSERT DISK & PRESS 'ESC' TO GO OR PRESS'R`@0 @`p~30xO G<@`?0` |`@0f 8<`~p~sxO}`p~3xO``00 @Ap? `@0f DHOH P`@0 @`800@?0`L?|`@0f <``q~sxOA`?`|3pO BGD8$@HDGeCg`>808@}p `@0f |(HHA(xqx y ``90@A`00 @?0`L `@0f <`@90@`""<b"D$D$@D$ $@`~p~sxO}DxHH!x  `p~3xO`00 @A?``|30pO?0`L `@0f <`@0 @`Dú"S = CHANGE SECTOR (0-15)">Dú"$ = CONVERT NUMBER BASES"VDú"W = CLEAR BUFFER"rDú"X = TRANSFER BUFFERS"Dú"V = BYTE VALUE"Dú"^R,^W= READ/WRITE BUFFER"Dú"^Q = EXIT PROGRAM"Dú"^C = EXIT ANY OPTION"Dú"O = ONLINE DOS REFERENCE"&Eց@*U*U*U Fc0 F03 ۙ@*UU 뒃@*U**U |<@U*U x`sy<@?xCxxs?p<Ǐ@*U*U*U p8g`xqLsp0@Aa Ca0L `` `C  H?CL@|g"By"<<<<ڄ@*U*U*U Fqxc0 F1|q? Α@*U**U ۉ@*U**U |<@U*U x`sy<@xc|xs?p<@*U*U*U `~c`xppL3`3Faa ca00 cLa` f C   |Cp cLa?|Bb" "@*U*U*U Faxc0x FA100 @*U**U ߿@*UU @*U*U*U x`sy<@ys?Nxs?p<@U*U @~a`p0L3`gA@ys?Ogys?~Og`y ~cv` ps @spB "p >>">"ת@*U*U*U GaGc8x Gc1s8 @?~ۙ@*U*U*U յ@*UU @*U*U*U 0@a0 ca00  `` `@U*U             E OF BUFFER"/"A. UNUSED"R"B. UNUSED"{"C. COMMAND CODE""D. ERROR CODE""E. ACTUAL VOL#""F. LAST SLOT#""G. D VOL#"0"4. TRACK NUMBER"Z"5. SECTOR NUMBER""6. LO BYTE OF DCT""7. HI BYTE OF DCT""8. LO BYTE OF BUFFER" "9. HI BYT1)):22000:ADDRHD:2160'kADDR(S$)8pADDR::185F IOB c:"CURRENT IOB VALUES:""0. IOB TYPE""1. SLOT # TIMES 16""2. DRIVE NUMBER""3. EXPECTE DISK: ARE YOU SURE ?";YN$,YN$"Y"20205185z:"INSERT DISK & PRESS A KEY"::16368,0:16384,128:16368,0MODE,4:DIR,DR:RWTS:72,0:MODE,1(ERR)0610001854 CALL 9A4:22200f(S$,1)"$"HD$((S$,(S$)"1835 Q'TR1:SR2:EC1:40000>S((S$,(S$)Q))bS0S15TR1:SR2:EC2:40000T0T34TR1:SR2:EC2:40000TRK,T:SEC,S:DIR,DR:MODE,2:RWTS:72,0:MODE,1(ERR)061000185 FORMAT DISK :"FORMATT0T34TR1:SR2:EC2:40000N:TRK,T:SEC,S:DIR,DR:MODE,1:RWTS:72,0c>(ERR)061000l?185l W17;15 m"WRITE: ARE YOU SURE ?";YN$:YN$"Y"185oR1T:R2SqS$(C$,(C$)1)vT(S$){Q1(S$)(S$,Q,1)",,0:RWTS:72,0:MODE,1+(ERR)0610006:185J R17;15 X R1T:R2Sm S$(C$,(C$)1)yT(S$)Q1(S$)(S$,Q,1)","1835!Q&TR1:SR2:EC1:40000+S((S$,(S$)Q))0S0S15TR1:SR2:EC2:40000 5[ TRAX II LOADER %D$(4)=D$;"BLOAD TX.DATA"ND$;"RUN TX"Y: d?`p~3xO0p ` `A90f`<`00 @A`@0 @`800@0` `@ `@90@``|30pO" D D@@?`?`|3pO0` ` `@0f p<`>808@}``90@A`00 @0p `@0f D Hfqyp pq :SEC,Q:DIR,DR:MODE,1:RWTS:72,0X&? (ERR)0ĹERR,0:"TRK: ";W;" SEC: ";Q:BSBS1b&D Q:W&I BS0ĺ"NO BAD SECTORS FOUND"::185&N BS;" BAD SECTORS FOUND":185& CLEAR & XBFBF255:X,0:X:"DONE...":185& TRACK ' A10:NHD:3050% N(S$)2% N0N34EC2:40000E% 2,N::DUMP:N% 185_% SCAN y%! ::"SCAN DISK....."%& :"STARTING TRACK:";ST:"ENDING TRACK:";EN%+ ST0ST34(ENST)EN34EC2:40000%- BS0%0 WSTEN%5 Q015#&: TRK,W LIST 5$Y ::"PRINT LIST (Y/N):";:A$:16368,0:O$[ A$"Y"ĺD$;"PR#";SL:k$^ C1:A$BF$"LLLLLLLL0"$c X512511(A$)$h X,((A$,C,1))128$m CC1:X$r 144$w 185$ DUMP $ A4:22200 % (S$,1)"$"HD$(S$,(S$)1):220014C$"PROGRAM TOO LARGE"=# EC15C$"NOT DIRECT COMMAND"Q# :"** ";C$:[# 2620m# BUFFER |# A4:22200# (S$,1)"$"HD$(S$,(S$)1):22000:NHD:2840# N(S$)# N(175)(176)256N32512EC2:40000# BFN:185$T TA"!"s EC6C$"FILE NOT FOUND"@"x EC7C$"VOLUME MISMATCH"^"} EC8C$"DISK I/O ERROR"w" EC9C$"DISK FULL"" EC10C$"FILE LOCKED"" EC11C$"SYNTAX ERROR"" EC12C$"NO BUFFERS AVALIABLE"" EC13C$"FILE TYPE MISMATCH"# EC"DOS "::VT:868!2 2650.!< ":";:10000H!A A$"IMM"Ĺ216,0:185[!F A$(13)2620f!K D$;A$p!P 2620~!Z EC(222)!_ EC1C$"LANGUAGE NOT AVALIABLE"!d EC2EC3C$"RANGE ERROR"!i EC4C$"DISK WRITE PROTECTED""n EC5C$"END OF DA ` MON D j :"TYPE (CTRL-Y) TO RE-ENTER":1:6::"MON":6:S ~ :6:151Y q CALL MINI-ASSM :1:6:"ASM":: 5:958:"TYPE '$(CTRL-Y)' TO EXIT":" OR TYPE '$FF69G' FOR MONITOR" 33133 ( DOS !- :1:6:A$)55' A6:5::"->":Q) 23:1:"CHANGE TO ? <>DEC,<$>HEX,SAME :";N$a. N$""23203 (N$,1)"$"HD$(N$,(N$)1):22000:NHD:23658 N(N$)= N0N255EC2:40000B 32801A,NC A6:5:" ":Q622:Q:7:" ":Q G 2295 LAST DRIVE#" 6,Q016E HD(32801Q):20000Q 8:HD$X Q 23:868:"CHANGE ? <1-G> OR EXIT :"; A$ A$(13)Ģ23:1:868:185 ((A$)1(A$)17)(A$"A"A$"H")2340! 2325$ A(A$)% A0A( :3 g ɠɤ ɓՊ x=   &B&C= 4ݴ ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀĹɠ`L-E D  DA>(EV 0x8x D- ܸ H`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 Jhg`! `.``3p`    HP@P? ` `p LĀ`  کQP AL    $--6>755 $$$---+- -%$?'$-m-%$?'$-mI$$$--666$$>?-mR$$$M $$$---+- @[ qZ@6.-----5>?-----?'66.<$,.<6.4.$,6.--%??7-----%/--->??&$$-=?????/56-------%$666&????''''''''$DEC,<$>HEX,EXIT :1420  MVCVC1:VV12V21V6:VC0<1420I CHANGET 21000jHD(ADDR):20000:H:V:HD$::22:958"CURRENT :DEC";(91);HD;"],HEX";(91);HD$;"],ASC";(91);:22100:"]""NEW :<>DEC,<$>HEX,EXIT :";N$&"N$A$"M"1520!A$"C"15402A$"S"1600RA$"Q"Ģ23:MD$"IMM ":185\1420d IvVCVC1:VV1V6V21:VC151420 JHCHC1:HH2HC0HC15:H311420 KHCHC1:HH2HC15HC0:H1::34::"C";::"HANGE"::34::"Q";::"UIT"19::34:"I";::",";::"J";::",";::"K";::",";::"M";::17:34:"MOVE :"15:33:"--------";V6:H1:VC0:HC0:ADDR0V:H:A$A$"I"1460A$"J"1480A$"K"1500T HEX :/33,32:HA,218:PRT:33,40:8185L PRINT ASCII T:iHA,237:PRT::r#185x BYTE EDITOR }:1:6:"EDIT":::33,32:HA,218:PRT:33,4007:34:"EDITOR":33:"--------";:10:34::"S";::"EARCH"1S15S0:TT1$T34T0RTRK,T:SEC,S:MODE,1:DIR,DR:RWTS:72,0g(ERR)061000p185|L - VSS1[S0S15:TT1`T0T34eTRK,T:SEC,S:MODE,1:DIR,DR:RWTS:72,0g(ERR)061000j185 PRIN(C$,4)"SEEK"3800((C$,1)"S"3400>(C$,1)"D"3500W(C$,4)"PEEK"3600p(C$,4)"POKE"3700(C$,1)"$"3900(C$,4)"CALL"2100((C$,1))58((C$,1))474000(C$,1)"/"1300EC1:40000 + SSM"2500 EC$"SCAN"3100/ OC$"READ"1700D TC$"WRITE"1730Y YC$"PRINT"4300j [C$C$" " h(C$,1)"R"1800 m(C$,1)"W"1900 r(C$,4)"BUFF"2800 w(C$,4)"DUMP"3000 (C$,6)"FORMAT"4100 (C$,1)"T"3300C$"FP"ĉ:VT:868:1010,RL:1011,RH:1169:B C$"?"1200S C$"L"2900g 'C$"EDIT"1400y ,C$"PR"4200 1C$"DOS"2600 6C$"FORMAT"2000 9C$"CLEAR"3200 ;C$"IOB"2200 =C$"HELP"50000 @C$"MON"2400 CC$"AS:8:T;:23:" ";:23:S;:35:DRT HDBF:20000:BF$HD$:1:29:"($";BF$;") "h 4:7:SL:VT:z GET COMMAND B$">" B$;:10000:C$A$ C$(13)185  PROCESS COMMAND C$"!"ė:185 C$"+"1000 C$"-"11001 32512 <$";:HD(175)(176)256:20000:HD$;"-$7F00>"::R MAIN PROGRAM c VT(37)1: BUFF,(BF256):BUFF1,BF(BF256)256:PBUFF,(BF256):PBUFF1,BF(BF256)256 60000 1:6:MD$;:22:" ";:22:BF# 2:8:" ";0:16384,128:16368,0! 34,0F ::X14:X:40):X::34,4:v :1:"MODE: BUFFER: ($7000)" 2:"TRACK: SECTOR: DRIVE:" 4:"SLOT # =========( TYPE 'HELP' FOR HELP)": 3:"RANGE: ";(175)(176)256;" TO v0.D$(4):BF28672:DR1:MD$"IMM ":P$(50)HRL(1010):RH(1011)d 25000: SET RWTS VARSd:6:7:"TRAX II : THE EXPERIMENTER"n:4:"BY RON KNEUSEL, COPYRIGHT 1983"x:10:"ALL RIGHTS RESERVED" 22:15:"PRESS A KEY":16368,                !! MAT TRACK,T,TRACK,S,SECTOR6}à SEEK,MOVE TO TRACK,D,DRIVE,PEEK,PEEK,POKE,POKE,$,HEX>DEC,CALL,CALL MONITOR ROUTINE,/,PRINT BUFF IN ASCII,ANY NUMBER,DEC>HEX,0,06ù16368,06ÇA$,B$6íA$"0"1806Þ:A$;::" / ";B$6ÁP1300:P7í(16384MON,ENTER MONITOR,ASM,"ENTER MINI-ASSM",HELP,PRINT HELP SCREEN,SCAN,BAD SECTORS,READ,READ CURRENT T&S,WRITE,WRITE CURRENT T&S6xà PRINT,PRINT BUFF IN HEX/ASC,"R17,15",READ T17 S15,"W17,15",WRITE T17 S15,BUFF,CHANGE BUFFER,DUMP,DUMP RAW DATA,FORMAT,RE-FOR854Pò HELP MENU 4Z×#4iî4nà !,CLEAR SCREEN,+,NEXT SECTOR,-,LAST SECTOR,FP,EXIT PROGRAM,?,DISPLAY BUFFER IN HEX,L,MONITOR LIST OF BUFFER,EDIT,ENTER EDIT MODE,PR,SET PRINTER SLOT,DOS,ENTER DOS MODE}5sà CLEAR,CLEAR BUFFER,IOB,PRINT IOB VALUES,ET RESET%3a1010,248:1011,3:1169+3aC3Hq ADDR-> COOR Q3RqAADDRBF`3\qVC(A16)t3fqHCA(A16)163pqH(HC2)13uqVVC63zq3@ ERROR CONTROL 3JEC1A$"?SYNTAX ERROR"3OEC2A$"?RANGE ERROR"3:"*** ";A$:41" "222302VS$S$(E$,X,1)&2VX:<2a SET RWTS 2aRWTS32779:FMT33001:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:PRT329622a1017,212:1018,128: SET CTRL-Y2aHA32968:DIR32803:LO32955:HI32956:PBUFF32966:DUMP328263a: S32955:HI32956+1^VLO,ADDR(ADDR256)256?1hVHI,(ADDR256)\1mV(ADDR)141ğ:"M";::1oV(ADDR)160(ADDR)127221401rV32954:1|V"^";::((ADDR)64);::1V CRUNCH & REMOVE 1VE$(C$,(C$)A):S$""1VX1(E$) 2V(E$,X,1)R 0RADDRBF((16VC)HC)!0R60U HEX-> DEC ^0UH$"0123456789ABCDEF":HD0:C(HD$)n0UQ1(HD$)}0VK1(H$)0 V(H$,K,1)(HD$,Q,1)220350VK:EC2:400000VHDHD(K1)(16(C1)):CC10VQ0V0TV SET LPRINT VALUE 1YVLO040:H3$A$:H4$B$:20045]/HNLOX(X16)16:HI(X16):A$(HEX$,HI1,1):B$(HEX$,LO1,1):u/MNHD$H3$H4$H1$H2$/RNW1(HD$)/WN(HD$,W,1)"0"20065/\NW:HD$"00":/aNHD$(HD$,(HD$)(W1))/fN(HD$)1HD$"0"HD$/kN0R COOR->ADD5,6:2046,96.$'2041(..'LN(6):A$"":.3'W512511LNP.8'A$A$((W)128)W.='W].B'q. N DEC-> HEX z.%NXHD.*NX0XX65536:DECX.4NHEX$"0123456789ABCDEF":TFS256/>NNLOX(XTFS)TFS:NHI(XTFS):XNLO:20040:H1$A$:H2$B$:XNHI:20 ($";BF$a-"---------------------------------------------------------------------------------"-::"ASCII:"::HA,237:PRT:::"HEX:"::HA,218-PRT:::0::185-'-' INPUT ROUTINE .'2041,32:2042,111:2043,253:2044,134:204,:"PRESS A KEY TO FORMAT"::16384,128:16368,0D,1FMT::185Q,h PR f,mSL0SL0:185,r:"SLOT #";SL$:SL(SL$),wSL0SL7SL6EC2:40000,|:185, PRINT ,D$;"PR#";SL-"TRACK:";T;" SECTOR:";S;" BUFFER:";BF;" DEC/HEX CONVERT ,+HD(C$):20000:HD$5+185E+ FORMAT T+ A6:22200+(S$,1)"$"HD$(S$,(S$)1):22000:NHD:4120+N(S$)+N0N34EC2:40000+"FORMAT-- ARE YOU SURE ?";Y$+"Y$"Y"185+'2,N:3,254:16368,04,SEEK *A4:22200I*(S$,1)"$"HD$(S$,(S$)1):22000:NHD:3820U*N(S$)o*N0N34EC2:40000*TRK,N:MODE,0:DIR,DR:RWTS:72,0:MODE,1:TN*(ERR)061000*185*< HEX/DEC *AA1:22200:HD$S$*F22000:HD:185+$,X,1):X)E$(S$,(S$)X)V)(W$,1)"$"HD$(W$,(W$)1):22000:ADDRHD:3735e)ADDR(W$))(E$,1)"$"HD$(E$,(E$)1):22000:NHD:3745)N(E$))ADDR(175)(176)256ADDR481024N0N255EC2:40000)ADDR,N:185* DRIVE ( DR1DR2:185/( DR2DR1:185?( PEEK N(A4:22200((S$,1)"$"HD$(S$,(S$)1):22000:ADDRHD:3620(ADDR(S$)($"<";(ADDR);">":185(t POKE (yA4:22200:W$""(~X1(S$) )(S$,X,1)","W$W$(S:22200<' (S$,1)"$"HD$(S$,(S$)1):22000:NHD:3340H' N(S$)b' N0N34EC2:40000o' TN:185'H SECTOR 'M A1:22200'f (S$,1)"$"HD$(S$,(S$)1):22000:NHD:3340'k N(S$)'p N0N15EC2:40000'u SN:185( ǹ16368,0:16384,128:16368,0+GǗ:180BGϲ BYTE VALUE OG Ϲ34,17:nGϰ28100:HD(ADDR):31000:GϢV:H:HD$::GϺ"BUFFER <";BF95;"> BYTE # <";ADDR(BF256);">"GϺ H!Ϻ" DEC ";(91);HD;"] HEX ";(91);HD$;"] ASC ";(91);: SET RWTS VARSYaRWTS32779:TRK32805:SEC32806:MODE32813:ERR767:BUFF32810:DIR32803_aKG(G$):G755,74021:1::"NEW TRACK (0-34)";::": ";NT$:NT(NT$):NT0NT34ĺ"ILLEGAL TRACK VALUE!!":Q1400:Q:710T(A)NT:710 ADD TITLE  SORT DIRECTORY  VIEW DIRECTORY  TOGGLE DRIVE  D1D:"TYPE";::": ";:TYTY(A):20000:TY$L23::1:"FILE";::": ";F$(A)]11:32,23::"EDIT:":" <1> TRACK":" <2> SECTOR":" <3> LENGTH":" <4> TYPE":" <5> EXIT":"WHICH ? ";G$:G$"1"G$"5"74032,0:N$,(N$)1):6:10000:605APMAXN$(N$,P1):6:10000:605`N$(N$,P1)(N$,(N$)P)s6:10000:605N$F$(A):6:868:10000:605 OTHER DATA:::"TRK SEC LENGTH"::"-----------------"T(A);6);S(A);13);L(A):(((DAXY)128):Y:ZX(0))F$(NF)N$9NFNF1:N$@XI 233 ::"PRESS ANY KEY":16368,0:16384,128:16368,0:NFNF1:110 EDIT DATA :X1NFX;5);F$(X)(37)21530 X23:"ENTER EDIT, :";:RW$:RW$"W"270 * :16:"INSERT DISK TO READ IN DRIVE ";D:3:HT2# :VT:HT:" ";VT2;" "S 16368,0:16384,128:K(16384):16368,0b K141180y K136K149145 :VT:HT:" ";VT2;" " K149VTVT1:VT9VT3 K136VTVT1:VT3VT9 145 VTVT2 VT200,500,1000,1500X:(C$,C,1); CC1:X:/ D$"RUN ";C$:O ::"CATALOG":D$"CATALOG"U ALOG"d (B$,18)"EXIT"(B$,18)! P126 US14:A$(S):SD Z16368,0S _V12::C1d dV:1:A$(C) i16368,0:16384,128:K(16384):16368,0 nK141K136K149105 pK141145 s:V:1:A$(C): xK136VV2:CC1 }K149VV2:CHE KEY TO ENTER SELECTION."T 2"----------------------------------------" 7B$".........................................." <A$(1)(B$,18)"TRAX"(B$,18) AA$(2)(B$,17)"TRAX II"(B$,16) FA$(3)(B$,17)"PEEKER"(B$,17) KA$(4)W  D$(4):F">>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<";Q40);40);:(37):6:"DISK UTILITIES BY RON KNEUSEL"!40);#">>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<"(:$ -7:"USE <- & -> KEYS TO MOVE CURSOR, THEN HIT T! ! ! "!8kEC64A$"DISK I/O"/8pEC128A$"READ"O8u:"** RWTS ";A$;" ERROR"u8z"** PRESS A KEY:";:LOST$::185D8z"** PRESS A KEY:";:LOST$::185)155Ĺ16368,0:1807ë5005567` SYSTEM ERROR V7j"** ERROR CODE:";(222)|7t"** PRESS A KEY:";:LOST$::1857H RWTS ERROR 7REC(ERR):ERR,07\EC8A$"FORMATTING"7aEC16A$"WRITE PROTECTED"8fEC32A$"VOLUME MISMATCH"BUFFER 4";:15:(28678);:25:(28679)UFeǺ"BUFFER 5";:15:(28680);:25:(28681)oFjǞ:A$"USED":B$"FREE"FoǁX15:975,96Fqǭ((X95)256)0Ĺ6,1:51065Ftǹ6,0:UBUFF,X95:USEDFyǭ(6)1ĢX18:35:A$F~ǭ(6)0ĢX18:35:B$FǂX: GI,0:I I335363353626) J:I,J0 ID #24576,0:33536d % SET BUFFER TO DEFAULT (BF1:28000:8000:8200 -BUFF,BF:PBUFF,BF 2T0:S0:TRK,T:SEC,S 34,0::33,32:PBUFF,BF:HAS,218:PRT:FL9 MAIN PROGRAM  VARIABLES ) FL0:25000: POKE RWTS 5 46000N HC0:BIT0:F20:DR1Z D$(4) POKE MEMORY CLEAR ROUTINE  160,0,169,0,133,60,133,62,169,96,133,61,133,67,169,1,133,66,169,102,133,63,32,44,254,96,0,0 I2867228681:86 ***************************** ** TRAX EDITOR ** ** ** ** CREATED BY... ** ** ** ** RON KNEUSEL 06/83 ** *****************************  INIT """                         0TY128W$"TEXT FILE"5/NTY1TY129W$"INTEGER"U4NTY2TY130W$"APPLESOFT"r9NTY4TY132W$"BINARY">NTY8TY136W$"S TYPE"CNTY16TY144W$"R TYPE"HNTY32TY160W$"A TYPE"MNTY64TY192W$"B TYPE"RNTY$TY$W$:a2:2515 D2D1 110@16:"ORIGINAL: ";::F$(A):F'[' PRINT NAME j'Q1(N$)'(N$,Q,1)" "Ğ:(((N$,Q,1))64);::10020'(N$,Q,1);$'Q: N TYPE ROUTINE %NTY$"":TY1280TY$"LOCKED "*NW$"":TYR> MORE, <0> END:";*"";A$:A$"0"110<A$""ė:525H!A(A$)}&::"EDIT";::": AME, ILE INFO, ND:";+15:1::">> ";F$(A):0::"TRK SEC LENGTH"::"-----------------":1);T(A);7);S(A);14);L(A):5TYTY(A):20000&@IL`L`22100:"]"CH0Ϻ:16368,0::"PRESS A KEY"::16384,128:16368,0TH5ϢV:H::HD$_H:ϗ:180vHֲ PRINT BUFFER Hֹ34,17::::"PRINTER SLOT: 1 , TO EXIT";H֖15:SL$H֭SL$(13)SL$"1"H֭SL$(27)ė:180I֭SL$"1"SL$"7"55015K15:ZZ(16336)(16336)::K150:::16368,0:^ |X115:ZX(16336)(16336)::v p LOAD MACHINE DATA (824)74ı D$;"BLOAD TX.DATA1" D$;"BLOAD TX.DATA2"  D$;"BLOAD TX.PIC,A$4000" 16368,0:16384,128:16368,A$"C"B$"TX.CATALOG"4 qA$"I"B$"TX.IDMARKER"F sD$;"RUN ";B$L xU s :::::::::::::::::::::::y TRAX UTILITY BY RON KNEUSEL CREATED 1983 ::::::::::::::::::::::: 7 I12:ITOR":90, KA$"D"B$"DOS UTILITIES":90S NA$"I"B$"DISK I.D. UTILITY":90m PA$"E"ĉ:21:958:{ U5500:60 Z1:X519:X:868::10 _"LOADING : ";B$ dA$"S"B$"TX.EDIT" iA$"V"B$"TX.VTOC" nA$"D"B$"TX.DOS1" oTOR":, (:4:"V";::".. VTOC EDITOR":T -:4:"D";::".. DOS UTILITIES": 0:4:"I";::".. DISK I.D. UTILITY": 2:4:"E";::".. EXIT" 7(37)2:"WHICH ? ";:5000 <A$ AA$"S"B$"SECTOR EDITOR":90 FA$"V"B$"VTOC ED  :255' D$(4):D$;"NOMONCIO"=6000: POKE DING|::X13:" ";:X2:18:"TRAX"::22:4:"** CREATED 1983 BY RON KNEUSEL **"34,55:"SELECT....": #:4:"S";::".. SECTOR EDI" " " " " C1 V12V18:C4* V18V12:C13 100F 11:1:958:Y C1C$"TRAX"o C2C$"TRAX II" C3C$"PEEKER" C4200 14:"LOADING>>>>>>>>>>>>"; C1 X2121(C$) Y39X1:14:Y:(C$,C,1);:Y:" ";:Y