Compucolor.org – Virtual Media

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