image of READY prompt

Wang2200.org

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)