CLS
SCREEN 9
x = 80
y = 30
'drawing
j = 100
COLOR 1
FOR w = 1 TO 410
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 410
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
'shading
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 440
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 164
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 439
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
'drawing
x = 245
y = 165
FOR w = 1 TO 100
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
x = 325
y = 165
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 100
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 100
y = y - 1
FOR i = 1 TO j: NEXT i
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
FOR i = 1 TO j: NEXT i
NEXT w
x = 165
y = 215
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
FOR a = 1 TO j: NEXT a
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
FOR k = 1 TO 100: NEXT k
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
FOR k = 1 TO 100: NEXT k
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
FOR k = 1 TO 100: NEXT k
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
FOR k = 1 TO 100: NEXT k

NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
FOR k = 1 TO 100: NEXT k

NEXT w
COLOR 10
PAINT (100, 200), 1, 1
PAINT (400, 200), 1
PAINT (100, 155), 14, 1
PAINT (84, 27), 14, 1
PAINT (350, 155), 14, 1
PAINT (500, 35), 14, 1
PAINT (500, 200), 14, 1
PAINT (330, 100), 14, 1
PAINT (330, 250), 14, 1
PAINT (335, 260), 14, 1
PAINT (235, 260), 14, 1
PAINT (175, 250), 14, 1
PALETTE 9, 10
PALETTE 0, 6
PAINT (2, 2), 0, 1
LOCATE 23, 66
PRINT "JOsoft Presents"
SLEEP