image of READY prompt

Wang2200.org

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

# Sector 448, program filename = 'ACPA100A'
0010 REM ACPA100A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM ---------------------------------------------------------------------
0030 REM SYSTEM & MODULE   =  GBS/MVP A/P SYSTEM
0040 REM PROGRAM FUNCTION  =  REORGANIZE THE A/P OPEN ITEM FILE
0060 REM LAST REVISION     =  11/27/79
0070 REM ---------------------------------------------------------------------
     -
0170     DIM M0$(83)3
0198     GOTO 4000
3996 REM ********************************
3997 REM ! A/P OPEN ITEM FILE REORGANIZATION !
3998 REM ********************************
4000     SELECT @PARTS0$
4010     STR(M$(),16,8)=M5$
4020     COM CLEAR  N2$
4030     MAT REDIM M$(83)3
4040     LOAD T"KFAM3507" 10,4199
4200     Q=1
4210     LOAD T"KFAMOPEN"199,199BEG 4220
   : REM LOAD KFAM OPEN/CLOSE ROUTINES
4220     SELECT @PARTS0$
4230     M0$()=M$()
   : REM SAVE ADDRESSES, COMPANY NAME
4240     N1$=S$(1)
   : REM CUSTOMER FILE NAME
4250     P1$=M$(1)
   : REM ADDRESS OF MASTER FILE
4260     N2=1
4270     P2$=M$(2)
   : REM KEY FILE ADDRESS
4280     N3$=S$(3)
   : REM WORK FILE NAME
4290     P3$=M$(3)
   : REM WORK FILE ADDRESS
4300     O3$="Y"
4310     O6$="C"
4320     N4=1
4330     P4$=M$(4)
4340     O4$="Y"
4350     N5$=STR(M$(),16,7)&"B"
4360     P5$=M$(5)
4370     MAT REDIM M$(4)62
9998 DEFFN'29"Q$=";HEX(22);"ACPA100A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )