'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                            
SCREEN 13
FOR n = 0 TO 63
   PALETTE n, n
NEXT

c = 32
cc = 1
h = 130
v = 80

DO
   IF h = 130 AND v > 118 THEN hh = 1: vv = 0
   IF h > 188 AND v = 119 THEN hh = 0: vv = -1
   IF h = 189 AND v < 81 THEN hh = -1: vv = 0
   IF h < 131 AND v = 80 THEN hh = 0: vv = 1
   IF c > 62 THEN cc = -2
   IF c < 0 THEN cc = 2
   c = c + cc
   h = h + hh
   v = v + vv
   LINE (160, 100)-(h, v), c
LOOP WHILE INKEY$ = ""