image of READY prompt

Wang2200.org

Listing of file='SORT402B' on disk='vmedia/701-2425A.wvd.zip'

# Sector 170, program filename = 'SORT402B'
0010 REM SORT402B,08/09/77,COPYRIGHT WANG LABS.1976
0100 LOAD DC T#F(5),"SORT400C"15,100
0400 DIM Q$1
   : E=20
   : IF D$="D"THEN 7020
   : X=0
   : IF C$="Y"THEN 580
   : X=P7
0580 GOSUB '217(N$(4),F(4),S2,X,4,P$(4),F$(4),0)
   : E=17
   : IF Q$<>" "THEN 7020
   : O9$(4)="O"
   : LIMITS T#F(4),N$(4),X2,X3,X
   : E=19
   : IF P7>X3-X2+1THEN 7020
   : X3=X3-2
   : IF P8$="T"THEN 7005
   : X3=X3-M8+1
7005 LOAD DC T#F(5),"SORT403A"
7018 DEFFN'31
   : E=28
7020 LOAD DC T#F(5),"SORT490A"