" --- 1581 PARTITION EXAMPLEE --- TO ALLOW MAXIMUM OF 2800c --- FILES ON A DISKETTEz --- R. MURKLAND, --- Q-LINK NAME=MEGAHERTZZ53280,0:53281,0:"";(14)15,8,15:15,"I0" "UMBER OF FILES TO WRITE TO EACH PARTITION? (MAX=280)";MF; "NSERT DISK IN #8 <1581 DRIVE>"d "TO BE ě AND WRITTEN TO." "RESS A KEY WHEN READY.":198,0:198,1 15,"N0:2800 FILES!,RT":"ORMATTING...":51:TS1 :  --- LOOP TO CREATE 9 PARTITIONS I19: CREATE 9 PARTITIONSH P$(I):L(P$)1:P$(P$,L):P$"PARTITION "P$x 15,"/0:"P$","(TS)(0)(64)(1)",C" "REATING ";P$;:51 15,"/0:"P$ ID$(I):ID$"P"(ID$,1):51 15,"N0:"P$","ID$ ", ORMATTING...":51 "RITING";MF;" FILES..." :@  --- INNER LOOP TO WRITE FILESL J1MF[ F$P$(J)y 2,8,2,"0:"F$",S,W":51 2,"FILE";J;"IN PARTITION";I 2:51 J : !15,"/":51: BACK TO ROOT PARTITION "TSTS8:40TS840TS0TS41: STARTING TRACK...SKIP 33-39# #I) $:O % --- LOOP TO WRITE FILES IN ROOT &"RITING";MF;" FILES IN ROOT DIRECTORY..." 'K1MF (F$"ROOT"(K) )2,8,2,"0:"F$",S,W":51 *2,"FILE";K;"IN ROOT" +2:51 ,K -: .15 /"INISHED!" 0 1:- 2 --- CHECK FOR ERRORB 315,EN,EM$,ET,ESe 4 EN20EN,EM$,ET,ES:2:15:k 5