C V1A Edit #1 30-May-83 Autor: -tf- File: [TF.KUSTER]CPMBLK.FOR C C C P M B L K . F O R : TRANSFER CP/M - SD FLOPPIES TO RT-11 C C C H.P. STOEHREL C C *** V2 *** 26-MAR-82 C BYTE IB(1024),IB2(1024) C ICN1=64 ICN2=1024 C 2 TYPE 11 11 FORMAT(//' C P M B L K . V 2'/ 1/' READ SINGLE BLOCKS FROM CP/M FLOPPIES'//) C IDV=7 106 TYPE 101 101 FORMAT(/' OUTPUT TO TTY = 7 , LPT = 6 : '$) ACCEPT 1,IDV 1 FORMAT(I7) C TYPE 91 91 FORMAT(/' OCTAL = O ; ASCII = A ; BOTH = X : '$) ACCEPT 93,ICOD 93 FORMAT(A1) C 100 TYPE 121 121 FORMAT(///' ------ BLOCK-# : '$) ACCEPT 123,IBLK 123 FORMAT(I7) C CALL CPRD (IB,IBLK) C C CLEAN UP FOR ASCII OUTPUT C IF "A" - OUTPUT,REPLACES ALL CONTROL CHARS BUT CR,LF AND TAB BY @ C IF "X" - OUTPUT,REPLACES ALL CONTROL CHARS BY @ C DO 70 L=1,1024 70 IB2(L)="100 C L=1 80 IC=IB(L).AND."177 IF(ICOD.EQ.'X') GOTO 86 IF(IC.EQ."11) GOTO 82 IF(IC.EQ."12) GOTO 82 IF(IC.EQ."15) GOTO 82 86 IF(IC.EQ."177) GOTO 84 IF(IC.LT."40) GOTO 84 82 IB2(L)=IC 84 L=L+1 IF(L.LE.ICN2) GOTO 80 C IF(ICOD.EQ.'A') GOTO 160 C IAD=0 DO 1000 L=1,ICN1 K=(L-1)*16+1 WRITE(IDV,1121)IAD,(IB(J),J=K,K+15) 1121 FORMAT(O6,'/',2X,16O4) C 140 IF(ICOD.NE.'X') GOTO 1000 WRITE(IDV,1123)(IB2(J),J=K,K+15) 1123 FORMAT(9X,16(3X,A1)) C 1000 IAD=IAD+16 GOTO 110 C C ASCII ONLY C 160 WRITE(IDV,163)(IB2(J),J=1,ICN2) 163 FORMAT(X,128A1) C 110 CONTINUE C CALL CLOSE (IDV) GOTO 100 C END