a a Pa D$ contains drive name to be serialized bD$ "E:")b VERSION . REV7bVER?b SKb( S()\b2 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 BISHOP6c ADDED COMMENTSqc DOES ERROR CHECKING AND PROMPTS FORc DISK CHANGE IF THE PRODUCT TO BE SERIALIZEDc IS NOT ON THE SELECTED DRIVE.ccd  : ( );()::Wd " 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 "We " CCC OOO R R N N F LLLLL A A K K"e : " VERSION - ";VERSe: "PICK A PRODUCT FILE FROM THIS LIST":e "*.CMD" ::e : "WHICH FILE DID YOU SELECT";ANS$/f (ANS$,)".CMD" FIL$ANS$".CMD" : FIL$ANS$5f"of, "THE FILE YOU SELECTED IS ";FIL$; : " RIGHT";ANS$f6T$(ANS$,) : T$"N" T$"n" f7f8 OPEN OUR .CMD FILEf@ "I",,FIL$ : #,PRODUCT$fJgT "THE PRODUCT WE'ER WORKING WITH IS ";PRODUCT$;Tg^ " RIGHT";ANS$:T$(ANS$,): T$"N" T$"n" Zg_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 #";Ph SN$ : (SN$) SA$SN$ :  : sh " BAD SERIAL #" : : |h J  Ih CHECK FOR THE EXISTENCE OF THE PRODUCT FILEh *h "I",,D$FIL$(J)h  i NOW DO THE SERIALIZATION3i "R",,D$FIL$(J) : #, AS AA$bi #,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$*j AA$(T$,) : #,R(J)Cj AA$(T$,)SV$nj W(J)((B(J)) )x #,R(J)wj& j0 Jj: : "NOW REMOVE AND LABEL THE DISK ";SA$ : jD "TO SERIALIZE ANOTHER DISK TYPE R ELSE TYPE Q TO QUIT";ANS$jN0kXANS$(ANS$,) : ANS$"R" ANS$"r" |6kbvklS() : 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 L'l KQlS()((T$,W(J),)) S( ) S()lS( )((T$,W(J),)) S( ) S( )lSN$(J)"" : L   : SN$(J)SN$(J)(S(L)) : LllS() : II   : S(II)((SN$,II,)) : II;mS()S() : S()(S())  : S()(S()S()) xmS()(S()S()@)  : S()(S()S() ) mS()(S() S())  : S()(S()@S()) m S()(S()S())  : S()S()nSN$"" : II   : SN$SN$(S(II)) : IIn Vn* ERROR RECOVERY FOR NOT FINDING A PRODUCT FILE\n+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