CLS
SCREEN 9

CLS
LOCATE 10, 15: PRINT " ####    ##   ##   ######   ######   ######   ##"
LOCATE 11, 15: PRINT "##  ##   ##   ##   ##       ##       ##       ##"
LOCATE 12, 15: PRINT "##       ##   ##   ######   ######   ######   ##"
LOCATE 13, 15: PRINT "##  ##   ##   ##   ##           ##       ##     "
LOCATE 14, 15: PRINT " #####    #####    ######   ######   ######   ##"

    DIM box(1 TO 10000)
    x = 0: y = 0
    GET (111, 125)-(496, 196), box
    DO
        PUT (x, y), box, XOR
       
IF f = 2 THEN GOSUB 2

x = x + 3

LOCATE 10, 1
PRINT x, y
      IF x > 200 THEN f = 2
        PUT (x1, y1), box
    LINE (0, 0)-(640, 380), 0, BF
   
    LOOP WHILE INKEY$ = ""


2
x = x - 3
IF x < 5 THEN GOSUB 4
RETURN
4
f = 1
RETURN