1  FILES JOBS
9000  REM  *****  FILREA  *****  UTILITY PROGRAM  *****
9010  REM  *****  VERSION 2  *****  10/6/70  *****
9015  FILES *
9016  DIM X$[72]
9020  REM  READS INTO A FILE FROM PAPER TAPE
9030  DIM A$[72]
9040  PRINT "FILE NAME  ";
9045  INPUT X$
9048  ASSIGN X$,1,I1
9049  IF I1>2 THEN 9040
9050  F=1
9060  PRINT '10'10"WHEN THE TTY PRINTS A QUESTION MARK (?) TURN ON THE READER"
9070  INPUT F1
9080  IF F1 <= F THEN 9110
9090  PRINT '10'10"NEED "F1" FILES, YOU ARE "F1-F" SHORT."
9100  STOP 
9110  FOR I=1 TO F1
9120  IF  END #I THEN 9250
9130  INPUT J1
9140  FOR J=1 TO J1
9150  PRINT #I,J
9160  NEXT J
9170  NEXT I
9180  LET F=1
9190  LET R=1
9200  READ #F,R
9210  INPUT A
9220  GOTO A OF 9270,9300,9420,9480,9500
9230  PRINT "READ OR PUNCH ERROR"
9240  STOP 
9250  PRINT "FILE "I" NEEDS "J1" RECORDS, HAS ONLY "J-1
9260  STOP 
9270  INPUT A
9280  PRINT #F;A
9290  GOTO 9210
9300  INPUT A$
9310  IF A$[1,1]#'17 THEN 9330
9320  LET A$[1,1]=" "
9330  FOR J=1 TO LEN(A$)
9340  IF A$[J,J]#'30 THEN 9370
9350  LET A$[J,J]='10
9360  GOTO 9390
9370  IF A$[J,J]#'31 THEN 9390
9380  LET A$[J,J]='13
9390  NEXT J
9400  PRINT #F;A$
9410  GOTO 9210
9420  PRINT #F; END 
9430  IF F >= F1 THEN 9470
9440  LET F=F+1
9450  LET R=1
9460  GOTO 9200
9470  STOP 
9480  LET R=R+1
9490  GOTO 9200
9500  PRINT #F; END 
9510  R=R+1
9520  GOTO 9200
9530  END 
