snoo.bas

RANDOMIZE TIMER
SCREEN 12
LINE (0, 0)-(640, 480), 7, BF
whoops:
outline% = INT(RND * 16)
IF outline% = 7 THEN GOTO whoops
CIRCLE (320, 240), 120, outline%, , , 0.6
oops:
fill% = INT(RND * 16)
IF fill% = outline% THEN GOTO oops
IF fill% = 7 THEN GOTO oops
PAINT (320, 240), fill%, outline%
CIRCLE (440, 240), 40, outline%
PAINT (460, 240), fill%, outline%
CIRCLE (200, 240), 40, outline%
PAINT (180, 240), fill%, outline%

'fix ears
LINE (200, 270)-(440, 210), fill%, BF


'mouth
LINE (260, 260)-(280, 280), outline%
LINE -(320, 300), outline%
LINE -(360, 280), outline%
LINE -(380, 260), outline%

'eyes
CIRCLE (280, 220), 20, outline%

CIRCLE (360, 220), 20, outline%

'antenna
c% = INT(RND * 80) + 280
r% = INT(RND * 80) + 60
LINE (320, 168)-(c%, r%)
row% = (INT(RND * 120)) + 40
column% = (INT(RND * 200) + 220)
LINE -(column%, row%)
CIRCLE (column%, row%), 20, outline%
PAINT (column% - 2, row% - 3), fill%, outline%

'words
PRINT "REDDIT!"

SLEEP