image of READY prompt

Wang2200.org

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