Listing of file='ACPA110A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 391, 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
0170 COM D9$8,K1$7,I0$3,D9$8,K1$7,A0$(4)62,Q5
: GOTO 4000
4000 SELECT @PARTS0$
: A0$()=M$()
: GOSUB '93(" ")
: IF I0$=" "THEN 4470
: GOSUB '100("D,S","DdSs",1,1,"ENTER REPORT TYPE (D=DETAIL, S=SUMMARY)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: Q6$="DETAIL SUMMARY"
: K1$=STR(Q6$,Q9*7-6,7)
4100 Q6$=Q1$
: GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: D9$=Q6$
: GOSUB '121(D9$)
: IF Q6$<>"E"THEN 4180
: PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter"
: GOTO 4100
4180 PRINT AT(5,0,80);"REPORT DATE = ";D9$,U9
: GOSUB '100("Y,N","YyY Nn",1,1,"IS REPORT DATE OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q9=2THEN 4100
: GOSUB '66(9,0,1)
: Q7$="ACPA110B"
: M$()=A0$()
: $PACK(F=HEX(A0076002A008A003A008A007))STR(M$(),92)FROMM5$,L0,M$,I0$,D9$,K
1$
: IF M3$=" "THEN 4360
4320 LIMITS T#4,S$(4),Q6,Q7,Q8,Q9
: IF Q8<3THEN 4360
: Q7$="ACPA110C"
4360 Q=1
: LOAD T"KFAMClos"10,199BEG 4380
4380 LOAD T"COMCLEAR"10,199BEG 4390
4390 SELECT @PARTS0$
: GOSUB '219(S$(9),9,S2," ",0)
: COM CLEAR M5$
: LOAD TQ7$
4470 DEFFN'31
: LOAD TM$
9999 DEFFN'29"Q$=";HEX(22);"ACPA110A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)