Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/src/mem.b20
There are no other files named mem.b20 in the archive.
00100 OPEN "MEM.DAT" AS FILE #2, ACCESS READ
00150 INPUT "HOW MANY MEMORY JOBS",N
00500 FOR I = 1 TO N
00501 RESTORE #2
00505 M$="MEM"+STR$(I)+".CTL"
00510 OPEN M$ AS FILE #1, ACCESS WRITE
00515 PRINT I,
00600 LINPUT #2, A$
00700 PRINT #1: A$
00750 IFEND #2 THEN 1000
00800 GOTO 600
01000 NEXT I 
01200 END