a a P b D$ contains drive name to be serializedbD$ "B:"7b VERSION . REVEbVERMb SYb( S()jb2 CORNFLAKbF A PROGRAM TO SERIALIZE DISKSbZ BY BRUCE ALAN VAN NATTAbn COPYRIGHT 1979 EXPAND SYSTEMSb VERSION 1 REV 1 EDIT Abc REV 2 - 2/16/81 TOM BISHOPDc ADDED COMMENTSc DOES ERROR CHECKING AND PROMPTS FORc DISK CHANGE IF THE PRODUCT TO BE SERIALIZEDc IS NOT ON THE SELECTED DRIVE.dd%d  : ( );()::ed " CCC OOO RRRR N N FFFFF L A K K"d " C C O O R R NN N F L A A K K "d " C 0 0 RRRR N N N FFFF L AAAAA KK "%e " C C O O R R N NN F L A A K K "ee " CCC OOO R R N N F LLLLL A A K K"e : " VERSION - ";VERSe: "PICK A PRODUCT FILE FROM THIS LIST":e "*.CMD" ::f : "WHICH FILE DID YOU SELECT";ANS$=f (ANS$,)".CMD" FIL$ANS$".CMD" : FIL$ANS$Cf"}f, "THE FILE YOU SELECTED IS ";FIL$; : " RIGHT";ANS$f6T$(ANS$,) : T$"N" T$"n" f7f8 OPEN OUR .CMD FILEf@ "I",,FIL$ : #,PRODUCT$fJ(gT "THE PRODUCT WE'ER WORKING WITH IS ";PRODUCT$;bg^ " RIGHT";ANS$:T$(ANS$,): T$"N" T$"n" hg_g` NOW WE READ IN THE FILE NAMES AND PARAMETERSgh I  : #,FIL$(I),R(I),W(I),B(I)gr () I : ,h| : "PUT A ";PRODUCT$;" DISK IN DRIVE ";D$;" AND TYPE SERIAL #";^h SN$ : (SN$) SA$SN$ :  : h " BAD SERIAL #" : : |h J  Ih CHECK FOR THE EXISTENCE OF THE PRODUCT FILEh *h "I",,D$FIL$(J)h i NOW DO THE SERIALIZATIONAi "R",,D$FIL$(J) : #, AS AA$pi #,R(J) : A$AA$ : #,R(J) : B$AA$i T$A$(B$,) : SV$(B$,)i (FIL$(J),)".REL" l : (T$,W(J), )SN$(J)j (FIL$(J),)".COM" (FIL$(J),)".OVR" (T$,W(J),)SA$8j AA$(T$,) : #,R(J)Qj AA$(T$,)SV$|j W(J)((B(J)) )x #,R(J)j& j0 Jj: : "NOW REMOVE AND LABEL THE DISK ";SA$ : kD "TO SERIALIZE ANOTHER DISK TYPE R ELSE TYPE Q TO QUIT";ANS$ kN>kXANS$(ANS$,) : ANS$"R" ANS$"r" |DkbklS() : K   : S(K)((SN$,K,)) : K : S( )kvS( ) : S( ) : S( ) : S()k B(J)  k K  B(J)k L   %l S(L)S(L) : S(L)   S(L)S(L)-l L5l K_lS()((T$,W(J),)) S( ) S()lS( )((T$,W(J),)) S( ) S( )lSN$(J)"" : L   : SN$(J)SN$(J)(S(L)) : Ll mS() : II   : S(II)((SN$,II,)) : IIImS()S() : S()(S())  : S()(S()S()) mS()(S()S()@)  : S()(S()S() ) mS()(S() S())  : S()(S()@S()) m S()(S()S())  : S()S()%nSN$"" : II   : SN$SN$(S(II)) : II+n dn* ERROR RECOVERY FOR NOT FINDING A PRODUCT FILEjn+n, : "PRODUCT FILE ";FIL$(J);" IS NOT ON THE B: DRIVE"n4 : "INSERT IT AND HIT RETURN TO CONTINUE SERIALIZATION";n> ANS$nCnH ";FIL$(J);" IS NOT ON THE B: DRIVE"n4 : "INSERT IT AND HIT RETURN