1 RESTORE:C=12288:B=0:V=53248:J=56320:L=0:D=56320
2 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB5000
10 READA:POKEC+B,A:B=B+1:IFB=63THEN50
40 GOTO 10
50 FORX=12352TO12414:POKEX,255:NEXT
100 DATA0,255,0,1,0,128,2,126,64,4,129,32,9,0,144,18,0,72,36,0,36
110 DATA72,243,146,145,2,73,162,2,37,162,2,37,162,122,37,162,10,69,162
120 DATA11,133,161,10,5,144,242,9,72,0,18,36,0,36,19,255,200,8,0,16
130 DATA 7,255,224,0,182,9
500 POKEV+21,3:POKE2040,192:POKEV+39,14:POKEV,170:POKEV+1,140:POKE2041,193:POKEV+40,1
570 POKEV+2,157:POKEV+3,140:POKEV+29,2:POKEV+23,0:POKEV+28,0:GOSUB1000
590 A=PEEK(D):IFA=119THEN600
592 IFA=123THEN600
595 GOTO590
600 IFA1<>ATHENPOKE12352+Q,0:Q=Q+1:GOTO620
610 GOTO590
620 A1=A:IFA1=119THENPOKEV,PEEK(V)+5
640 IFA1=123THENPOKEV,PEEK(V)-5
650 IFPEEK(V+30)=0THENPOKEV,170
660 IFPEEK(12414)=0THEN2000
670 GOTO 590
1000 B1=PEEK(704):B2=PEEK(705):B3=PEEK(706):IFB1<48ORB1>57THENPOKE203,51:NEW
1100 POKE 1521,B1:POKE1523,B2:POKE1525,B3:RETURN
2000 POKEV+21,0:FORI=0TO9999:NEXT:POKE203,51
5000 PRINT"[147][154]":FORX=0TO10:POKE646,X
5010 PRINT"[147]GURLAUSPOMMIN RAAPUTUS":NEXT
5040 PRINT"[154]  KOHTA RUUTUUSI ILMESTYY RAAPUTUSPINTA"
5050 PRINT"JOTA VOIT HAVITTAA LYKKAAMALLA"
5060 PRINT"ILOTIKKUSI PORTTIIN 2 JA LIIKUTTELE-"
5070 PRINT"MALLA SITA EES SUN TAAS..."
5080 PRINT" JOS SAAT 3 (KOLME) SAMAA NUMEROA"
5090 PRINT"NAKYVIIN, KIRJOITA MARKO JERRMANNILLE"
5100 PRINT"(OSOITE MAINITTU MUUALLA) JA ILMOITA"
5110 PRINT"HANELLE SAAMASI NUMEROT.":FORI=0TO2
5120 FORX=0TO255:POKE646,X
5130 PRINT"PAAPALKINTONA":NEXT:NEXT
5160 FORX=1TO500:NEXT:PRINT"[147][154]"
5170 PRINT"SEUTULIPPU":FORX=0TO2500:NEXT
5190 PRINT" SAAT LUNASTAA LIPUN TOIMITTAJIEMME"
5200 PRINT"LASNAOLLESSA MILLOIN TAHANSA SE HEILLE":PRINT"SOPII..."
5220 PRINT"ONNEA. MUISTA! JOS VOITAT, ON SINULLA"
5225 PRINT"VIIKKO AIKAA VIEDA KIRJE":PRINT"POSTIIN..."
5240 FORX=0TO7000:NEXT:PRINT"[147]":RETURN