Listing of file='REORMENU' on disk='vmedia/701-2652C.wvd.zip'
# Sector 50, program filename = 'REORMENU' 0010 REM REORMENU, RELEASE 2.3, (12/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 COM I,Q,M5$,O0,M$8,W,W1,W2,W3 : COM Q$(2)80,Q6$80,Q7$80 : COM Q3,Q4,Q5,Q6,Q7,Q8,Q9 : COM M2$4,M3$1,M(17) : GOTO 4000 4000 N=09 : I=40 : IF M$="SYS MENU"THEN M5$=" " : Q0=VAL(Q0$(2)) : W=INT((210-5-Q0)/(12+Q0)) : W3=Q0+3 : W1=6 : W2=W+1 : M$="REORMENU" : Q7$="GBS/MVP FILE REORGANIZATION MENU" : STR(Q7$,47)="SYSTEM MENU" 4100 LOAD T"GBS MENU"10,4100 : ERRORPRINT HEX(03);"GBS Menu is not available." : END 7010 DEFFN'32 : Q6$="SYS MENU" : COM CLEAR I : LOAD TQ6$ : ERRORPRINT HEX(03);"System menu is not available." : END 7060 DEFFN'38 : STR(M$(),25)=N2$ : RETURN 7120 DEFFN'39 : RETURN 7280 DATA "INVC100A","REORGANIZE CUSTOMER MASTER FILE"," " : DATA 0,"INVCF01 001 INVCK11 002 SORTWOR 003 INVCK11 004 PROGRAM 005" : DATA "INVT100A","REORGANIZE INVENTORY MASTER FILE"," " : DATA 0,"INVTF01 001 INVTK11 002 SORTWOR 003 INVTK11 004 PROGRAM 005" 7320 DATA "SALE100A","REORGANIZE SALESMAN MASTER FILE"," " : DATA 0,"SALEF01 001 SALEK11 002 SORTWOR 003 SALEK11 004 PROGRAM 005" : DATA "OREN100A","REORGANIZE OPEN ORDER FILE"," " : DATA 0,"ORENF01 001 ORENK11 002 SORTWOR 003 ORENK11 004 PROGRAM 005" 7360 DATA "INVT090B","REORGANIZE P.O. ACTIVITY FILE","KFAMCODEKFAMOPENSUBUTIL DENTRY" : DATA 6,"INVTF03 001 INVTK13 002 SORTWOR 003 INVTK13 004 PROGRAM 005" : DATA "BOMS100A","REORGANIZE BILL OF MATERIALS FILES","BOMFILE KFAMCODEINV FILE" 7390 DATA 0,"INVTK11 001 INVTF01 002 SORTWOR 003 BOMSK11 004 BOMSF01 005 BOMSK 12 006 BOMSF02 007" : DATA "ACPA100A","REORGANIZE A/P OPEN ITEM FILE"," " : DATA 0,"ACPAF02 001 ACPAK12 002 SORTWOR 003 ACPAK12 004 PROGRAM 005" 7420 DATA "GENL105A","REORGANIZE CHART OF ACCOUNTS FILE"," " : DATA 0,"GENLF01 001 GENLK11 002 SORTWOR 003 GENLK11 004 PROGRAM 005" : DATA "ACPA105A","REORGANIZE VENDOR MASTER FILE"," " : DATA 0,"ACPAF01 001 ACPAK11 002 SORTWOR 003 ACPAK11 004 PROGRAM 005" 9998 DEFFN'29"Q$=";HEX(22);"REORMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)