10 OPEN "NAMERING" FOR INPUT AS 1
20 LINE INPUT #1, N$: CLOSE
30 OPEN N$ FOR INPUT AS 1
40 LINE INPUT #1, L$: N = VAL(L$): INPUT #1, NA: CLOSE
50 NA = NA + 1: NA = NA - INT(NA/N) * N
60 CLOSE: OPEN N$ FOR OUTPUT AS 1: PRINT #1, N: PRINT #1, NA: CLOSE
70 MA = NA + 1: NU = NA
80 NU$ = STR$(NU): L = LEN(NU$): NA$ = N$ + RIGHT$(NU$, L - 1)
90 SHELL "CALL COPY ISAVE.XL " + NA$
99 PLAY ">C16< G32P32G16A16 G8B16>C16<"
100 END
