%d **** **** **** *** ****Fn ** * ** * ** * ** * *ix **** *** ** * *** *** ** ** * ** * ** * * ** ** * **** *** **** ******** ******** **** ** **** ** ******** **** **0 **** ** **** **\ ******** ******** VERSION 3.2bh BY BRETT BRUNK (C) 1988$(X)50,1:"PLEASE CHANGE TO 80 COLUMNS...":5,1:ՙ"PLEASE CHANGE TO 80 COLUMNS...":5,1<0,1:4,1:6,1:15R"(14)(8)"";,14);"     "614);"         "@14);"      "UJ14);"        "T14);"      "^""h17);"     "(143)"  "* r17);"   "(143)" "[ |17);"    " 17);"    " 17);"   " 17);"   "!17);"    "P!17);"    "!17);"  "!17);"  "(143)" VERSION 3.2"!52);"ESIGNED AND ROGRAMMED BY:"""53);"RETT BRUNK (C) 1988"A"29);"LEASE WAIT...";p"%:3530:I("1300")("1400"):X:I,X:I"I("1600")("1650"):X:I,X:I:"3510:3020: SKIP OVER SUBROUTINES" PRINT SCREEN0#""(142)" "#" ݟP R O B E 8 0 ݟBY: BRETT BRUNK ݟVERSION 3.2"#&" ")$0" "$:T14:(14)"  "(142):$D" "4%N" "%X" ݘTRACK :  ݘPREVIOUS TRACK :  ݘCURSOR POSITION : "%b" ݘCURSOR VALUE (DEC) : "5&l" ݘSECTOR:  ݘPREVIOUS SECTOR:  ݘCURSOR VALUE (HEX) : "&v" "&"";A'T13:" ";:'"";'(27)"M"(" "\("ݘDRIVE MODE:  "(" ")"ݘDRIVE STATUS:  "f)" ")" "(27)"L")) UPDATE MAIN MENU*MY4MY1:ՋMY0MY3*MX6MX1:ՋMX0MX5.* 1,15,78,17`*MT$ME$(MX,MY):ME$(MX,MY)""ME$(MX,MY)""* Z13:"";ME$(1,Z);ME$(2,Z);ME$(3,Z);ME$(4,Z);ME$(5,Z):**"":ME$(MX,MY)MT$*4*> DOS FUNCTIONS SUB-MENU*H45,21,78,24+RMT$MD$(SX,SY):MD$(SX,SY)""MD$(SX,SY)""L+\Z13:"";MD$(1,Z);MD$(2,Z);MD$(3,Z):e+f"":MD$(SX,SY)MT$k+p+z PUT INFORMATION ON THE SCREEN+"";+"#######";T,PT,CPO,"###";V,"####$##";S,PS,((V),2),"############################";DM$0-"##########################";DS$6-Z- CENTER TITLE ON SUB-MENU AREA-45,19,78,23,1:((36(ME$))2));ME$:45,20,78,23,1:- ERROR CHANNEL. EO=0 NO ERROR EO=1 ERROR EO=2 PLEASE TRY AGAIN.-940:DS0EO0:.ME$" !!!":980.." RY AGAIN? (Y/N)"P.KE$:KE$"Y"KE$"N"1030`.ME$"":980x.KE$"Y"EO2:EO1~.$.. INITIALIZE= /8ME$":":980:" NSERT DISK IN RIVE.":11)"RESS A KEY.":KE$:ME$"":15,UN,15,"I0":15:1000!/BEO21080:Ս980:G/L POSITION CURSOR IN BLOCK WINDOW/VV(PKCP):V$(SP(V))E$"O":V127V$""V$""/`""(DN$,RW)(OV$,CL)""V$:RWRWRT:CLCLCT:RW3RW7:ՋRW8RW4/jCL8CL71:ՋCL71CL840tCP64(RW4)CL8:V(PKCP):V$(SP(V))E$"O":V127V$""V$""\0~""(DN$,RW)(OV$,CL)""V$""n0900:KE$"":z0 BLOCK0ME$" Ғ":9800"NPUT RACK :":60,21,64,21,1:13500T1(KE$):T10T1T1T1SI35T111180L1"":45,20,78,23:" ":"NPUT ECTOR:":60,22,64,22,1:1350e1S1(KE$):S1012201T2T1:T135T2T1351T230S11612201T224S11712201T217S11812201S12012202 PTT:PSS:TT1:SS1:ME$"":980:900:E$"L"325,UN,5,"#":15,UN,15:15,"U1";5;0;T;S:1000S2EO0:15:5:EO13130`2(1300:22"":8,4,71,7,1:"":RB:PB:5:15:CP0:RT0:CT0:RW4:CL8:33402< INPUT#2FE$"M":KE$"":9,0,0:9,KE$:9:""E$"L":2P JUMP TO LINK'3ZME$" ":980Q3dT1(("1400")CP):S1(("1401")CP)i3nT11T1SI351180s3x12403 NEXT BLOCK3ME$" ":980:T1(("1400")):S1(("1401")):T11T1SI351180312403 FORWARD SCAN4SC1:1470 4SC104T2T:T1T:S1SSC:T135T2T1354SC1:(S116T230)(S117T224)(S118T217)(S120T20)S10:T1T114T135SI1T114PTT:PSS:TT1:SS1:1300:4S11:T1T11:T2T214T10T20T135SI:T235 5T20T135T2355T236S116,5T231S117=5T225S118N5"T218S120U5,s56PTT:PSS:TT1:SS1:13005@ PREVIOUS BLOCK5JT1T:S1S:TPT:SPS:PTT1:PSS1:13005T PRINTER DUMP5^ME$" ":9806h7)"EADY PRINTER"6r7)"ONTINUE (Y/N)"16|KE$:KE$"Y"@6"";h64,4:5,4,7:3,3:4:6,4,6:6,(22)64,(142)" "74," ݟP R O B E 8 0 ݟBY: BRETT BRUNK ݟVERSION 3.2"o74," "74," "7Z14:A$"":B$"":ZZ180:#3,A$:B$B$A$:ZZ:5,B$:Q84," "84," "83:"";:3,3:Z13:A$"":B$"":ZZ180:#3,A$:B$B$A$::5,B$:@94," "Y94:4:3:4:6:5:o9ME$"":980:31309 WRITE BLOCK9ME$" Ғ":9809"RITE RACK : ";T9&" ECTOR: ";S:09)"ONTINUE (Y/N)":KE$:KE$"Y"ME$"":980:3130O::5,UN,5,"#":15,UN,15:WB:15,"U2";5;0;T;S:5:15:1000^:DE021810t:NME$"":980:3130:X TEXT MODE:bME$" :":980:l4)"RESS [Κ] WHEN DONE"E$"M":v8,4,71,7:CP);:248,255 ;1,0,0:1,A$:1:E$"O";N;TB:ME$"":E$"L";:8,4,71,7,1:PB:980:1110:248,0:3130m; CHANGE BYTE UNDER CURSOR;ME$" :":980;"EW VALUE: ":56,21,58,21,1:1350;(KE$,1)"$"V1((KE$,2)):V1(KE$)0<V1255V1045,21,78,23:" ALUE BETWEEN 0 AND 255!": 2:1950m<VV1:PKCP,V:PB:CT1:RT0:1110:CT0:ME$"":980:3130< RESTORE BLOCK<RE:3130< COPY BLOCK<ME$" :":980<" OPY CURRENT TRACK TO:"="NPUT RACK :":60,22,64,22,1:1350(= C1(KE$):C10C1T@=C1SI35C112030= "":45,20,78,23:" ":"NPUT ECTOR:":60,23,64,23,1:1350=*CS(KE$):CS02080=4C2C1:C135C2C135=>C230CS162080=HC224CS172080>RC217CS182080>\CS202080V>fCTC1:45,20,78,23,1:" NSERT ISK... PRESS A KEY":KE$>p"OPY FROM TRACK: ";CT;" SECTOR: ";CS>z9)"ONTINUE (Y/N)">KE$:KE$"N"KE$"Y"2180>KE$"N"ME$"":980:3130>15,UN,15,"I0":15:1000 ?E022200&?E01ME$"":980:3130o?5,UN,5,"#":15,UN,15:WB:15,"U2";5;0;CT;CS:5:15:1000:E022230?980:" NSERT ORIGINAL DISK.":" RESS A KEY":KE$?15,UN,15,"I0":15:1000:E022250?ME$"":980:3130 @ DOS COMMANDS@SY1:SX1@@ME$" -":980O@840:KE$f@ KE$"1"SY3:SX1}@ KE$"2"SY3:SX2@ KE$"3"SY3:SX3@$ KE$"4"SY2:SX1@. KE$"5"SY2:SX2@8 KE$"6"SY2:SX3@B KE$"7"SY1:SX1AL KE$"8"SY1:SX2AV KE$"9"SY1:SX3?A` KE$(27)ME$"":980:3130SAj KE$(13)2430]At 2300tA~ SY2440,2450,2460A SX1080,2540,2790:2290A SX2600,2650,2670:2290A SX2710,2730,2770:2290A 2290A 980:9)"ONTINUE (Y/N)"B KE$:KE$"Y"KE$"N"2490&B KE$"N"?B 15,UN,15,""DC$:15WB 1000:E022510:ՎdB FORMATB ME$":":980:"AME: ";DN$B " : ";DI$B (DN$)16DN$(DN$,16)B (DI$)2DI$(DI$,2)B DC$"N0:"DN$","DI$:2480C RENAME6C( ME$":":980:"OLD AME: ";OL$gC2 "NEW AME: ";NN$:(OL$)16OL$(OL$,16)C< (NN$)16NN$(NN$,16)CF DC$"R0:"NN$"="OL$:2480CP DIRECTORYCZ ME$"ٚ":980:&: U(UN):%:2520Cd SCRATCHDn ME$":":980:"ILE: ";FI$:Dx (FI$)16FI$(FI$,16)RD DC$"S0:"FI$:2480dD RESET DRIVED ME$"Ԡ":980:DC$"UJ":2480D DRIVE UNITD ME$" ":980:"NIT #: ";U1E U18U111"ETWEEN (8 AND 11)": 2:2730UE DM$(DM$,(DM$)(5((UN)))):DM$"NIT"(U1)" "DM$:940:ME$"":980:UNU1:iE OTHER COMMANDE ME$" :":980:"OMMAND: ";DC$:2480E VALIDATEE ME$"":DC$"V0":2480F DRIVE MODE (1571/1541) (SINGLE/DOUBLE) F ME$" :":980GF " ()INGLE OR ()OUBLE IDED"iF KE$:KE$"S"KE$"D"2830F KE$"S"SI1:DM$(DM$,6(((UN))))" INGLE IDE "(DM$,6)F" KE$"D"SI2:DM$(DM$,6(((UN))))" OUBLE IDE "(DM$,6)G, " (1) 1571 OR (2) 1541"0G6 K1$:K1$"1"K1$"2"2870JG@ KE$"D"K1$"2"2870~GJ K1$"1"DC$"U0>M1":DM$(DM$,(DM$)4)"1571"GT K1$"2"DC$"U0>M0":DM$(DM$,(DM$)4)"1541"G^ 15,UN,15,""DC$:15:1000Gh E00ME$"":980:3130Gr 2810H| QUITH ME$"":980;H " RE YOU SURE (Y/N)?"]H KE$:KE$"Y"KE$"N"2970|H KE$"N"ME$"":980:3130H " 8 0 BY RETT RUNK ER. 3.2":0,1,79,24,1:H KE$:H SETUPI %:"":530:(14);2I ME$(5,3),MD$(3,3):E$(27)I MX3:MY3:SY1:SX1:T18:S1:PT18:PS0:DM$"NIT 8 / OUBLE IDE / 1571":UN8:SI2:SP1571:V0:RB("1300"):WB("1320"):RE("133D"):PB("134D")I A3(X)X64(X32X95)32(X63X96)J A4(X)X127 J SP(X)A3(A4(X))J CP1:PK("1500"):TB("13D8"):DN$"":OV$""J Z13:ZZ15:ME$(ZZ,Z):ZZ,Z:Z13:ZZ13:MD$(ZZ,Z):ZZ,Z.K 760:ME$" -":980:840: 1:1080=K& EO13100MK0 MAIN MENUWK: KE$wKD KE$""MYMY1:760:3130KN KE$""MYMY1:760:3130KX KE$""MXMX1:760:3130Kb KE$""MXMX1:760:3130 Ll KE$""KE$""KE$(27)MX1:MY1:760:3130Lv KE$(13)3370.L KE$" ">L CP13130`L CT0:RT0:KE$"1"RT1:CT1rL KE$"2"RT1L KE$"3"RT1:CT1L KE$"4"CT1L KE$"6"CT1L KE$"7"RT1:CT1L KE$"8"RT1L KE$"9"RT1:CT1M KE$(27)CT5M KE$" "CT103M KE$" "CT8CL:RT1GM KE$""CT10QM 1110[M 3130sM PROGRAM EXECUTIONM* CP1:MY1MX11180M4 MY3MX32280M> MY3MX52950MH MY3MX42810MR :3130M\ MY3430,3440,3450Nf MX1180,1810,1890,1950,20103Np MX1370,1420,1450,1460,1610TNz MX1630,2030,2280,2810,2950qN KE$" "CTCW8:RTRT1N "EAD LOCK ","RITE LOCK ","EXT ODE ","HANGE YTE ","ESTORE LOCK","UMP TO INK ","EXT LOCK "O "ORWARD CAN ","ACK CAN ","REVIOUS LOCK","RINTER UMP ","OPY LOCK "," OMMANDS ","RIVE ODE "O "UIT"%P "NITIALIZE ","ORMAT ","ALIDATE ","ENAME ","IRECTORY ","CRATCH ","ESET ","NIT # ","THER MD "PP ME$" ":980:"";(ER)ZP 3:P 162,5,32,198,255,160,0,32,207,255,153,0,20,153,0,21,192,255,240,4,200,76,7,19,32,195,255,32,204,255,96,0,162,5,32,201,255,160,1,185,0,21,32,210,255Q 192,0,240,4,200,76,39,19,32,204,255,32,204,255,96,0,162,0,189,0,20,157,0,21,232,208,247,32,77,19,96,0,169,1,32,171,19,169,72,32,186,19,160,0,185,0,21*R 32,201,19,200,192,64,208,245,169,1,32,171,19,169,152,32,186,19,160,0,185,64,21,32,201,19,200,192,64,208,245,169,1,32,171,19,169,232,32,186,19,160,0R 185,128,21,32,201,19,200,192,64,208,245,169,2,32,171,19,169,56,32,186,19,160,0,185,192,21,32,201,19,200,192,64,208,245,96,0,162,18,142,0,214,44,0,214cS 16,251,141,1,214,96,0,162,19,142,0,214,44,0,214,16,251,141,1,214,96,0,162,31,142,0,214,44,0,214,16,251,141,1,214,96,0,169,1,32,171,19,169,72,32,186,19S 160,0,32,59,22,153,0,21,200,192,64,208,245,169,1,32,171,19,169,152,32,186,19,160,0,76,0,22,0,0,0fT 32,59,22,153,64,21,200,192,64,208,245,169,1,32,171,19,169,232,32,186,19,160,0,32,59,22,153,128,21,200,192,64,208,245,169,2,32,171,19,169,56,32,186,19T 160,0,32,59,22,153,192,21,200,192,64,208,245,96,0,162,31,142,0,214,44,0,214,16,251,173,1,214,96,0,0,0,0,0,0,0,0