SCREEN 13
LOCATE 24, 5
COLOR 255
PALETTE 255, 63 * 65536 + 63 * 256 + 63
PRINT "Are ya ready?  Here we go....";
SOUND 300, 1
SOUND 700, 2
VIEW SCREEN (0, 0)-(319, 179)
READ scr$
linen = 1
linep = 1

'OUT 968, 0
'FOR i = 1 TO 765
'OUT 969, 0
'NEXT i

OUT 968, 12
OUT 969, 63
OUT 969, 0
OUT 969, 0
OUT 968, 9
OUT 969, 0
OUT 969, 0
OUT 969, 63

n = 0
x = 5
FOR i = 200 TO 40 STEP -1
n = n + 1
IF n = 6 THEN n = 1
x = x / 1.003
FOR j = 1 TO 10
CIRCLE (160, i), x, n, , , .5
x = x * 1.003
NEXT j
NEXT i

VIEW SCREEN (0, 0)-(319, 199)

DIM c(265)
FOR i = 1 TO 6
c(i) = i * (63 / 6)
NEXT i
FOR i = 7 TO 256
c(i) = 0
NEXT i

FOR i = 1 TO 49
CIRCLE (160 + i - i, 70 + i - i), i, 200 - i
CIRCLE (160 + i - i, 71 + i - i), i, 200 - i
CIRCLE (160 + i - i, 72 + i - i), i, 200 - i
NEXT i

LINE (0, 0)-(320, 10), 0, BF

LOCATE 1, 32
COLOR 1
PRINT "GmonkeY"
SOUND 1000, 2
FOR i = 248 TO 320
FOR j = 0 TO 10
IF POINT(i, j) > 0 THEN LINE ((i - 196) * 2, j * 2 + 50)-((i - 196) * 2 + 2, j * 2 + 52), 15, BF
NEXT j
NEXT i

FOR i = 100 TO 220
FOR j = 49 TO 75
IF POINT(i, j) = 15 THEN GOTO skip2j
IF POINT(i + 1, j + 1) = 15 THEN PSET (i, j), 50
IF POINT(i, j + 1) = 15 OR POINT(i + 1, j) = 15 THEN PSET (i, j), 49
IF POINT(i - 1, j + 1) = 15 OR POINT(i + 1, j - 1) = 15 THEN PSET (i, j), 48
IF POINT(i, j - 1) = 15 OR POINT(i - 1, j) = 15 THEN PSET (i, j), 47
IF POINT(i - 1, j - 1) = 15 THEN PSET (i, j), 46
skip2j:
NEXT j
NEXT i
FOR i = 100 TO 220
FOR j = 49 TO 75
IF POINT(i, j) = 15 THEN PSET (i, j), 32 - (j - 49)
NEXT j
NEXT i

FOR i = 1 TO 5
n = i * 12
c = n * 65536 + n * 256 + n
PALETTE i + 45, c
NEXT i

LINE (0, 0)-(320, 10), 0, BF

FOR i = 1 TO 50
r = i + 13
G = i - 1
c = G * 256 + r
PALETTE i + 150, c
NEXT i

FOR i = 0 TO 15
c = i * 4
n = c * 65536 + c * 256 + c
PALETTE i + 16, n
NEXT i

LOCATE 1, 12
COLOR 255
PRINT "HA! HA! HA! HA! HA!"
DIM ass(200, 8)
GET (50, 0)-(250, 8), ass
LINE (50, 0)-(250, 8), 0, BF
ax = 0
av = 0

DIM text(312 * 8)

DO
OUT 968, 1
FOR j = 1 TO 5
OUT 969, c(j)
OUT 969, 0
OUT 969, 0
NEXT j

PUT (ax, 0), ass, PSET
ax = ax + av
IF ax < 50 THEN av = av + 1 ELSE av = av - 1

b = c(5)
FOR j = 5 TO 2 STEP -1
c(j) = c(j - 1)
NEXT j
c(1) = b

z = TIMER * 100
DO
LOOP WHILE TIMER * 100 - z < 1

tm = tm + 1
IF tm < 3 THEN GOTO skip2l
GET (16, 180)-(311, 199), text
PUT (8, 180), text, PSET
LOCATE 24, 39
DO
at$ = MID$(scr$, linep, 1)
linep = linep + 1
IF linep > LEN(scr$) THEN
 linep = 1
 linen = linen + 1
 IF linen > 16 THEN : linen = 1: RESTORE
 
END IF
IF sl > ln THEN sl = 1
IF at$ = "*" THEN clr = 1
IF at$ = "@" THEN clr = 2
IF at$ = "#" THEN clr = 3
IF at$ = "$" THEN clr = 4
IF at$ = "%" THEN clr = 12
IF at$ = "^" THEN clr = 9
IF at$ = "&" THEN clr = 255
LOOP WHILE INSTR("*@#$%^&", at$) > 0
COLOR clr
PRINT at$;
tm = 1
skip2l:
LOOP WHILE OFFKEY$ = ""
CLS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 'If you are reading this, we told you about it!!!

DATA "  *H@e#l$l*o@,# $p*e@o#p$l*e$!  &It's me, %the cool man &, *G@m#o$n*k@e#Y ! &I am so ^sorry, but this is a really big unstopable %VIRUS!!  &I can do @ANYTHING I WANT&!!!  *R@E#D* F@A#D$I*N@G&...  and of course the standard %NEAT &and ^AMAZING blue. ^YOU, MY FRIEND ARE SCREWED!!!%  HA&:)% HA& :)% HA& :) %HA&:) %HA& :)% ^HAHHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHA!!!!!! "
END