Listing of file='GENLMENU' on disk='vmedia/701-2653B.wvd.zip'
# Sector 226, program filename = 'GENLMENU' 0010 REM GENLMENU, RELEASE 2.2, (09/10/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 : COM Q$(2)80,Q6$80,Q7$80 : COM Q3,Q4,Q5,Q6,Q7,Q8,Q9 : COM M2$4,M(17),F5$(3)1 4000 DIM A6$(8)124 : N=13 : I=40 : Q0=VAL(Q0$(4)) : IF M$="SYS MENU"THEN M5$=" " : M$="GENLMENU" : Q7$="GBS/MVP GENERAL LEDGER SYSTEM" : STR(Q7$,47)="SYSTEM MENU" 4080 LOAD T"GBS MENU"10,4080 : 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 : RETURN 7130 DEFFN'39 : IF M5$<>"GENL120A"THEN 7312 : V7$="GBS1F010" : GOSUB '97 : MAT SEARCHA6$(),=STR(V7$,,7)TO Q6$STEP 11 : Q9=INT((VAL(Q6$,2)+10)/11) : Q6$="A/P Control file" : Q7$="(Filename is not in company control file)." : IF Q9=0THEN GOSUB '33 : Q7$=" " : SELECT #1<STR(A6$(Q9),9,3)> : DATA LOAD DC OPEN T#1,STR(A6$(Q9),,8) : ERRORGOSUB '33 7185 Q5=VAL(Q0$(5)) : LOAD T"A/PCONT"10,199BEG 7200 7200 SELECT @PARTS0$ : GOSUB '66(1,0,1) : DATA SAVE DC CLOSE#1 : IF M3$="2"AND F5$(3)="1"THEN 7312 : PRINT HEX(03);AT(1,0); : IF M3$<>"2"THEN PRINT "Detail Trial Balance"; : IF M3$<>"2"AND F5$(3)<>"1"THEN PRINT " and "; : IF F5$(3)<>"1"THEN PRINT "Distribution Report"; : PRINT " must be printed before update" : PRINT AT(2,0,80) : Q7$=" " : KEYIN Q7$,7285,7285 7285 LINPUT "Key 'RETURN' to resume ",?STR(Q7$,,1) : PRINT AT(1,0,240) : Q6$=" " : GOSUB '33 7312 MAT SEARCH"GENL120 GENL050 GENL060 GENL070 GENL080 GENL100 ",=M5$TO Q7$ : IF STR(Q7$,,2)=HEX(0000)THEN GOSUB '98 : PRINT HEX(03);AT(1,0);"ENTER PASSWORD" : Q6$,Q7$=" " 7340 KEYIN M5$,7350,7350 7350 KEYIN M5$,7370,7370 : GOTO 7350 7370 IF M5$=HEX(1F)THEN GOSUB '33 : IF M5$=HEX(0D)THEN 7420 : IF M5$<HEX(1F)THEN 7340 : Q7$=Q7$&M5$ : GOTO 7340 7420 IF Q7$=" PASSWORD"THEN GOSUB '98 : PRINT HEX(03);AT(1,0);"INVALID PASSWORD" : PRINT AT(2,0,80) : Q7$=" " 7438 KEYIN Q7$,7438,7438 : LINPUT "Key 'RETURN' to resume.",?STR(Q7$,,1) : Q6$=" " : GOSUB '33 : DATA "GENL030A","JOURNAL ENTRY","KFAMCODEJENFILE GENFILE A/PCONT DENTRY SUBDATE AUDIFILESUBUTIL" : DATA 1,"GENLF01 112 GENLF02 403 GENLF03 404 GENLF04 405 GBS1F01 306 GENLF 05 307 AUDIF01 308" 7610 DATA "GENL040A","TRIAL BALANCE REPORT","DENTRY A/PCONT SUBDATE SUBUTIL P RNTAVAL" : DATA 1,"GBS1F01 309 GENLF02 001 GENLF02 002 SORTWORK003 GENLF05 004 PROGR AM 005 PROGRAM 006 GENLK11 007 GENLF01 008" 7620 DATA "GENL120A","POST J/E TO CHART OF ACCOUNTS","KFAMCODEGENFILE JENFILE A/PCONT DENTRY SUBDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 412 GENLF05 403 GENLF02 404 GBS1F01 305" 7630 DATA "GENL050A","PRINT INCOME STATEMENT","KFAMCODEGENFILE A/PCONT DENTRY SUBDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 212 GBS1F01 303" : DATA "GENL060A","PRINT BALANCE SHEET","KFAMCODEGENFILE A/PCONT DENTRY SU BDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 212 GBS1F01 303" 7650 DATA "GENL070A","PRINT BUDGET REPORT","KFAMCODEGENFILE A/PCONT DENTRY SU BDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 212 GBS1F01 303" : DATA "GENL080A","PRINT SCHEDULE REPORT","KFAMCODEGENFILE A/PCONT DENTRY SUBDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 212 GBS1F01 303" 7670 DATA "GENL100A","CLEAR FILES (End of Month)","KFAMCODEVENFILE JENFILE GEN FILE A/PCONT DENTRY SUBUTIL SUBDATE" : DATA 2,"GENLF01 412 ACPAF01 414 GENLF02 405 GENLF03 406 GENLF04 407 GBS1F 01 308" 7680 DATA "GENL020A","MAINTAIN CHART OF ACCOUNTS","KFAMCODEGENFILE DENTRY SUB DATE AUDIFILESUBUTIL" : DATA 1,"GENLF01 312 AUDIF01 303" : DATA "GBS1040A","MAINTAIN CONTROL FILE","KFAMCODEGENFILE A/PCONT DENTRY SUBDATE SUBUTIL" : DATA 1,"GENLF01 312 GBS1F01 403" 7700 DATA "GENL010A","DISPLAY/PRINT CHART OF ACCOUNTS","KFAMCODEGENFILE A/PCON T DENTRY SUBDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 112 GBS1F01 303" : DATA "GBS3010A","DISPLAY/PRINT CONTROL FILE","SUBUTIL A/PCONT DENTRY SUB DATE SUBUTIL PRNTAVAL" : DATA 1,"GBS1F01 101" 7720 DATA "GENL110A","DISPLAY/PRINT JOURNAL ENTRY","KFAMCODEJENFILE GENFILE A/ PCONT DENTRY SUBDATE SUBUTIL PRNTAVAL" : DATA 1,"GENLF01 112 GENLF02 103 GENLF03 104 GENLF04 105 GBS1F01 306" 7730 DEFFN'29"Q$=";HEX(22);"GENLMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)