Listing of file='609INAS' on disk='vmedia/701-2737G.wvd.zip'
# Sector 594, program filename = '609INAS'
0010 REM 609INAS , Release 01-00, (01/31/81) - Copyright Wang Laboratories, In
c.
0230 DIM J2$(C3)C1,J3$(D4)2,J4$(D4)C1,J0$1,T1$80,V2$(256)1,J7$(256)1
: DIM T2$2,C3$1,U1$(16),V0$(1)1,J6$(256)1,J3$32,U2$(16)4
: J3$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F)
: IF T5(1)=2THEN 490
: C3$=T5$(1)
: D9=1
: IF T5(3)=1THEN 430
: J9=1
: FOR J2=1TO D4
0370 B0$="DOCUMENT."&C3$&"."&J9$(J2)
: GOSUB '217(1,1,B0$,B9$)
: IF R1$<>HEX(00)THEN 410
: GOSUB 740
0410 NEXT J2
: GOTO 440
0430 J4$()=J9$()
0440 MAT SORTJ4$()TO J2$(),J3$()
: MAT MOVE J9$(),J3$()TO J2$()
: MAT MOVE J2$()TO J9$()
: IF C9=0THEN LOAD T"609INAB"10,3999
: ELSE LOAD T"609PINX"10,3999
0490 LIMITS T#0,"609$TRAN",J0,J1,J1,J1
: DATA LOAD BA T#0,(J0+1)J7$()
: J9=1
: FOR J2=1TO D4
: J2$=STR(J9$(J2),5,1)
: $TRAN(J2$,J3$)R
: J0=VAL(STR(J9$(J2),4,1))*16+VAL(J2$)
: DATA LOAD BA T#D0,(J0+D1)J6$()
: $TRAN(STR(J6$(),11,100),J7$())
: $TRAN(J6$(),HEX(2080))R
: GOSUB 680
: NEXT J2
: MAT SORTJ4$()TO J2$(),J3$()
: MAT MOVE J9$(),J3$()TO J2$()
0640 MAT MOVE J2$()TO J9$()
: IF C9=0THEN LOAD T"609INAC"
: ELSE LOAD T"609PINXA"
0680 IF T5(3)=5THEN J4$(J2)=STR(J6$(),82,20)&J9$(J2)
: IF T5(3)=4THEN J4$(J2)=STR(J6$(),14,25)&J9$(J2)
: IF T5(3)=3THEN J4$(J2)=STR(J6$(),40,20)&J9$(J2)
: IF T5(3)=2THEN J4$(J2)=STR(J6$(),61,20)&J9$(J2)
: RETURN
0740 IF T5(3)=5THEN J4$(J2)=STR(U1$(),76,20)&J9$(J2)
: IF T5(3)=4THEN J4$(J2)=STR(U1$(),1,25)&J9$(J2)
: IF T5(3)=3THEN J4$(J2)=STR(U1$(),26,20)&J9$(J2)
: IF T5(3)=2THEN J4$(J2)=STR(U1$(),51,20)&J9$(J2)
: J9=J9+1
: RETURN