Listing of file='MENU.BAS;01' on disk='vmedia/catalog_32-sector.ccvf'
100 REM ** MENU FOR CATALOG 32 ** 2/9/81 110 PLOT 6,2,12,14 120 AD= PEEK (32941):IF AD= 249THEN TM= PEEK (32940)+ 256* PEEK (32941):GOTO 300 130 IF AD= 255THEN 150 140 PRINT "PLEASE INITIALIZE BASIC (ESC W) AND HIT AUTO AGAIN ":END 150 AD= AD- 6:POKE 32941,AD:POKE 32940,253:CLEAR 100:TM= PEEK (32941)* 256+ 253 160 PLOT 6,8:PRINT " C O M P U C O L O R D I S K C A T A L O G U E R (32K) ":PRINT :PLOT 6,2,15 170 PRINT :INPUT "SINGLE OR DUAL DISK DRIVES IN USE? ";DN$:IF DN$< > "D"AND DN$< > "S"THEN 170 180 POKE TM+ 1,1+ (DN$= "S") 190 PRINT :INPUT "WILL YOU BE USING A PRINTER Y/N? ";YN$:YN$= LEFT$ (YN$,1) 200 IF YN$= "N"THEN POKE TM+ 2,0:PLOT 12:GOTO 300 210 IF YN$< > "Y"THEN 190 220 PRINT :INPUT "WHAT BAUD RATE WILL BE REQUIRED? ";BR 230 DATA 110,150,300,1200,2400,4800,9600:RESTORE 230 240 FOR I= 1TO 7:READ B 242 IF BR= BTHEN R= I 244 NEXT I 250 IF R= 0THEN 220 260 POKE TM+ 2,1:PLOT 27,18,R,12 300 PLOT 3,24,0,6,48,14:PRINT " C A T A L O G ":PLOT 6,2,15:PRINT 310 PRINT :PRINT "SELECT THE DESIRED OPTION FROM THE FOLLOWING LIST:-" 400 PRINT :PRINT 410 PRINT TAB( 10)"1. NEW SYSTEM - CREATE DATA FILES." 420 PRINT TAB( 10)"2. EDITOR - ADD, UPDATE, OR ACCESS THE DATA." 430 PRINT TAB( 10)"3. BACKUP INDEX FILES." 440 PRINT TAB( 10)"4. EXTRACT FILE NAMES, STORE THEM AND" 445 PRINT TAB( 10)" ALPHABETIZE THE LIST." 450 PRINT TAB( 10)"5. PRINT LISTING OF STORED FILE NAMES." 460 PRINT TAB( 10)"6. PRINT LISTING OF STORED DIRECTORIES." 470 PRINT TAB( 10)"7. RESTORE DAMAGED DIRECTORIES." 480 PRINT TAB( 10)"8. SEARCH FOR A FILE SPEC." 490 PRINT TAB( 10)"9. EXIT THIS PROGRAM" 500 PRINT :PRINT :INPUT "ENTER NUMBER OF DESIRED PROGRAM: ";A$ 510 A= VAL (A$):IF A< 1OR A> 9THEN 400 520 ON AGOTO 610,620,630,640,650,660,670,680,690 610 LOAD "NEW":RUN 620 LOAD "INDEX":RUN 630 LOAD "BKUPIX":RUN 640 LOAD "GETFIL":RUN 650 LOAD "PRTFIL":RUN 660 LOAD "PRTDIR":RUN 670 LOAD "DIRFIX":RUN 680 PLOT 27,4:PRINT "RUN SEARCH" 690 PLOT 12:END