10 IFA=0THENA=1:LOAD"FM.S",8,8
20 POKE53280,0:POKE53281,0:GOSUB10000
30 PRINT"[147][154]     KOSKA OLEMME TUTKIMUKSISSAMME"
40 PRINT"     HUOMANNEET, ETTEI LEHTI"
50 PRINT"     MENESTY, ELLEI SIINA OLE NK."
60 PRINT"     PORNOA, TASSA SITA SITTEN ON.":FORX=1TO3500:NEXT:PRINT"[147]"
80 PRINT"  TAPAAMME NYT ENSI KERRAN FUCK-MANIN,"
90 PRINT"  JONKA SEIKKAILUJA TULEMME SEURAAMAAN"
100 PRINT"  LEHTEMME MUISSAKIN OSISSA.":FORX=1TO3500:NEXT
1010 PRINT"[147]":GP=53248:POKEGP+21,3
1020 POKE2040,230:POKE2041,231
1030 POKEGP+39,7:POKEGP+40,7
1040 POKEGP,100:POKEGP+2,148
1050 POKEGP+1,100:POKEGP+3,100
1060 POKEGP+29,3:POKEGP+23,3
1100 FORX=1TO150:NEXT:POKE2040,232:POKE2041,233
1200 FORX=1TO150:NEXT:POKE2040,230:POKE2041,231
1210 GETA$:IFA$<>""THENPOKEGP+21,0:POKE203,51
1220 PRINT"VALITETTAVASTI FUCK-MAN ON"
1230 PRINT"TALLA KERTAA ISKENYT RUOTSALAISEN,"
1240 PRINT"JOTEN TODELLA KIIHKEA KOHTAUS ESITETAAN"
1250 PRINT"VASTA ENSI NUMEROSSA...":GOTO1100
10000 PRINT"[147]"
10001 PRINT"[158]    [129] [154][146]  [158]    [129] [154][146]  [158]    [129] [154][146]  [158]  [129] [146]   [158] [129][160][146] [158]    [129] [154][146]  [158]  [129] ";
10002 PRINT"[158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]   [129] [146]  [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
10003 PRINT"[158] [129] [154][146]  [158] [129] [158][146]  [129] [154][146]  [158][160][129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158] [129] [146]  [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
10004 PRINT"[158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158]  [129] [146] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
10005 PRINT"[158]    [129] [158][146] [154] [158] [129][160][154][146]  [158] [129] [154][146] [158]    [129] [154][146]  [158] [129] [146] [158] [129] [146] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
10006 PRINT"[158] [129] [154][146]     [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [158] [129] [154][146]   [158] [129] [146] [158]  [129] [158] [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158]  [129] ";
10007 PRINT"[158] [129] [154][146]     [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [154][146] [158] [129] [154][146]  [158] [129] [146]  [158]   [129][160][154][146] [158] [129] [154][146]  [158] [129] [154][146] [158] [154] [158] ";
10008 PRINT" [129] [154][146]      [158]   [129] [154][146]  [158] [129] [154][146]  [158] [129] [154][146] [158] [129] [146]   [158]  [129] [154][146]  [158]   [129] [154][146]  [158]  [129] ";
10009 PRINT"[146]"SPC(11)"[156]                 [223][154]"
10010 PRINTSPC(11)"[156] [146]               [156]  [154]"
10011 PRINTSPC(11)"[156] [146] [154]FUCK-MAN 1986 [156] [160]"
10012 PRINTSPC(11)"[156] [146] [154]              [156] [160][154]"
10013 PRINTSPC(11)"[156] [146] [154]  PRESENTS   [156]  [160][154]"
10014 PRINTSPC(11)"[156] [146] [156]               [160][154]"
10015 PRINTSPC(11)"[156]                  [154]"
10016 PRINTSPC(11)"[223]                 [154]"
10017 GETA$:IFA$=""THEN10017
10018 RETURN