0 IFL=0THEN6
1 PRINT"               KUUNTELE!               "
2 POKE214,L+5:PRINT:PRINT""N$(L)
3 SYS32787
4 IFPEEK(788)=255THEN4
5 GOTO25
6 POKE53280,2:POKE53281,15:PRINT"[147][142]"
7 DIMN$(14),L$(14)
8 FORX=1TO14:READL$(X),N$(X)
9 IFN$(X)="-"THENN$(X)=L$(X)
10 NEXT
11 DATA"ENKELI TAIVAAN",-
12 DATA"JOULUN KELLOT",-
13 DATA"JOULUPUKKI JOULU","JOULUPUKKI, JOULUPUKKI"
14 DATA"JOULUPUU ON RAKENNETTU",-
15 DATA"JOULUY\ JUHLAY\","JOULUY\, JUHLAY\"
16 DATA"KILISEE KILISEE ","KILISEE, KILISEE KULKUNEN"
17 DATA"KULKUSET",-
18 DATA"MAA ON NIIN KAUNIS",-
19 DATA"NO ONKOS TULLUT KES[",-
20 DATA"PORSAITA [IDIN",-
21 DATA"SYLVIAN JOULULAULU",-
22 DATA"TONTTUJEN JOULUY\",-
23 DATA"VALKEA JOULU",-
24 DATA"VARPUNEN JOULUAAMUNA",-
25 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][146]";
26 PRINT"       FLOPPIKSEN  JOULULAULUMENU
27 [153]"       --------------------------
28 PRINT"      ERE LIEVONEN  15.-17.11.1986
29 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
30 [153]" VALITSE PAINAMALLA  KYSEIST[ N[PP[INT[
31 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":POKE1303,64:POKE55575,2
32 FORX=1TO14:PRINTSPC(6)CHR$(64+X)") "N$(X):NEXT
33 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
34 PRINT"     P) K[YNNIST[ JOULULAULUPOTKURI
35 [153]"               Q) LOPETA            "
36 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREWAIT";:[151]2023,248:[151]56295,2
37 [146]198,1:[161]X$:[139]X$[179]"A"[176]X$[178]"O"[176]X$[177]"Q"[167]37
38 [139]X$[178]"P"[167]44
39 [139]X$[178]"Q"[167][153]"LOAD":[128]
40 [139]X$[178]S$[167]1
41 [153]"          LATAAN JOULULAULUA...        "
42 S$[178]X$:L[178][198](X$)[171]64:[147]L$(L),8,1
43 [128]
44 [153]"LOAD      LATAAN JOULULAULUPOTKURIA...":[147]"POTKURI",8