Listing of file='OREN100A' on disk='vmedia/701-2616C.wvd.zip'
# Sector 530, program filename = 'OREN100A' 0010 REM OREN100A, 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 ORDER ENTRY SYSTEM, OPEN ORDER REORGANIZ E 0040 REM PROGRAM FUNCTION = REORGANIZE THE OPEN ORDER FILE 0060 REM LAST REVISION = 05/13/79 0070 REM --------------------------------------------------------------------- - 0170 COM M0$(83)3 0171 REM 0198 GOTO 4000 3996 REM ***************************** 3997 REM ! OPEN ORDER 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 OPEN ORDER FILE NAME 4250 P1$=M$(1) : REM ADDRESS OF OPEN ORDER 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 USER 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);"OREN100A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )