' *********** CHECK README.1ST FIRST *********************

SCREEN 13

  b = 63

  FOR i = 1 TO 104
    b = b + 1
    OUT (&H3C8), i
    OUT (&H3C9), 0
    OUT (&H3C9), b / 2
    OUT (&H3C9), 0
  NEXT i

  col = 1

 x1 = 0: x2 = 319
 y1 = 0: y2 = 199

 FOR i = 1 TO 320
   x1 = x1 + 1   'öööööööö
   x2 = x2 - 1
   col = col + 1
   IF col > 104 THEN col = 1
   LINE (x1, y1)-(x2, y2), col
 NEXT i

 FOR i = 1 TO 200
   y1 = y1 + 1
   y2 = y2 - 1
   col = col + 1
   IF col > 104 THEN col = 1
   LINE (x1, y1)-(x2, y2), col
 NEXT i
 dd = 1

DO
 z$ = INKEY$
 IF INP(&H60) = 75 THEN dd = dd - .1
 IF INP(&H60) = 77 THEN dd = dd + .1
 d = d + dd
 IF d > 51 THEN d = 0
 r = d
 FOR i = 1 TO 104
  r = r + 1
  IF r > 51 THEN r = 0
  OUT (&H3C8), i
  OUT (&H3C9), 0
  OUT (&H3C9), r
  OUT (&H3C9), 0
 NEXT i
LOOP UNTIL INP(&H60) = 1