Compucolor.org – Virtual Media

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