image of READY prompt

Wang2200.org

Listing of file='ACPA110A' on disk='vmedia/701-2654C.wvd.zip'

# Sector 480, program filename = 'ACPA110A'
0010 REM ACPA110A, RELEASE 1-0, (01/31/79)   THIS PROGRAM IS A COPYRIGHT PRODU
     CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
     ED
0020 REM PROGRAM NAME      = ACPA110A
0030 REM RELEASE NUMBER    =  01
0040 REM REVISION NUMBER   =  00
0050 REM DATE WRITTEN      = 1/21/79
0060 REM **************************************************
0070 REM *     THIS PROGRAM IS PART OF A GENERALIZED      *
0080 REM *   APPLICATION. COPYRIGHT WANG LABS INC. 1979   *
0090 REM **************************************************
0110 REM SYSTEM NAME      = GBS/MVP ACCOUNTS PAYABLE SYSTEM
0120 REM MODULE NAME      = SORT JOURNAL ENTRY FILE PRIOR TO DISTRIBUTION REPO
     RT
0130 REM PROGRAM FUNCTION = CHECKS PRINTER AVAILABILITY PRIOR TO SORT
0140 REM **************************************************
0150 REM
0170     COM D9$8,K1$7,I0$3,D9$8,K1$7,A0$(4)62,Q5
0198     GOTO 4000
3990 REM
4000     SELECT @PART S0$
4005     A0$()=M$()
   : REM BUFFER FOR ADDRESSES
4010     GOSUB '93(" ")
4020     IF I0$=" " THEN 4470
4030 REM REQUEST REPORT TYPE
4040     GOSUB '100("D,S","DdSs",1,1,"ENTER REPORT TYPE  (D=DETAIL, S=SUMMARY)
     ",2)
4050     IF Q6$=HEX(1F) THEN GOSUB '31
4060     Q6$="DETAIL SUMMARY"
4070     K1$=STR(Q6$,Q9*7-6,7)
4080 REM ------------
4090 REM VALIDATE REPORT DATE
4100     Q6$=Q1$
4110     GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3)
4120     IF Q6$=HEX(1F) THEN GOSUB '31
4130     D9$ = Q6$
4140     GOSUB '121(D9$)
4150     IF Q6$ <> "E" THEN 4180
4160     PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter"
4170     GOTO 4100
4180     PRINT AT(5,0,80);"REPORT DATE = ";D9$,U9
4190     GOSUB '100("Y,N","YyY Nn",1,1,"IS REPORT DATE OK (Y OR N)",2)
4200     IF Q6$=HEX(1F) THEN GOSUB '31
4210     IF Q9 = 2 THEN 4100
4240 REM READ CONTROL FILE TO SEE IF SORT ALREADY DONE
4250     GOSUB '66(9,0,1)
4260     Q7$="ACPA110B"
   : REM PROGRAM TO LOAD IF SORT NECESSARY
4262     M$()=A0$()
   : REM PUT BUFFER BACK => M$()
4263 REM STORE LINES/PAGE, MENU NAME,PRNT. ADDRESS, DATE, REPT. TYPE
4264     $PACK(F=HEX(A0076002A008A003A008A007)) STR(M$(),92) FROM M5$,L0,M$,I0
     $,D9$,K1$
4280     IF M3$=" " THEN 4360
   : REM IS SORT DONE?
4290 REM CHECK IF FILE ALREADY SORTED
4320     LIMITS T #4,S$(4),Q6,Q7,Q8,Q9
4330     IF Q8<3 THEN 4360
   : REM IS TAG FILE EMPTY?
4340     Q7$="ACPA110C"
   : REM PROGRAM TO LOAD IF SORT DONE
4350 REM CLOSE CONTROL FILE
4360     Q=1
4370     LOAD T "KFAMClos" 10,199 BEG  4380
4380     LOAD T "COMCLEAR" 10,199 BEG  4390
4390     SELECT @PART S0$
4410     GOSUB '219(S$(9),9,S2," ",0)
4420 REM LOAD SORT SET-UP OR EXECUTION MODULE
4430     COM CLEAR  M5$
4440     LOAD T Q7$
4450 REM ------------
4460 REM END OF PROGRAM
4470     DEFFN '31
4480     LOAD T M$
9999 DEFFN'29"Q$=";HEX(22);"ACPA110A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)