C DISKDUMP PROGRAM C C THIS PROGRAM DUMPS THE SPECIFIED ELEMENT TO THE FLOPPY DISK ON C A MICROCOMPUTER BASED INTELLIGENT COMPUTER. C C C PROCESSING C C READ SPEC C LOOP UNTIL END OF FILE C READ INPUT IMAGE C OUTPUT IMAGE C IF ABOUT 4000 CHARACTERS HAVE BEEN OUTPUT THEN C OUTPUT A BACKSLASH (\) C WAIT FOR INPUT C ELSE C ELSE CONTINUE LOOPING C C OUTPUT A SLASH (/) AND TERMINATE C END PROCEDURE C INTEGER A(122) ,DATE(4)/'DATE- XXXXXX TIME-XXXXXX'/ DATA MAXCH /2000/ C CALL EOPEN C CALL DATE8(DATE(2),DATE(4)) C CALL PRINT8(DATE,4,1) 10 CALL ELTRED ($100,A) K1=14 DO 20 K=14,1,-1 IF (A(K).NE.' ') GO TO 30 K1=K 20 CONTINUE C 30 CALL PRINT8 (A,K1,1) N=N+K1*6 IF (N.LT.MAXCH) GO TO 10 CALL PRINT8('\',1,1) READ(5,5,END=100)J 5 FORMAT(A1) N=0 GO TO 10 C 100 CALL PRINT8(' ',1,1) CALL PRINT8('/',1,1) STOP END