1000 PRINTCHR$(147); :POKE53280,11:
1001 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  "
1002 FORC=11TO56:POKE646,C:POKE53281,11:::::::POKE53281,.
1003 PRINT"[164][164][164][164][164][175][175][175][175][175][185][185][185][185][185][162][162][162][162][163][163][162][162][162][162][185][185][185][185][185][175][175][175][175][175][164][164][164][164][164]";
1004 PRINT"[145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145]";
1005 PRINT"                    ";;:NEXTC
1006 FORC=6TO51:POKE646,C:PRINT"[157][157][145][157]";:POKE53281,.:::::::POKE53281,C
1007 PRINT"                    ";
1008 PRINT"[157][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145]";;"[157][157][157]";
1009 PRINT"  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] ";;;:NEXT
1010 FORC=1TO15:POKE646,C:
1011 FORI=30TO24STEP-.7
1012 A=(PEEK(53265)AND248)+(IAND7):POKE53265,A:POKE53281,.::::::::::POKE53281,I
1013 PRINT"[145]                                        ";:POKE53280,PEEK(53281)
1014 PRINT"[145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145] [145] [145]";;;:
1015 PRINT"[145] [145] [145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145]  ";;;
1016 PRINT"                     [157][157][157]";;;" [146]  [146]  [146]  [146]  [146]  ";
1017 PRINT"      [145][157][157][157][157][157][157]";;;:FORX=1TO25:NEXTX:NEXTI:NEXTC
1018 PRINT"[147]";:POKE56325,0:POKE53281,.:POKE53280,.:FORZ=0TO13
1019 PRINT"[144][164][164][164][164][156][175][175][175][175][175][175][175][185][185][185][185][129][185][185][185][158][162][162][162][153][162][162][154][162][162][162][162] [218] E N D E [218] [146] [145]";:
1020 NEXT:POKE646,PEEK(53281):POKE56325,58
1021 WAIT197,63:PRINTTAB(68)"[151]LUKIAN":
1022 FORZ=1TO1500:NEXT:SYS58253