'Generador de un reloj digital en pantalla'
DEFINT A-Z

DIM SHARED P(6), A, veces
DIM OldX1(130), OldY1(130), OldX2(130), OldY2(130), OldX3(130), OldY3(130), OldX4(130), OldY4(130), OldX5(130), OldY5(130), OldTipo(100), OldX6(100), OldY6(100), Pt(16)
RANDOMIZE TIMER

X(1) = 400: Y(1) = 175
X(2) = 400: Y(2) = 175
X(3) = 400: Y(3) = 175
X(4) = 400: Y(4) = 175
X(5) = 400: Y(5) = 175
X(6) = 400: Y(5) = 175

Pt(1) = 1
Pt(2) = 1
Pt(3) = 1
Pt(4) = 1
Pt(5) = 1
Pt(6) = 1

mir$ = "Lineas ( Jos‚ David Guill‚n 15/04/94 )"
IF MID$(mir$, 13, 1) <> "‚" THEN PRINT " Programa modificado 1": GOTO errormo
IF MID$(mir$, 26, 1) <> "‚" THEN PRINT " Programa modificado 2": GOTO errormo

P(1) = 0
P(2) = 80
P(3) = 200
P(4) = 280
 
P(5) = 400
P(6) = 440

P(1) = 0
P(2) = 75
P(3) = 195
P(4) = 275

P(5) = 395
P(6) = 435


SCREEN 9

'***************************************************
'* GRAFICO LINEAL **********************************
'***************************************************
Coor = 1

DO
salida = 0

'IF Pt(4) = 1 THEN M(4) = INT(RND * 8) + 1
IF Pt(3) = 1 THEN M(3) = INT(RND * 8) + 1
IF Pt(2) = 1 THEN M(2) = INT(RND * 8) + 1
IF Pt(5) = 1 THEN M(5) = INT(RND * 8) + 1
IF Pt(6) = 1 THEN M(5) = INT(RND * 8) + 1
IF Pt(1) = 1 THEN M(1) = INT(RND * 8) + 1
Pt(1) = 0
Pt(2) = 0
Pt(3) = 0
Pt(4) = 0
Pt(5) = 0
Pt(6) = 0


qwert = qwert + 1
IF qwert = 7 THEN qwert = 1
IF Cont = 1 THEN M(6) = INT(RND * 7) + 1: M(6) = M(qwert)

DO

Vez = Vez + 1
Vz = Vz + 1
    
IF Vz >= 30 THEN Vz = 1
      
IF Vez >= 30 THEN Vez = 1

FOR Coor = 1 TO 6

SELECT CASE M(Coor)
        CASE 1: IF Coor <> 6 THEN X(Coor) = X(Coor) - 1: Y(Coor) = Y(Coor) - 1 ELSE X(Coor) = X(Coor) - 1: Y(Coor) = Y(Coor) - 1
        CASE 2: IF Coor <> 6 THEN Y(Coor) = Y(Coor) - 1 ELSE Y(Coor) = Y(Coor) - 1
        CASE 3: IF Coor <> 6 THEN X(Coor) = X(Coor) + 1: Y(Coor) = Y(Coor) - 1 ELSE X(Coor) = X(Coor) + 1: Y(Coor) = Y(Coor) - 1
        CASE 4: IF Coor <> 6 THEN X(Coor) = X(Coor) - 1 ELSE X(Coor) = X(Coor) - 1
        CASE 5: M(Coor) = INT(RND * 8) + 1
        CASE 6: IF Coor <> 6 THEN Y(Coor) = Y(Coor) + 1 ELSE Y(Coor) = Y(Coor) + 1
        CASE 7: IF Coor <> 6 THEN X(Coor) = X(Coor) - 1: Y(Coor) = Y(Coor) + 1 ELSE X(Coor) = X(Coor) - 1: Y(Coor) = Y(Coor) + 1
        CASE 8: IF Coor <> 6 THEN X(Coor) = X(Coor) + 1 ELSE X(Coor) = X(Coor) + 1
        CASE 9: IF Coor <> 6 THEN X(Coor) = X(Coor) + 1: Y(Coor) = Y(Coor) + 1 ELSE X(Coor) = X(Coor) + 1: Y(Coor) = Y(Coor) + 1
END SELECT
Cont = 0

        IF X(Coor) >= 640 THEN
                X(Coor) = 640:  M(Coor) = INT(RND * 11) - 2
        END IF
        IF X(Coor) <= 0 THEN
                X(Coor) = 0: M(Coor) = INT(RND * 8) + 1
        END IF
        IF Y(Coor) >= 350 THEN
                Y(Coor) = 350: M(Coor) = INT(RND * 10) - 1
        END IF
        IF Y(Coor) <= 0 THEN
                Y(Coor) = 0: M(Coor) = INT(RND * 10) - 1
        END IF

OldX1(1) = X(1)
OldX2(1) = X(2)
OldX3(1) = X(3)

OldX4(1) = X(4)
OldX5(1) = X(5)
OldX6(1) = X(6)
OldY1(1) = Y(1)
OldY2(1) = Y(2)
OldY3(1) = Y(3)

OldY4(1) = Y(4)
OldY5(1) = Y(5)
OldY6(1) = Y(6)
NEXT

IF RIGHT$(RTRIM$(LTRIM$(STR$(Vez / 5))), 1) = "0" OR RIGHT$(RTRIM$(LTRIM$(STR$(Vez / 5))), 1) = "5" THEN Vez1 = Vez1 + 1
IF Vez1 >= 16 THEN Vez1 = 1


IF RIGHT$(RTRIM$(LTRIM$(STR$(Vz / 2))), 1) = "0" OR RIGHT$(RTRIM$(LTRIM$(STR$(Vz / 5))), 1) = "5" THEN Vz1 = Vz1 + 1
IF Vz1 >= 16 THEN Vz1 = 1


'LINE (X(1), Y(1))-(X(2), Y(2)), Vez1
'LINE (X(2), Y(2))-(X(3), Y(3)), Vez1
'LINE (X(3), Y(3))-(X(4), Y(4)), Vez1
'                                  
'LINE (X(4), Y(4))-(X(5), Y(5)), Vez1
'LINE (X(5), Y(5))-(X(1), Y(1)), Vez1

CIRCLE (X(1), Y(1)), 5, Vz1: ', , , Tipo
CIRCLE (X(2), Y(2)), 5, Vz1: ', , , Tipo
CIRCLE (X(3), Y(3)), 5, Vz1: ', , , Tipo
CIRCLE (X(4), Y(4)), 5, Vz1: ', , , Tipo
CIRCLE (X(5), Y(5)), 5, Vz1: ', , , Tipo
CIRCLE (X(6), Y(6)), 5, Vz1: ', , , Tipo

        d = 70
        A = d + 1
     
        WHILE A >= 2
         A = A - 1
            OldX1(A) = OldX1(A - 1)
            OldY1(A) = OldY1(A - 1)
            OldX2(A) = OldX2(A - 1)
            OldY2(A) = OldY2(A - 1)
            OldX3(A) = OldX3(A - 1)
            OldY3(A) = OldY3(A - 1)
            OldX4(A) = OldX4(A - 1)
            OldY4(A) = OldY4(A - 1)
            OldX5(A) = OldX5(A - 1)
            OldY5(A) = OldY5(A - 1)
            OldX6(A) = OldX6(A - 1)
            OldY6(A) = OldY6(A - 1)

            OldTipo(A) = OldTipo(A - 1)
        WEND

CIRCLE (OldX1(d), OldY1(d)), 5, 0
CIRCLE (OldX2(d), OldY2(d)), 5, 0
CIRCLE (OldX3(d), OldY3(d)), 5, 0
CIRCLE (OldX4(d), OldY4(d)), 5, 0
CIRCLE (OldX5(d), OldY5(d)), 5, 0
CIRCLE (OldX6(d), OldY6(d)), 5, 0
    '
    '     
    '
    '         LINE (OldX1(d), OldY1(d))-(OldX2(d), OldY2(d)), 0
    '         LINE (OldX2(d), OldY2(d))-(OldX3(d), OldY3(d)), 0
    '         LINE (OldX3(d), OldY3(d))-(OldX4(d), OldY4(d)), 0
    '     
    '         LINE (OldX4(d), OldY4(d))-(OldX5(d), OldY5(d)), 0
    '         LINE (OldX5(d), OldY5(d))-(OldX1(d), OldY1(d)), 0

LOOP WHILE salida <> 1

salida = 0

LOOP



'***************************************************
'* GRAFICOS DE PRUEBA ******************************
'***************************************************

errormo:
CLS
COLOR 15, 0
PRINT "         ATENCION !!!    PELIGRO !!!!": PRINT : PRINT
PRINT " Alguien modifico ilegalmente el programa tratando de apropiarse de": PRINT
PRINT " los creditos ajenos a ‚l. Su autor a protegido el sistema por ello": PRINT
PRINT " ya que ha intentado modificar este programa causara estragos en tu": PRINT
PRINT " sistema....         LA PIRATERIA SERA TU MUERTE                   ": PRINT
PRINT : PRINT : PRINT " Desea regresar al Sistema Operativo DOS  o bloquear sistema :      "
PRINT "       (S)istema        (B)loquear         (S/B)"
'SHELL "Del. >nul"
SYSTEM
END

grap: