Listing of file='MENU.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
50 CLEAR 1200 60 DIM F$(18) 100 PLOT 27,11,6,6,14,29,12 109 110 DN$= "8A ":REM THIS DISK'S NUMBER 111 REM 115 DM$= "MATHS DISK # 1" 120 GOSUB 9000 130 FOR J= 1TO 23:D$= D$+ ". ":NEXT 189 190 REM ENTER PROGRAM DESCRIPTIONS AS DATA STATEMENTS 191 REM STARTING AT LINE 200. FOR EXAMPLE: 192 REM 193 REM 200 DATA "STAR TREK (BATTLE THE KLINGONS)" 194 REM 210 DATA "TIC-TAC-TOE","MASTERMIND" 195 REM 196 REM ...ETC. 197 REM 198 REM MAXIMUM OF 18 FILES. 199 200 DATA "FORMS (GEOMETRICAL FORMULA)" 210 DATA "GEOSIZ (VOLUME CALCULATIONS)" 220 DATA "LENSES (LENSES CALCULATIONS)" 230 DATA "ROSES (POLAR CO-ORD PLOTS)" 240 DATA "LISSAJ (LISSAJOU FIGURES)" 250 DATA "ATTENU (FOR ELECTRICAL ENGINEER)" 260 DATA "GAMMA (ATTENA CALCULATIONS)" 270 DATA "VOCAB1 (QUIZ FROM READER'S DIGEST)" 280 DATA "VOCAB2 (QUIZ PART 2)" 290 DATA "DETERM (FIND DETERMINANT)" 300 DATA "SIMEQU (SOLVE SIMULTANEOUS EQUATIONS)" 310 DATA "WATEST (SWIMMING POOL HELPER)" 998 999 REM GET THE DESCRIPTIONS FOR THE MENU 1000 DATA "!" 1010 J= 0 1020 READ F$:IF (F$= "!")OR (J= 18)THEN 1100 1030 J= J+ 1:IF LEN (F$)/ 2< > INT (LEN (F$)/ 2)THEN F$= F$+ " " 1040 F$= LEFT$ (F$+ D$,47):IF J< 10THEN F$= F$+ " " 1050 F$(J)= F$+ STR$ (J) 1060 GOTO 1020 1100 IF J= 0THEN PRINT :PRINT TAB( 21)"NO PROGRAMS ON MENU":END 1110 IF J> 8THEN PLOT 15 1120 IF (J< 5)OR ((J= 8)OR (J= 9))THEN EL= 1 1128 1129 REM PRINT THE MENU 1130 PRINT :FOR K= 1TO J:PRINT TAB( 6)F$(K):IF ELTHEN PRINT 1140 NEXT 1150 IF J> 4THEN PRINT 1158 1159 REM GET USER'S CHOICE 1160 INPUT " ENTER THE NUMBER FOR YOUR CHOICE, THEN PRESS RETURN: ";C$ 1170 C= VAL (C$) 1190 IF C< 1OR C< > INT (C)OR C> JTHEN PLOT 28,11:GOTO 1160 1198 1199 REM REPRINT CHOSEN FILE DESCRIPTION IN RED 1200 Y= 4* C+ 5 1210 IF J> 4THEN Y= 2* C+ 9 1220 IF J> 7THEN Y= 2* C+ 9 1230 IF J> 9THEN Y= 7+ C 1240 PLOT 6,1:PLOT 3,6,Y:PRINT F$(C):PLOT 3,64,0 1249 1250 ON CGOTO 1301,1302,1303,1304,1305,1306,1307,1308,1309 1260 ON C- 9GOTO 1310,1311,1312,1313,1314,1315,1316,1317,1318 1297 1298 REM ENTER LOAD AND RUN INSTRUCTIONS ON LINES 1299 REM 1301,1302,1303, ... , 1318. 1300 REM 1301 LOAD "FORMS":RUN 1302 LOAD "GEOSIZ":RUN 1303 LOAD "LENSES":RUN 1304 LOAD "ROSES":RUN 1305 LOAD "LISSAJ":RUN 1306 LOAD "ATTENU":RUN 1307 LOAD "GAMMA":RUN 1308 LOAD "VOCAB1":RUN 1309 LOAD "VOCAB2":RUN 1310 LOAD "DETERM":RUN 1311 LOAD "SIMEQU":RUN 1312 LOAD "WATEST":RUN 7997 7998 7999 END 8998 8999 REM LOGO 9000 REM 9170 PRINT TAB( 5)"COMPUCOLOR USERS' GROUP OF SYDNEY, NEW SOUTH WALES" 9190 PLOT 6,4,30:PRINT TAB( 10)"":PLOT 29 9200 PRINT TAB( 10);:PLOT 6,33:PRINT " DISK # ";DN$ 9210 PLOT 6,2:PLOT 3,35,5:PRINT DM$ 9230 RETURN