5 POKE53281,0:POKE53280,0
10 IFX=0THENX=1:LOAD"MF",8,1
15 C=54272:Z=40
20 POKE53272,19:PRINTCHR$(14)"[147]           [159][204][207][193][196][211][212][193][210] PRESENTS"CHR$(8)
25 L(0)=10:L(1)=8:L(2)=2:L(3)=9
30 FORI=0TO1
40 FORJ=0TO31
50 POKE1188+J+I*Z,128+K
55 POKE1339-J-I*Z,255-K:K=K+1
60 NEXT:NEXT:PRINT"[159]   "
80 FORJ=0TO3
82 FORI=0TO15
84 POKE1204+C+I+J*Z,L(J)
86 POKE1203+C-I+J*Z,L(J)
88 NEXT:NEXT
162 PRINT"[152]   [193][206] [201][206][211][208][197][195][212][207][210] [204][193] [205][207][210][212] [205][217][211]-[193][196][214][197][206][212][213][210][197]"
165 PRINT"[159]       [212]HIS PROGRAM IS NOT IN THE"
167 PRINT"     PUBLIC DOMAIN.  [208]LEASE RESPECT"
168 PRINT"          THE AUTHOR'S RIGHTS."
170 PRINT"     [195]OPYRIGHT 1988 BY [154][198][197][206][196][197][210] [212][213][195][203][197][210]"
300 PRINT"[144]LOAD"CHR$(34)"MO"CHR$(34)",8"
310 PRINT"[145][145][145][145]"
320 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
330 NEW