image of READY prompt

Wang2200.org

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

# Sector 315, program filename = 'ACPA070A'
0010 REM ACPA070A, 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     = ACPA070A
0030 REM RELEASE NUMBER   = 01
0040 REM REVISION NUMBER  = 00
0050 REM DATE WRITTEN     = 1/12/79
0070 REM **************************************************
0080 REM *     THIS PROGRAM IS PART OF A GENERALIZED      *
0090 REM *   APPLICATION. COPYRIGHT WANG LABS INC. 1979   *
0100 REM **************************************************
0110 REM SYSTEM NAME      = GBS/MVP ACCOUNTS PAYABLE SYSTEM
0120 REM MODULE NAME      = SORT CHECK FILE BY CHECK NUMBER OR VENDOR NUMBER
0130 REM PROGRAM FUNCTION = CHECKS PRINTER AVAILABILITY PRIOR TO SORT
0140 REM **************************************************
0150 REM
0198      GOTO 4000
4000     SELECT @PARTS0$
4020     GOSUB '93(" ")
4030     IF I0$=" " THEN 4180
4040 REM --------------------
4050 REM CHOOSE REPORT TYPE
4060     PRINT AT(4,21,59);"1 = Sorted by check no."
4070     PRINT TAB(21);"2 = Sorted by vendor ID"
4080     GOSUB '100("1","2",1,0,"ENTER REPORT TYPE",1)
4090     IF Q6$=HEX(1F) THEN 4180
4100     $PACK(F=HEX(A007A0016002A008A003))STR(M$(),50) FROM M5$,Q6$,L0,M$,I0$
4110 REM --------------------
4120 REM LOAD SORT SET-UP MODULE
4130     COM CLEAR  M5$
4140     STR(M5$,8,1)="B"
4150     LOAD T M5$
4160 REM ------------
4170 REM END OF PROGRAM
4175     DEFFN'31
4180     LOAD TM$
9000 REM *************
9010 REM * VARIABLES *
9020 REM *************
9030 REM    STR(M$(),50,1) = STORE REPORT TYPE
9040 REM $
9999 DEFFN'29"Q$= ";HEX(22);"ACPA070A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
     (0D)