Listing of file='DABASE.BAS;01' on disk='vmedia/utility-sector.ccvf'
10 CLEAR 1000:PLOT 12:DIM N$(50):DIM A$(50):DIM P$(50) 20 PLOT 12:PRINT TAB( 10);" * * MENU * * ":PRINT :PRINT 30 PRINT "1 - TO BUILD A FILE " 40 PRINT "2 - TO SEE THE ENTIRE FILE " 50 PRINT "3 - TO SEE AN INDIVIDUAL NAME " 60 PRINT "4 - TO MAKE CORRECTIONS " 70 PRINT "5 - TO SAVE THE CURRENT FILE NAME ON DISK " 80 PRINT "6 - TO INPUT A FILE FROM DISK " 90 INPUT Q:ON QGOTO 100,200,300,400,500,600 100 INPUT "WHEN READY,HIT ENTER(TO CLOSE THE FILE TYPE 9999 FOR NAME)";X 110 FOR I= 1TO 50:PLOT 12:PRINT "ENTER YOUR NAME (LAST FIRST, NO COMMAS PLEASE) 112 PRINT "THEN HIT THE 'ENTER' KEY";:INPUT N$(I) 115 IF N$(I)= "9999"THEN P1= I:GOTO 150 120 INPUT "ENTER YOUR ADDRESS (NO COMMAS)";A$(I) 130 INPUT "ENTER YOUR PHONE # ";P$(I) 135 IF FRE (X$)< 100GOTO 150 140 NEXT 150 PRINT "FILE CLOSED --":INPUT "TO SEE THE MENU,HIT ENTER";X 160 GOTO 20 200 PLOT 12:FOR I= 1TO P1:PRINT N$(I),A$(I),P$(I):NEXT 210 INPUT "TO SEE THE MENU,HIT ENTER";X:GOTO 20 300 PLOT 12:INPUT "ENTER THE NAME,LAST FIRST(NO COMMAS)";N$ 310 FOR I= 1TO P1:IF N$(I)= N$THEN 330 315 NEXT 320 PRINT "NAME NOT IN FILE":GOTO 340 330 PRINT N$(I),A$(I),P$(I) 340 PRINT :PRINT "FOR ANOTHER NAME TYPE 1,OTHERWISE 0";:INPUT X 350 IF X= 1GOTO 300ELSE20 400 PLOT 12:PRINT "ENTER THE NAME FOR THE LINE YOU WISH TO CHANGE(NO COMMAS)" 405 INPUT N$ 410 FOR I= 1TO P1:IF N$= N$(I)GOTO 430 415 NEXT 420 PRINT "NAME NOT IN FILE":GOTO 460 430 PRINT "ENTER THE CORRECTED INFO.:NAME,ADDRESS,PHONE" 440 INPUT N$(I),A$(I),P$(I) 450 PRINT "THE LINE NOW READS:":PRINT N$(I),A$(I),P$(I) 460 INPUT "FOR ANOTHER CORRECTION TYPE 1,OTHERWISE 0";X 470 IF X= 1GOTO 400 480 GOTO 20 500 PLOT 12:INPUT "MAKE PREPARATIONS FOR DISK,WHEN READY HIT ENTER";X 510 PRINT "COPYING.... " 520 PRINT #- 1,P1 530 FOR I= 1TO P1:PRINT #- 1,N$(I),A$(I),P$(I):NEXT 540 PRINT "COMPLETE -- NOTE DISK LOCATION" 550 INPUT "TO SEE THE MENU,HIT ENTER";X:GOTO 20 600 PLOT 12:INPUT "WHEN READY HIT ENTER";X 610 PRINT "INPUTING..." 620 INPUT #- 1,P1 630 FOR I= 1TO P1:INPUT #- 1,N$(I),A$(I),P$(I):NEXT 640 PRINT "COMPLETE":INPUT "TO SEE MENU,HIT ENTER";X:GOTO 20