Listing of file='609INAS' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1782, 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