5000  REM *****  MATIN
5010  REM *****  VERSION 1, JUNE 18, 1971
5020  REM *****  R.J.M. TAYLOR
5030  DIM S[64]
5040  DIM A$[72]
5050  PRINT "HAVE YOU ENTERED THE FILES STATEMENT";
5060  INPUT A$
5070  IF A$="YES" THEN 5140
5080  IF A$="NO" THEN 5110
5090  PRINT "PLEASE TYPE 'YES' OR 'NO'."
5100  GOTO 5060
5110  PRINT "THIS PROGRAM REQUIRES THE ENTERING OF A FILES STATEMENT"
5120  PRINT "BEFORE RUNNING; PLEASE CHECK THE PROGRAM DOCUMENTATION."
5130  GOTO 5340
5140  PRINT "HOW MANY ROWS ARE THERE";
5150  INPUT N1
5160  PRINT "HOW MANY COLUMNS ARE THERE";
5170  INPUT N2
5180  IF N2 <= 64 THEN 5220
5190  PRINT "THIS PROGRAM WILL ONLY HANDLE MATRICES WITH 64 OR FEWER"
5200  PRINT "COLUMNS. PLEASE CHECK THE PROGRAM DOCUMENTATION."
5210  GOTO 5340
5220  PRINT '10'13"PLEASE MOUNT DATA TAPE AND MOVE READER CONTROL LEVER TO"
5230  PRINT "START."'10'13
5240  FOR I=1 TO N1
5250  F=INT((I*2-1)/128)+1
5260  PRINT "ROW #";I
5270  MAT  INPUT S[N2]
5280  I1=I-64*(F-1)
5290  READ #F,I1*2-1
5300  MAT  PRINT #F;S
5310  PRINT 
5320  NEXT I
5330  PRINT '10'13"MATRIX ENTERED INTO FILE(S)."
5340  END 
