image of READY prompt

Wang2200.org

Listing of file='GENL040B' on disk='vmedia/701-2653B.wvd.zip'

# Sector 337, program filename = 'GENL040B'
0010 REM GENL040B, RELEASE 1-0, (01/31/79)   THIS PROGRAM IS A COPYRIGHT PRODU
     CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
     ED
0170 DIM K(10),N(10),B(10),F$(6)3,N$(4)8,M0$(1)21
0179 LOAD T"SORT4"10,179
3400 M9$=$PSTAT(#PART)
   : IF STR(M9$,,9)="M"THEN M=SPACEK+2
   : ELSE M=SPACEK-1
   : F$()=M$()
   : M0$()=F$(6)&F$()
   : SELECT #0<F$(6)>
   : F=0
   : N$(1)=S$(1)
   : B=4
   : L$="ALL"
   : K=3
   : K(1),K(2),K(3)=1
   : B(1)=3
   : N(1)=VAL(Q0$(5))
   : B(2)=5+VAL(Q0$(5))
   : N(2)=2
   : B(3)=1
   : N(3)=2
   : N$(3)=S$(3)
   : N$(4)=S$(4)
   : P8$="T"
   : M$=STR(M$(),92,7)&"C"
3510 FOR I=1TO 6
   : SELECT #I<F$(I)>
   : HEXPACKC$FROMSTR(F$(I),2,2)
   : ADDC(C$,80)
   : HEXUNPACKC$TO STR(F$(I),2,2)
   : NEXT I
   : C$="Y"
9999 DEFFN'29"Q6$=";HEX(22);"GENL040B";HEX(22);":SCRATCHTQ6$:SAVET()Q6$";HEX(0
     D)