CLS
SCREEN 12
X = 310
Y = 180
CLS

FOR i = 1 TO 70
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 40
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 20
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 20
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 60
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 50
X = X - 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 60
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 20
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 30
Y = Y - 1
NEXT i
FOR i = 1 TO 20
X = X + 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 110
Y = Y + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 60
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 20
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 20
Y = Y - 1
NEXT i
FOR i = 1 TO 30
X = X - 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 20
Y = Y - 1
NEXT i
FOR i = 1 TO 40
X = X + 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X + 1
NEXT i
FOR i = 1 TO 70
PSET (X, Y)
Y = Y - 1
NEXT i
FOR i = 1 TO 10
PSET (X, Y)
X = X - 1
NEXT i
FOR i = 1 TO 30
PSET (X, Y)
Y = Y + 1
NEXT i
FOR i = 1 TO 20
PSET (X, Y)
X = X - 1
NEXT i
PAINT (X + 2, Y + 2), 2, 15
PAINT (X - 6, Y - 6), 4, 15
PAINT (X - 25, Y - 25), 1, 15
PAINT (X - 15, Y - 15), 14, 15


PALETTE 15, 12