image of READY prompt

Wang2200.org

Listing of file='INVT110B' on disk='vmedia/701-2661A.wvd.zip'

# Sector 312, program filename = 'INVT110B'
0010 REM INVT110B, RELEASE 1-0, (04/03/79), THIS PROGRAM IS A COPYRIGHT PRODUC
     T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
     SALES PROJ/L.O.S. SORT SETUP
0018 COM A6$1,A9$1,B6(3),B6$19,F6$Q0,F7$Q0,F8$Q0,I5,I6,I6$1,I8,K6
   : DIM K(2),B(2),N(2),N$(4)8,F$(6)3,P$(4)16,A$(4)62,M0$(1)21
   : $UNPACK(F=HEX(0008A001A0016001A013A00CA00CA00C60016001A00160016001))M$()<
     50,>TO A6$,A9$,B6(),B6$,F6$,F7$,F8$,I5,I6,I6$,I8,K6
   : LOAD DC T#0,"SORT4"10,3200
3400 M9$=$PSTAT(#PART)
   : IF STR(M9$,,9)="M"THEN M=SPACEK+1
   : ELSE M=SPACEK-1
   : F$()=M$()
   : M0$()=F$(6)&F$()
   : SELECT #0<F$(6)>
   : F=5
   : N$()=S$()
   : J=1
   : B=1
   : L$="ALL"
   : K=2
   : K(1)=B6(1)
   : B(1)=B6(2)
   : N(1)=B6(3)
   : K(2)=1
   : B(2)=1
   : N(2)=Q0
   : P8$="T"
   : G$=STR(M$(),50,7)&"C"
   : M4=200
   : M$=STR(M$(),50,7)&"D"
   : FOR I=1TO 6
   : SELECT #I<F$(I)>
3616 HEXPACKC$FROMSTR(F$(I),2,2)
   : ADDC(C$,80)
   : HEXUNPACKC$TO STR(F$(I),2,2)
   : NEXT I
   : C$="W"
9999 DEFFN'29"Q$=";HEX(22);"INVT110B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)