DWB 20 MENU P 505 CONFIGURE.128 P 7112 COPY ALL 128 P 7217 RYAN-DOS V3.0 P 4208 LIBRARY 128 V1.1 P 4851 THE ULTIMATE UTI P 5094 DRIVE ALIGNMENT P 1422 SPRINT.128 P 11299 DISK GOODY V5 P 4603 128/80 DISK UTIL P 4877 FLDBIN3 P 405 DIRECTORY 128 P 4355 VALIDATE W/BOOT P 1644 MENU MAKER P 1285 FILETYPE EDIT P 867 128 STARTUP P 9827 MULTIFORMAT P 1378 DBLDIRSCAN.V2 P 2071 DISKDOCTOR128 V2 P 25133 LIBRARY P 5322 =0,1:4,7::12)"DISK DIRECTORY":P$(144):1,8,0,"$"f#1,B$:ST06:ՋB$(34)2:P$""#1,B$:B$(34)P$P$B$:3#1,B$:B$(32)4:P$(X)P$#1,B$:B$""5:ՋST0XX1:21:N20"":" ";P$(0);"":N20N20:ՋN144N144+J(N19)N:J10" "; ""J"= ";P$(J):J:"TYPE '#' FOR CHOICE":"N= NEXT L= LAST E= END";:"";Z$:Z$"N"NN20:7 Z$"L"NN20:7:ՋZ$"E":Ջ(Z$)1(Z$)144Z(Z$):Z07:ՋZX17:Պ(P$(Z)):G LANE (7198):YOUR LOGO HERE Щ!W"X0 Ս)  l,0  $0` V,' 0 $0JLa  ,0 0ХJ+& 0 b     O K,? LK  L@,0  `/ 0: b  b  ,0   b i VT U b  , ȭ    b b b      b `qrsp !  5 jjjj. 4) 5 ." .# .$ n$ n# n" . . .! в `hhL  PSU`4.  p q r! s t`pԌL X X. Lppttqqrrss`STOPACSQUEECRUNCSQUASCRUNC } UN- 0 w0wH) h }ING...` ,' 0>(  L    b  S >,' `   ' `   `H) M) m   h`LV`jTUhhL+ zTULeTU+ ( + (  VTU+ `, * / /      5 * /   / ./ * , , 8L pͰq r s t`͌ L @] _ %  b - - 9- $8% (` ?& eWWXWȌ& HNh`L ! ! a!      ` a!8   '  !       0  ` Z" !) @ Z" ) P Z" ˩= !   ` !`   "    L 5 . . 8 1hh   '   5 . . ( 5 8` L_"` 8` ``    ` `  P 7" @ 7" ` 7"  `?") `) `X"W"``H        h` 1987 - MPERE ETAL <9eSINTRO!* C&T#D\>$Ò\\bqI%j\Jqƍ c\LqqH6kYΑ'W ,h⅋.QT +Rjꕫn=ET?zZBqiŕ&1.&IתQ`.<w  IF2rdgrTѓF'8:+;l7 ڴu- X槏~!Hh3S\v^|҆~}nռsnig>]4޿L4S2>_>~i@>CC_^#N ji$L~y$2BZW0>YPB~$N$Ix1{Lx>{/~GRW\%He)cH)%q$gdii%uVVy)j Df_[Ay_0lyZfSgREFV_U|aU1R~W@aPPyNd5JiRyQ`\>Ee[j'T7veW9zݙlUIRPid)%ܞ0E9]~ Y58Iܖ1vZBdQOJFջ_5It$7l>MWi_Yf#lcc5N$Et~I՘}JaOϙcព9K@J^=d~-Rd5WR> mPmEӂv)y1񤞎:{d]I2zuc'mZ?K4XC~UiǞs~ y~zI'Ę,mwq^mŘelM%-nᶷh=[#^K^>1s<=qk6]tM޷oFbS?9'~A1_uzFmRJ' Wa8=DLHk 5 JAASI4PBOOT.40!᠄LDV3J(2u4 $L9eȓp?3hϠ#sňpOhQJAzHpq!ReE8S!"d$dh~̅$!I(a*),SpҪMh"  U]U$x~@Ɖ8(3Qŀ,Qv H;vZhXa<"HR# Q8 c4eڜYsV.Xd mA~׵:rĩ]t僊̀ +$$J(?42BrCJ#k62HdX0ڈv`D\X4]&⋣p|X$A'Î )EI$o" !h:#~fr jNx6&Ga!i3r>pPiH.0HC@"BDe"*"jdDM>p VPBOOT.80!က?@ #­3f Qei"H4r'OE>"!ԞSG3OhQJAHpq!ReZS)"d$bkZ8RD0hVV%pұs=i"  U}ZgDq$ O(93qYX%f,(U!Y Vcdû%(M߲jiD(F$AZ$d9qR?,mK/ݴr߮B !:y.l!쮻鶻~9@)RRKJA7x@*'- 9 " ADPЌ7|%#|!,"pȸ\;#DZA6 0 c$ P1Lx B@'X1UP;\Di%!  (#F P U>@?(M""#'YB%ً`pd`ubA9Z\H~vۋ2ȣrHʏ*f(@E&A鵛p#RAr#703iqVATpq:@؏<"눈(("i 0- P'DJe(-`F:PH`J/B| 솲 "^Q`V^x7*!*3NYSpN$f X ,JͷXB# ^庛(" z C ѵ x- 5,249ID¬ ! ڵ$FC-n6L)009/(-(B¯Sϼ0̋= %#.$T]AH<$(a@J -kyu2ZG=D b| B 8'-FƄAF*X q-<@!f҅ 'shLgG 3 N _:AMF5ml46" iTp;`2 fܞtIiAH-vxWȀh"G$2${28`Dg} #Ǜ7nNb^(Cb4TpU!9aȝr'7$WsҺx8shgUGZ8l1Z[S&g@Td+q(iA! ҊI3a mGpDoҺ\UJ qMqn+aNAyuI>hB~! uQIZG(@Sm=cTA tq5GBXoYgB׹`4!JbnN$eڷ`APfp!7$pҜ0h L`pA^dC#r/*  c%-a(!3d$`CDAY.@tP06!D{ 8 {0q PQ He6n҄ 0Ho"$4vx-B#wHBivIEm P I,U",*/[! bpBl .h@M`TDñm؀$ D!&b#$`H(3!mm*w@Izo0hvP /HpF Bю}DC jv̊ЄR*ж=R`;,Ca ) xhZ7haáj$mZ[ۦ ʏ) yR0up!_ H@5,ff(!M4{}2[V !v7^4 `tY%EC3! {|'AW4ʦR&ҜA8"3W*O 8BANHH#Ŵ\L $i$А4Jt\x$;! +KPCe@~20 @ "> DSAVE U8,D0,"COPY ALL V8":REM 12-8-86 DO NOT EDIT!X95:<><><><><><><><>15:65520,,,,(8)1:LN(7)::SEC:JSR PLOT_&: (46)28 "RESET & RELOAD!!!":d"DISK COPY-ALL JIM BUTTERFIELD"f"MOD. FOR C128 (V8) ELIZABETH DEAL"g15: (215) 110Gh"ARRANGER IS QUICK IN 80-COLUMNS,ni"SLOOOOOW IN 40-COLUMNS. PUSH ANYj"KEY TO CONT OR STOP/SWITCH/RUN.": I$n:A$"!JIM BUTTERFIELD!":A$A$A$A$:A$A$A$A$A$A$P$"":FF(1): L2(233),L1%(233),N$(233),T%(233),T$(4),P(233)QML("3600"):MB00:KB212:NK88:MB:(ML10)8k XXX,SEQ,PRG,USR,RELJ04:T$(J):J"COPY FROM UNIT 9";F:830:F$D$O$" ""COPY TO UNIT 8";T:830:T$D$:TFF$T$ *N0:1:15: 15,F,15:15,"I"F$8860:EjZ90:"PATTERN *";P$:P$"XXX"(P$O$,16)NP$"":"EXCLUDE PATTERN (? NOT ALLOWED) *";XP$NPXP$"*":NPNP$XP$:NL(NP$):(NP$,1)"*"NLNL1 "FIRST ITEM *";FS$:FL(FS$)! (FS$,1)"*"FLFL1j "HOLD 'Y' OR 'N' TO SELECT PROGRAMS TO COPY. LOCKS THE ANSWER. "SECOND PASS WILL PERMIT ARRANGING AND MORE DELETING. "PUSH 'Q' TO QUIT SCAN":1,F,3,"$"F$ ,860:E:230 1I$:I$""305!6FF(1):MB:ML:RNK:340$!JMB:ML3H!TJ1621:((A$,J3))160Ju!hN$(A$,4,J):T9(A$)128:T91T94470!mNP(N$,NL)(NP$,NL)470!oFL(N$,FL)(FS$,FL)470!pFL0!|L1%((A$,22)):L2((A$,29))((A$,30))256"(A$,4,16);" ";T$(T9);:"####";L2?"15:P(KB)R : C128 TROUBLE??W"Z$:Z$""PNK450g"Z$"Q"480"Z$"Y"Z$"N"Z(Z$):RNK:450"Z$(13)R0:450:Չ410"Z80""O$"":470"NN1:L2(N)L2:N$(N)N$:T%(N)T9:L1%(N)L1%#ST0N232330#1:15:" * * * "@#N0"* NO PROGRAMS *": 800q#OLL:8010:&:LOL:N0485: ARRANGE OPTION#---ACCESS FILE INFO VIA POINTERS FROM HERE DOWN---#ZN0:J1N : ZN COUNTS FILES ACTUALLY COPIED$L2L2(P(J)):T%T%(P(J)):LL2670$Q0550K$"*** OUTPUT DISK FULL, HAVE A NEW ONE";Z$:(Z$)89$&15:15,T,15:"WANT TO NEW THE OUTPUT DISK N";Z$$0(Z$)89600$D"DISK NAME,ID";X$,Y$:15,"N"T$":"X$","Y$$N860:E:550%X15,"I"T$:1:1,T,0,"$"T$":!#$%&"%b860:E:550-%l890:890:QQ1D%v#1,X$:X$""630M%890r%LXY256:"(";L;"BLOCKS FREE )"%1:15:500%14,F,15:15,T,15%(N$(P(J))O$,22);T$(T%(P(J)))" ";%3,F,3,F$":"N$(P(J))","T$(T%)&855:E"** ";E$;E:780=&T%44,T,4,T$":"N$(P(J))",L,"(L1%(P(J))):730h&4,T,4,T$":"N$(P(J))","T$(T%)",W"&860:E" >>> ";E$;E:780&LLL2:ZNZN1: SUB BLOCKS ONLY IF NO ERRORS&T%4MB:ML9:855:760&MB:ML6'860:E"**DEST* ";E$;E:EEE@'855:E"**SRC** ";E$;E:EEEEEa'" BLOCKS FREE ####";Lq'EEE:E780'"";(27);"J";' 4:3:15:14:EE63: 63=FILE EXISTS'J::"COPIED"ZN"FILES","BLOCKS NOW FREE"L( FF(1):"ANOTHER INPUT DISK READY";Z$:(Z$)89230"(4Q(>"DRIVE 0";D:DDD830:D$(D48):i(W14,E,E$,E1,E2:870|(\15,E,E$,E1,E2(fE0E(ST 191):E$"*ST*"(p(z#1,X$,X$,X$:X(X$(0)):#1,X$:Y(X$(0)):(b(@ SAVE"0:ARNG CATAL",86)J: N=20 :DIM L2(233),L1%(233),N$(233),T%(233),T$(4),P(233)l)T: FORJ=1TON:N$(J)="FILENAME"+STR$(J):NEXTJ:TS=55v)^NN1)c 15:TB8:&:EI(215)0: EI %:TB40)hR$(0)(146):R$(1)(18):E$(27))rDM$" NO COPY ":15*|J1N:P(J)J:J:JJ1:N$(J)DM$%* IFTS=55GOTO8220V*"WANT TO REARRANGE N";I$:I$"N"9050u*"THESE KEYS REARRANGE:*"UP/DN MOVE CURSOR,*" PULL NAMES AFTER D,*" POSITION FOR XFER +"RANGE ":"XFER RANGED NAMES /+"DELETE=NO COPY (RECOVERABLE)"P+"NEXT PG":"PREVIOUS PGw+"END OF LIST":"BOTTOM OF PG"+"HOME TOP OF PG":"CLS TOP OF LIST"+"COPY TIME+"SCREEN ISN'T UPDATED ALL THE":"TIME. IF FILE NAMES VANISH,5, "OR BEHAVE FUNNY, PULL THEM":"WITH THE CURSOR KEYS.], "TRANSFERS TAKE TIME. BE PATIENT., EI"---> PUSH ANY KEY":I$: 9053, ""TB)E$"T";:W10:W224,& XF0:RN0:RV0: XFER,RANGING OFF,0 8330:"";-: ">";:J010:I$:I$""J -D " ";8-N CM("CDRXBENP"(13),I$):CM08250X-X I$"C"9040: TIME TO COPY-b RNI$(13)RN0:R2R21:XF1:8250-l CMCM1:CM8530,8560,8590,8620,8650,8870,8840,8900,8810,8930,8960-v 8250- ---SCREEN A TO B- A1:BW2:CL1. BNBN$. "";:JAB:8370:J::. ---PRINT LINE# JN. E$"J "R$(RV);. "### ################ ### ####";J,N$(P(J)),T$(T%(P(J))),L2(P(J)). . ---REPRINT DOWN, IF RANGING THEN RVS. CL(W11)CLN/ JCL:RNRN((JR1)):RVRN:8370:CLCL1: DOWN / RNR2R21&/ 9/!---REPRINT UPU/ !3: LNW1E$"I";: UPp/!"";:JCL1:J0JCL/ !RV0:8370:"";:CLJ/*!RNR2R21:R2R1RN0/4!R2R11RN0/>!/H!---DOWN/R!CLN8410/\!/f!---UP/p!CL184600z!C0!---DUMP #CL,NO REPRINTING,RECOVERABLE FROM BEYOND 'NOCOPY'O0!E$"D";r0!S1CL:S2N:LS1:9000:JCL1:0!---RANGE IT0!RN0RN1:R1CL:R2CL:84100!0!---XFER0!XFXF0:R1CL86700!0!CLR187500!---XFER IF CL>R1 1!MT1:LR2R11:S1L:S2CLMTH1!9000: MOVE LEFT,REPRINT NEW RANGEp1"MTMT1:L: :CLCL1:CLNCLN1"JS2MTS11:3: LN08460:J1"1$"---XFER IF CL2V"i2`"---END TO CATCH NO COPY LINE FOR XFER2j"RV0:ANW2:A0BN:8350:"";:CLN2t"2~"---CLS=FIRST SCREEN2"RV0:I$;:8330:"";2"2"---HOME3"RV0:JCL11:3: LN"";:J3"CLJ:3"---BOTTOMB3"JCL1E3:3: LNW2JN:JM3"CLJ:Z3"---NEXT3"RV0:8870:ACLW2:BAW21:AN8340:CLJ3"3"---PREVIOUS3#RV0:8870:ACLW2:A1A13 #BAW21:8340:CLJ3#3#---MOVE ELEMENTS LEFT04(#TMP(L):KS1S2 :P(K)P(K1):K:P(S2)TM:L42#---MOVE ELEMENTS RIGHT~4<#TMP(L):KS1S21:P(K1)P(K):K:P(S2)TM:4F#---ALL OVER, GO TO COPY4P#"COPY TIME:":J1N1:N$(P(J))DM$J4Z#NJ1:&::S N THINGS ,P() DER ARRAY5\#---40 COL MINI-HELPV5]#R$(13):"KEYS:"R$"UP/DN"R$"RANGE"R$"RETURN"R$"XFER"5^#"HOME"R$"NEXT PG"R$"PREV PG"R$"END"R$"BOTTOM"R$"CLS"5_#"DELETE"R$"COPY":5d#---5n#J7885: D0,U8,"<---- "(J)" ---->",B2,P2P2:J:,,,H6H"H/6H.6H` h`566J7]7 8 6 7@O 7 7*?  7͘` 7 6 Δ 7̕LxiiXHJJJJ 0 h) 0    7 @ 7ߌ  7 7̔L 8` P      0 8`,,/x t((`xHh w(`L7L7L7L7 7 8` H 8h` L8 6 (` 7 7 7 7 7`105:774,38:775,1609 WRITTEN AND ARRANGED BY` JOHN J. RYAN-PUBLIC DOMAIN ONLY!808,100:792,125:NP$(17):ZX$"A,B,C,D,E,F,G,H,I,J":ZZ$"7,2":AA$"Y,N":CC$"L,D"0:0,1:4,1:""8X23:"ے":""XX1::18,11,21,13,1:17,10,22,14,1:16,10,23,14,1:15,9,24,15,1:14,9,25,15,113,8,26,16,1:12,8,27,16,1:11,7,28,17,1:10,6,29,18,1:9,5,30,19,1* 1:"":X0:X15:X1 5,3:X2 5,2:X9 5,7t " JOHN J. RYAN ":"":XX1::"": 2:0,0,39,24 0: 1:5,2:"":10)" MENU OF EVENTS " 10)"A BACKUP FILE":10)"B COLLECT DISK":10)"C DELETE FILE"_ 10)"D FORMAT DISK":10)"E ERASE DISK":10)"F RENAME FILE"10)"G SHOW DISK DRIVE STATUS":10)"H EXIT TO BASIC 7 OR BASIC 2" 10)"I DIRECTORY AND/OR LOAD PROG.":10)"J RENAME DISK":8)"MAKE SELECTION BY LETTER"& G$7 G$"A" 28H G$"B" 33Y G$"C" 37j G$"D" 45{ G$"E" 51 G$"F" 55 G$"G" 59 G$"H" 60 G$"I" 66 G$"J" 91 G$ZX$ 16 :(7)4!"OLD NAME";OF$:"NEW NAME";NF$:""OF$""""NF$""f!:"COPY ANOTHER FILE [Y/N]?"|!Z$:Z$"Y" 28! Z$"N" 11:Z$AA$ 31#"!:(7):5)"WARNING: OPEN FILES WILL BE SENT TO DATA HEAVEN!":"DO YOU WANT TO CONTINUE [Y/N]?"9""G$:G$"Y" 36X"#G$"N" 11:G$AA$ 34d"$::11"%:(7):"NAME OF FILE";DF$:"DO YOU WISH TO CONTINUE [Y/N]?":X$:X$"Y" 39"&X$"Y" 40"':11"(""DF$:41)#):"DELETE ANOTHER FILE [Y/N]?"A#*BB$:BB$"Y" 37S#+BB$"N" 11f#,BB$AA$ 42#-:(7):"INSERT DISK TO FORMAT":"ENTER NAME.":21,64:"";DN$: $."ENTER TWO DIGIT ID NUMBER.":"";TD$:21,0!$/""DN$","TD$""I$0"FORMAT ANOTHER DISK [Y/N]?"_$1Z$:Z$"Y" 45~$2Z$"N" 11:Z$AA$ 49$3:(7):"ENTER NAME OF DISK TO ERASE.":21,64:"";EN$:21,0:""EN$%4"ERASE ANOTHER DISK [Y/N]?"%5Z$:Z$"Y" 51;%6Z$"N" 11:Z$AA$ 53%7:(7):"OLD NAME";AN$:"NEW NAME";NN$:""AN$""""NN$%8:"RENAME ANOTHER FILE [Y/N]?"%9Z$:Z$"Y" 55%:Z$"N" 11:Z$AA$ 57&;:(7):11)DS$: 3::11Q&<:(7):"EXIT TO BASIC 7 OR BASIC 2?"g&=L$:L$"7" 64x&>L$"2" 65&?L$ZZ$ 61&@:(7):4,14:0,12:5,14:808,110:792,64:&A:(7):64&B:(7):67*'C"DIRECTORY":"LOAD A PROGRAM"@'DZ$:Z$"D" 71Q'EZ$"L" 75c'FZ$CC$ 68k'G:'H"LOAD A PROGRAM [Y/N]?"'IZ$:Z$"Y" 75'JZ$"N" 11:Z$AA$ 73 (K:(7):"LOAD A BASIC 7 OR BASIC 2 PROGRAM?#(LZ$:Z$"7" 794(MZ$"2" 81F(NZ$ZZ$ 76(O:"NAME OF PROGRAM";NP$: #1,(NP$)",P",D0,U8::4,14:0,12:5,14(P808,110:792,64:(NP$)(Q808,110:792,64(R:1:I32744 32844:A:I,A:%)S"NAME OF PROGRAM";CP$:("9D"),128B)T(CP$),P2049:("7FE8"))U165,174,141,77,128,165,175,141,78,128,120,169,47,133,1,169,78)V141,0,255,169,64,141,6,213,141,48,208,169,247,141,5,213,32*W132,255,32,47,128,32,129,255,32,138,255,88,32,83,228,32,191G*X227,173,77,128,133,45,173,78,128,133,46,32,89,166,32,51,165*Y76,174,167,160,0,152,153,2,0,153,0,2,153,0,3,200,208,244*Z162,60,160,3,134,178,132,179,162,0,160,160,76,140,253*[:(7):SP$" ">+\"INSERT DISK TO BE CHANGED.":"THEN PRINT D TO CONTINUE."U+]A$:A$"D" 93r+^15,8,15,"I0":2,8,2,"#"+_15,"U1:2,0,18,0"+`15,BP;2,144"+aJ015:#2,A$:D$D$A$:+b"OLD NAME: ":+c"NEW NAME";DN$:DN$"" 99,dDN$(DN$SP$,16)$,e15,"B-P:2,144":2,DN$;=,f15,"U2:2,0,18,0":2O,g15,A,B$:TB$d,h15,"I0":15:11m,iDS$@ @ LIBRARY UTILITY 128 V1.1&@K@ COPYRIGHT 1986 BY GREG PFOUNTZp@( OK TO COPY ... NOT TO SELLv@2@< CALL THE DAILY EXCHANGE AT 703 989 7461 ... 24 HOURS ... 300/1200@F:@P"IBRARY TILITY 128 V1.1AZ" BY REG FOUNTZAd:;An I2816 2851: A:I,A:: COUNT FILE SIZE MLsAx I2864 2943: A:I,A:: CREATE LIBRARY FILE MLA I2960 3061: A:I,A:: WRITE DISSOLVED FILE MLA:A"EVICE NUMBER (8-15)8";DVA"RIVE NUMBER (0-1)0";DNB U(DV)+B"ISSOLVE OR REATE (D/C)? ";1B;B: M$NB ("DC",M$)VBM$\B:qB READ DIRECTORYwB:B DI$(500),DI%(500): MAXIMUM FILES ON DISKB M$"C" "ATTERN*";F$::F$"*"B"EADING DIRECTORY...C"8,DV,0,"$"((DN),2)":"F$: DS 1810%C,%+C6:=C@ SKIP HEADERCCJ:]CT#8,A$,A$,A$,A$,A$,A$cC^oCh:#8,A$}Cr A$""C|:C READ LINEC:CC: M$"C" F1::F0C:#8,A$,A$,A$,B$C:AA1C:C(A$(0))(B$(0))256 D:DI$(X)(C)D:D: #8,A$6D: DI$(X)DI$(X)A$bD: M$"D" (DI$(X),4)".LBR" F1xD: (A$"" ST)D:XXFD STD8D& M$"C" XX3::XX1D0 X0 880D: (0)5 &DD:DN SELECT FILES ROUTINEDX:Eb" OR 2 UP AND DOWNxEl M$"C" " OR TO TOGGLE":" TO EXIT"::" OR TO SELECTEvA0:A$"":"E A$(13)E:"E: IA2 A2E: I0 IX " ": 720F: IA ">";::" ";0F: DI%(I) "";?F: DI$(I)QF: 30)" "XF:_F:jF: A$F: (" ",A$) A$(13) (2)F: (A$"" ((2)127)5) AX AA1F: (A$"" ((2)127)1) A0 AA1/G : A$" " (2)127 DI%(A)(DI%(A)0)1: M$"D" A$(13)5G;G :OG* M$"D" 1380UG4:]G>A0kGH I0 XGR: DI%(I) DI$(A)DI$(I):AA1G\GfXA1Gp X0 " !":1810Gz""X1"FILES SELECTED:GI0XG:DI$(I)H)HLF$"":"NTER LIBRARY NAME";LF$aH (LF$)12 "AXIMUM 12 CHARACTERS PLEASE": 930uH LF$"" 1810HLF$LF$".LBRH8,DV,1,(DR)":"LF$",S,WI DS63 8::"ILE EXISTS - EPLACE (Y/N)";A$: ("YN",A$): A$"Y" (LF$):970I DS 1810%I8,"DWB";X1BI"OUNTING FILE SIZES:MII0XTI:mI: DI$(I)(DI$(I),2)I: (DI$(I),1)(34)I$:I$""I.:DI$(I)(DI$(I),2)I8: (DI$(I),1)(34)IB: I$I$(DI$(I),1)IL: DI$(I)(DI$(I),2)IV:J`:(34)I$(34)","; Jj:8,I$8Jt:DI$(I)(DI$(I),2)RJ~: (DI$(I),1)" "kJ: DI$(I)(DI$(I),2)rJ:J:(DI$(I),1)22)"-";J:8,(DI$(I),1)J: #9,(I$),D(DN),U(DV): DS 1810J:2816: DS 1810J:#9K:A(251)(252)256(253)65536K:8,A+K:A;30)"BYTES:K:DI$(I)I$@KFKQK I0XuK"RITING "(34)DI$(I)(34)"...K: #9,(DI$(I)),D(DN),U(DV): DS 1810K(:2864: DS 1810K2:#9K<KF"IBRARY COMPLETE!"KP1810LZ DISSOLVE LIBRARYLdLF$DI$(A)154721<-->HHMMSS<-->";: TI$w 6050D0:U8 "L": I1 10:"O1BSO4": I&: """ î"9(" THE ULTIMATE DISK UTILITY "w2" FOR THE C-128 "<" "F" "1P" "oZ" WRITTEN BY: LORD "d" CRUE "n" ý"?s T1 500: T:" "St I1 100: Iix"" " " " POWER DRIVE ï "L "    " " ˷ COMMODORE *! " 1571 t! " D I S K D R I V E ! " ƢƢ"! I1 1000: I! 60005"" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" MAIN MENU "A"""W""1. HEADER DISK"w""2. SEE DIRECTORY OF DISK"""3. CHANGE DEVICE #"""4. CHANGE UNIT # PRESS I FOR INFO """5. SCRATCH FILE""""6. RENAME"#,"7. COLLECT".#1"8. RETURN TO BASIC 7.0"L#3"9. RETURN TO BASIC 2.0"#6"NOTE: ON ALL SELECTIONS EXCEPT 3&4 GOTO THE SPECIFIED UNIT&DRIVE!"#@"SELECT > ";#J S$: S$"" 330#O S$"I" 2000#TS(S$)#^S;" "#$h S 400,500,600,700,800,900,1000,1100,1200.$ 6000$" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" HEADER DISK "$"INSERT A BLANK DISK INTO DRIVE "D" UNIT "U"!"$"TYPE A DISK NAME FOR THE NEW DISK IN DRIVE "D" UNIT "U"!" % ">";DN$X%""%" **HEADING..PLEASE WAIT**"%(DN$),IUT,D(D)%"HEADING COMPLETE!!!!!!"&"DO YOU WANT TO FORMAT ANOTHER DISK?"&& A$: A$"" 4919& A$"Y" 400J& 6000: 210U& 6000&" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" DIRECTORY "&"INSERT A DISK INTO DRIVE "D" UNIT "U& A$: A$"" 530'"DIRECTORY OF DRIVE "D" UNIT "U"...""'& D(D)9'0"ANOTHER DISK?"P': A$: A$"" 570c'? A$"Y" 510t'D 6000: 210'X 6000'b" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" CHANGE DEVICE "'l"ENTER NEW DRIVE # I SHOULD USE"(v ">";D(("CHANGE UNIT NUMBER (Y/N)";>( A$: A$"" 650Q( A$"Y" 710[( 210f( 6000(" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" CHANGE UNIT "("ENTER NEW UNIT # I SHOULD USE"( ">";U)"CHANGE DRIVE NUMBER (Y/N)";%) A$: A$"" 7508) A$"Y" 610B) 210M)  6000)*" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" RENAME FILES ")4"ENTER FILE NAME TO SCRATCH")> ">";F$)H(F$),D(D))RDS$: "ANOTHER FILE?";A$*\ A$"Y" 810*f 210'* 6000}*" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" RENAME "*"ENTER OLD FILENAME"* ">";F$*"ENTER NEW FILENAME"* ">";NF$* (F$) (NF$)* "ANOTHER FILE";A$ + A$"Y" 920+ 210+ 6000u+" DISK STATUS "DS$" DRIVE IN OPERATION :"D" UNIT :"U" COLLECT "+ D(D),U(U)+ 210+L"ARE YOU SURE?(Y/N)"+M A$: A$"" 1101+N A$"N" 210;,O"": 6,1:"":"COMMODORE 128 BASIC OPERATING AT 2MHZ IN THE 80 COLUMN MODE "DA$" "TI$Z,P"ENTER NEW DATE :";: DA$,Q"ENTER TIME -->154721<-->HHMMSS<-->";: TI$,R,64," THIS SYSTEM WAS CREATED ON A HOT DAY IN MONROE CONNECTICUT."?-"THIS IS VERSION 1.0 AND I HOPE TO EXPAND IT SOON. AFTER READING THIS PLEASE GO "-"BACK TO QUANTUM-LINK AND POST COMMENTS ON THIS SOFTWARE. THIS DOS SYSTEM DOES"-"SIMPLE DOS COMMANDS SUCH AS HEADING A DISK..ETC. A BEGINNER CAN USE THIS OR EVEN"@."AN ADVANCED PROGRAMMER FOR QUICK REFERENCE. I HOPE YOU ENJOY IT ALOT.. "g.:" LORD CRUE". :"PRESS ANY KEY TO GO BACK TO THE MAIN MENU....................>". A$: A$"" 2070.  2100/p"":E$"THE BIG PUSH"/zC$" "/ E1 24:E$""C$: E:/ DS "": "O5CWO4":"DISK ERROR: "DS$( ********************************O * DISK DRIVE ALIGNMENT CHECK *v * *( *ORIGINAL PROGRAM BY E. CLUTTER*2 *PRINTED BY TRANSACTOR MAGAZINE*< * JANUARY 1986 PAGE 13 *F * EXTENSIVELY MODIFIED BY *9P * DARRELL G. SHANNON 11-24-85 *`Z ********************************fdlnx PROGRAM RUNS IN C64 & C128 MODE TEST BOTH THE 1541 AND THE 1571"":53280,6:53281,1 " *** DISK DRIVE ALIGNMENT CHECK ***">:: " DEVICE NUMBER TO CHECK (8/9) 8"j" DEVICE NUMBER TO CHECK (8/9)";D$D(D$): D8 D9 160:" PLACE ANY WRITE PROTECTED DISK"" IN THE DRIVE TO BE TESTED." :" PRESS RETURN TO CONTINUE"' KY$: KY$"" 240@ KY$(13) 240H:r" CURRENT ACTION STATUS"" "", 15,D,15:2,D,2,"#"6T35:H$"-"@T$(T)J15,"B-R"2;0;T;9T 460 ^15,"B-R"2;0;1;9 hT$(1)! r4604 |TT1:T0320? 2:15q :" DRIVE HAS PASSED THE ALIGNMENT TEST." :" TEST ANOTHER DRIVE? (Y/N)" KY$: KY$"" 420  KY$(89)  KY$(78) 420 ::! " READING TRACK "H$;T$;25);-!15,A$,B$,C$,D$G!A$;H$;B$;H$;C$;H$;D$V!(A$)2!:"DRIVE HAS FAILED ALIGNMENT CHECK"! 390Q0:(45)(46)25682:"PHILIPS JOHNSON%$&'$&&'&%%.LLK mGH BANK0:SYS56139 HI,S  r ;ک G /GHLQԩGH !I m 6O YOU WANT ANOTHER FILE? [ْES OR ΒO] M m 6 q Y m ߩ q  m @ GHLL  M m ' RESS [1] TO RESTART.  M m  M m GH ߩGH 6I,IGH ߩGH 6I,I  M m  M m  ߩ VO  q  @  q @  @  M q M m q M m q M m ; EQUENTIAL ILE EADER 86 M m 6URING OUTPUT, PRESS [] TO PAUSE. M m >O YOU WANT A PRINTED COPY? [ْES OR ΒO] M m 6 ߩ V q Y m ߩ q  m @ GHL ߩ V GHL8 +NSURE THAT PRINTER IS READY. M m GHL ,RESS ANY KEY WHEN READY. M m 6  GHLשGH ߩGH ߩGH  I,I,I LEASE ENTER FILENAME... M m  M  q mGHL  M mGH ߩ q U#(I),(S) | ީ V T  G /GHL W G ?GHL $ ISK RROR!!! M m  M q M m (RESS ANY KEY TO CONTINUE. M m 6 T GH ߩGH ߩGH I  I,I,I,SGH !I LשGH ߩGH 6I,IGH # K  ީ V q  @ 6 ީ V K q  mGHL Rک$  M GHL$کGH $  M G ?GHL GH W#(I) "  AUSED! M K q  tGHLL{L & M READER A(S)  M T M m READER >(S)  M T M m READER \(S)  M T M m ^LL*F%-5Uo=EMZ 0@PV`hr>o{%+[އ1=: 808`GH;<hL7H ;<h 7H ;<h 7GH ~` LgCD=>`Lhi;hi< l;;"<#=>, M  ;<`LLhi;hi< l;GH;<h 7 )ĭ,=>LL(hi;hi< (l;  H";<h 7 L(,LLͅ M";#<}L`=i== LH ;V<h 7=>L Lhi;hi< l; Lo~  =>" ", L  L(8= H=C>D` R MH;V<hL7~ $%H;U<hL7H;U<hL78$8H;<h 7 G( `H;V<h 78H;<h 78 IiLhi;hi< l; }K;< ʩ ʆ}K;<`Lhh l; K0L}; <=`LLhi;hi< Ll; GH` ;<`GHLTLL|hi;hi< |l; FLWLhi;hi< l; ( L KG`HG ;ȱ;`K e;;;l<hL7 ' [ۅ; \ۅ< H;w<h 7Lvhhl;hi;hi<;;qۍq܍ `@`i^ai_YȱZ8ȥ`a8``L @ߥJIGyH|GH]`Lhi;hi< l; G0 vY,o#[ e dH6;<h 7] `H ;V<hL7H;V<hL7HQ;<hL7v|y }  `; < ; ȱ; ;i;<`LS6g H٦G` ` ) C;D< 7Lo C;D< @ߦIʊ 7Lo $%Hy;<h 7L H;<hL7L0hi;hi< 0l;H} Lv ~o ;=<>fK}F i;Ȣ i<  7}~ L=i;>i<`85364 _` }HA;d<h 7}L~ ɪSR?IT(Lhhh~f~g )(L(L hhh}}} }}} hhh} 0}hhwhhɇɈm8HH L7H-GL: )HfGgL L,,,,, ,, , ,,, ,,,lLZ\~ʆ[ʆY~HGʆcH;<h 7Lo GH` $%H;T<hL7L $%HM;<h 7L0101v`L|01 L L   `v@.`v.`H G L ?REDO FROM START ~ȱȱ~` Y85ȱZ6YZYȩY~ʆ~ZYY85Z6YZYY` ~$%L$` { GcȄqdh d` H t 0h { h %ddcG` G&H GGGH` GHHH 0ߥ G&H hGhG`$%H ~~$h`H~ ~$% $$h`KaHaHI8e568^_834K KaLLa^^5_6ha`~KʽK~}V ~Xʈa~Y ZZYe\ ]]`LHc~G`~HJ8G}G`H&G"~}I8}`L @ߍG~HHJI∘}eGG` {~{|~` {) G eGGȱ{)eGGH` 8C H?ȩȩȩ` 8~ʽ%ʽ$ʽ~@?$`H5^6_95:68^_h`85Y6Z8[ȱ\ȥ[KLZ[K`I8e~L8K`eYeZԥ`L8556[5\ȑ585K56K5 6!55\[eY[ȱ[eZ[L~ʽX~Y\\ Z] Y\```~ʆ~$%$GH`QۅRۅ8SKTK`~~`~ʽʽʽ~`%:3085:DWN$(17):UP$(145):RETRN$(13):ESC$(27):40,0,79,24,1:6,1:(158)" D I R E C T O R Y "::"* FOR NEW DIRECTORY *"::::DS$:0,0,39,24,1:(7):(5)" D I S K G O O D Y! V5":(150)B" Ϸ":" COMMODORE 128 ":" ":" AND 1571 ":" ̯̯ ":" BY JOHN READING":(154)J"Ϸ Ϸ":" Ϸ ":" ":" ":" ":" "fP" ̯ ":"̯ ̯"::(153)"MOVE MENU BAR WITH ARROW KEYS PRESS FIRST LETTER OF OPTION NAME":(7):" PRESS TO CONTINUE":50000,0,79,24::N1116:5,N1:(18);:N179:(32);:N::N1:"PRESS ANY KEY TO CONTINUE";A$$A$:A$""1060)26 :"FILE TO SCRATCH ";A$:(A$)0N :"NOW SCRATCHING "A$:15:15,8,15,"S:"A$:DS$:15: 1:26 0,19,79,24,1:"PRESS < ESC > TO STOP FORMATTING... ANY OTHER KEY TO CONTINUE FORMATTING";Z$ Z$:Z$""3001 Z$ESC$2630206! :"FORMAT AS SINGLE (S) OR DOUBLE (D) SIDED";SS$:SS$"D"15,8,15,"U0>M0":15:3040Y! SS$"S"15,8,15,"U0>M1":15!" :2)"ENTER A NAME FOR THE DISK ":HD$"":ID$""::"NAME ";HD$::"SELECT A TWO CHARACTER DISK ID OR HIT RETURN TO JUST CLEAR DIRECTORY"::"ID ";ID$:"INSERT THE DISK TO FORMAT AND HIT RETURN";" W$"":W$:W$""3070c" 15,8,15,"N0:"HD$","ID$:DS$:15k" 26" BEGIN NOTEMAKER"0,0,79,24,1:6,13:3,4,7:L66:L04005:ՅA$:4016t#20)"* USE OF COMMA WILL TRUNCATE LINES":19)" * BACK ARROW WILL RETURN TO MAIN MENU ":" <......:10.......:20.......:30.......:40.......:50.......:60.......:70.......>":"";A$#B$(95):A$B$4040#A$(95)3,A$:LL1:#3:4:7:26w$40,0,79,24,1:" THIS IS A LISTING OF ":"S E Q U E N T I A L FILES"::"*=S":0,19,79,24,1:"PRINT WHICH FILE ";A$:0,0,79,24,1:15:15,8,15:5:5,8,5,"0:"A$",S,R":4,4,7$#5,B$:CKST:4,B$;:CK04520$4:4:5:15:DS$: 1:26$ BEGIN NAMECHANGEo%0,19,79,24,1:"CHANGE WHICH FILENAME ";OF$:"MAKE THE NEW NAME ";NF$:"* RENAME IS IN PROGRESS *":15,8,15:15,"R0:"NF$"="OF$:15:DS$: 1:25+&\0,19,79,24,1:"* THIS PROGRAM VALIDATES A DISK WITHOUT KILLING THE AUTOBOOT SECTOR *":"* PUT THE DISK INTO DRIVE 8":"* PRESS RETURN TO CONTINUE OR TO QUIT":A$:A$ESC$26F&mU8:DS21DS74""&r15,8,15:8,8,8,"#":15,"U1:8,8,1,0":15,"B-P:8,0":#8,C$,B$,M$:C$B$M$"CBM"'~(159)"THIS DISK HAS A BOOT SECTOR. YOUR OPTIONS ARE..."::" V -VALIDATE & PRESERVE BOOT":" =QUIT":('A$:A$"V"4760?'A$ESC$U8:26N'"";:4742i':C$B$M$"CBM"'"- NO AUTOBOOT SECTOR HERE... WANNA KEEP GOING? (Y/N)":A$:A$"Y"4760:U8:26'1("DONT INTERRUPT UNTIL DISK LIGHTS ARE OFF":D0:DS"BAD NEWS!":DS$:"BOOT NOT PRESERVED":U89(25(15:15,8,15:A$"Y""NOW ALLOCATING TRACK ONE, SECTOR ZERO":15,"B-A";8;1;0(DS65"TRACK ONE, SECTOR ZERO IS ALREADY ALLOCATED":U8("FINISHED VALIDATE FUNCTION": 2:DSDS$)25X):40,0,79,24,1:" THIS IS A LISTING OF ":" P R O G R A M S "::"*=P")0,0,39,24,1:(153)"WHICH PROGRAM WOULD YOU LIKE TO RUN?":"( ENTER QUIT TO QUIT )":">";A$:A$"QUIT"26)A$RETRN$4805(*0,0,79,24,1:(159)"LOADING..."A$:""A$:"RUN"(13):DS$:15 +::INDEX$:SELECT$(CTR)"###":CTRCTR1:COL(CTR),ROW(CTR),SELECT$(CTR)::NOCTR1:ESC:52000:CHOICE1:LASTNO:54000:RETRN0:ESC0:RETRNESC:53000:54000::,0,22:CHOICE1000,2000,3000,4000,4500,4600,4700,4800:F+ ::CTR1NO:(5):,COL(CTR),ROW(CTR),SELECT$(CTR),0::+::LASTCHOICE:A$:(INDEX$,A$)CHOICE(INDEX$,A$)+ϋA$UP$CHOICECHOICE1+&ϋA$DWN$CHOICECHOICE1++ϋA$ESC$25+0ϋA$RETRN$RETRN1+5ϋCHOICE1CHOICENO,7ϋCHOICENOCHOICE1h,,COL(LAST),ROW(LAST),SELECT$(LAST),0:,COL(CHOICE),ROW(CHOICE),SELECT$(CHOICE),1:x,` MENU DATA,o"AESNPRVB": FIRST LETTER INDEX-t5,10," ADJUST MONITOR COLOR ":5,11," ERASE A FILE ":5,12," SINGLE/DOUBLE FORMAT ":5,13," NOTEMAKER PRINTER "y-5,14," PRINT SEQUENTIAL FILE":5,15," RENAME A FILE ":5,16," VALIDATE SAFELY "-5,17," BOOT A PROGRAM "-0,0,"###": END MARK- JOHN READING IS LAWDAW ON QLINK AND ON GENIE I AM JOHNREADINGId: C=128 DISK UTILITY 80 COL V1.B+/ PAUL BLAIR 1986 / PUBLIC DOMAINn: M/C ROUTINES AT $0B00 / STORAGE AT $0D00 $0E00x:A0A1:15::"FLDBIN3",B15%::6,1:5,4:SY2816:251,0:252,13 (142)(11):SZSY512:PB$"00":OS$"35":ES$(27)$A18:A,((A),1):d0,5,0,"DISK UTILITY 128/80 : TRACK SECTOR"0,5,1,"VERSION 1B":0,62,1,"PAUL BLAIR"0,5,2,"֤":M015:(2)((M),2)" ";:0,56,2:M015:((M),1);::0,15,21,"WHICH DRIVE ":" 8";DR: 3056,DRP0,15,22,"WHICH TRACK, SECTOR ":" 18,0";T,ST(OS$)210:ՙ"":760:0,63,0,OS$" TRACKS"0,41,0,""(T)" ":0,53,0,(S)" "880:FL1:"";:800:870"":X419:0,7,X,":":*860:0,5,1,"F1 NEXT TRACK F3 NEXT SECTOR "R"F5 END SECTOR F7 SELECT"0,5,2,"F2 PREV TRACK F4 PREV SECTOR """F6 PATCH F8 QUIT",0,4,3,"ESC BAM RET LINK SECTOR "! 6"TAB SHORT CATALOG LF FULL CATALOG":RTT:RSSA @IN5TCTC1:0,56,1,(TC)T J(212)72910h T(212)751110 ^(212)67880:890:U(DR):"":260 h IN$:IN$(13)740 rIN(IN$)48:IN0IN8330 |IN400,420,430,460,680,480,720,850:330!:)!TT1:S0:T(OS$)TT1:330:220/!:R!TT1:S0:T1TT1:330:220p!SS1:TTT:T35TTTT35!NS202(TT17)(TT24)(TT30):SNS220:SS1:330!:!SS1:S0TRT:SRS:330:220!:"860:0,12,1,"PATCH IN HEX ASCII DEC / EXIT"7"RTT:RSS: IN$:IN$"E"220W"860:0,5,1,"--"IN$"--""0,12,1,"WHICH BYTE [HEX] ?"PB$"":PB$:PB(PB$)"CB(SZPB):IN$"A"600"IN$"H"CB$"$"((CB),2):CB$(CB)#0,35,1,"CURRENT VALUE "CB$:0,35,2,"NEW VALUE ":NV$F#&"":IC1:IN$"H"NV(NV$):NV(NV$)T#0SZPB,NVk#:880: SY6::870#D"":X419:0,7,X,":"::630#N:#X860:0,12,1,"ENTER ASCII STRING (UP TO 8 CHARS) "#b" *";AS$:AS$"*"(AS$)8600,$lJ1(AS$):SZPBJ1,((AS$,J,1))::ICJ1:570W$v860:0,12,1,"WRITE MORE EXIT"z$ CT$:CT$"E"TRT:SRS:220$PB$((PBIC),2):CT$"M"500$CT$"W"860:0,12,1,"WRITING": SY3:220:630$:%15,DR,15,"U0L":15:RTT:RSS:TC09%T(SZ):S(SZ1):T0T(OS$)TRT:SRS:"":230l%TCTC1:0,56,1,(TC):FL0:RTT:RSS:800:690r%:%860:"":210%:%T(SZ):S(SZ1):T0T(OS$)TRT:SRS:330:220%:%KTT:KSS:T18:S0:OS$"35":FL0:NS1:TB6642&15,DR,15:15,"M-R"(199)(229):#15,W$:W$W$(0)I&15:(W$)176780{&800:OS(SZ3):OS128OS$"70":NS2:TB1328& TKT:SKS:&:& T0T(OS$)&*SY256,T:SY257,S:SY259,T:15,DR,15,"U0L": SY&4FL1FL0: SY6:'>15:DS01'H""::0,21,12,(7)"DISK ERROR "DS$e'RT5290452980:T48808,(T)::""ES$"L":&:z'\0,20,78,24,1:'f0,1,4,21,1:'p1,3,78,23,1:'z23,4,72,23,1:':'ES$"M":""(1050:NS2T53:S0:FL0:252,14:810:252,13F(SC$" SECTORS":" TRACKS > 11111111112222222222333333";z(NS2"33334444444444555555555566666666667":ՙ(" 12345678901234567890123456789012345";(NS2"67890123456789012345678901234567890":ՙ)" * = BLOCK ALLOCATED "/)"";:J100120:" "((J),2):\)"";:J1(SC$):(SC$,J,1)::"")3137,4:3138,13:3186,35:3211,18:3212,25)3213,31:3130,230:3131,250:3105:NS11080)3137,0:3138,14:3186,70:3211,53:3212,60*3213,66:3130,234:3131,234:3109:1080!*:3*T18:S0:770`*$DT$"":M144163:DT$DT$((SZM))::f*.:*8:::0,3,24,"DISK NAME, ID "DT$*B" PRESS ANY KEY":ES$"L": R$:140*L: +VHD$"BLK NAME TYP TR SC LOAD":HG$"":PR0I+`FZ0:FT$(1)"SEQ":FT$(2)"PRG":FT$(3)"USR":FT$(4)"REL"+j"":0,0,0,"DISK DIRECTORY 128":0,0,1,"VERSION 1B"+t0,66,1,"PAUL BLAIR":0,0,2,HD$HG$HD$:+~760:0,67,0,""OS$" TRACKS":1300+T18:S1:ES$"M":WN40:1330#,810:T(SZ):S(SZ1):T0FZ1\,X023532:FT(SZX2)127:FT01270:FT$FT$(FT)z,PT(SZX3):PS(SZX4),DN$"":M4::MM1:A$((SZXM)):DN$DN$A$,A$(160)M20-BU256(SZX31)(SZX30):PRPR1:PR171360:1330:PR1D-TBTBBU:"### ################ ### ## ##";BU,DN$,FT$,PT,PS;\-FT2FT0:1270-KTT:KSS:TPT:SPS:252,14:810:252,13-LV256(SZ259)(SZ258):TKT:SKS:" $####";(LV)-:FZ01170:Ս1360:LC33:LN1:1350:"FREE SPACE"TB3.""(27)"L":0,32,22,"PRESS ANY KEY": R$:1409. :d.DT$"":M144163:DT$DT$((SZM)):.LC30:LN0:1350:""DT$:"":.(:.2WN40WN0:WW38:WN40:WW79.<WN,3,WW,24,1:.FLC,LN,50,1,1: /P"": L L L ' ` ' R ` )   , P`L x@ E)@I@ ܩ, , N, ܅ E)C?x, ܭIݩ, Iݭ ܅), Iݭ ܑ$8 ` `U0`bf ag 豩 Rg`e v f*-  z ީFи`L݊ `5(A$)34800'H#8,A$:(A$)34PN$PN$A$:840'R#8,A$:(A$)32850'\TY$TY$A$:#8,A$:A$""860'f(TY$,1)"P"(TY$,1)"S"760(pL(PN$):L48L218760-(z(PN$,9)"DIRECTORY"760S((PN$,2)"DD"(PS$,2)"37"760b(PN$(C)PN$(PN$PN$(160)(PS$,(25(PN$))):(PN$,19,4)(TY$,4)(PN$:TB$(C)PN$:CC1:ST0760)"CRATCHING OLD FILE.... ":8:15,DI,15,"S:+DIRECTORY":153)Z$(255):8,DI,8,":+DIRECTORY,S,W":8,DN$e)"V2T0O2G"::"RITING NEW FILE... "k):|)A1C:C$Z$)B1C1:C$TB$(B)1010)C$TB$(B):DB))(4)164,1:4,((4)1)*(C$,1)(255)C$""8*8,C$:C$:TB$(D)Z$::8,"EOF":8:"V3T0O3C":N*1,8,8,PN$",S,R"d*$DS""DS$:1210*.4,1:0,16:"CREEN OR RINTERS";D$*8D$"P"4,4,7:D1*B:B$" PAUSES...NY OTHER KEY STOPS"*LA$"":L180:A$A$" ":1+VSC80""A$(A$,22)B$(A$,21)A$:0,3,79,24^+`SC40" "B$" ":(A$,41):0,2,39,24i+j208,0y+tZ$""SS+~#1,A$,B$,C$,D$,E$,F$,G$,H$,I$,J$:SSST+D4,A$;B$;C$;D$;E$;F$;G$;H$;I$;J$;+5,1:A$;B$;C$;D$;E$;F$;G$;H$;I$;J$;,Z$:,"":L125::',DS""DS$4,D4:4;,`,12)"RESS ANY KEY....":A$:,SC40"": 0,6,34,20:ՙ25):19,6,1934,20,(27)"M";,CAA14:""(" "(C),5)" "TB$(C)-:(27)"L":150: KEVIN HISEL 05-06-865 Q-LINK ID: KEVINH2;:c( CALL THE CUCUG BBS @ 217-356-8056|2 24HRS 300/1200 BPS<:F(127)128"THIS PROGRAM RUNS IN C-128 MODE ONLY."::PE$(27) Z"THIS PROGRAM VALIDATES (COLLECTS) A DISK WHICH HAS A C-128 AUTO BOOTsd"SECTOR INSTALLED, WITHOUT DEALLOCATING THAT SECTOR. IF YOU VALIDATE AN AUTOn"BOOT DISK WITHOUT USING THIS PROGRAM THE BOOT SECTOR WILL EVENTUALLY BEx"ERASED."DISK DEVICE NUMBER8";DV"DRIVE NUMBER 0";DNn"INSERT DISK INTO DEVICE"DV", DRIVE"DN"AND PRESS ANY KEY...[ESC] TO QUITA$:A$E$450D(DN),U(DV):DS21DS74"";:150DSDS$:45015,8,158,DV,8,"#": DISK DIRECT ACCESS CHANNEL15,"U1:8,"DN",1,0": BLOCK READA15,"B-P:8,0": BUFFER POSITIONR#8,C$,B$,M$iC$B$M$"CBM""THIS DISK DOES HAVE A BOOT. CHOOSE ONE:"  V=VALIDATE THE DISK (PRESERVES BOOT)" P=PRESERVE THE BOOT (NO VALIDATE) " ESC=ESCAPE "A$:A$"V"3801 ,A$"P":400J 6A$E$U(DV):450Y @"";:290` Jx TC$B$M$"CBM" ^"THIS DISK DOES NOT HAVE A BOOT. DO YOU STILL WISH TO VALIDATE? (Y/N) hA$:A$"Y" 380:U(DV):450 r!|"NOW VALIDATING DISK":U(DV),D(DN)X!DS"DISK ERROR":DS$:"BOOT NOT PRESERVED":U(DV):450j!15:15,DV,15!A$"Y""NOW ALLOCATING TRACK 1, SECTOR 0":15,"B-A";DN;1;0: BLOCK ALLOCATE COMMAND " 1541'S WILL ALLOCATE THE WHOLE TRACK! MOST OTHER DRIVES WORK OKAYL"DS65"TRACK 1, SECTOR 0 IS ALREADY ALLOCATED.":U(DV)c""DONE.":DSDS$i"T:""14)"MENU MAKER":8)"FORMAT A NEW DISK? (Y/N)?":ANS$:ANS$"Y"6"NAME OF DISK";NAME$:"ID OF DISK";ID$" 1 SINGLE SIDED":" 2 DOUBLE SIDED":"  ENTER (1-2)":CH$:CH(CH$):CH11,8,15,"U0>M0":1:5CH21,8,15,"U0>M1":1:5:Չ3;15,8,15,"N0:"NAME$","ID$:15}15,8,15,"IJ":NU$(0):DS"DISK ERROR: ";DS$:A$DS$:E1:9:8,8,8,"#":15,"U1:8 0 18 0":15,"B-P";8;5:F$"MENU":RM$"RUN":AA(F$)("B00")15:ALAA255:AHAA256:15,"B-P 8 0":8,"CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;:8,(162);(AL);(160);(AH);8,(76);(("A5"));(("AF"));:8,RM$;(34);F$;NU$:15,"U2:8 0 1 0":BA015,"B-A 0 1 0":A$"" 8:15:A$""  "MENU",P7949P8452:"ANOTHER DISK? Y";T$:T$"Y":: BY GEGE LANE=0,1:4,7::12)"DISK DIRECTORY":P$(144):1,8,0,"$"f#1,B$:ST06:ՋB$(34)2:P$""#1,B$:B$(34)P$P$B$:3#1,B$:B$(32)4:P$(X)P$#1,B$:B$""5:ՋST0XX1:21:N20"":" ";P$(0);"":N20N20:ՋN144N144+J(N19)N:J10" "; ""J"= ";P$(J):J:"TYPE '#' FOR CHOICE":"N= NEXT L= LAST E= END";:"";Z$:Z$"N"NN20:7 Z$"L"NN20:7:ՋZ$"E":Ջ(Z$)1(Z$)144Z(Z$):Z07:ՋZX17:Պ(P$(Z)):G LANE&d"  ILE YPE HANGER":P21Fi" Y IKE HING":Z$(0)_x4,1:0,1:15:P,64}"NTER NAME OF FILE :";F$:" NTER UNIT NUMBER :";U$:U(U$):U8U15130P,0:2,U,2,(F$):1,U,151,E,E$,T,S:2:E0200" : "E$:500-2,U,2,"#":T18:S1:B5A1,"U1";2;0;T;SX1,"B-P";2;B:N$""g65478,0,2A116:A$:A$(160)N$N$A$:65478,0,3""N$:F$N$BB32:B255210F$N$3001,"B-P";2;0;0:#2,T$,S$:S(S$Z$):SB5:205"* Ġ *":500U,BB3:1,"B-P";2;B:#1,K$:K(K$Z$):K1280400f1K12804006"ILE OCATED":"1)UENTIAL":"2)ORAM":"3)E"@"OUR CHOICE:";C$:C(C$):C1C3320AO128:"OCK THIS FILE (Y=YES):";L$:L$"Y"OO644BCCO:1,"B-P";2;B:2,(C);:1,"U2";2;0;T;SET"ONE":500TN$"":227`2:1: (215)090:X120:X259:X321:X458:X525:X653N%: 0,0,79,24"":20)"Ϸ"20)"  "#20)" S T A R T U P 128  ":(20)"  "p-20)"̯ "220)""728)"HIT 'SPACE' TO START".<NAM$"DESIGNED BY MIKE DAVILA, MIKE KRESS PHD. AND PAUL MAIORIELLO ................ "SAI1(NAM$):(NAM$,I)(NAM$,I)rFJ1100::NN$(NAM$,I,1)KS$:S$(32)315P"";::60UZ%_X10:X239:X31:X438:X55:X633d540:&:Q0:EC$"START"i1,2:0,13:4,13:PX90: n1,1 s1,40,40,284,1605x1,45,45,279,155K}1,140,92,172,105e1,70,80250,80:1,13 B$(7):C$"STARTUP":I17:B$(I)(C$,I,1):B17,2,2,B$(B)A$,11,10,34,31A$,BB,375,100B,1,B,0,1,1,0 : PXQ :  B,Q,96$ : QQ2, : 9 PXPX24A B^ 1,4:1,18,12,"128":1,7 MD$"DESIGNED BY MIKE DAVILA," MK$"MIKE KRESS PHD. AND" PM$"PAUL MAIORIELLO." BEG$"==> HIT SPACE TO START" 1,9,14,MD$:1,11,15,MK$ !1,13,16,PM$ !1,2:1,9,18,BEG$9! 8,125,250:8,1,1O! 8,360#3:51598]!: PX2137n!: PX2S8!: S8(8,1)! : !8,90#3: 1:8,90#0!K$!X17!X,,((0)151)!"X!'K$(32)275!,X18:X,0:"1%: : (142):&("60,1:0,1:4,1:5,7.";j"@ X1,0,X2,24,1:10)"S T A R T U P 128""E" ENTER SELECTION""J"""O" " #T"A> BOOT THE DISK H> SAVE STARTUP "P#Y"B> GO 64 I> MAKE AUTOBOOT "#^"C> COLLECT DISK J> PROTECT BOOT "#c"D> DIRECTORY K> COPY A FILE "#h"E> SCRATCH A FILE L> STASH STARTUP "$m"F> FORMAT DISK M> QUIT STARTUP "@$r"G> RENAME A FILE "p$w" "$|""$" "%" "0%" "g%"":51598|% X3,16,X4,18,1%EC$"START" 455%(EC$,1)"E"6)"LAST OPERATION SUCCESSFUL": %:4)"LAST OPERATION UNSUCCESSFUL"2&:EC$"E1"3)"FILE TO BE SCRATCHED NOT FOUND";: 450g&:EC$"E3"3)"COLLECT FAILED TRY AGAIN";: 450&:EC$"E5"3)"THIS IS NOT AN AUTOBOOT DISK": 450&:DS04)DK$:450&:4)DS$&&X1,0,X2,24&EC$"OK":DK0:DK$""&C$'C$"A"640'C$"B"660.'C$"C"675>'C$"D"755N'C$"E"785^'C$"F"885o'C$"G"1085'C$"H"1180'C$"I"1205'C$"J"1305'C$"K"1370' C$"L"1460'C$"M"600' 465' T40314096:D$:T,(D$): (! 600,(& X30723205:ML$:X,(ML$):2(+V(0 5F,FF,FF,FF,FF,FF,FF,FF,FF,FFz(5 FF,FF,FF,3F,FF,FF,3F,FF,FF,FF(: FF,FF,FF,FF,FF,FF,83,FF,FF,1(? FF,FF,1,FF,FF,1,FF,FF,1,FF(D FF,83,9F,FF,FF,9F,FF,EF,FF,FF)I C7,FF,FF,C7,FF,FF,C7,FF,FF,EF%)N FF,FF,FF,FF,81,7,6,A,7,6/)S 4,5)X A9,F,8D,0,FF,AD,10,12,AE,11,12,85,2F,86,30,85,31,86,32,85,33,86,34,A9,2D,8D,B9)] 2,A0,0,B1,2D,A2,1,20,77,FF,C8,CC,10,12,F0,7,C0,0,F0,13,4C,1E,C,A5,2E,CD,11*b 12,D0,E5,A9,1,85,2D,A9,1C,85,2E,60,E6,2E,4C,1E,C,EA,EA,EA,EA8*g A9,0,8D,0,FF,A0,0,A2,1,A9Y*l 2D,20,74,FF,91,2D,C8,C4,2Fl*q F0,7,C0,0,F0*v 1C,4C,52,C,A5,30,C5,2E,D0,E5,A9,1,85,2D,A9,1C,85,2E,A5,2F,A6,30,8D,10,12,8E,11,12,60,E6,2E,4C,52,C,0*{ (147):* 1520 + (YN$,1)"Y" 320"+ X1,0,X2,24,1:=+DS0 EC$"E5":320H+ 1520b+ (YN$,1)"Y" 320m+65357+ X3,16,X4,18,1+ "INSERT DISK TO BE COLLECTED"+ 1595,745:15,"B-P";8;0:#8,Q$:U(Q$): U 67 "NOT AUTOBOOT, NORMAL COLLECT":715:, "AUTOBOOT DISK - DISABLE THEN COLLECT": 2z,X0:V0:750:15,"U2:8 0 1 0"::DK$DS$:DKDS: DK0 725,EC$"E0",:320,: "CLEANING UP DISK...": DS EC$"E3", 710,: "CLEANING UP DISK...": DS EC$"E3": 320Z-745:15,"B-P";8;0:#8,Q$:U(Q$): U 0 "SEQUENCE ERROR - REDO COLLECT": 4:710- "AUTOBOOT DISK - REENABLING AUTOBOOT": 3-X0:V67:750:15,"U2:8 0 1 0":DK$DS$:DKDS: DK0 710 705!.15,8,15,"IJ":DK$DS$:DKDS:DS EC$"E0":710:՟8,8,8,"#":15,"U1:8 0 1 0":>.15,"B-P";8;X:8,(V);:R.:1,1,39,24,1X..KSDS:KS$DS$: KS0 EC$"E0": 780.4)"PRESS ANY KEY TO CONTINUE". XX$. 315.: 5). "ENTER NAME OF FILE TO SCRATCH"/ 3): "$ FOR DIRECTORY -> RETURN TO EXIT"*/  "?"; CA$(13)/C: CA$: CA$;/H: CA$(20) (CF$)0 CF$(CF$,(CF$)1): CF$CF$CA$0M (CF$)0 8050R90W ""CF$: DS 1 EC$"E"\0\((DS$,21,2)) "00" EC$"E1"f0a 3150f X5,4,X6,24,1::DK$DS$:DKDS: DS0 EC$"E0": 8650k X1,0,X2,24:::1)0p 8050u X3,16,X4,18,10z 10701"": (150):13)"FORMAT DISK": 1D1"WARNING!! DISK WILL BE TOTALLY ERASED";m1 "DO YOU WISH TO CONTINUE (Y/N) ?";w1 YN$1 YN$"" "WARNING!!WARNING!!": 9101 YN$"Y" EC$"START":(27)"L": 3101(27)"L";1: 5)2 "ENTER DISK NAME ->RETURNTO ABORT"(2 "?";:2CA$"":CF$""W2 CH$: CH$(20) 950{2 CH$(13) EC$"START": 3102CF$CH$: CH$;2 CA$(13)2: CA$: CA$;2: CA$(20) (CF$)0 CF$(CF$,(CF$)1): CF$CF$CA$ 3 (CF$)0 9453'3CF$(CF$,(CF$)1)_3 (CF$)16 9)"DISK NAME TOO LONG": 3: 9303: "ENTER 2 CHARACTERS FOR DISK ID?";3ID$"": ID$: ID$(20) ID$(13) 1000: ID$;4AD$"": AD$: AD$(20) AD$;: 1005: ID$ID$AD$: AD$;?4 AD$(13) AD$" ":ID$(ID$,1):ID$ID$AD$: 1030s4 RT$: RT$(20) RT$;:ID$(ID$,1): 10104 RT$(13) : 10)"2 CHARACTERS ONLY": 3: 10004(147): "FORMATTING DISK: ";: CF$;: ",";: ID$4 10)"CONTINUE (Y/N)"; 5 YN$,5 YN$"Y" EC$"START": 310<5IQ$","ID$M5 ""CF$IQ$r5$DKDS:DK$DS$: DK0 EC$"E0"|5) 3105.(27)"M";53 X1 114:" ";: X585= X3,16,X4,18,15B (147)5G "ENTER FILE TO RENAME?";5L 15406Q EC$"S0" 10906VF1$GP$(6[ (147)J6` "ENTER NEW NAME FOR FILE?";U6e 1540j6j EC$"S0" 1115v6oF2$GP$|6t6y "RENAME ";:F1$;: " TO ";:F2$6~ 8)"OK TO CONTINUE (Y/N)?";6 YN$6 YN$ "Y" EC$"START": 310 7 ""F1$ ""F2$/7KSDS:KS$DS$: DS0 EC$"E0"97 315N7 X3,16,X4,18,1q7 "SAVING 128 STARTUP PROGRAM"7 "@128 STARTUP"7DKDS:DK$DS$: DS0 EC$"E0"7 3157 X3,16,X4,18,17"THIS PROCESS CREATES AN AUTOBOOT"8"FOR ML AND BASIC PROGRAMS. ALL DATA"M8"ON TRACK 1 SECTOR 0 WILL BE LOST!";: 7n8"CONTINUE? Y/N":A$8A$"Y"315815,8,15,"I0":8,8,8,"#"8"ENTER NAME OF THE PROGRAM: ";:"";PG$8(PG$)16"FILE NAME TOO LONG!": 2:124059"ENTER THE PROGRAM TYPE: BASIC OR ML":1540_9BM$GP$:BM$"ML"T$"BOOT":T$"RUN"9 BM$"BASIC"BM$"ML""INCORRECT ENTRY, REENTER.": 2:12509C(PG$)2831:DC255:EC256915,"B-P 8 0":8,"CBM";(0);(0);(0);(0);PG$;(0);(0);(:8,(162);(D);(160);(E);U:8,(76);(165);(175);T$;(34);PG$;(0)m: 15,"U2:8 0 1 0"::KSDS:KS$DS$:KS0EC$"E0":315: X3,16,X4,18,1: "THIS PROCESS PROTECTS THE BOOT BLOCK" ;# "BY CREATING A USR FILE CALLED PROTECT"8;( "AND ALLOCATING THE BOOT SECTOR TO IT";A;- 9q;2 "IT SHOULD ONLY BE USED AFTER HAVING";7 "FORMATTED A NEW DISK AND MADE IT";< "BOOTABLE, BEFORE ADDING ANY FILES";;A 10 "PROG IN BANK1 SO OTHER BASIC PROGRAMS"C> " CAN BE RUN. F1 KEY WILL RESTORE";L> 6^> 1,"SYS3147"i> 3072>(215)01505:Չ1515>X10:X239:X31:X438:X55:X633>315>X120:X259:X321:X458:X525: 315> X3,16,X4,18,1?"NO RETURN FROM THIS FUNCTION"1? "CONTINUE (Y/N)";: YN$C?EC$"START":\?GP$"":T1$"":TP$""?  T1$: T1$(13) T1$(20) 1545? T1$;:GP$T1$? TP$(13)?: TP$: TP$;?: TP$(20)(GP$)0 GP$(GP$,(GP$)1): GP$GP$TP$@" (GP$)0 1540@'0@,GP$(GP$,(GP$)1)k@1 (GP$)16 9)"FILE NAME TOO LONG": 3:EC$"S0"q@6@; " PRESS ANY KEY TO CONTINUE"@@ " PRESS ANY KEY TO CONTINUE"@E R$: R$"" 1595@J AO1655:15,"B-P";8;2:#8,Q$:U(Q$)WATU128U133"ERROR - NOT NEWLY FORMATTED DISK": "ENTRY 1 USED": 5:oAY:"PROTECT":1655A^X2:V131:1660:X3:V1:1660:X4:V0:1660AcX30:V1:1660:X31:V0:1660Ah15,"U2:8 0 18 1"Am"DONE":: "CLEANING UP..."Br:CBw15,8,15,"I0":DSDS$:1650:՟8,8,8,"#":15,"U1:8 0 18 1":`B|15,"B-P";8;X:8,(V);:1 (14);"":5,2:6,1:(((54533)128)0)%;1200v" "" "0,5,79,24,1(A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":B$"0123456789":ID$"":K(TI) 2J1*<K(26(1)1):V$(A$,K,1)JFL(10(1)1):C$(B$,L,1)\PID$ID$C$V$kd PRINTID$xn GOTO40x"AME FOR ISKS";DN$DN$""120"K TO FORMAT THE ISK WITH "DN$" AND # "ID$" / -->":R$:R$"Y"141:1000_"ES":1000(15)"  !"(27)"@";:1,8,15,"N0:"DN$","ID$:1(143)(141)"ISK RIVE TATUS "(27)"@"DS$<" TO ONTINUE, TO UIT":R$:R$"Q"250:400,0,79,24:"""  ͒":"LEASE GET THE DISK IN THE DRIVE AND TRY IT AGAIN!":120""8 "O USE THIS PROGRAM ALL YOU HAVE TO DO IS ENTER THE NAME OF THE DISK ONCE." "HE SECOND TIME THROUGH THE PROGRAM JUST HIT AT THE NAME PROMPT AND" "THE PROGRAM WILL USE THE SAME NAME, BUT WILL GENERATE A NUMBER."!"  Œ"_!" !":R$:R$"Q"250:207 (0)5 1,2000,10:"80 COL. PROGRAM ONLY":A 240v( UBLE SCANNER 2 BY:JOHN K. TY < VERSI 2.0 >F LAST REVISED 81087 sPZ THIS PROGRAM S THE DIRECRIES d OF DRIVES 8&9 SIDE BY SIDE AN 80 COL. n SCREEN COMPARIS QUIK SCANNING :x OF MANY DISK DIRECRIES. WRITTEN h THE COMMORE 128 WITH 80 COL. .  RELEASED THE PUBLIC MAIN  VARIABLE DICTIARY 9m DEVICE DRIVE NO. ACTIVE, 8 9  A$ RESPSE, INUE "Q"  YN$ RESPSE, INUE UNLESS "N"  6 < :C %I Y  4,1: 0,1j  ENTER LOOPp "v ,: 6 1,3,39,24,1: WINDOW TO PRINT DRIVE #8 DIR ON LEFT @ 5,6: DRIVE #8 DIR IS DRK. GREEN J : PRINT #8 DIR)!TDEVICE8: DS0 530: IF ERROR, GOTO ERROR ROUTINE/!^:k!h 40,3,79,24,1: WINDOW TO PRINT DRIVE #9 DIR ON RIGHT!r 5,14: DRIVE #8 DIR IS LIT. GREEN!| U9: PRINT #9 DIR!DEVICE9: DS0 530: IF ERROR, GOTO ERROR ROUTINE!:" 1,1,79,2: WINDOW FOR MESSAGES0" 1,9999,10 ,2,2000,3w""INSERTDISKS,THEN PRESS A KEY. PRESS Q TO QUIT": 1" A$" A$"Q"":" QUIT PROGRAM AND LIST INFO":" 1,1,79,24,1": 5,8: 30150:":# DISK ERROR ROUTINE #:# 1,2000,10[# 1,1,79,2,1: 5,3: DS$;(15);"ERROR ON DEVICE";DEVICE# 6: 5,8:"TRY AGAIN ? (Y/N)"#& YN$#0 YN$"Y" YN$"N" "PRESS Y OR N": 550#: YN$"N" 480#D U(DEVICE)#N:$X EXIT ERROR ROUTINE$b:$lQ0:(45)(46)25682:"BASIC 128 V1.00%$&'$&&'&%%.LԝLK476,20,29,76,39,29,8,0,76,83,29,76,132,29,76,151,29,76,170,29,162,2>32,198,255,160,0,32,228,255,153,120,4,200,208,247,76,204,255,162,2H32,198,255,160,0,162,0,134,254,32,207,255,41,127,217,0,30,208,7,200R196,253,208,4,230,254,160,0,157,240,4,169,3,157,240,216,232,208,226\76,204,255,170,132,75,169,68,160,23,133,37,132,36,160,0,202,16,15f177,36,72,230,36,208,2,230,37,104,16,244,48,239,200,177,36,48,6,32p12,86,208,246,96,164,75,41,127,32,12,86,96,132,75,201,2,144,249,201z39,176,245,105,126,170,160,9,169,70,208,195,132,75,201,2,144,230,20111,176,226,105,126,170,160,201,169,70,208,176,32,89,182,162,3,32,161182,168,169,157,32,210,255,152,162,6,224,3,208,15,172,171,10,240,10173,170,10,201,232,176,34,136,208,246,14,170,10,144,22,189,20,183201,36,240,3,32,210,255,189,26,183,240,7,201,36,240,3,32,210,255,202208,207,96,32,77,182,24,105,1,208,1,232,96,,,,,,,,,,,,,,,,,,,,,7,255,224,7,255,224,7,224,7,,224,7,,224,7,,224,7,,224,7,,224,7,,224,7,,224,7,,2247,,224,7,255,224,7,255,224,,,127,252,1,193,199,1,207,231,1,193231,1,207,231,1,207,231,1,207,195,1,255,255,1,255,255,1,255,255, 127,252,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,127,252,1,193,131,1,207,243,1,193,195,1,207,243,1,207,243,1,207 131,1,255,255,1,255,255,1,255,255,,127,252,,,,,,,,,,,,*,,,,,,,,,,,,,,,,,,,,127,252,1,231,255,1,207,25541,159,255,1,,3,1,,3,1,159,255,1,207,255,1,231,255,1,255,255,,127>252,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,H127,252,1,255,207,1,255,231,1,255,243,1,128,1,1,128,1,1,255,243,1R255,231,1,255,207,1,255,255,,127,252,,,,,,,,,,,,,,,\,,,,,,,,,,,,,,,,,127,252,1,252,127,1,252,127,1,252f127,1,252,127,1,252,127,1,140,99,1,196,71,1,224,15,1,248,63,,127p252,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,z127,252,1,248,63,1,224,15,1,196,71,1,140,99,1,252,127,1,252,127,1252,127,1,252,127,1,252,127,,127,252,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,85,,255,85,,255,85,,255,85,,25585,,255,85,,255,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,QJm3-I-I2P .<S)7gH GD?g-I777N6I,IObI,I,I,I,IX77)SWITCH YOUR MONITOR TO 40 COLUMN MODE!7u"w-Iҷ7H? G A GǦUTm)!!UT!m!!T2S$UT,S'.H.NNI,I,I' OI,I,IKOI,I,Iu"OI,Iw?g77Q7Q7 ALUE:7###S;I;7 $¸7Q7  OSITION:7###S;I;7 $¸7Q7z7a7&K8gKOKƨK27LINK-NEXT TRACKKO7LINK-NEXT SECTORKg7 LAST SECTORK7LAST BYTE POSITIONK KDĭKKDKDWKKDƨH"Kꨦ??g"K ??g" H?"7PI?#hG2*T"$S)<7ao2*T"$S)<2*T"T$GQK7 DOS VERSIONK7COMP. DOS VERSIONKKDک7DISK IDK7 AUTOLOAD FLAGL7VERIFY C7ONW$7OFFW7-CRC W@CD7ONWN7OFFW؊HGD7FORMAT: ?gAK?gLC7 1541/4040W?gAK?gKCȪ71571W?gK⪩72040W?gDK71581W7UNKNOWNW#KH#K3"m*6-L?G\H\7 DISK NAMEKKDw7DISK IDK7 DOS VERSIONK7 DISK VERSIONHGDjCK-2T)<7a2T)<CmS$$*$"StT.*S)g-7"0u"-0UQ?7*W-0m-G7-W02T0wWwLqUn2*T"$SnYX7V7ITMAP FOR TRACK#WW7 *=REE LOCKWX7V7 0۲1۲2WW7WXW7 WXWLU)=*2*T"$S)=U**n*neYnY7TW7 =WW7 BLOCKS FREEWGH7 DISK NAMEKKD7DISK IDKKD7 DOS VERSION"m*C$$Q7FILE TRACK LINK$"Q 7FILE SECTOR LINK$"M-$"N-7 FILE NAME?$m)gCLI$"Qi7REL SS TRACK LINK$"Q7REL SS SECTOR LINK$"Q7REL RECORD SIZE$"Qˮˮ7SAVE@ TRK. LINK$"Q?g7SAVE@ SEC. LINK$"Q#?g?g#TSn7 FILE SIZE:V$"QS?g?g#TSn7 FILE SIZE:V.H7TYPE:CK}7DELWK7SEQWK7PRGWK7USRWKį7RELWK֯7CBMW@Cﯩ7 LOCKEDWK7 UNCLOSEDW C7 REPLACEDWë@u"OI,Iw7`U C7`j C7`? C7`A C7 ` ? C7`ư A C7`ٰ A7`찦 ?7`_u"OI,Iw7N`5g5gngn7N`D/ϊ7PaGu<`<`CuM<<輧 7J`?gn?gn7Q``Dϱmq7I惄7+`䱩lSn7-almnlNlmn7407R`é7O`)Պ7S`ο7T`L X7@)7 `jUST)7`UT)7D`7C`0U7H`?Щ7aEm-I7,ECTOR IS AT $0478--TYPE  TO RETURN g$ g'`   .H .N7BACK TO 40 COLUMNS!-In7@aHl!? Gl A GUTm)77Q7Q7 EW VALUE: 7Q:7FϩlNl"MD7`KKDPu"7>wX7$a)eLYٷ33n;lQ;70a77 l)¥gK X7@X 7RESS ANY KEY TO Ѓ7 TO PAUSE AND RESTARTgϴgngn輧z7a㴥g XȈ/ϊm77.<-L,q7IWЩ721`,Ê󴼧Pu"7>wkOI,IPI,I7! ENTER DISK COMMAND: 7@:nFϩ7`PI,Iq7I惄]X7@`ĵeYX7$a07OI,I7. PAUSES APE ABORTS 'bI,I,I,I,IuټK]PI,IqX7U`]SI77 DISK: Щ7a샄7OKKPI,I7, [RETURN] RETURNS [SPACE] CONTINUESë7 `KC綻77 ` X7@7 `7`DͶPI,IX7# RESS [] TO END TEXT MODEz7 `x XȊ7`@7` C ©b©7J7Q XȊmq7I惄7$'7 7 ⿷- ( @77  7 RI,I,I,I,I,I,I*IMI"$OI,I,I,I,I,I,I OI,I,I,I,I,I,I.HNI,I,I OI,I,I,I,I,I,I.HNI,I,I OI,I,I,I,I,I,ID.HNI,I,I OI,I,I,I,I,I,IX.HNI,I,I OI,I,I,I,I,I,I0.HNI,I,I OI,I,I,I,I,I,I.HNI,I,IOI,I,I,I,I,I,I<FNI,I,IPI,Iu"AgwX̼u"7HI,Sw7HI,S7HI,S7u"{~$.HwgKu"{~$.Hw??77.<xPu"7>w777XX7070>70>OI,IPI,I⃩⃩ރ7k̈77+ Ƀ7 DEVICE#7##S;I;7 ݃?gnY7 DRIVE# 7 ݃7" ˃X78 X =DEVICE  D =DRIVE  ESC =QUIT  I =INFO7( PRESS ANY OTHER KEYTO CONTINUEnëaml+]D(R),U(I) I,I,I@Щ77a샩7@7@BANK0:SYS56139u"AgwnOI,IWU(I)sp7I`֊7Da:7D`,lmnY?l)07XaJϊeLen˃7-LINE҂sJ!IG? I,I,Iq7U0!I0PI,I7U0>RA I,I,I,S  I,Iq7I惄Щ7`d764^FOI,In7 ERROR 샄7HIT ANY KEY.../ë721`d !I!Im7$W7:W I,I,I,Syzz!Ib AL DLC7# I,I,I,S AKq7U1:2,7,18,0yzzzzbK# DK - DK7XX`C%740 AK KDD7XX`D718!I AK{q7M-R7ƃ7僄yz77`{#74`q7M-W7j777mOI,I.<77# I,I,I,S X7@IĻ766` G A<<766`,H,7070ރ7 @ lnZ7ރ7 lnZ77NPUT : 766a:n.<  }7 7NPUT : : }lnZlnZ77@lQ70ο K#H#==G# 7EADING A ECTORq7U1:2,7,7,胄Щ7`©7+`766`lSn7077-`766`lmn766`IĻ7 #W7,WW7eu7w7؃eu7w7IN ˃l7 , ҃l766`Nˆ/ϊ7RY AGAIN? ( OR )/ë7Y`&q7I惄Iq7B-P:2,0¶0S07⃩ރ0Sϴ GHD?q7B-P:2,nqc7aå7ރ7  ? (Y OR N):z7Y`+7N`$T-m+7`$T-m$.Hjá57RITING A ECTORq7U2:2,7,7,胄q7I惄.<mnOI,I7 DRIVE 7'S DOOR IS NOT SHUT, OR7THERE IS NO DISK IN DRIVE 惄7)CORRECT THIS PROBLEM THEN PRESS ANY KEY./ë7'bI,I,I,I7( K7HE K77ݛ7 ݛ:7 WY7 ݛ:7 WY77'' bI,I,I,I AL LC DLCǦ#Kzũl"5QzũlQǦ-LzƩl"(QũlQȩl"(QũlQl"QDLȩl"(Qƿ$q7U1:2,7,7,0yzzz7`"yzzwW73D`$q7U1:2,7,7,胄lQM.HMȩlQl"QDm.HmP.Hz ƩlQƩlQq7U1:2,7,1,0yzzzWW7CBM`ǩl"RǩlQ;Ǽ7  ⃩⃼u7  ⃩7  ⃩w7  ⃩⃊u7 ⃩⃩ރu⃩⃩w7 77 u⃩⃩⃩ރw7 uȻ7 ⃩⃩ރu⃩⃩ރ7 wu7uwރ7 K7 uwރ7 u7$ u"wu7 u"w7 X7 X7ʦK7ʻ 'bI,I,I,I 7OVE ONE OVE FOUR7) [Λ] EXT ECTOR [@] HANGE YTE7+ [Л] REVIOUS ECTOR [қ] EWRITE ECTOR7+ + - CAN WD/KWD [ԛ] EXT ODE 7* [ʛ] UMP- INK [ě] ISK OMMANDS7 [ӛ] EW ECTORރ7[ț] UNT ISK 7" [Û] ISPLAY A HAIN [ћ] UIT  nY֦ AL>ʦ DL>7????֦ KM720407# [ϛ] UTPUT RINTER ISK YPE=փ7XLʻ'bI,I,I,I7@7KKC7IRECTORY ECTORKKKCD7IRECTORY EADERKKC$7UB IR. EADER KKCJ7 ECTOR IDE2KKCy7  ECTORlnY7 KKC7UB ECTORlnY7KKC7UTO-OOT ECTORKKC7ATA ECTOR  KKC7UB IR. ECTOR K87LLEGAL ECTOR KW7 ISK RRORރ7.<S)77)   7(   7( ݢ7( ݣ 7*   V2.0  7(   7&  BY KEVIN HISEL 7$  7.       7-   7,   7,        7!   7%       7"       7*    7T0O5CLS7T0O5FLS7"<7O z7a.xc7 772Kϻ$ :ψFϩΩ7`ѩePG7 TOO LONG!/ϊѩl)l)7 STARTING TRACK: 6nZ7 :7 }K7STARTING SECTOR: *nZ7 :7 }KҼeeu??Υ[bCw7 OI,I7. PAUSES APE ABORTS !I7# I,I,I,SK#GCԦKq7U1:2,7,7}wӀ؀Ԁl"BQLCӥ/өl"BQKCԩl)7 ISK RROR: W7,WW7,WW7,WW슞7  RACK7 ECTOR7 z`Ԧ?gLLԩ̩W7###S;I;7,*nZ7W$S$e Gi7Щ7W̶$"2Qq7I惄Ԧ Kԥ/gg/7 u"w7` KC7 AST RACK:7 AST ECTOR:ԩ샄7IT ANY KEY..../ë\ I,IqgEC.!I9!I/ωm I,Iq⃩⃩ރ7TRACK Y7 , SECTOR Y7 BYTE7 DECIMAL⃩7HEX7 ASCIIMu"7-w"7###S;I;7/$¸7:"$""StH7####.$S)gS;I;w7 "$""StH7 ¸.$S)gw7 "$""StH.$S)g'/NC''" N'"ZMDp".'.Ncwwu"wq!InOI,I7m7'F YOU USE AND ENJOY HE ISK OCTOR,7(FEEL FREE TO CONTRIBUTE TO THE AUTHOR'S7#COFFEE AND O-OZE FUND. END ANY7%VOLUNTARY MONETARY CONTRIBUTIONS YOU7FEEL ARE APPROPRIATE TO:77 EVIN ISEL72024 REENDALE7HAMPAIGN, 618217HANKS FOR YOUR SUPPORT.7ރ7 RESS ANY KEY TO RETURN.nz7`m" m2~*T$$?lm"(T?SB$?QH.<7aP.<?"T" S$$*$"StT.*S)g-7"0u"-0UQ7*W-0m-7-W02T0wWwBnY7 W7@ ITMAP FOR TRACK#WW7 *=REE LOCK W7 W7*0۲1۲2۲3۲ W7WW.=BnBneY7TV7 =WnYW7 BLOCKS FREEW7 I,I,I,Syzz7`7yzzzziK7bb%TS7i7yz> z> z> z> z> z> z> z> z > z > yz > z > z > z> z> z> z> z> z> z> yz> z> z> z> z> z> < < < < < < < <  <  <  <  <  < < < < < < < < < < < < < < < 7ayzz> < z7`,ۄ7iK7ۄ!Is5LLԝםF%-5Uo=EMZ 0@PV`hr>o{%+[އ1=: 808`GH;<hL7H ;<h 7H ;<h 7GH ~` LgCD=>`Lhi;hi< l;;"<#=>, M  ;<`LLhi;hi< l;GH;<h 7 )ĭ,=>LL(hi;hi< (l;  H";<h 7 L(,LLͅ M";#<}L`=i== LH ;V<h 7=>L Lhi;hi< l; Lo~  =>" ", L  L(8= H=C>D` R MH;V<hL7~ $%H;U<hL7H;U<hL78$8H;<h 7 G( `H;V<h 78H;<h 78 IiLhi;hi< l; }K;< ʩ ʆ}K;<`Lhh l; K0L}; <=`LLhi;hi< Ll; GH` ;<`GHLTLL|hi;hi< |l; FLWLhi;hi< l; ( L KG`HG ;ȱ;`K e;;;l<hL7 ' [ۅ; \ۅ< H;w<h 7Lvhhl;hi;hi<;;qۍq܍ `@`i^ai_YȱZ8ȥ`a8``L @ߥJIGyH|GH]`Lhi;hi< l; G0 vY,o#[ e dH6;<h 7] `H ;V<hL7H;V<hL7HQ;<hL7v|y }  `; < ; ȱ; ;i;<`LS6g H٦G` ` ) C;D< 7Lo C;D< @ߦIʊ 7Lo $%Hy;<h 7L H;<hL7L0hi;hi< 0l;H} Lv ~o ;=<>fK}F i;Ȣ i<  7}~ L=i;>i<`85364 _` }HA;d<h 7}L~ ɪSR?IT(Lhhh~f~g )(L(L hhh}}} }}} hhh} 0}hhwhhɇɈm8HH L7H-GL: )HfGgL L,,,,, ,, , ,,, ,,,lLZ\~ʆ[ʆY~HGʆcH;<h 7Lo GH` $%H;T<hL7L $%HM;<h 7L0101v`L|01 L L   `v@.`v.`H G L ?REDO FROM START ~ȱȱ~` Y85ȱZ6YZYȩY~ʆ~ZYY85Z6YZYY` ~$%L$` { GcȄqdh d` H t 0h { h %ddcG` G&H GGGH` GHHH 0ߥ G&H hGhG`$%H ~~$h`H~ ~$% $$h`KaHaHI8e568^_834K KaLLa^^5_6ha`~KʽK~}V ~Xʈa~Y ZZYe\ ]]`LHc~G`~HJ8G}G`H&G"~}I8}`L @ߍG~HHJI∘}eGG` {~{|~` {) G eGGȱ{)eGGH` 8C H?ȩȩȩ` 8~ʽ%ʽ$ʽ~@?$`H5^6_95:68^_h`85Y6Z8[ȱ\ȥ[KLZ[K`I8e~L8K`eYeZԥ`L8556[5\ȑ585K56K5 6!55\[eY[ȱ[eZ[L~ʽX~Y\\ Z] Y\```~ʆ~$%$GH`QۅRۅ8SKTK`~~`~ʽʽʽ~`! LIBRARY UTILITY 128 V1.3A'L COPYRIGHT 1986 BY GREG PFOUNTZq( OK TO COPY ... NOT TO SELLw2< CALL THE DAILY EXCHANGE AT 703 989 7461 ... 24 HOURS ... 300/1200F:P : (0)5 %Z"IBRARY TILITY 128 V1.3Ad" BY REG FOUNTZvi"ODIFIED TO CREATE FILETYPES":"FOR EASIER XMODEM TRANSFERS ON":"GENIE (HI DEB!)|n:x MOVE TOP OF MEMORY DOWN:58,100:: SETUP STRING THING VARIABLE:TX$""I115:TX$TX$"*****************"%I(1)+:D STORE MACHINE CODEJ:f ML(4): SYS ADDRESSESqI04:ML(I)12032I3",156:@ DRIVE ASSIGNMENTSJ:T DV(2),DN(2)^"NPUT DEVICE NUMBER (8-15)8 ";DV(1)0hDV(1)(DV(1)): DV(1)8 DV(1)15 "";:350^r"NPUT DRIVE NUMBER (0-1)0 ";DN(1)|DN(1)(DN(1)): DN(1)0 DN(1)1 "";:370"UTPUT DEVICE NUMBER (8-15)8 ";DV(2)DV(2)(DV(2)): DV(2)8 DV(2)15 "";:390( "UTPUT DRIVE NUMBER (0-1)0 ";DN(2)\ DN(2)(DN(2)): DN(2)0 DN(2)1 "";:410  U(DV(2)),D(DN(2)): U(DV(1)),D(DN(1)) "ISSOLVE OR REATE (D/C)? ";  : M$  ("DC",M$) M$ :  READ DIRECTORY :;! DI$(500),TY$(500),DI(500),DI%(500): MAXIMUM FILES ON DISKy! M$"C" 208,1:842,34:"ATTERN*";F$::F$"*"!"EADING DIRECTORY...!&8,DV(1),0,"$"((DN(1)),2)":"F$: DS 1780!0:!: SKIP HEADER!D:"N#8,A$,A$,A$,A$,A$,A$"XML(3),0"b:%"l READ LINE+"v:1"K": M$"C" F1::F0`":#8,A$,A$,A$,B$k":AA1":C(A$(0))(B$(0))256":DI$(X)(C)":ML(3),0: Y":DI$(X)DI$(X)" "(TX$,Y)": M$"D" (DI$(X),".LBR"(34)) F1# F ST0 DI$(X)$#:XXF/# ST6#8S# M$"C" XX3::XX1b#  X0 880h#:r# 1840#* M$"D" 1370#4:#>A0#H I0 X#R: DI%(I) DI$(A)DI$(I):AA1#\#fXA1#p X0 " !":1780$z""X1"FILES SELECTED:'$I0X4$:DI$(I):$`$LF$"":"NTER LIBRARY NAME";LF$$ (LF$)12 "AXIMUM 12 CHARACTERS PLEASE": 930$ LF$"" 1780$LF$LF$".LBR$8,DV(2),1,((DN(2)),2)":"LF$",P,WF% DS63 8::"ILE EXISTS - EPLACE (Y/N)";A$: ("YN",A$): A$"Y" (LF$):970V% DS 1780g%8,"DWB";X1%"OUNTING FILE SIZES:%I0X%:%: DI$(I)(DI$(I),2)%: (DI$(I),1)(34)%$:I$""%.:DI$(I)(DI$(I),2)&8: (DI$(I),1)(34) &B: I$I$(DI$(I),1)9&L: DI$(I)(DI$(I),2)@&V:[&`:(34)I$(34)22)"-";f&j:8,I$~&t:DI$(I)(DI$(I),2)&~: (DI$(I),1)" "&: DI$(I)(DI$(I),2)&:&:8,(DI$(I),1)&: #9,(I$),D(DN(1)),U(DV(1)): DS 1780':ML(0): A,B,C: DS 1780$':#9;':AAB256C65536E':8,AX':A;30)"BYTESg':DI$(I)I$m's'~'I0X' "RITING "(34)DI$(I)(34)"...': #9,(DI$(I)),D(DN(1)),U(DV(1)): DS 1780':ML(1): DS 1780'(:#9'2(<1780 (F;*(P *** DISSOLVE LIBRARY ***9(ZLF$DI$(A)d(d I1 (LF$): (LF$,I,1)(34) (nAI1: IA (LF$): (LF$,I,1)(34) (xLF$(LF$,A,IA)( #8,(LF$),D(DN(1)),U(DV(1)): DS 1780(I$""( I13(:#8,A$):I$I$A$ )C) I$"DWB" "NCOMPATABLE LIBRARY FILE!":1780b)"HIS LIBRARY CONTAINS:q)8,X:XX1) I0 X):ML(3),13: Y):DI$(I)(34)(TX$,Y)(34)):ML(3),13: Y):TY$(I)(TX$,Y)):8,DI(I):DI%(I)1*:DI$(I)20)"-"DI(I)30)"BYTES*".*,M$"C":18404*6B*@ I0 Xl*J:B0: AI X:BBDI%(A)::B01780*T:A(DI(I)65536)*^:B((DI(I)65536A)256)*h:CDI(I)65536A256B*r: DI%(I) *|: "RITING "DI$(I)".../+: 9,DV(2),1,(DN(2))":"(DI$(I),2,(DI$(I))2)","TY$(I)",Wc+: DS63 9:((DI$(I),2,(DI$(I))2)):1670u+: DS 1780+: ML(2),A,B,C+: 9+:: +: "KIPPING "DI$(I)"...+: ML(4),A,B,C+:++:+"IBRARY COMPLETE!", ""DS$:#9:#8#,58,255::),:D, SELECT FILES ROUTINEJ,&:j,0" OR 2 UP AND DOWN,: M$"C" " OR TO TOGGLE":" TO EXIT"::" OR TO SELECT,DA0:A$"":",N A$(13),X:"-b: IA2 A24-l: I0 IX (27)"Q": 1950P-v: IA ">";::" ";g-: DI%(I) "";~-: DI$(I)(27)"Q"-: 30)" "-:-:-: A$-: (" ",A$) A$(13) (2)-: (A$"" ((2)127)5) AX AA1*.: (A$"" ((2)127)1) A0 AA1n.: A$" " (2)127 DI%(A)(DI%(A)0)1: M$"D" A$(13)t.z. AA1.: A$" " (2)127 DI%(A)(DI%(A)0)1: M$"D" A$(13)..,32,204,255,162,9,32,201,/ 255,185,0,L/L@/L/LC0L0  ` d  w Ly/ y/L@/  d t L/L 0 d///=  w 0 d t L/d  t L/// / Hbh w/ /`///`///` 0 0///L