image of READY prompt

Wang2200.org

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

# Sector 575, program filename = 'OREN110B'
0010 REM OREN110B, RELEASE 2.3, (12/11/80) 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, SORT SET-UP MODULE
0040 REM PROGRAM FUNCTION  =  SORT ORDER ANALYSIS FILE BY PRODUCT ID, ORDER NO
     .
0050 REM DATE WRITTEN      =  08/13/78 MK
0060 REM LAST REVISION     =  11/21/80 MAF
0065 REM THIS PROGRAM WAS UPGRADED TO 2.3 BY ERRATA 1184
0070 REM ---------------------------------------------------------------------
     -
0170     DIM K(10),N(10),B(10),F$(6)3,M0$(1)21,N$(4)8
0179     LOAD T"SORT4"10,3200
3400     IF STR(M9$,,9)="M" THEN M=SPACEK+2
   : ELSE M=SPACEK-1
   : REM MEMORY SIZE
3410     F$()=M$()
   : REM MENU PASSES FILE ADDRESSES TO SORT!
3420     M0$()=F$(6)&F$()
3430     SELECT #0<F$(6)>
3440     F=0
   : REM FILE TYPE (SEQUENTIAL)
3450     N$(1)=S$(1)
   : REM INPUT FILE NAME
3460     B=VAL(STR(M$(),32))
   : REM BLOCKING FACTOR
3470     L$="ALL"
   : REM RECORDS TO BE SORTED
3480     K=1
   : REM NUMBER OF KEY FIELDS
3490     K(1)=1
   : REM DATA IS $PACKED INTO ONE FIELD
3500     N$(3)=S$(3)
   : REM NAME OF WORK FILE
3510     N$(4)=S$(4)
   : REM NAME OF OUTPUT FILE
3520     P8$="T"
   : REM TYPE OF SORT (TAG)
3530     M$=STR(M$(),22,7)&"C"
   : REM PROGRAM TO LOAD FOLLOWING SORT
3540     C$="W"
   : REM WRITE TAGS INTO SORTWORK FILE
3550     FOR I=1TO 6
3560        SELECT #I<F$(I)>
3570        HEXPACKQ$FROM STR(F$(I),2,2)
3580        ADDC(Q$,80)
   : REM SET DISK ADDRESS TO 'HOG' MODE
3590        HEXUNPACKQ$TO STR(F$(I),2,2)
3600     NEXT I
9999 DEFFN'29"Q$=";HEX(22);"OREN110B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )