10 POKE53281,6:POKE53280,6:FORI=0TO24:AA$=AA$+"":A3$=A3$+"[166][166]":NEXT
100 PRINT"[147][158][142]":A$="GURLAUSPOMMI USKALTAA PANNA":A=LEN(A$):B=5:GOSUB1000
101 A$="RUOTSALAISIA HALVALLA VAIKKA":A=LEN(A$):B=6:GOSUB1000
102 A$="SE ONKIN VAARALLISTA NAINA":A=LEN(A$):B=7:GOSUB1000
103 A$="AIDSIN AIKOINA.":A=LEN(A$):B=8:GOSUB1000:GOSUB900
110 PRINT"[147]":A$="NAMA VITSIT OVAT USEIMMAT ALA-ARVOISIA, ":B=5:GOSUB1005
111 FORI=0TO999:NEXT:A$="AIVAN KUTEN RUOTSALAISETKIN. ":B=6:GOSUB1005:GOSUB900
120 PRINT"[147]":A$="RUOTSIN POLIISI VAITTAA":B=5:GOSUB1010
121 A$="LOYTAVANSA PALMEN MURHAAJAN.":B=6:GOSUB1010:GOSUB900
130 PRINT"[147]":A$="RUOTSALAIS (ILO)TYTTO AMMATISTAAN:":A=LEN(A$):B=5:GOSUB1030
131 A$="MINULLA ON SE, MYYN SEN ":A=LEN(A$):B=6:GOSUB1030
132 A$="JA YHA MINULLA ON SE! ":A=LEN(A$):B=7:GOSUB1030:GOSUB900
140 PRINT"[147]":A$="RUOTSALAISPARISKUNTA PAATTI OPETELLA":A=LEN(A$):B=5:GOSUB1040
141 A$="VIETNAMIA ADOPTOIMALLA VIETNAMILAISEN":A=LEN(A$):B=6:GOSUB1040
142 A$="LAPSEN JA ODOTTAMALLA ETTA SE OPPII":A=LEN(A$):B=7:GOSUB1040
143 A$="PUHUMAAN.":A=LEN(A$):B=8:GOSUB1040:GOSUB900
150 PRINT"[147]":A$="JOS HALUAT ETTA RUOTSALAISELLA ON":B=7:GOSUB1050
151 A$="HAUSKAA VANHANA, KERRO HANELLE":B=8:GOSUB1050
152 A$="VITSI KUN HAN ON NUORI.":B=9:GOSUB1050:GOSUB900
160 PRINT"[147]":A$="  JOS RUOTSISTA LAHTISI SIIRTOLAISET  ":A=LEN(A$):B=6:GOSUB1060
161 A$=" EI SINNE JAISI KETAAN TEKEMAAN TOITA. ":A=LEN(A$):B=7:GOSUB1060:GOSUB900
170 PRINT"[147]":A$="ERO RUOTSALAISTEN HAIDEN JA HAUTAJAISTENVALILLA ON YKSI HUMALAINEN"
171 A$=A$+" RUOTSALAINEN.":PRINT""LEFT$(AA$,5)A$"[158]":B=5:GOSUB1070
172 B=6:GOSUB1070:GOSUB900
180 PRINT"[147]":A$="  RUOTSALAISET POLIISIT KULKEVAT AINA"
181 A1$="  KOLMEN RYHMISSA. YKSI OSAA LUKEA,  "
182 A2$="  TOINEN KIRJOITTAA JA KOLMAS HALUAA ":A=LEN(A$)
183 A3$="  OLLA ALYKKAIDEN SEURASSA.          ":B=5:GOSUB1080:GOSUB900
190 PRINT"[147]":A$="RUOTSALAINEN KAVI SUKUPUOLENVAIHDOS-":A=LEN(A$):B=6:GOSUB1090
191 A$="LEIKKAUKSESSA VOIDAKSEEN NAIDA ITSENSA":B=7:A=LEN(A$):GOSUB1090:GOSUB900
200 PRINT"[147]":A$="RUOTSALAISET OLIVAT PILKILLA JA IHMETTE-":PRINTA$;
201 A$="LIVAT MITEN LAHELLA PILKKIVA SUOMALAINEN":PRINTA$;
202 A$="SAI JATKUVASTI KALAA HEIDAN JAADESSA IL-":PRINTA$;
203 A$="MAN. VIIMEIN TOINEN PAATTI MENNA KATSO-":PRINTA$
204 A$="MAAN MISTA TAMA JOHTUU. PIAN HAN SAI SEN":PRINTA$;
205 A$="SELVILLE. SUOMALAINEN OLI PORANNUT REI-":PRINTA$
206 A$="JAN JAAHAN.":PRINTA$:GOSUB900
210 PRINT"[147]":A$=" RUOTSI.":A=LEN(A$):B=10:GOSUB1000:GOSUB900
220 PRINT"[147]":A$="HAHA":FORI=0TO99:PRINTTAB(2*(SIN(I)+1))A$"   "A$"   "A$"   "A$;
221 PRINT"   "A$:FORJ=0TO10:NEXT:NEXT:FORI=0TO25:PRINTA$A$A$A$A$A$A$A$A$A$;:NEXT
222 FORI=0TO3000:NEXT:POKE203,51
900 GETA$:IFA$=""THEN900
901 RETURN
1000 FORI=1TOA:B$=MID$(A$,I,1):FORJ=0TOB:PRINT""LEFT$(AA$,J)SPC(37)B$"[145][157] ":NEXT
1001 PRINTSPC(37)" [145]"
1002 FORJ=37TOI+5STEP-1:PRINTSPC(J)"[145]"B$" ":NEXT:NEXT:RETURN
1005 FORI=38TO0STEP-1:PRINT""LEFT$(AA$,B)SPC(I)LEFT$(A$,40-I):FORJ=0TO9:NEXT
1006 NEXT:RETURN
1010 FORI=23TOBSTEP-1:PRINT""LEFT$(AA$,I)A$:POKE781,I+1:SYS59903
1011 FORJ=0TO19:NEXT:NEXT:RETURN
1030 C=A/2:FORI=1TOC:PRINT""LEFT$(AA$,B)SPC(20-I)LEFT$(A$,I)RIGHT$(A$,I)
1031 FORJ=0TO30:NEXT:NEXT:RETURN
1040 FORI=1TOA:PRINT""LEFT$(AA$,B)SPC(I)MID$(A$,I,1):FORJ=0TO25:NEXT
1041 NEXT:RETURN
1050 FORI=1TO6:PRINT""LEFT$(AA$,I)SPC(3)A$:POKE781,I-1:SYS59903:GOSUB1059:NEXT
1051 IFB=7THENPRINT""LEFT$(AA$,I)SPC(3)A$:POKE781,6:SYS59903:A1$=A$:GOSUB1059:RETURN
1052 IFB=8THEN1057
1053 PRINT""LEFT$(AA$,I)SPC(3)LEFT$(A3$,LEN(A$)):POKE781,6:SYS59903:GOSUB1059
1054 PRINT""LEFT$(AA$,I)SPC(3)A1$:PRINTSPC(3)LEFT$(A3$,LEN(A$)):GOSUB1059
1055 PRINT""LEFT$(AA$,I+1)SPC(3)A2$:PRINTSPC(3)A$:GOSUB1059:RETURN
1057 PRINT""LEFT$(AA$,I)SPC(3)LEFT$(A3$,LEN(A$)):POKE781,6:SYS59903:GOSUB1059
1058 PRINT""LEFT$(AA$,I)SPC(3)A1$:PRINTSPC(3)A$:GOSUB1059:A2$=A$:RETURN
1059 FORJ=0TO75:NEXT:RETURN
1060 C=A/2:FORI=1TOC:PRINT""LEFT$(AA$,B)MID$(A$,C-I+1,I)SPC(39-2*I)MID$(A$,C+1,I)
1061 NEXT:PRINT""LEFT$(AA$,B)A$:RETURN
1070 FORI=0TO80:A=INT(40*RND(1))+55296+40*B:POKEA,7:FORJ=0TO20:NEXT:NEXT
1071 FORI=55296+40*BTO55335+40*B:POKEI,7:FORJ=0TO20:NEXT:NEXT:RETURN
1080 FORI=3TOA:PRINT""LEFT$(AA$,B)LEFT$(A$,I):PRINTLEFT$(A1$,I):PRINTLEFT$(A2$,I)
1081 PRINTLEFT$(A3$,I):FORJ=0TO50:NEXT:NEXT:RETURN
1090 FORI=1TOA:FORJ=22TOBSTEP-1:PRINT""LEFT$(AA$,J)SPC(I)MID$(A$,I,1)"[157] ":NEXT
1091 NEXT:RETURN