'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                TUNEL GIRATORIO 3D 256
SCREEN 13

c = 24
cc = 1
h = 0
v = 0

DO
   IF h = 0 AND v > 198 THEN hh = 1: vv = 0
   IF h > 318 AND v = 199 THEN hh = 0: vv = -1
   IF h = 319 AND v < 1 THEN hh = -1: vv = 0
   IF h < 1 AND v = 0 THEN hh = 0: vv = 1
   IF c > 30 THEN cc = -1
   IF c < 17 THEN cc = 1
   c = c + cc
   h = h + hh
   v = v + vv
   LINE (160, 100)-(h, v), c
LOOP WHILE INKEY$ = ""

FOR n = 0 TO 63
   PALETTE n, n
NEXT

c = 32
cc = 1
h = 0
v = 0

DO
   IF h = 0 AND v > 198 THEN hh = 1: vv = 0
   IF h > 318 AND v = 199 THEN hh = 0: vv = -1
   IF h = 319 AND v < 1 THEN hh = -1: vv = 0
   IF h < 1 AND v = 0 THEN hh = 0: vv = 1
   IF c > 62 THEN cc = -1
   IF c < 0 THEN cc = 1
   c = c + cc
   h = h + hh
   v = v + vv
   LINE (160, 100)-(h, v), c
LOOP WHILE INKEY$ = ""