Listing of file='MENU.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM COMPUCOLOR DISSEMINATION DISK #6 AUGUST, 1981 2 REM 3 REM MATHEMATICS 5 REM 16K COMPUCOLOR 6 REM 10 REM PROGRAMS CONTRIBUTED BY FACULTY AND STUDENTS 11 REM AT SAN JOSE STATE UNIVERSITY 12 REM 20 REM 21 REM "______________________________" 22 REM "! SAN MATEO COUNTY !" 23 REM "! OFFICE OF EDUCATION !" 24 REM "! & !" 25 REM "! COMPUTER-USING EDUCATORS !" 26 REM "! !" 27 REM "! SOFTSWAP !" 28 REM "! !" 29 REM "!333 MAIN STREET, REDWOOD CITY!" 30 REM "!CA 94063 (415)364-5600 EX4401!" 31 REM "_______________________________" 40 REM "_______________________________" 41 REM "! PROGRAMS MAY BE COPIED FOR !" 42 REM "! EDUCATIONAL USE ONLY AND !" 43 REM "! ARE NOT TO BE SOLD. !" 44 REM "!!" 50 REM 55 GOSUB 1000:REM CHIP 59 PLOT 14,12 60 REM 65 PRINT :PRINT :PRINT 67 PRINT TAB( 8)" " 68 PRINT TAB( 8)" SAN MATEO COUNTY OFFICE OF EDUCATION " 72 PRINT TAB( 8)" & " 74 PRINT TAB( 8)" COMPUTER-USING EDUCATORS " 76 PRINT TAB( 8)" " 78 PRINT TAB( 8)" SOFTSWAP " 80 PRINT TAB( 8)" " 82 PLOT 20,2,253,16,106,255 85 PLOT 2,242,16,106,16,46,113,46,113,106,16,106,255 87 PRINT :PRINT 88 PRINT TAB( 16)"COMPUCOLOR DISSEMINATION DISK #5" 89 PRINT 90 PRINT TAB( 25)"MATHEMATICS" 92 FOR K= 1TO 2000:NEXT K 100 PLOT 12 110 PRINT TAB( 5)"DIRECTORY PROGRAM" 120 PRINT TAB( 15)"(1) RECIPROCALS, PRACTICE " 125 PRINT TAB( 15)"(2) DISTRIBUTIVE PROPERTY, EXERCISES" 130 PRINT TAB( 15)"(3) TRINOMIALS TO FACTOR, EXERCISES" 135 PRINT TAB( 15)"(4) SIMULTANEOUS EQUATIONS, EXERCISES" 140 PRINT TAB( 15)"(5) DIFFERENCE BETWEEN SQUARES, PRACTICE" 150 PRINT TAB( 15)"(6) FINDING VALUES OF POLYNOMIALS" 160 PRINT TAB( 15)"(7) GRAPHING POLYNOMIALS (SECOND DEGREE)" 170 PRINT TAB( 15)"(8) GRAPHING POLYNOMIALS (THIRD DEGREE)" 175 PRINT TAB( 15)"(9) SINE WAVES (AMPLITUTE AND PERIOD)" 180 PRINT TAB( 14)"(10) SINE WAVES (DISPLACEMENT)" 185 PRINT TAB( 14)"(11) SINE WAVES (GENERAL REVIEW)" 187 PRINT TAB( 14)"(12) MULTIPLY MATRICES" 190 PRINT TAB( 14)"(13) ADD MATRICES" 260 INPUT " TYPE AND ENTER THE NUMERAL OF THE PROGRAM.";Y$ 270 Y= VAL (Y$):IF Y< 1OR Y< > INT (Y)OR Y> 13THEN PLOT 28,11:GOTO 260 280 ON YGOTO 290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460 290 LOAD "RCPRCL":RUN 300 LOAD "DSTRIB":RUN 310 LOAD "TRIFCT":RUN 320 LOAD "SIMEQ":RUN 330 LOAD "DIFSQR":RUN 340 LOAD "POLY":RUN 350 LOAD "POLYG2":RUN 360 LOAD "POLYG3":RUN 370 LOAD "SIN1":RUN 380 LOAD "SIN2":RUN 390 LOAD "SIN3":RUN 400 LOAD "MATMLT":RUN 410 LOAD "MATADD":RUN 500 PRINT :PRINT :PRINT 600 END 1000 1010 1020 REM CHIP MENU FOR DISKS WITH ONLY ONE PROGRAM 1030 1040 1060 PLOT 27,11,6,4,15,29,12 1070 1080 REM PUT THIS DISK'S NUMBER INTO DN. 1090 REM FOR EXAMPLE: DN=22 1100 1110 DN= 36 1120 1240 GOSUB 1350 1250 PLOT 3,64,0 1260 FOR J= 1TO 1000:NEXT 1270 RETURN 1330 1340 REM LOGO 1350 PRINT TAB( 5)"~t u~ ~ ~ ~ u "; 1360 PRINT "~ ~ ~ u~ u~t u~ u~ ~ " 1370 PRINT TAB( 5)" ~ ~ "; 1380 PRINT " ~ ~ ~ ~ " 1390 PRINT TAB( 5)" ~ ~ w "; 1400 PRINT " ";:PLOT 2,254,9,255 1410 PRINT " w w v w" 1420 PRINT TAB( 5)" ~ ~ w "; 1430 PRINT " ~ ~ "; 1440 PLOT 2,254,243,255,6,1,2,254,12,255 1450 PRINT " ~ ~ ";:PLOT 2,254,243,255,6,1,2,254,12,255 1460 PRINT " v ~ " 1470 PRINT TAB( 5)" v w "; 1480 PRINT " w ~ ~ " 1490 PRINT TAB( 5)"v w ~ ~ ~ ~ ~ ~ ~ ~ "; 1500 PRINT " ~ ~ ~ ~ ~ w ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ " 1510 PRINT 1520 PRINT TAB( 8)"COMPUCOLOR USERS' GROUP OF ROCHESTER, NEW YORK" 1530 PLOT 6,4,30:PRINT TAB( 25)"":PLOT 29 1540 PRINT TAB( 25);:PLOT 6,33:PRINT " DISK # "; 1550 PLOT 26,26,26,26:PRINT DN:PLOT 6,2:PRINT 1560 RETURN