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