10 REM *******************************
20 REM *       PARA LINHA APPLE      *
30 REM *                             *
40 REM *    APRENDENDO MATEMATICA    *
50 REM *******************************
60 REM
100 GOSUB 670 :  REM SUB—ROTINA DE SOM
110 GOTO 260
115 REM * GERA VALORES PARA A CARINHA *
120 DIM X(100), Y(100)
130 P=2*(355/113):FOR I=1 TO 100:ANGULO =P*(I/100):X(I)=15*SIN(ANGULO):Y(I)=15*COS(ANGULO):NEXT I
140 RETURN
150 POKE 230,32:CALL 62450:HGR:CALL —1994:GR:COLOR=7:PLOT 16,15:PLOT 24,15:COLOR=4:PLOT 20,19
160 COLOR=11:IF C1=0 THEN 190
170 PLOT 15,23:PLOT 25,23: PLOT 16,24: PLOT 24,24:PLOT 17,25: PLOT 23,25: HLIN 18,22 AT 26
180 GOTO 200
190 HLIN 18,22 AT 23:PLOT 17,24:PLOT 23,24:PLOT 16,25:PLOT 24,25:PLOT 15,26:PLOT 25,26
200 COLOR = 1
210 FOR I=1 TO 100:PLOT X(I)+20,Y(I)+20 :NEXT I
220 VTAB 22:HTAB 10:FLASH:IF C1=1 THEN PRINT " M U I T O  B E M !!":NORMAL:GOTO 250
230 NORMAL:VTAB 22:HTAB 6:PRINT "DESCULPE—ME, MAS ";B;" ";A$;" ";C;" = ";:INVERSE:PRINT E:NORMAL
240 FOR I=1 TO 2000:NEXT I
250 FOR I=1 TO 1500:NEXT I:HOME:HGR:POKE 34,0:HOME:TEXT:RETURN
260 HOME:INVERSE:VTAB 10:HTAB 12:PRINT "APRENDENDO MATEMATICA":NORMAL:VTAB 18:HTAB 4:PRINT "...AGUARDE"
270 GOSUB 120
280 HOME
290 DIM OP$(4), SI$(4):FOR I=1 TO 4:READ OP$(I):READ SI$(I):NEXT I
300 FOR I=2 TO 8 STEP 2:VTAB I:HTAB 7: PRINT "PARA ";:INVERSE:PRINT OP$(I/2);:NORMAL:PRINT TAB(25) “DIGITE ” SI$(I/2):NEXT I
310 VTAB 12:HTAB 7:NORMAL:PRINT "SUA ESCOLHA = ";
320 GET A$:IF A$="" THEN 320
330 IF A$<>"*" AND A$<>"+" AND A$<>"-" AND A$<>"/" THEN 320
340 PRINT A$
350 VTAB 17: HTAB 7: INPUT "MAIOR NUMERO = ";UL:VTAB 19:HTAB 7:INPUT "MENOR NUMERO = ";LL:R=UL+1-LL
360 C=INT(RND(1)*R)+LL:B=INT(RND(1)*R)+LL
370 IF A$="+" THEN DEF FN A(X)=B+C:GOTO 430
780 IF A$="-" THEN DEF FN A(X)=B-C:GOTO 430
390 IF A$="*" THEN DEF FN A(X)=B*C:GOTO 430
400 IF A$="/" AND C=0 THEN 360
410 IF A$="/" AND INT(B/C) <> B/C THEN 360
420 IF A$="/" THEN DEF FN A(X)=B/C
430 HOME:VTAB 7:HTAB 8:PRINT "RESPOSTAS CORRETAS EM SEGUIDA: ";:INVERSE:PRINT D:NORMAL
440 E=FN A(X):VTAB 15:HTAB 15:PRINT B;" ";A$;" ";C;" = ";:INPUT F:IF F<> E THEN 480
450 HOME:C1=1:GOSUB 150
460 D=D+1:IF D=10 THEN 500:REM * FIM *
470 GOTO 360
480 HOME:C1=0:GOSUB 150
490 D=0:GOTO 430
500 REM * FIM DO JOGO (10 RESP.CERTAS)*
510 B=0:GOSUB 560
520 VTAB 22:HTAB 8:FLASH:PRINT "V O C E  C O N S E G U I U ! "
530 FOR I=1 TO 5:POKE 768,1:POKE 769,200-I*30:CALL 770:NEXT I:FOR I=1 TO 10:POKE 768,1:POKE 769,40+I*20:CALL 770:NEXT I
540 NORMAL:VTAB 24:HTAB 8:PRINT "QUER TENTAR NOVAMENTE ? (S/N)";:GET A$:IF A$="S" THEN TEXT:RUN
550 TEXT:HOME:HTAB 5:VTAB 8:PRINT "ATE LOGO !!!":END
560 POKE 230,32:CALL 62450:HGR:CALL -1994:GR
570 FOR J=1 TO 3
580 CL=0:L0=0:H1=19:S1=1:GOSUB 620
600 NEXT J
610 RETURN
620 FOR I=LO TO H1 STEP S1:COLOR = INT(RND(1)*CL):X1=19-I:X2=20+I:Y1=19-I:Y2=20+I
630 HLIN X1,X2 AT Y1:VLIN Y1+1,Y2 AT X2
640 HLIN X2-1,X1 AT Y2:VLIN Y2-1,Y1 AT X1
650 NEXT I
660 RETURN
670 REM **     ROTINA DE MUSICA      **
680 FOR I=770 TO 795:READ M:POKE I,M:NEXT I
690 DATA172,001,003,174,001,003,169,004,032,168,252,173,048,192,232,208,253,136,208,239,206,000,003,208,231,096
695 DATA"SOMAR","*","SUBTRAIR","-","MULTIPLICAR","*","DIVIDIR","/"
700 RETURN

