image of READY prompt

Wang2200.org

Listing of file='OREN110C' on disk='vmedia/701-2616C.wvd.zip'

# Sector 587, program filename = 'OREN110C'
0010 REM OREN110C, 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, ANALYZE ORDERS
0040 REM PROGRAM FUNCTION  =  LOAD KFAM OPEN/CLOSE SUBROUTINES
0050 REM DATE WRITTEN      =  04/16/79 MK
0060 REM LAST REVISION     =  08/12/79 MK
0070 REM ---------------------------------------------------------------
0170     COM M5$,Q6$80,O0,Q,Q2,Q3
0198     GOTO 4000
4000     I=0
4010     Q=1
4020     O0=VAL(STR(M$(),31))
   : REM BLOCKING FACTOR - ORDER LINES
4030     DEFFN'99
4040     I=I+1
4050     N=VAL(Q0$(1))-1
   : REM LENGTH OF CUSTOMER ID
4060     Q2=VAL(Q0$(2))
   : REM LENGTH OF PRODUCT ID
4070     Q3=VAL(Q0$(3))
   : REM LENGTH OF SALESMAN ID
4080     Q6$="KFAMClosSUBUTIL ORDFILE"&S0$(7)
4090     IF I<=3THEN LOAD TSTR(Q6$,I*8-7,8)10,210
4100     M5$=STR(M$(),22,7)&"D"
4110     LOAD TM5$4000,
9999 DEFFN'29"Q$=";HEX(22);"OREN110C";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )