Vector Basic Interpreter Basic 80 Reference Manual - page 144
of
190
10 OPEN "O",#1,"DATA"
20 INPUT "NAME";NS.
2S IF NS."DONE" THEN END
30 INPUT "DEPARTMENT";D$
40 INPUT "DATE HIRED";H$
50 PRINTt1,N$;",";D$;",";H$
60 PRINT:GOTO
20
RUN
NAME? MICKEY MOUSE
DEPARTMENT? AODIO!VISUAL
AIDS
DATE HIRED? 01/12/72
NAME? SHERLOCK HOLMES
DEPARTMENT?
RESEARCH
DATE HIRED? 12/03/65
NAME? EBENEEZER
SCROOGE
DEPA.~~n?
ACCOUNTING
DATE HIRED? 04/27/78
NAME? StJPERMANN
OEPARTMENT? ~.AINTENANCE
OATE HIRED? 08/16/78