Listing of file='RCPRCL.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM RECIPROCALS MARCH 31,1981 2 REM 3 REM DRILL ON FINDING RECIPROCALS 5 REM 16K COMPUCOLOR 6 REM 10 REM PROGRAM WRITTEN BY MARJORIE A. FITTING 11 REM PROFESSOR OF MATHEMATICS AND COMPUTER SCIENCE 12 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192 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 60 REM 100 PRINT CHR$ (12) 110 PRINT " RECIPROCALS " 120 PRINT :PRINT 130 PRINT "THIS PROGRAM WILL GIVE YOU A RATIONAL NUMBER." 140 PRINT "YOU ARE TO TYPE AND ENTER THE RECIPROCAL." 142 PRINT :PRINT "DO NOT REDUCE THE FRACTION. IF THE RESULT IS NEGATIVE, TYPE" 143 PRINT "THE NEGATIVE SIGN FIRST. USE 3/4 TO MEAN 3" 144 PRINT " e " 145 PRINT " 4." 146 PRINT 150 PRINT "WHEN YOU NEED HELP TYPE 'H' AND PRESS <RETURN>." 155 PRINT 160 FOR K= 1TO PEEK (33209)+ 11* PEEK (33210):G= RND (1):NEXT K 200 T= 0:G= 0 230 A= INT (29* RND (1))+ 1 260 B= INT (29* RND (1))+ 1 270 IF A= BTHEN GOTO 260 290 C= INT (2* RND (1))+ 1 310 T$= "" 320 B$= STR$ (B):A$= STR$ (A) 330 L1= LEN (B$):L2= LEN (A$) 340 IF C= 1THEN T$= "-" 350 B1$= RIGHT$ (B$,L1- 1):A1$= RIGHT$ (A$,L2- 1) 356 PRINT :PRINT 360 PRINT "";T$;A1$;"/";B1$ 370 PRINT "" 380 INPUT "WHAT IS THE RECIPROCAL OF THIS NUMBER? ";S$ 400 R$= T$+ B1$+ "/"+ A1$ 405 P$= R$ 410 IF A1$= "1"THEN P$= T$+ B1$ 420 IF S$= "H"THEN GOTO 1000 500 IF S$= R$THEN GOTO 620 510 IF S$= P$THEN GOTO 620 540 IF T= 1THEN GOSUB 1000 560 PRINT :PRINT "TRY AGAIN.":PRINT 570 T= 1 590 GOTO 360 620 PRINT TAB( 40)"HOORAY!!!" 650 R= R+ 1 680 IF R= 10THEN GOTO 740 710 GOTO 200 740 PRINT :PRINT "YOU ANSWERED 10 EXAMPLES CORRECTLY." 750 PRINT :INPUT "WOULD YOU LIKE TO TRY MORE?";Y$ 760 INPUT Y$ 770 IF Y$> = "Y"THEN GOTO 100 780 LOAD "MENU":RUN 800 END 1000 PRINT CHR$ (12) 1020 PRINT TAB( 25)"HELP" 1030 PRINT :PRINT "THE RECIPROCAL OF A NUMBER IS 1 DIVIDED BY THE NUMBER." 1040 IF C= 1THEN GOTO 1200 1050 PRINT :PRINT " 1 DIVIDED BY A/B " 1060 PRINT :PRINT " IS" 1070 PRINT :PRINT " 1" 1080 PRINT " _____" 1090 PRINT " A" 1100 PRINT " eee " 1110 PRINT " B " 1120 PRINT :PRINT 1130 PRINT "IF YOU MULTIPLY THE NUMERATOR AND DENOMINATOR OF THIS FRACTION" 1140 PRINT "BY B,":PRINT 1150 PRINT "THE FRACTION BECOMES " 1160 PRINT :PRINT " 1 * B B" 1170 PRINT " _____ ___" 1180 PRINT " A B =" 1181 PRINT " e * e A" 1182 PRINT " B 1" 1185 G= 1 1190 PRINT :PRINT :INPUT "PRESS 'H' FOR MORE HELP. PRESS <RETURN>. ";H$ 1195 IF H$= "H"THEN GOTO 1400 1196 PRINT CHR$ (12) 1197 GOTO 360 1200 IF S$= "H"AND G= 0THEN GOTO 1050 1205 PRINT :PRINT "1 DIVIDED BY A NEGATIVE NUMBER" 1210 PRINT "IS ALSO NEGATIVE." 1215 PRINT 1220 PRINT :PRINT 1224 PRINT "THE RECIPROCAL OF -A/B IS -B/A.":PRINT :PRINT 1225 PRINT "THE RECIPROCAL OF -";A1$;"/";B1$;" IS -";B1$;"/";A1$;".":PRINT :PRINT 1226 PRINT "FOR A NEGATIVE NUMBER, TYPE THE NEGATIVE SIGN FIRST.":PRINT 1227 IF S$= "H"THEN GOTO 360 1230 INPUT "PRESS <RETURN> TO CONTINUE.";H$ 1245 PRINT CHR$ (12) 1250 GOTO 360 1300 PRINT CHR$ (12) 1302 C1$= A1$:D1$= B1$ 1306 IF L2= 2THEN C1$= " "+ C1$ 1307 IF L1= 2THEN D1$= " "+ D1$ 1310 PRINT " 1 1 * ";D1$;" ";D1$ 1320 PRINT " _____ __________ ____" 1330 PRINT " ";C1$;" = ";C1$;" ";D1$; " = " 1340 PRINT " ee ee * ee ";C1$ 1350 PRINT " ";D1$;" ";D1$;" 1" 1355 PRINT :PRINT :PRINT "THE RECIPROCAL OF ";C1$;"/";D1$ 1356 PRINT "IS ";D1$;"/";C1$;"." 1357 PRINT :PRINT 1360 PRINT :INPUT "PRESS <RETURN> TO CONTINUE.";H$ 1375 PRINT CHR$ (12) 1380 GOTO 360 1400 PLOT 3,40,8 1410 PRINT "THE RECIPROCAL OF A/B" 1420 PLOT 3,40,12 1430 PRINT "IS B/A." 1440 PLOT 3,0,30 1450 INPUT "PRESS 'H' FOR MORE HELP. PRESS <RETURN>.";H$ 1460 IF H$= "H"THEN GOTO 1300 1500 GOTO 360