10 REM*******************************
12 REM*      PARA LINHA APPLE       *
14 REM*                             *
16 REM*         PAPAGAIO            *
18 REM*******************************
19 GOSUB 700
20 DIM X(11),Y(11),A(11),C0$(9)
30 HOME :HGR :HCOLOR=3
40 FOR I=0 TO 10
50 READ X(I),Y(I),A(I)
60 NEXT
70 FOR I=1 TO 9:READ CO$(I):NEXT
100 REM ** DESENHA PAPAGAIO **
110 HPLOT X(0),Y(0)
120 FOR I=1 TO 9
130 X1=X(I-1):X2=X(I):A=A(I)
140 Y1=Y(I-1):Y2=Y(I)
150 FOR X=X1 TO X2 STEP SGN(X2—X1)
160 Y=(((X—X1)/(X2—X1))^A)*(Y2—Y1)+Y1
170 HPLOT TO X,Y
180 NEXT X
190 NEXT I
200 FOR R=3 TO 4
210 FOR A=0 TO 6.28 STEP .2
220 X=X(10)+R*SIN(A):Y=Y(10)—R*COS(A)
230 HPLOT X,Y
240 NEXT A
250 NEXT R
500 REM ** PROGRAMA PRINCIPAL **
505 HOME
510 VTAB (23):PRINT "     ESTA PRONTO ?";
520 GET A$:PRINT :PRINT
530 Q$=CHR$(65+INT(RND(1)*26)):PRINT Q$" ";
540 TI=TI+I:IF TI>350 THEN 600
550 IN=PEEK(-16384):IF IN<128 THEN 540
560 POKE 16368,0
570 IF CHR$(IN-128)<>Q$ THEN 540
580 RS=RS+I:GOTO 530
600 PRINT :PRINT "RESULTADO: "RS
610 IF RS>18 THEN RS=18
620 PRINT CO$(INT(RS/2+.5))
630 FOR I=1 TO 1500:NEXT
640 PRINT "DE NOVO ? (S/N) ";
650 POKE -16368,0
660 GET A$:IF A$="" THEN 650
670 IF LEFT$(A$,1)<>"S" THEN TEXT :HOME :END
680 RS=0:TI=0:GOTO 500
700 HOME :PRINT TAB(16)"PAPAGAIO"
710 PRINT :PRINT "0 OBJETIVO DESTE JOGO MEDIR SEUS REFLE-"
720 PRINT :PRINT "XOS, TENTANDO REPETIR AS LETRAS SORTE-"
730 PRINT :PRINT "ADAS PELO COMPUTADOR O MAIS RAPIDO POS-"
740 PRINT :PRINT "SIVEL."
750 PRINT :PRINT " DIGITE QUALOUER TECLA PARA CONTINUAR";
760 GET AS:RETURN
999 REM ** DADOS PARA GRAFICO **
1000 DATA 95,130,0,90,110,1.5,75,115,.15,90,100,1.5,60,125,2.5,80,70,.25,100,50,.4,130,75,4,115,110,.4,110,130,1.5,90,68,0
1030 DATA     "BEM RUIM","AINDA NAO","MAL !!!","VOCE ESTA APRENDENDO"
1040 DATA "QUASE LA'","MUITO BEM","EXCELENTE","FANTASTICO","VOCE E' 0 MAXIMO"

