image of READY prompt

Wang2200.org

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

# Sector 176, program filename = 'SORT411A'
0010 REM SORT411A,08/09/77,COPYRIGHT WANG LABS.1976
0600 DIM V9$2,T9$2,T0$(4)60,T4$3,T7$30
2300 V9$=T2$(1)
   : GOSUB 3672
   : T=VAL(T$)-T5
2400 T=T+T5
   : IF T>V1THEN 3568
   : $UNPACK(F=V4$)T0$()<T>TO T7$,T4$
   : IF T7$>HEX(FF)THEN 3568
2410 Q=VAL(STR(T4$,3))
   : IF T7$>=E$THEN 4280
   : P2$=T4$
   : ADDC(P2$,M4$)
3568 T3=1
3572 T3=T3+1
   : IF T3>T0THEN 4280
   : V9$=T2$(T3)
   : GOSUB 3672
   : T=VAL(STR(T$,T3))
   : T=T+T5
   : IF T>V1THEN 3572
   : $UNPACK(F=V4$)T0$()<T>TO T7$,T4$
   : IF T7$>HEX(FF)THEN 3572
3616 BIN(STR(T$,T3))=T
   : IF T3=1THEN 2410
   : V9$=T4$
   : GOSUB 3672
   : $UNPACK(F=V4$)T0$()TO T7$,T4$
   : T3=T3-1
   : T=1
   : T2$(T3)=T9$
   : GOTO 3616
3672 ADDC(V9$,V0$)
   : DATA LOAD DA T#F(2),(V9$,V9$)T9$,T0$()
   : RETURN