cx "R",#,"INVENT.DAT",' d#, AS F$, AS D$, AS Q$, AS R$, AS P$#d: "FUNCTIONS:":=d ,"INITIALIZE FILE"Yd ,"CREATE A NEW FILE"d ,"DISPLAY INVENTORY FOR ONE PART"d ,"ADD TO STOCK"d ,"SUBTRACT FROM STOCK"d ,"DISPLAY ALL ITEMS BELLOW REORDER LEVEL" e ,"DISPLAY FUNCTIONS LIST"'e::"FUNCTION";FUNCTIONie (FUNCTION) (FUNCTION) "BAD FUNCTION NUMBER": e FUNCTION ,,,,0,,e e ----------------- BUILD NEW ENTRY -----------------------e Hf (F$) "OVERWRITE";A$: A$"Y" *f F$()Df" "DESCRIPTION";DESC$Sf, D$DESC$pf6 "QUANTITY IN STOCK";Q%f@ Q$(Q%)fJ "REORDER LEVEL";R%fT R$(R%)f^ "UNIT PRICE";Pfh P$(P)fr#,PART%f|'g -------------------DISPLAY ENTRY ------------------------------1g HTg (F$) "NULL ENTRY":tg "PART NUMBER ###";PART%}g D$g "QUANTITY ON HAND #####";(Q$)g "REORDER LEVEL #####";(R$)g "UNIT PRICE $$##.##";(P$)g5h -------------------ADD TO STOCK --------------------------?h Hbh (F$) "NULL ENTRY":h D$: "QUANTITY TO ADD";A%hQ%(Q$)A%h Q$(Q%)h#,PART%h&i0 ---------------------- REMOVE FROM STOCK --------------------------- i: H/iD (F$) "NULL ENTRY":8iN D$XiX "QUANTITY TO SUBTRACT";S%fibQ%(Q$)il (Q%S%) "ONLY";Q%;" IN STOCK": XivQ%Q%S%i Q%(R$) "QUANTITY NOW";Q%;" REORDER LEVEL";(R$)i Q$(Q%)i#,PART%jRj ---------------DISPLAY ALL ITEMS BELLOW REORDER LEVEL ----------------aj I dkj#,Ij (Q$)(R$) D$;" QUANTITY";(Q$) TAB (2) "REORDER LEVEL";(R$)j IjjH "PART NUMBER";PART%)kR (PART%) (PART%d) "BAD PART NUMBER": H : #,PART%:/kz}k -----------------------------INITIALIZE -------------------------------k "ARE YOU SURE";B$: B$"Y" k F$()k I dk#,Ik Ikk "1 INITIALIZE FILE"l "2 CREATE A NEW ENTRY":l "3 DISPLAY INVENTORY FOR ONE PART"Ql "4 ADD TO STOCK"ol "5 SUBTRACT FROM STOCK"l "6 DISPLAY ALL ITEMS BELLOW REORDER LEVEL"l$ "7 DISPLAY FUNCTIONS LISTl. STOCK"ol "5 SUBTRACT FROM STOCK"l "6 DISPLAY ALL ITEMS BELLOW REORDER LEVEL"l$ "7 DISPLAY FUNCTIONS LI