10 ! MENU PROGRAM FOR ALL USERS PROGRAMS
20 DIM ZZ$[14]V(6)
50 ZZ$(1)="USERSADD"
60 ZZ$(2)="USERSDEL"
70 ZZ$(3)="USERSLIST"
80 ZZ$(4)="USERSUPD"
85 ZZ$(5)="LOGCREATE"
90 ZZ$(6)="USERSSORT"
100 PRINT "OPTIONS FOR USER PROFILE MAINTENANCE ARE:"
105 PRINT
110 PRINT "ADD NEW USER    (1)"
120 PRINT "DELETE USER     (2)"
130 PRINT "LIST ALL USERS  (3)"
140 PRINT "UPDATE ONE USER (4)"
145 PRINT "CREATE LOG FILE (5)"
146 PRINT "SORT FILE       (6)"
147 PRINT "EXIT            (7)"
150 PRINT "OPTION (1-7)       ";
160 INPUT A
162 IF A=7 THEN EXIT
170 IF A<1 OR A>6 THEN GOTO 100
180 RUN ZZ$(A)+".SYS"