a a P b D$ contains drive name to be serializedbD$"G:"5b VERSION . REVCbVERKb SWb( S()hb2 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 BISHOPBc ADDED COMMENTS}c DOES ERROR CHECKING AND PROMPTS FORc DISK CHANGE IF THE PRODUCT TO BE SERIALIZEDc IS NOT ON THE SELECTED DRIVE.cd#d  : ( );()::cd " 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 "ce " 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$Af"{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$;`g^ " RIGHT";ANS$:T$(ANS$,): T$"N" T$"n" fg_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 SERIALIZATION?i "R",,D$FIL$(J) : #, AS AA$ni #,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$6j AA$(T$,) : #,R(J)Oj AA$(T$,)SV$zj 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 ANS$nCnH ";FIL$(J);" IS NOT ON THE B: DRIVE"n4 : "INSERT IT AND HIT RETURN T