Compucolor.org – Virtual Media

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