T$="A"
O$="H"
M$="O"
A$="J"
S$="!"
FOR I=1 TO 3000
CLS
COLOR 14,1
SCREEN 0
LOCATE 2,23
PRINT T$
LOCATE 3,23
PRINT O$
LOCATE 4,23
PRINT M$
LOCATE 5,23
PRINT A$
LOCATE 6,23
PRINT S$

FOR D=1 TO 300
NEXT D
NEXT I
END