Listing of file='MENU.BAS;01' on disk='vmedia/ncc_catalog_1-sector.ccvf'
1 REM ORIGINAL BY BARRY PARR -- MODIFIED BY PATRICK LEABO 5 CLEAR 255 10 PLOT 29,14,6,2,12,27,11,3,8,0 12 A1$= " NORTHERN CALIFORNIA COMPUCOLOR II USERS GROUP CATALOG #1 " 13 A2$= " # DISK NAME DESCRIPTION " 15 PRINT "N O R T H E R N C A L I F O R N I A" 20 PRINT " C O M P U C O L O R U S E R S G R O U P" 30 PRINT " C A T A L O G # 1" 35 PRINT "TYPE IN THE NUMBER OF THE PROCEDURE YOU WANT "; 40 PRINT "FROM THE MENU BELOW" 70 PRINT "1 - CATALOG: ALL PROGRAMS BY NUMBER" 80 PRINT "2 - BY CATEGORY" 90 PRINT "3 - LISTING: PRINT" 100 PRINT "4 - CHANGE" 140 PRINT "5 - CREATE A NEW CATALOG FILE" 142 PRINT "6 - EXIT FROM CATALOG MAINTENANCE PROGRAM" 145 PRINT "" 150 PLOT 6,1 153 INPUT "MENU SELECTION (TYPE NUMBER AND HIT RETURN KEY): ";P 156 PLOT 6,2,15,12 200 ON PGOTO 2000,3000,4000,5000,1000,8000 205 GOTO 1 1000 REM SET UP FILE OF PROGRAMS TO BE DONATED 1100 PLOT 12 1110 PRINT "PROCEDURE:" 1120 PRINT "(1) INPUT NUMBER OF RECORDS FOR CATALOG (254 MAX)." 1130 PRINT "(2) INPUT CATALOG INFORMATION AS REQUESTED BY PROGRAM." 1140 PRINT "(3) PROGRAM WILL CREAT DATA FILE AT END OF DISK." 1160 PRINT 1170 INPUT "HOW MANY RECORDS FOR THIS CATALOG ? ";N1 1200 FILE "N","CATALG",N1+ 1,128,14 1210 FILE "R",1,"CATALG",1 1230 PUT 1,1,1;N1+ 1 1240 FILE "C",1 1300 REM PRINT SCREEN FORMAT 1350 GOSUB 8001 1400 REM INPUT CATALOG INFORMATION 1425 R= 2 1450 GOSUB 9000 1455 FILE "R",1,"CATALG",1 1475 FOR R= 3TO N1+ 1 1477 PLOT 3,12,23:PRINT R;" DONE" 1480 PUT 1,R,1;N$[6],K$[2],A$[24],DATE$[8],T$[12],M$[3],S$[4] 1485 PUT 1,R,60;L$[5],F$[1],FINAM$[6],B$[1],H$[1],D$[52] 1500 NEXT R 1550 FILE "C",1 1900 INPUT "PRESS RETURN TO GO TO THE MENU ! ";ANS$ 1950 GOTO 10 2000 REM PRINT CATALOG OF DISK 2100 FILE "R",1,"CATALG",1 2120 PLOT 12:PRINT A1$:PRINT A2$ 2150 GET 1,1,1;EOF 2175 PR= 2 2180 PRINT 2200 FOR R= 2TO EOF 2250 GET 1,R,1;N$[6]:GET 1,R,74;D$[50] 2260 GET 1,R,7;K$[2]:GET 1,R,41;T$[12]:GET 1,R,56;S$[4] 2265 IF LEFT$ (N$,1)= " "THEN R= EOF:GOTO 2400 2275 GOSUB 2500:GOTO 2370 2370 PR= PR+ 1 2375 IF PR= 29THEN PRINT :INPUT "PRESS RETURN TO CONTINUE ! ";AA$:PLOT 12:PRINT A1$:PRINT A2$:PR= 1 2400 NEXT R 2450 PRINT :INPUT "THAT'S ALL--PRESS RETURN TO GO TO THE MENU ! ";AA$ 2480 FILE "C",1:RUN 2500 REM OUTPUT FORMATTER 2510 PRINT "";R- 1;TAB( 5);"";K$;TAB( 8);"";N$;TAB( 15);"";LEFT$ (D$,48) 2597 RETURN :REM 3000 REM PERFORM CATEGORY SEARCH OF CATALOG 3005 PLOT 12:CH$(0)= "FINANCIAL" 3007 PRINT "OPTIONS: ";CH$(0) 3010 CH$(1)= "GAMES" 3020 CH$(2)= "DISPLAY/GRAPHICS" 3030 CH$(3)= "SUBROUTINE" 3040 CH$(4)= "MATH/STATISTICS" 3042 CH$(5)= "ENGINEERING/SCIENCE" 3044 CH$(6)= "UTILITIES" 3046 CH$(7)= "TUTORIAL" 3048 CH$(8)= "OTHER" 3050 FOR NN= 1TO 8:PRINT TAB( 9);CH$(NN):NEXT 3055 PRINT 3075 INPUT "TYPE FIRST LETTER OF CATEGORY TO BE SEARCHED: ";CATEG$ 3080 FOR NN= 0TO 8:IF LEFT$ (CH$(NN),1)= LEFT$ (CATEG$,1)THEN CH$= CH$(NN):NN= 8 3085 NEXT 3100 FILE "R",1,"CATALG",1 3200 GET 1,1,1;EOF 3225 GOSUB 3950 3250 FOR R= 2TO EOF 3300 GET 1,R,41;TYPE$[12] 3320 GET 1,R,1;N$[6] 3340 IF LEFT$ (N$,1)= " "THEN R= EOF:GOTO 3500 3350 IF ASC (TYPE$)< > ASC (CATEG$)THEN GOTO 3500 3375 GET 1,R,1;N$[6]:GET 1,R,74;D$[50] 3380 GET 1,R,7;K$[2] 3400 GOSUB 2500 3460 PR= PR+ 1:IF PR= 28THEN PR= 0:PRINT :INPUT "PRESS RETURN TO CONTINUE ! ";AA$:GOSUB 3950 3500 NEXT R 3900 PRINT :INPUT "THAT'S ALL--PRESS ENTER TO GO BACK TO THE MENU ! ";PROG 3920 FILE "C",1:RUN 3950 PLOT 12:PRINT A1$:PRINT A2$:PLOT 3,39,1:PRINT "";CH$;"":RETURN 4000 REM SEARCH FOR PROGRAM BY NUMBER 4100 INPUT "WHAT PROGRAM NUMBER DO YOU WANT ? ";NUM 4150 NUM= NUM+ 1 4200 FILE "R",1,"CATALG",1 4300 GET 1,NUM,1;N$[6],K$[2],A$[24],DATE$[8],T$[12],M$[3] 4350 GET 1,NUM,56;S$[4],L$[5],F$[1],FINAM$[6],B$[1],H$[1],D$[50] 4400 REM PRINT CATALOG FORMAT 4450 GOSUB 8100 4500 REM PRINT CATALOG INFORMATION 4510 PLOT 3,14,1:PRINT N$ 4515 PLOT 3,37,1:PRINT NUM- 1 4520 PLOT 3,52,1:PRINT K$ 4530 PLOT 3,14,4:PRINT A$ 4540 PLOT 3,45,4:PRINT DATE$ 4550 PLOT 3,14,7:PRINT T$ 4560 PLOT 3,47,7:PRINT M$ 4570 PLOT 3,14,10:PRINT S$ 4580 PLOT 3,39,10:PRINT L$ 4590 PLOT 3,7,13:PRINT F$ 4600 PLOT 3,40,13:PRINT FINAM$ 4610 PLOT 3,7,16:PRINT B$ 4620 PLOT 3,41,16:PRINT H$ 4630 PLOT 3,13,19:PRINT D$ 4640 PLOT 3,1,23 4650 IF FL= 1THEN FL= 0:NUM= NUM- 1:GOTO 5350 4900 PRINT "PRESS RETURN FOR MENU,+ FOR NEXT,- FOR PREVIOUS ! "; 4910 POKE 33278,255 4920 IF PEEK (33278)= 255THEN 4920 4925 PRINT 4930 IF PEEK (33278)= 43THEN NUM= NUM+ 1:IF NUM< 256THEN 4300 4940 IF PEEK (33278)= 45THEN NUM= NUM- 1:IF NUM> 1THEN 4300 4975 PLOT 6,2,12 4999 RUN 5000 REM CHANGE A CATALOG LISTING 5100 INPUT "WHAT LISTING DO YOU WANT TO CHANGE ? ";NUM 5200 REM PRINT CATALOG FORMAT 5300 REM INSERT INFORMATION IN CATALOG 5320 FL= 1:NUM= NUM+ 1:GOTO 4200 5350 R= NUM+ 1:GOSUB 9000 5900 INPUT "PRESS RETURN TO GO TO THE MENU ! ";ANS$:GOTO 10 8000 END 8001 REM PRINT CATALOG FORMAT 8100 PLOT 6,6,12 8110 FOR Y= 127TO 51STEP - 12 8120 PLOT 2,0,Y,242,127,Y,255 8130 NEXT Y 8140 PLOT 2,0,127,242,0,40,127,40,127,127,255 8200 REM 8205 PLOT 3,0,21:PRINT A1$;" " 8210 PLOT 3,1,1 8215 PRINT "PROGRAM NAME: " 8216 PLOT 3,24,1:PRINT "PRGRM NUMBER:" 8220 PLOT 3,45,1 8225 PRINT "DISK #: " 8230 PLOT 3,1,4 8235 PRINT "AUTHORS NAME: " 8240 PLOT 3,40,4 8245 PRINT "DATE: " 8250 PLOT 3,1,7 8255 PRINT "PROGRAM TYPE: " 8260 PLOT 3,30,7 8265 PRINT "MEMORY REQUIRED: " 8270 PLOT 3,1,10 8275 PRINT "PROGRAM SIZE: " 8280 PLOT 3,30,10 8285 PRINT "LANGUAGE: " 8290 PLOT 3,1,13 8295 PRINT "FILES? " 8300 PLOT 3,30,13 8305 PRINT "FILE NAME: " 8310 PLOT 3,1,16 8316 PRINT "BUGS? " 8320 PLOT 3,30,16 8325 PRINT "HARD COPY? " 8330 PLOT 3,1,19 8335 PRINT "DESCRIPTION: " 8340 PLOT 3,0,24 8350 IF P= 3THEN 8999 8400 PRINT "OPTIONS:" 8410 PRINT "PROGRAM NAME: 6 CHARACTERS" 8420 PRINT "AUTHORS NAME: 24 CHARACTERS" 8430 PRINT "LANGUAGE: 5 CHARACTERS" 8440 PRINT "DESCRIPTION: 52 CHARACTERS" 8450 PRINT "TYPE:FINANCE,GAME,DISPLAY,SUBROUTINE,MATH/STAT 8455 PRINT " ENGR/SCIENCE,UTILITIES,TUTORIAL,OTHER" 8999 RETURN 9000 REM INPUT CATALOG INFORMATION & PLACE IN FILE 9110 PLOT 3,14,1 9115 INPUT "";X$:IF X$< > "0"THEN N$= X$ 9120 PLOT 3,52,1 9125 INPUT "";X$:IF X$< > "0"THEN K$= X$ 9130 PLOT 3,14,4 9135 INPUT "";X$:IF X$< > "0"THEN A$= X$ 9140 PLOT 3,45,4 9145 INPUT "";X$:IF X$< > "0"THEN DATE$= X$ 9150 PLOT 3,14,7 9155 INPUT "";X$:IF X$< > "0"THEN T$= X$ 9160 PLOT 3,47,7 9165 INPUT "";X$:IF X$< > "0"THEN M$= X$ 9170 PLOT 3,14,10 9175 INPUT "";X$:IF X$< > "0"THEN S$= X$ 9180 PLOT 3,39,10 9185 INPUT "";X$:IF X$< > "0"THEN L$= X$ 9190 PLOT 3,7,13 9195 INPUT "";X$:IF X$< > "0"THEN F$= X$ 9200 PLOT 3,40,13 9205 INPUT "";X$:IF X$< > "0"THEN FINAM$= X$ 9210 PLOT 3,7,16 9215 INPUT "";X$:IF X$< > "0"THEN B$= X$ 9220 PLOT 3,41,16 9225 INPUT "";X$:IF X$< > "0"THEN H$= X$ 9230 PLOT 3,13,19 9235 INPUT "";X$:IF X$< > "0"THEN D$= X$ 9300 REM FILE#R DETERMINED BEFORE SUBROUTINE CALLED 9325 IF P= 5THEN FILE "R",1,"CATALG",1 9350 PUT 1,R,1;N$[6],K$[2],A$[24],DATE$[8],T$[12],M$[3],S$[4] 9355 PUT 1,R,60;L$[5],F$[1],FINAM$[6],B$[1],H$[1],D$[52] 9360 FILE "C",1 9400 PLOT 3,1,23 9999 RETURN