10 INPUT "WHAT IS YOUR PROJECT'S NAME"; N$
20 INPUT "HOW MANY FILES DO YOU WANT IN YOUR BACKUP COLLECTION"; N
30 OPEN "NAMERING" FOR OUTPUT AS 1
40 PRINT #1, N$: CLOSE
70 OPEN N$ FOR OUTPUT AS 1: PRINT #1, N: PRINT #1, -1: CLOSE
79 PLAY ">C16< G32P32G16A16 G8B16>C16<"
80 END
