Listing of file='MAIN.BAS;01' on disk='vmedia/personal_database-sector.ccvf'
100 REM ** MAIN - MAY 26,79 ** 110 ADR= 256* PEEK (32941)+ PEEK (32940) 120 IF PEEK (ADR+ 2)= 99THEN SAVE "1:MAIN":LOAD "CREDDL":RUN 130 PRINT :PLOT 6,0,12,14,6,40,3,3,0 140 PRINT " D A T A B A S E M A N A G E M E N T S Y S T E M " 150 PLOT 6,6,15,3,0,6 160 PRINT " SELECT THE DESIRED OPTION FROM THE FOLLOWING LIST:" 170 PRINT :PRINT :PLOT 6,6 180 PRINT TAB( 10);"1. CREATE A DESCRIPTOR FILE" 190 PRINT 200 PRINT TAB( 10);"2. CREATE A RANDOM FILE" 210 PRINT 220 PRINT TAB( 10);"3. EDIT RANDOM FILE RECORDS (ADD,DELETE,UPDATE)" 230 PRINT 240 PRINT TAB( 10);"4. LIST ENTIRE CONTENTS OF A RANDOM FILE" 250 PRINT 260 PRINT TAB( 10);"5. CREATE A FORMAT FILE" 270 PRINT 280 PRINT TAB( 10);"6. PRINT USING THE FORMAT FILE" 290 PRINT TAB( 15);"A. PRINT ALL RECORDS" 300 PRINT TAB( 15);"B. PRINT A SELECTIVE LISTING" 310 PRINT TAB( 15);"C. CREATE A SELECTIVE HOLD FILE" 320 PRINT 330 PRINT TAB( 10);"7. FILE RECOVERY PROGRAM - SEE MANUAL" 340 PLOT 3,13,27 350 INPUT "ENTER NUMBER OF DESIRED PROGRAM: ";A$ 360 A= VAL (A$):IF A> 0AND A< 8THEN 400 370 IF A$= "TEST ON"THEN POKE ADR+ 2,1 380 IF A$= "TEST OFF"THEN POKE ADR+ 2,0 390 GOTO 130 400 ON AGOTO 410,420,430,440,450,460,470 410 LOAD "CREDDL":RUN 420 LOAD "CRSEG":RUN 430 LOAD "DBS16":RUN 440 LOAD "DBSLST":RUN 450 LOAD "FORMAT":RUN 460 LOAD "PARLST":RUN 470 LOAD "INXDBS":RUN