SCREEN 13
LOCATE 24, 5
COLOR 255
PALETTE 255, 63 * 65536 + 63 * 256 + 63
PRINT " PLEASE WAIT - INITIALIZING ";
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
 FOR a = 1 TO 62
	FOR c = 0 TO 255
	 OUT &H3C7, c: r = INP(&H3C9): g = INP(&H3C9): b = INP(&H3C9)
	 IF r > 0 THEN r = r - 1
	 IF g > 0 THEN g = g - 1
	 IF b > 0 THEN b = b - 1
	 OUT &H3C8, c: OUT &H3C9, r: OUT &H3C9, g: OUT &H3C9, b
	NEXT c
	WAIT &H3DA, 8
	NEXT a
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
NEXT I

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

LOCATE 1, 32
COLOR 1
PRINT "SCHULTZ"
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 9
PRINT "TRAVIS"
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 INKEY$ = ""
CLS
																																	                                                                                                                                                                                                                                                               
																																	                                                                                                                                                                                                                                                               
																																	                                                                                                                                                                                                                                                               
																					'If you are reading this, we told you about it!!!

DATA "  *P@R#O$G*R@A#M$E*D@ *B$Y* $M*Y"