10 A=A+1:IFA=1THENLOAD"GP.SPRITE",8,8
100 C$="":V=53248:POKE2041,231:POKE2040,232:POKEV+39,14:POKEV+40,10
110 POKEV+23,3:POKEV+29,3:POKE53280,11:POKE53281,0:POKEV+37,7:POKEV+38,1
150 POKEV+28,0:GOSUB900:PRINT"  MIES ISTUU TUOLILLA. HAN ON JUURI SAA-"
160 PRINT"NUT TILAAMANSA [158]GURLAUSPOMMIN. HAN TILASI"
170 PRINT"[158]GP:N NAUTTIAKSEEN SEN JA NIIN HAN TEKEE-"
180 PRINT"KIN. (PAINA <F-1>)"
190 PRINTSPC(15)"[151][185][185][185][185][185][185][185][185][185]"
200 PRINTSPC(15)"[151][161]       [151][161]"
210 PRINTSPC(15)"[151][161]       [151][161]"
220 PRINTSPC(15)"[151][161]       [151][161]"
230 PRINTSPC(15)"[151][161][149][182]      [151][161]"
240 PRINTSPC(15)"[151][161][149][182]  [175][175][175][175][151][161]"
250 PRINTSPC(15)"[151][161][149][182][180]  [149][146][182][180] [151][161]"
260 PRINTSPC(15)"[151][161][149][182][183][208] [149][146][182][180][158] [151][161]"
270 PRINTSPC(15)"[151][161][149][182] [170] [149][146][182][180][158] [151][161]"
280 PRINTSPC(15)"[151][184][184][184][184][184][184][184][184][184]"
290 POKEV,150:POKEV+1,160:POKEV+2,150:POKEV+3,160:POKEV+21,3
300 GETA$:IFA$<>"[133]"THEN300
310 POKE2040,233:FORI=0TO99:NEXT:POKE2040,234:FORI=0TO500:NEXT:POKE2040,233
315 FORI=0TO99:NEXT
320 POKEV+23,1:POKEV+3,162:FORI=0TO70:NEXT:POKEV+29,1:POKEV+2,158:FORI=0TO70:NEXT
330 POKEV+28,2:FORI=0TO70:NEXT:POKEV+29,3:POKEV+23,3:FORI=0TO70:NEXT
332 POKEV+23,1:POKEV+29,1:FORI=0TO70:NEXT
340 POKE2041,230:POKE53280,1:POKE53281,1:POKE53281,0:POKE53280,11
350 PRINT" [159]TEE KUTEN HAN TEKI: TILAA [158]GURLAUSPOMMI"
360 PRINT"GURLAUSPOMMI [154]ON"C$"SAAT [158]GP[154]N TILAUS-"
370 PRINT" ILOLUONTOINEN "C$"OHJEET PAINAMAL-"
380 PRINT" DISKETTILEHTI "C$"LA VALILYONTIA. "
390 PRINT" COMMODOREESI."
392 POKE2040,232:FORI=0TO999:NEXT:POKEV+21,1
400 GETA$:IFA$<>" "THEN400
410 POKEV+21,0:GOSUB900
440 PRINT"  GURLAUSPOMMIN VOI TILATA USEAMMALLA E-";
450 PRINT"RI TAVALLA. NYT ESITTELEMME NIISTA KAKSI";
460 PRINT"(HUOM! TAPAA-A KAYTTAVAT KAIKKI VIISAAT)"
470 PRINT"[153]A) [159]MAKSA 15 MK SYP-TILILLE 222120-57443"
480 PRINT"MAKSUN SAAJA ON MARKO JERRMAN. TIEDONAN-";
490 PRINT"TOIHIN MERKINTA: 'OLEN VIISAS ELI TILAAN";
500 PRINT"[158]GURLAUSPOMMI[159]N'. SAAT [158]GP[159]N JONKIN AJAN KU-";
510 PRINT"LUTTUA."
520 PRINT"[153]B) [159]LAHETA KIRJE OSOITTEESEEN MARKO JERR-";
530 PRINT"MAN / MAKITORPANTIE 17 A 12 / 00640 HKI.";
540 PRINT"KIRJEESSA ILMOITAT VALTAVAN HALUSI TILA-";
550 PRINT"TA  [158]GP[159]. LAHETAMME (JOS JAKSAMME) SINULLE";
560 PRINT"LASKUN JA (EHKA MYOS) [158]GP[159]N."
570 PRINT"[158]GP [152]SISALTAA  PALJASTAVIA ARTIKKELEJA, U-";
580 PRINT"PEITA OHJELMIA (PELI&HYOTY), KAUNIITA(?)";
590 PRINT"KUVIA ELI YLI 664 BLOCKIA KAMAA SINULLE!"
600 PRINT" [151]         NAPPAIMELLA FLOPPYYN         [146]"
898 GETA$:IFA$=""THEN898
899 POKE53277,0:POKE53271,0:LOAD"MENU",8
900 PRINT"[147]   [158]   [213][201][201][201][213][192][201][201] [213][201][201][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][201]"
901 PRINT"      [221][201][221][221][171][178][203][221] [171][179][221][221][202][201][171][203][221][221][221][202][203][221][221][202][203][221][221]"
902 PRINT"      [202][203][202][203][203][203] [202][203][203][203][202][203][202][203][203] [202][203][203]  [203][203]  [203][203]":RETURN