10	!  NAMES  PROGRAM TO COLLECT STUDENT NAMES  !
	!         BY M.L. COLE  11/73   D.E.C.      !
20  PRINT"FOLLOWING ENTRY OF THE LAST STUDENT'S NAME, ENTER THE"
30  PRINT"WORD 'END' FOR BOTH FIRST AND LAST NAMES. THIS WILL COMPLETE"
40  PRINT"THE CREATION OF THE NAME FILE"
50 PRINT
60 PRINT:INPUT"ENTER OR LIST NAMES (E OR L)";A$
70  IF A$='L' GOTO 2000 ELSE IF A$<>'E' GOTO 60
80  OPEN 'NAME.FIL' AS FILE 1%
90  INPUT "LAST NAME  ";L$
100  INPUT "FIRST NAME ";F$
110  IF L$='END' AND F$='END' GOTO 170
140  N$=L$+", "+F$
150  PRINT #1%,N$:PRINT
160  GOTO 90
170  PRINT #1%,'END,END'
180  CLOSE 1%
190  GOTO 60
2000 INPUT "OUTPUT DEVICE ";D$:N%=0%
2010 OPEN D$ FOR OUTPUT AS FILE 2%
2012 PRINT#2%: PRINT#2%:PRINT#2%
2015 PRINT#2%,'LISTING OF STUDENT NAME FILE': PRINT#2%
2020 OPEN 'NAME.FIL' FOR INPUT AS FILE 3%
2030 INPUT#3%,L$,F$
2040 IF L$='END'GOTO 3000
2050 N%=N%+1%
2060 PRINT#2%,L$;', ';F$
2070 GOTO 2030
3000 PRINT #2%:PRINT#2%, 'TOTAL OF';N%;'STUDENTS'
3010 CLOSE 2%,3%
3020 GOTO 60
3030 END