C C PAUL D. CLAYTON RMS @ NADC, WARMINSTER, PA. C 3/19/82 C C THIS IS A SUPER SIMPLE PROGRAM TO FORMAT AN ERROR MESSAGE FILE C FOR USE BY THE BASIC. C DIMENSION A(64),B(15),C(64) BYTE A,B,C DATA B/'%','5','A',' ','%','D','%','8','A',' ','%','D',' ', - '-',' '/,C/64*' '/ OPEN (UNIT=1,NAME='BASIC.MES',TYPE='OLD') OPEN (UNIT=2,NAME='LB:[1,2]BASIC.MSG',TYPE='NEW', - ACCESS='DIRECT', - FORM='FORMATTED',ASSOCIATEVARIABLE=N, - RECORDSIZE=64) C N=1 100 CONTINUE READ (1,110,END=160) R,A 110 FORMAT (F6.0,72A1) N1=R+1 120 IF ( N .GE. N1 ) GOTO 140 D TYPE *,N,R WRITE (2'N,130) C 130 FORMAT( 64A1 ) GOTO 120 140 CONTINUE D TYPE *,N WRITE (2'N,150) B,(A(I),I=1,49) 150 FORMAT(15A1,49A1) GOTO 100 C 160 CONTINUE STOP END