Listing of file='MENU.BAS;01' on disk='vmedia/personal_database-sector.ccvf'
100 REM ** MENU - MAY 26,79 ** 110 PLOT 6,0,12,14,6,40,3,3,0 120 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 " 130 PLOT 6,0,15,3,0,6 140 PRINT " SELECT YOUR SYSTEM CONFIGURATION FROM THE FOLLOWING LIST:" 150 PRINT :PRINT :PRINT :PRINT 160 PRINT " 1. SINGLE DISK SYSTEM - PROGRAM AND FILES ON SAME DISK" 170 PRINT " 2. SINGLE DISK SYSTEM - PROGRAM AND FILES ON SEPARATE DISK" 180 PRINT " 3. DUAL DISK SYSTEM - PROGRAM ON CD0, FILES ON CD1" 190 PRINT :PRINT :PRINT :PRINT 200 PRINT TAB( 15);:INPUT "ENTER NUMBER AND HIT RETURN ";N$ 210 C= 0:IF N$= "COPY"THEN C= 99:GOTO 280 220 N= VAL (N$):IF N< 1OR N> 3THEN 200 230 PRINT TAB( 15);:INPUT "WILL YOU BE USING A PRINTER? ";P$ 240 IF LEFT$ (P$,1)< > "Y"THEN 280 250 PRINT TAB( 15);:INPUT "WHAT BAUD RATE IS REQUIRED? ";BR 260 REM 270 REM 280 ADR= 256* PEEK (32941)+ PEEK (32940) 290 ADR= ADR- 15 300 ZZ= INT (ADR/ 256):POKE 32940,ADR- 256* ZZ:POKE 32941,ZZ 310 POKE ADR+ 1,N:POKE ADR+ 2,0:POKE ADR+ 3,0:POKE ADR+ 4,0 320 IF C= 99THEN POKE ADR+ 2,99:SAVE "1:MENU" 330 DATA 110,150,300,1200,2400,4800,9600 340 RESTORE 330:IF BR= 0THEN 400 350 FOR I= 1TO 7:READ B 360 IF BR= BTHEN R= I 370 NEXT I 380 IF R= 0THEN 250 390 POKE ADR+ 4,1:PLOT 27,18,R 400 LOAD "MAIN":RUN