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