'VOGAL OU CONSOANTE PARA LINHA APPLE
'Este logo, elaborado para dois ou mais participantes. vai empolgar toda a familia. 'Disputado em grupo, revela-se alegre passatempo e born exercicio de vocabulario. Para 'cada participante, o computador fornece sete letras, cabendo ao jogador escolher o 'numero de vogais e consoantes. Para tanto, antes de cada uma, deve digitar V ou C. Sua 'tarefa consiste, entao, em formar corn alas uma palavra no menor tempo possivel e 'utilizando o maxima de letras. No final, os pontos obtidos aparecem na tela.

10 REM***************************
12 REM*    PARA LINHA APPLE     *
14 REM*                         *
16 REM*   VOGAL OU CONSOANTE    *
18 REM***************************
20 HOME
25 GOSUB 2000
30 INPUT "NUMERO DE JOGADORES: ";NP
40 IF NP<1 THEN 20
50 DIM PO(NP),C$(7),WO$(20)
60 GOTO 1000
100 REM ** ESCOLHA DE LETRAS **
110 LE$=""
120 PRINT :PRINT "VEZ DO JOGADOR: "PL
130 PRINT :PRINT "V OU C ? F=FIM ":PRINT
140 FOR DU=1 TO 7
150 GET IN$:IF INX="" THEN 150
160 IF IN$="F" THEN HOME :END
170 IF IN$<:"V" AND IN$,,:"C" THEN 150•
180 CH$="AEIOU":IF INX="C" THEN CH$="B CDFGHJLMNPORSTVXZ"
190 C$=MID$(CH$,INT(RND(1)*LEN(CH$)+1) 1)
200 LES=LE$+C$:PRINT C$; 48 
210 NEXT DU
220 RETURN
300 REM ** ENTRADA DE LETRAS **
310 LE=0
320 PRINT :PRINT "TEMPO :"
330 FOR TI=45 TO 0 STEP -1
340 VTAB 3:HTAB 18:PRINT TI" "CHR$(7)
350 FOR DE=1 TO 55
360 IN=PEEK(-16384):IF IN<128 THEN 410
370 POKE -16368,0
380 IN$=CHR$(IN-128):VTAB 5:HTAB LE+1
385 IF IN$=CHR$(13) THEN RETURN
390 IF IN$>="A" AND IN$="Z" THEN PRINT IN$;:LE=LE+1:WO$(LE)=IN$:GOTO 410
400 IF IN$=CHR$(8) AND LE>0 THEN LE=LE-1:HTAB LE+1:PRINT " ";
410 NEXT DE,TI
420 PRINT CHR$(7)+CHR$(7)+CHR$(7)
430 RETURN
500 REM ** CALCULA PONTOS **
510 FOR C=1 TO 7
520 C$(C)=M1D$(LE$,C,1)
530 NEXT
540 FOR CO=1 TO LE
550 FOR C=1 TO 7
560 IF WO$(C0)=C$(C) THEN C$(C)="":GOTO 580
570 NEXT C:GOTO 600
580 NEXT CO
590 PO(PL)=PO(PL)+LE*TI
600 VTAB 7:HTAB 1
610 FOR P=1 TO NP
620 PRINT "JOGADOR "P": "PO(P)" PONTOS "
630 NEXT P
640 RETURN
1000 REM** PROGRAMA PRINCIPAL **
1010 FOR PL=1 TO NP
1020 GOSUB 100
1030 HOME :PRINT "FACA UMA PALAVRA A PARTIR DISTO: "LE$
1040 GOSUB 700
1050 GOSUB 500
1060 NEXT PL
1070 GOTO 1010
1080 END
2000 REM ** INSTRUCOES **
2010 HOME :PRINT TAB(11)"VOGAL OU CONSOANTE":PRINT :PRINT
2020 PRINT :PRINT "  O OBJETIVO DESTE JOGO E' CONSEGUIR"
2030 PRINT :PRINT "  CONSTRUIR PALAVRAS APARTIR DE LETRAS"
2040 PRINT :PRINT "  SORTEADAS PELO COMPUTADOR, TENDO O"
2050 PRINT :PRINT "  MAIOR NUMERO DE LETRAS E 0 MAIS RA-"
2060 PRINT :PRINT "  PIDO POSSIVEL."
2070 VTAB 22:PRINT "  QUALQUER TECLA PARA CONTINUAR ";
2080 GET A$:HOME
2090 RETURN

