Listing of file='MATHTU.BAS;01' on disk='vmedia/hangman-sector.ccvf'
0 REM 1 REM 100 PLOT 27,11,12,6,3,14 110 PLOT 3,23,4:PRINT "TABLE OF PROGRAMS" 120 PLOT 3,23,8:PRINT "1 = MATHEMATICS TUTOR"; 122 PLOT 3,23,12:PRINT "2 = GUESS THE NUMBER"; 180 PRINT :PLOT 15,3,0,30 181 PLOT 19 187 PRINT "THIS PROGRAM IS COPYRIGHT 1976 (C) BY COMPUCOLOR CORPORATION." 188 PLOT 14 190 PLOT 3,6,24:INPUT "ENTER COMPUCOLOR PROGRAM NUMBER > ";I 195 PLOT 6,2 201 ON IGOTO 1000,2000 210 GOTO 188 1000 PLOT 6,32,12,27,11,14 1001 PLOT 3,12,6:PRINT " COMPUCOLOR PRESENTS MATHEMATICS TUTOR " 1002 PLOT 3,64,0:FOR A= 0TO 3000:NEXT :PLOT 6,2,12 1004 C= 0:W= 0 1005 PLOT 12 1010 PRINT "ENTER FUNCTION DESIRED :":PRINT 1011 PRINT "TYPE A NUMBER LARGER THAN 4 TO END PROGRAM !" 1012 PRINT 1013 INPUT " ADD=1 SUBTRACT=2 MULTIPLY=3 DIVIDE=4 ? ";A 1014 PRINT :IF A> 4THEN LOAD "MENU":RUN 1015 INPUT "ENTER DEGREE OF DIFFICULTY 1,2,3,4 OR 5; 5=HARDEST ? ";D 1020 ON DGOTO 1030,1032,1034,1036,1038 1027 GOTO 1015 1030 X= RND (8)* 10:X= INT (X):Y= RND (9)* 10:Y= INT (Y) 1031 GOTO 1040 1032 X= RND (8)* 100:X= INT (X):Y= RND (9)* 10:Y= INT (Y) 1033 GOTO 1040 1034 X= RND (8)* 100:X= INT (X):Y= RND (9)* 100:Y= INT (Y) 1035 GOTO 1040 1036 X= RND (8)* 1000:X= INT (X):Y= RND (9)* 100:Y= INT (Y) 1037 GOTO 1040 1038 X= RND (8)* 1000:X= INT (X):Y= RND (9)* 1000:Y= INT (Y) 1040 GOSUB 1100 1050 ON AGOTO 1200,1300,1400,1500 1054 GOTO 1010 1100 PLOT 12 1105 PRINT "TYPE A LETTER TO TERMINATE PROBLEM !" 1110 PLOT 3,23,4:PRINT "CORRECT "C" WRONG"W 1120 RETURN 1200 PLOT 3,30,8:PRINT "ADD" 1210 PLOT 3,28,12 1220 PRINT X"+"Y"=";:GOSUB 1350 1230 Q= X+ Y 1240 IF Q= ZTHEN 1245 1241 PLOT 3,13,14:PRINT " WRONG ";X"+";Y"=";Q 1243 W= W+ 1 1244 GOTO 1600 1245 C= C+ 1 1246 PRINT "VERY GOOD, YOU ARE CORRECT" 1248 GOTO 1600 1300 PLOT 3,30,8:PRINT "SUBTRACT" 1310 PLOT 3,30,12 1315 IF X< YTHEN Q= X:X= Y:Y= Q 1320 PRINT X"-"Y"=";:GOSUB 1350 1330 Q= X- Y:IF Q= ZTHEN 1245 1341 PRINT " WRONG ";X"-";Y"=";Q 1343 GOTO 1243 1350 INPUT " ? ";Z$:IF ASC (Z$)> 57GOTO 1005 1360 Z= VAL (Z$):RETURN 1400 PLOT 3,30,8:PRINT "MULTIPLY" 1410 PLOT 3,30,12 1420 PRINT X"*"Y"=";:GOSUB 1350 1430 Q= X* Y:IF Q= ZTHEN 1245 1432 GOSUB 1700 1435 PLOT 3,30,12,11,3,30,12:PRINT X"*"Y"=";:GOSUB 1350 1438 Q= X* Y 1439 FOR XX= 14TO 30STEP 2:PLOT 3,0,XX,11:NEXT XX:PLOT 3,0,16 1440 IF Q= ZTHEN 1245 1441 PRINT " WRONG ";X"*";Y"=";Q 1443 GOTO 1243 1500 PLOT 3,30,8:PRINT "DIVIDE" 1505 X= X* Y 1507 IF Y= 0THEN 1020 1510 PLOT 3,30,12 1520 PRINT X"/"Y"=";:GOSUB 1350 1522 Q= X/ Y 1526 IF Q= ZTHEN 1245 1530 GOSUB 1700 1532 PLOT 3,0,16 1535 PLOT 3,30,12,11,3,30,12:PRINT X"/"Y"=";:GOSUB 1350 1536 Q= X/ Y 1537 FOR XX= 14TO 30STEP 2:PLOT 3,0,XX,11:NEXT XX:PLOT 3,0,16 1538 IF Q= ZTHEN 1245 1541 PRINT " WRONG ";X"/";Y"=";Q 1543 GOTO 1243 1600 PLOT 3,64,0:FOR R= 0TO 1000:NEXT R:GOTO 1020 1700 PLOT 15:PRINT "WRONG TRY USING THE MULTIPLICATION TABLE BELOW !" 1710 FOR K= 1TO 10:FOR J= 1TO 10:IF J= 1THEN COL= 1 1720 PLOT 6,COL 1721 PLOT 3,- 4+ 6* J,16+ K 1722 PRINT J* K 1723 COL= 2 1724 IF K= 1THEN COL= 1 1730 NEXT J:PLOT 13:NEXT K:PLOT 14 1735 PLOT 15,3,0,15:PRINT " ":PLOT 14 1740 RETURN 2000 PLOT 6:PLOT 32:PLOT 12:PLOT 27:PLOT 11:PLOT 14 2001 PLOT 3,10,6:PRINT " COMPUCOLOR PRESENTS GUESS THE NUMBER GAME " 2002 PLOT 3,64,0:FOR A= 0TO 3000:NEXT :PLOT 6,3,12 2003 P= 0:Q= 0 2004 PLOT 12 2005 N= INT (RND (8)* 10000) 2006 GOSUB 2090 2007 NU= N:H= 0:U= 0:G= 0 2008 A1= A:B1= B:C1= C:D1= D 2020 PRINT "GUESS THE NUMBER COMPUCOLOR ";Q" PLAYER ";P 2025 PLOT 3,35,4:PRINT "HITS BULLS" 2035 FOR Y= 8TO 20STEP 2 2037 G= G+ 1 2040 PLOT 3,15,Y:PRINT G" ____" 2050 PLOT 3,18,Y:INPUT "GUESS ";N 2052 GOSUB 2090 2055 GOSUB 2100 2060 PLOT 3,35,Y:PRINT H" ";U 2062 IF U= 4THEN 2078 2065 H= 0:U= 0 2070 NEXT Y 2073 Q= Q+ 1 2075 PLOT 3,9,Y+ 2:PRINT "YOU LOSE, THE NUMBER WAS ";NU 2076 GOTO 2080 2078 PRINT :PRINT "YOU WIN, CARE TO TRY AGAIN " 2079 P= P+ 1 2080 PRINT :INPUT "TYPE 1 FOR A NEW GAME ";I:IF I= 1THEN 2004 2085 LOAD "MENU":RUN 2090 A= INT (N/ 1000) 2091 B= INT (N/ 100)- (10* A) 2092 C= INT (N/ 10)- (100* A)- (10* B) 2093 D= N- (A* 1000)- (B* 100)- (C* 10) 2094 RETURN 2100 A2= A1:B2= B1:C2= C1:D2= D1 2110 IF A< > A2THEN 2112 2111 H= H+ 1:U= U+ 1:A= 10:A2= 11 2112 IF B< > B2THEN 2114 2113 H= H+ 1:U= U+ 1:B= 12:B2= 13 2114 IF C< > C2THEN 2116 2115 H= H+ 1:U= U+ 1:C= 14:C2= 15 2116 IF D< > D2THEN 2118 2117 H= H+ 1:U= U+ 1:D= 16:D2= 17 2118 IF A< > B2THEN 2120 2119 H= H+ 1:A= 10:B2= 13 2120 IF A< > C2THEN 2122 2121 H= H+ 1:A= 10:C2= 15 2122 IF A< > D2THEN 2124 2123 H= H+ 1:A= 10:D2= 17 2124 IF B< > A2THEN 2126 2125 H= H+ 1:B= 12:A2= 11 2126 IF B< > C2THEN 2128 2127 H= H+ 1:B= 12:C2= 15 2128 IF B< > D2THEN 2130 2129 H= H+ 1:B= 12:D2= 17 2130 IF C< > A2THEN 2132 2131 H= H+ 1:C= 14:A2= 11 2132 IF C< > B2THEN 2134 2133 H= H+ 1:C= 14:B2= 13 2134 IF C< > D2THEN 2136 2135 H= H+ 1:C= 14:D2= 17 2136 IF D< > A2THEN 2138 2137 H= H+ 1:D= 16:A2= 11 2138 IF D< > B2THEN 2140 2139 H= H+ 1:D= 16:B2= 13 2140 IF D< > C2THEN 2150 2141 H= H+ 1:D= 16:C2= 15 2150 RETURN