image of READY prompt

Wang2200.org

Listing of file='ACPA030A' on disk='vmedia/701-2652C.wvd.zip'

# Sector 63, program filename = 'ACPA030A'
0010 REM ACPA030A, RELEASE 1-0, (01/31/79)   THIS PROGRAM IS A COPYRIGHT PRODU
     CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
     ED
0170 COM D6$1,D8,D9(4),E7,E8
   : GOTO 4000
4000 SELECT @PARTS0$
   : IF D6$<>" "THEN 4950
   : GOSUB '66(9,0,1)
   : Q6$=" "
   : Q7$="Error in control file - invalid current fiscal period"
   : IF M(9)<1OR M(9)>12THEN 5280
   : Q7$="Error in control file - invalid first fiscal month"
   : IF M(14)<1OR M(14)>12THEN 5280
4540 IF J0=7THEN GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : GOSUB '232(3,0,M4$)
   : Q6$=" "
   : Q7$="Invalid A/P trade account ("&M4$&") in control file"
   : IF Q$<>" "THEN 5280
   : GOSUB '91
   : IF J0=7THEN 4540
   : GOSUB '75(6)
   : IF O1$<>"2"OR O3$="M"THEN 5280
   : E7=MOD(M(9)+M(14)-2,12)+1
4660 M$()="JANUARY  FEBRUARY MARCH    APRIL    MAY      JUNE     JULY     AUGU
     ST   SEPTEMBEROCTOBER  NOVEMBER DECEMBER"
   : MAT REDIM M$(12)9
   : PRINT AT(6,16,64);"1 = ";M$(E7)
   : PRINT AT(7,16,64);"2 = ";M$(MOD(E7,12)+1)
   : GOSUB '100("1","2",1,0,"ENTER FISCAL PERIOD",1)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : E8=Q9+6
4760 PRINT AT(0,60);M$(MOD(E7+Q9-2,12)+1)
   : MAT REDIM M$(4)62
   : Q6$=" "
   : Q7$="Error in journal entries file - correct and restart"
   : DSKIP #E8,END
   : ERRORGOTO 5280
4820 $OPEN #9
   : GOSUB '66(9,0,1)
   : M(3)=0
   : F5$(2)=" "
   : IF E8=7THEN M3$,F5$(1),F5$(3)=" "
   : GOSUB '66(9,0,0)
   : $CLOSE#9
   : IF E8=7THEN GOSUB '218(S$(11),11," ",0)
   : PRINT AT(3,0,80);"**LOADING NEXT MODULE**"
   : Q6=VAL(Q0$(6))
   : STR(M5$,8)="B"
   : LOAD TM5$4000,
4950 PRINT AT(1,0,1200)
   : $OPEN #9
   : GOSUB '66(9,0,1)
   : H0$=M4$
   : M(1)=Q1
   : K2,M(2)=M(2)-D9(1)+D9(2)-D9(4)
   : GOSUB '66(9,0,0)
   : GOSUB '66(9,Q1,1)
   : M(4)=M(4)+D9(3)
   : M(5)=M(5)+D9(4)
   : M(6)=M(6)+D9(1)
   : M(7)=M(7)+D9(2)
   : M(9)=K2
   : GOSUB '66(9,Q1,0)
   : $CLOSE#9
   : H=Q1
   : H3$="OFFSETTING ENTRY"
   : H4$,H5$=" "
   : H1=0-D8
   : GOSUB '63(E8)
5172 PRINT AT(4,0);"BATCH TOTAL = ";
   : PRINTUSING "###,###,###.##++",D8
   : D8=0
   : IF D6$<>"A"THEN 5330
   : MAT D9=ZER
   : GOSUB '100("Y,N","Y YyNn",1,1,"ANY MORE BATCHES TO PROCESS (Y OR N)",2)
   : ON Q9GOTO 4660,5330
5280 GOSUB '91
   : PRINT AT(1,0,80);Q7$
   : PRINT AT(3,16,64);Q6$
   : GOSUB '254
5330 DEFFN'31
   : LOAD TM$
9999 DEFFN'29"Q$= ";HEX(22);"ACPA030A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
     (0D)