D 53280,0:53281,0: == == CIS 1-86 MOD PA RAY 2-86 ==w "":"DISK MENU UTILITY""":" PRESS RETURN"G$:G$(13)16CA$(2,144),MN$(13):I112:MN$(I):- " NEXT PAGE "," CHANGE DISK "," ERROR STATUS "," LOAD,8:RUN "u " LOAD,8,1 "," RENAME FILE "," DELETE FILE "," VALIDATE DISK " " FORMAT/CLEAR DISK "," QUIT "," NEXT PAGE "," CANCEL COMMAND " 46:30 214,X::211,Y: Y4:I110:XI12:28:MN$(I)::X13(1DA12)7 28:"";MN$(X12):I110:X$:I "X$:X$""34 $28:""MN$(X12):X$""XX1:X22X13(1DA12) &X$""XX(1X13):(DA12)X13X14 (X$(13)44 *32 ,(X12)144,46,120,110,116,98,104,90,74,86:30 ."READING DIRECTORY"A 0DA0:1,8,0,"$":781,1:65478:A$,B$f 2A$,B$,A$,B$:C0:A$""C(A$) 4B$""CC(B$)256 6DADA1:CA$(1,DA)((C),2) 8B$:ST.68 :B$(34)56 <B$:B$(32)60 >C$C$B$:B$:B$""623 @CA$(2,DA)C$:C$"":DA1"READING "(34)CA$(2,DA)@ BST.50 D65484:CA$(2,DA)" BLOCKS FREE "(DA2)" FILES ":1:T1 F120:A.DA0: H144: JWM$"PRESENT CONTENTS OF DISK WILL BE ERASED":130$ L"INSERT DISK TO BE FORMATED":N$"":"DISK NAME";N$:N$""T NEX$"":"TO FORMAT DISK ENTER DISK NUMBER" P"OR PRESS RETURN TO CLEAR DIRECTORY";:EX$ RMA$"N:"N$:EX$""MA$MA$","EX$ T15,8,15,MA$:15:MA$"":120:48: VX$"":"ARE YOU SURE (Y/N) ";X$:X$"Y""":XTOT1:142:*ZDA.n\WM$"RANDOM FILES WILL BE ERASED":130:"DOING MY BEST..."^CP(CA$(1,DA)):15,8,15:15,"V":15`120:48:CP(CA$(1,DA))CP:""CP"BLOCKS RECLAIMED":bWC$"":WM$"RENAME":160:N$""=dNW$"":"NEW NAME FOR "N$"":NW$:NW$""TOT1:144:xfMA$"R:"NW$"="N$:15,8,15,MA$:15:MA$"":120:48:hWC$"":WM$"DELETE":160:N$""jWM$""N$" WILL BE ERASED":130lMA$"S:"N$:15,8,15,MA$:15:MA$"":120:48:)nWC$"":WM$"LOAD,8:RUN":160:N$""Rp53272,21:"LOAD"(34)N$(34)",8r"":198,4:631,13:632,82:633,213:634,13:tWC$"":WM$"LOAD,8,1":160:N$""v53272,21:"LOAD"(34)N$(34)",8,1":"":198,4:631,13::7x1,8,15:1,A,B$,C,D:1:"#";A;B$;" TRK";C"SCT";D:A0]z" PRESS RETURN TO CONTINUEp|X$:X$""124~X$(13)124"":214,5::X(WM$):X(40X)2:X);WM$"";10);"PRESS RETURN TO DO":;10);"PRESS F1 TO CANCELX$:X$""134%X$(13)"":?X$""TOT:144:30H134NZDA.G0:OTT1:"  "(34)CA$(2,1)"TT1:GG1:""CA$(1,T);:TDA4);(34)CA$(2,T)TDA4);CA$(2,T)TLT:G10TDAT1:G10:TDAT1:148.T1:N$"":DA3CTOT1:144:188VOTX2DA188186:""WC$(34)CA$(2,OTX2):I110:X$:X$:X$""168186:""(34)CA$(2,OTX2):X$""XX1:X11188X$""XX1:X2188XOTTL188X$(13)180164XI1(CA$(2,OTX2)):(CA$(2,OTX2),I,1)(34)184^|N$(CA$(2,OTX2),I1):214,X::211,Y:Y4:X1314:186:WC$MN$(X2):X16:Y6:186:"CHOOSE FILE TO "WC$WM$"":X13:Y4186:WC$""MN$(X2):I115:X$:.X$:X$""194k186:WC$""MN$(X2):X$""XX1:X14X2:208:164X$""XX1:X13XTLOT1(1TLDA):208:164X$(13)204192X13144:188X14TOT1:144:I1314:214,I::211,Y:" "::$*:I15,8,15:15,"S:DISK MENU"c"@0:DISK MENU",8:15