6F((65533)255):F15:SS$"":(215)128%gAD(45)(46)256:FAD(4624)(4625)256 53280,0:53281,0:HE$(14)"1581 UBPARTITION ID"(13)"() 1992, 1998" DT$"A" PA$"":(215)128PA$",L"DV(186):DV0DV8 15,DV,15:15:ST020@DVDV1:186,DV:DV30DV7H16U"";HE$h"PTIONS:""(1) IEW IRECTORY""(2) REATE 1581 UBPARTITION""(3) ELETE 1581 UBPARTITION""(4) NTER 1581 UBPARTITION"  "(5) HANGE EVICE ARTITION"W""(6) HANGE EVICE (";((DV),((DV))1);")"i$"(7) UIT"{2K$:K$""50<(K$)140,200,300,400,500,17,130F20 GET DIR"";HE$:"ELECT IRECTORY YPE:":"(A) LL""(B) UBDIRECTORIES"-"(C) UBPARTITIONS"D"(L) ILES"["(P) ILES"r"(S) ILES""(U) ILES"DT$:DT$"7" 20DT$"A"DT$"C"DT$"S"DT$"P"DT$"B"DT$"L"DT$"U"158 15,DV,15:8,DV,0,"$=T:*="DT$3 15,E:E0"ISK RROR:";E:180G "";:(AD116)R 8:15y "RESS <> O ONTINUE..." K$:K$(13)191 20 900:TY68299 950:910 912:PN$"NAME":SS0:SZ120 AT SZAT4040!"";HE$!"PTIONS:">!"(1) AME (";PN$;")"w!"(2) TARTING RACK (";((TS),((TS))1);")"!"(3) TARTING ECTOR (";((SS),((SS))1);")"!"(4) IZE IN LOCKS (";((SZ),((SZ))1);") ;"; " (SZ2561024);"BYTES"-""(5) REATE UBPARTITION"L""(6) XIT TO AIN ENU"_"K$:K$""250"(K$)260,266,270,274,278,299" K$" " 1200:222":"AME";PN$:PN$""PN$"NAME""(PN$)16PN$(PN$,16)"222# :"TARTING RACK";TS:TS1TS80TS40TS1"# 222O#:"TARTING ECTOR";SS:SS0SS39SS0X#222~#:"IZE";SZ:SZ1SZ1600SZ120# SZ120 "NVALID VALUE FOR , BUT WILL USE":910:222#SZ(SZ40):SZSZ40#222$SH(SZ256):SLSZ(SH256):"REATING ";PN$L$15,DV,15:15,"/:";PN$;",";(TS)(SS)(SL)(SH)",C"~$15,E:E0"ISK RROR:";E:910:15:222$K$"NULL"$SS0(SZ40)SZ40SZ120290$"ORMAT UBDIRECTORY? (Y/N)":$ K$:K$""288$"K$"Y"2984%$15,"/";PN$:15,E:E2"ISK RROR:";E:910:298p%&15,"N:";PN$;",DC":15,E:E0"ISK RROR:";E:910%(15,"/":15,E:E2"ISK RROR:";E:910%*15%+20%,900:TY68399%-:"N * WILL DELETE ALL UBPARTITIONS."1&.:PN$"":"AME";PN$:PN$PN$"=CBM": PN$"=CBM" 398q&615,DV,15:15,"S:";PN$:15,E:E1"ISK RROR:";E:910y&@15&910&20&900:TY68499&"RESS <> FOR OOT..."&PN$"":"AME";PN$:PN$"." 20>'15,DV,15:15,"/";PN$:15,E,E$,T,S:E0"ISK ESSAGE:": E;E$;" ";T;S:910F'15N'20}':@#DV:@"$=P":SS$:"ARTITION UMBER";PN'15,DV,15:15,"C";(PN):15,E:E2"ISK RROR:";E:910'15'W20' :(RDT$"CBM":" ";K$:"":"UBPARTITIONS"'(\15,DV,15:8,DV,0,"$=T:*="DT$;(f"";:(AD116)F(p8:15s(z PRINT"RESS <> O ONTINUE..."y((15,DV,15:8,DV,0,"$0":8:8,DV,8,"$0"(15,E:E0"ISK RROR:";E:TY0:1100:903(#8,TY$:TY(TY$(0)))8:15: TY68 850);)"RESS <> O ONTINUE..."R)K$:K$(13)911X)n) CHECK FOR TRACKt):)F$(40): 40 SECTORS FREE [QUESTION])BS1: BAM SECTOR)T0:TA0:AT0: TRACK, TRACK AVAILABLE, NUMBER TRACKS FREE* 15,DV,15* 5,DV,5,"#"+*15,"U1";5;0;40;BS>*15,"B-P";5;16D*:x*#5,A$,Z$,Z$,Z$,Z$,Z$:TT1: A$F$ TAT:984* T39 978* 990*#5,A$,Z$,Z$,Z$,Z$,Z$:TT1: A$F$ ATAT1:984* AT2 AT0:TA0:980*:*TSTA* 5+ 15 ++:0+L (E74 K$"2") 9106+Q^+V"ANT TO FORMAT THE WHOLE DISK";K$+[ K$"YES" "HANK YOU. OU DID NOT ENTER ES. E WON'T.":910+` K$"YES" "NTER AN ID FOR DISK";K$+e (K$)2 910,j15,"NEW0:NEW DISK,"K$,,o"NTER DISK NAME";NM$: NM$"" 1150N,t15,E,EZ$:"TATUS IS:";E;EZ$b,y15,"NEW0:"NM$,~15,E,EZ$:"TATUS IS:";E;EZ$,"ORMATTED DISK.", 910,:,"";HE$,"OTE: 1581 UBPARTITIONS MUST BEGIN"-"ON SECTOR 0 OF A TRACK, MUST BE AT"?-"LEAST 120 BLOCKS IN SIZE, AND THE SIZE"n-"MUST BE A MULTIPLE OF 40. F YOU CREATE"-"A SUBPARTITION WHICH DOES NOT MEET"-"THESE CONDITIONS, YOU WILL NOT BE ABLE"-"TO FORMAT OR ACCESS IT WITH ."-"."OU START OUT WITH A BLOCK SIZE SET TO"M."THE MAXIMUM. OU CAN SET IT LOWER."V.910 ` < "1  "  п л `