10  REM *********************
11  REM ***               ***
12  REM *** CONECTE CINCO *** 
13  REM ***               ***
14  REM ********************* 
20  GOSUB 1000: REM INSTRUCOES
30  GOSUB 2000: REM INICIO
40  GOSUB 3000: REM JOGO
50  GOSUB 4000: REM FIM
60  END
1000  REM  *** INTRUCOES ***
1010  TEXT : NORMAL : HOME 
1020  VTAB 3: HTAB 10: PRINT "*** CONECTE 5 ***
1030  VTAB 7: PRINT "O OBJETIVO DO JOGO E" COLOCAR 5 DAS SUAS PECAS EM UMA COLUNA, TANTO NA HORIZONTAL COMO NA VERTICAL "
1035  PRINT
1040  PRINT "OUANDO FOR SUA VEZ DE MOVER, ENTRE O NUMERO DA COLUNA OUE DESEJA OCUPAR COM SUA PECA"
1045  PRINT
1050  PRINT "APOS A SUA JOGADA, EU TEREI MINHA CHANCE. O PRIMEIRO OUE CONECTAR 5 SERA O VENCEDOR."
1060  VTAB 22: INPUT "TECLE <RETURN> PARA CONTINUAR:";RES$
1990  RETURN
2000  REM *** INICIO ***
2010  GR
2011  COLOR= 0
2012  FOR I= 0 TO 35
2013  HLIN 0,35 AT I
2014  NEXT
2015  COLOR= 15
2016  FOR I = 0 TO 35 STEP 5
2017  HLIN 0,35 AT I: VLIN 0,35 AT I
2018  NEXT I
2020  COLOR= 6
2021  VLIN 35,39 AT 3
2022  HLIN 2,4 AT 39
2023  PLOT 2,36
2024  HLIN 7,9 AT 35: HLIN 7,9 AT 37: HLIN 7,9 AT 39
2025  PLOT 9,36: PLOT 7,38
2030  HLIN 12,14 AT 35: HLIN 12,14 AT 37: HLIN 12,14 AT 39: PLOT 14,36: PLOT 14,38: HLIN 17,19 AT 37: VLIN 35,39 AT 19: VLIN 35,36 AT 17
2040  HLIN 22,24 AT 35: HLIN 22,24 AT 37: HLIN 22,24 AT 39: PLOT 22,36: PLOT 24,38: VLIN 27,29 AT 35: HLIN 27,29 AT 37: HLIN 27,29 AT 39
2050  PLOT 27,38: PLOT 29,38: PLOT 27,36: HLIN 32,34 AT 35: PLOT 34,36: VLIN 37,39 AT 33
2900  DEF EN C(X) = (X - 1) * 5 + 1
2910  DEF FN P(X) = (X - 1) * 5 + 9
2990  RETURN 
3000  REM ************************
3001  REM ************************
3010  HOME :PL = 1: INPUT "SUA JOGADA (COLUNA 1-7): ";RES$
3020  RES = VAL (RES$)
3021  IF RES < 1 OR RES > 7 OR RES <  >  INT (RES) THEN  HOME: PRINT "SELECIONE UM NUMERO ENTRE 1 E 7 :": FOR A = 1 TO 1000: NEXT A: GOTO 3010
3030 AX = FN C(RES)
3040  IF  SCRN( AX,1) <  > 0 THEN HOME : PRINT "ESTA COLUNA ESTA' CHEIA... ": FOR A = 1 TO 1000: NEXT A: GOTO 3010
3050  FOR J = 1 TO 7: COLOR= FN P(PL):JX = FN C(J): FOR K = JX TO JX +3: HLIN AX,AX + 3 AT K: NEXT K
3055  IF J = 7 THEN 3080
3060 LX = FN C(J + 1): IF SCRN(AX,LX) < > 0 THEN J = 7: GOTO 3080
3065  COLOR= 0
3070  FOR K = JX TO JX + 3: HLIN AX,AX + 3 AT K: NEXT K
3080  NEXT J
3090  FOR I = 1 TO 7: FOR J = 1 TO 3: FOR K = J TO J + 4:IX = FN C(I):KX = FN C(K)
3100  IF  SCRN( IX,KX) <  >  FN P (PL) THEN K = J + 4: NEXT K: GOTO 3110 
3105  NEXT K: RETURN
3110  NEXT J,I
3120  FOR J = 1 TO 7: FOR I = 1 TO 3: FOR K = I TO I + 4:KX = FN C(K):JX = FN C(J)
3130  IF SCRN( KX,JX) < > FN P (PL) THEN K = I + 4: NEXT K: GOTO 3140
3135  NEXT K: RETURN
3140  NEXT I,J
3150  IF PL = 2 THEN PL = 1: GOTO 3010
3160 PL = 2:RES = INT ( RND (1) * 7) + 1:AX = FN C(RES): IF SCRN(AX,1) < > 0 THEN 3160
3170  GOTO 3050
4000  REM ***************************** 
4001  REM ******  TUDO FEITO **********
4002  REM *****************************
4010  HOME : PRINT : PRINT "0 JOGO TERMINOU !!!": PRINT "O VENCEDOR E'...";
4020  IF PL = 1 THEN PRINT "VOCE !!!": RETURN
4030  PRINT "O COMPUTADOR !!!": RETURN 

