'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                      
SCREEN 12

WHILE INKEY$ = ""

   CLS
   FOR i = 0 TO 160
      FOR p = 30 TO 480 STEP 30
         LINE (640, (i * 3))-(0, p), 16 - (p / 30)
      NEXT
   NEXT
   CLS
   FOR i = 0 TO 160
      FOR p = 30 TO 480 STEP 30
         LINE (0, (i * 3))-(640, p), 16 - (p / 30)
      NEXT
   NEXT
  
WEND