100 REM *******************************
110 REM *     PARA LINHA APPLE        *
120 REM *                             *
130 REM *         TUDO ZERO           *
140 REM *******************************
150 IL$="QWEASDZXC"
160 DIM B(2,2)
170 GOSUB 870
180 GOTO 730
190 REM ** TELA **
200 HOME
210 PRINT SPC(15)"TUDO ZERO"
220 VTAB (4)
230 PRINT SPC(10)"/-----*-----*-----"CHR$(92)
240 PRINT SPC(10)"I     I     I     I"
250 PRINT SPC(10)"I     I     I     I"
260 PRINT SPC(10)"I     I     I     I"
270 PRINT SPC(10)"*-----*-----*-----*"
280 PRINT SPC(10)"I     I     I     I"
290 PRINT SPC(10)"I     I     I     I"
300 PRINT SPC(10)"I     I     I     I"
310 PRINT SPC(10)"*-----*-----*-----*"
320 PRINT SPC(10)"I     I     I     I"
330 PRINT SPC(10)"I     I     I     I"
340 PRINT SPC(10)"I     I     I     I"
350 PRINT SPC(10)CHR$(92)"-----I-----I-----/"
360 FOR R=0 TO 2
370 FOR C=0 TO 2
380 VTAB 5+4*R:HTAB 12+6*C
390 PRINT MID$(IL$,3*R+C+1,1)
400 NEXT C,R
410 GOSUB 640
420 RETURN
430 REM ** ENTRADA DE INSTRUCOES **
440 X=PEEK(-16384):REM TECLA
450 IF X<128 THEN 440
460 POKE —16368,0:REM RESET
470 IN=0
480 FOR I=1 TO 9
490 IF CHR$(X-128)=MID$(IL$,I,1) THEN IN=I
500 NEXT I
510 IF IN=0 THEN 440
520 RETURN
530 REM ** MOVIMENTO **
540 R=INT((IN-1)/3)
550 C=IN-3*R-1
560 FOR I=0 TO 2
570 IF B(R,I)=6 THEN B(R,I)=0
580 B(I,C)=B(I,C)+1
590 IF B(I,C)=6 THEN B(I,C)=0
600 NEXT I
610 B(R,C)=B(R,C)-1
620 IF B(R,C)=-1 THEN B(R,C)=5
630 RETURN
640 REM ** SAIDA **
650 NZ=0
660 FOR R=0 TO 2
670 FOR C=0 TO 2
680 VTAB 6+4*R:HTAB 14+6*C
690 PRINT B(R,C);
700 NZ-NZ+(B(R,C)=0)
710 NEXT C,R
720 RETURN
730 REM ** PROGRAMA PRINCIPAL **
740 FOR TI=1 TO 9
750 IN=INI(RND(1)*9+1)
760 GOSUB 530
770 NEXT
780 GOSUB 190
790 GOSUB 430
800 GOSUB 530
810 NM-NM+1
820 GOSUB 640
830 IF NZ<9 THEN 790
840 VTAB 20:HTAB 8
850 PRINT "CONSEGUIU EM "NM" MOVIMENTOS !"
860 END
870 REM ** INSTRUCOES **
880 HOME :VTAB 2:HTAB 15:PRINT "TUDO ZERO"
890 VTAB 10:PRINT "DESEJA INSTRUCOES (S/N) ";
900 GET A$:IF A$<>"S" THEN RETURN
910 PRINT
920 VTAB 6:PRINT "0 OBJETIVO DESTE JOGO E' CONSEGUIR FA—"
930 PRINT "ZER COM QUE TODAS AS COLUNAS DE UM QUA-"
940 PRINT "DADO  CONTENHAM ZEROS.
950 PRINT :PRINT "CADA COLUNA CONTEM TRES LETRAS REPRESEN-"
960 PRINT "TANDO  CADA LOCAL NESTA.  VOCE TERA QUE"
970 PRINT "DIGITAR  A LETRA CORRESPONDENTE A CELULA "
980 PRINT "DA COLUNA QUE SE DESEJA MOVIMENTAR MENOS"
990 VTAB 23:PRINT "QUALQUER TECLA PARA CONTINUAR ";
1000 GET A$:PRINT :RETURN

