100 REM: COPYRIGHT BY PROTOCOL PROD. OY 101 REM: VALIKON TEKIJA ON T.LUODE-87
110 SYS51676
120 POKE53269,.:SYS49422:YZ=1:GOSUB190:GOSUB920:X=-1:REMDIMSC(127),SC$(25,40)
140 READA$,A$,A:IFA>=.THENX=X+1:GOTO140
150 RESTORE:X=X+15:DIM N$(X),F$(X),E(X)
160 FORT=0TO7:N$(T)="":F$(T)="":E(T)=.:NEXT
170 FORT=8TOX-7:READN$(T),F$(T),E(T):NEXT
180 FORT=X-6TOX:N$(T)="":F$(T)="":E(T)=.:NEXT
190 CD$=""
200 SYS50432:SYS49840:SYS49984
201 PRINT"[156]";
205 IFYZ=1ANDSC=.THENPRINTLEFT$(CD$,13);"[212][197][210][214][197][212][213][204][207][193] [198][204][207][208][208][201][203][211][197][197][206] 6/87!"
240 PRINTCD$;"[156]([195]) [208]ROTOCOL [208]RODUCTIONS [207]Y"
260 IFSC=.ORMU=1THENGOSUB920
262 IFYZ=1THENYZ=0:SYS50416:RETURN
265 SYS51662:PRINTLEFT$(CD$,4)
270 IFN0=.THENN0=8:T=.:GOTO290
272 T=N0-8
280 PRINTTAB(4)N$(T):IFT=XORT=N0+8THEN300
282 T=T+1:GOTO280
290 PRINTTAB(4)N$(T):IFT=16THEN300
292 T=T+1:GOTO290
300 POKE198,0:SYS49467:SYS50432:SC=.:IFMU=.ANDZZ=.THENSYS50880:SC=1:ZZ=1:GOTO302
301 IFMU=.THENSYS50665:SC=1
302 SYS49920
304 GETI$:PRINT"":IFI$=""THEN304
310 I=ASC(I$)
312 IFI=17THENSYS49920:GOTO360
320 IFI=145THENSYS49920:GOTO390
330 IFI=13THENPM=.:GOTO450
340 IFI=32THENPM=1:GOTO450
350 GOTO304
360 IFN0=X-7THENSYS49920:GOTO304
370 N0=N0+1:SYS50288:IFN0+8>XTHEN302
380 PRINTLEFT$(CD$,21)SPC(4)N$(N0+8)
382 IFE(N0)=.THEN360
384 GOTO302
390 IFN0=8THENSYS49920:GOTO304
400 N0=N0-1:SYS50352:IFN0<8THEN302
410 PRINT"    "N$(N0-8)
420 IFE(N0)=.THEN390
422 GOTO302
450 V=E(N0):F$=F$(N0):N$=N$(N0):SYS49467:OFF=.:IFPEEK(49875)=1THENOFF=1
452 IFRIGHT$(F$,2)<>".N"THENTU=1:GOTO460
455 POKE816,165:POKE817,244:F$=LEFT$(F$,LEN(F$)-2):POKE49875,0:TU=0
456 REM 0=NOTHING:1=HELP:2=MUSIC:3=LOAD"",8:4=LOAD"",8,1:5=EASY SCRIPT FILE
458 REM 6=NEWSROOM PHOTO:7=KOALAPAINTER PICTURE:8=DOODLE PICTURE:>8=LOAD+SYS
460 SYS51648:SYS49920
462 IF(N1<>N0)ORPMTHEN468
464 SYS50048:IFV>=6ANDV<=8THEN2006
466 ONVGOTO650,896,570,600,512
468 N1=N0
469 SYS50048:IFV<>2THENGOSUB900
470 POKE53269,.:IFV>=6ANDV<=8THEN2000
472 IFV>8THEN610
480 ONVGOTO640,890,570,600,490
490 F$=F$+",S":GOSUB500:SYS50416:GOTO200
500 IFV<>5THENRETURN
505 IFPMTHENPM=.:GOTO520
510 GOSUB860:OPEN1,8,0,F$:SYS16384:RETURN
512 POKE53269,0:SYS17080:SYS50416:GOTO200
520 SYS49840:PRINTLEFT$(CD$,13);"[212]ULOSTETAANKO TEKSTI (K/E) ?  [146]":SYS49920
530 GETA$:PRINT"":IFA$=""ORA$<>"E"ANDA$<>"K"THEN530
540 SYS50048:IFA$="E"THENSYS49920:RETURN
550 GOSUB860:OPEN2,4,7:CMD2:OPEN1,8,0,F$:SYS50592:CLOSE1:CLOSE2:SYS49920:RETURN
570 GOSUB3000:IFZA>0THENGOSUB620:GOTO200
580 GOSUB860:GOSUB630:PRINT"";:GOSUB624
586 PRINT":CLR:P[207]198,1:P[207]631,131"
590 PRINT"LOAD"CHR$(34)F$CHR$(34)",8":POKE198,1:POKE631,13:END
600 GOSUB3000:IFZA>0THENGOSUB620:GOTO200:REM:LOAD"",8,1
602 GOSUB860:GOSUB630:PRINT"";:GOSUB624
606 PRINT":CLR:P[207]198,1:P[207]631,131"
608 PRINT""CHR$(34)F$CHR$(34)",8,1":POKE198,1:POKE631,13:END
610 GOSUB3000:IFZA>0THENGOSUB620:GOTO200:REM:LOAD"",8,1+SYS...?
612 GOSUB860:GOSUB630:PRINT"";:GOSUB624
615 PRINT":CLR:P[207]198,2:P[207]631,13:P[207]632,13"
616 PRINT"LOAD"CHR$(34)F$CHR$(34)",8,1":POKE198,1:POKE631,13
618 PRINT"SYS";V;"":END
620 IF OFF THEN POKE49875,OFF
622 RETURN
624 IFTU=.ORPEEK(49875)=.THENPRINT"SYS53226";
626 IFTU=1ANDPEEK(49875)=1THENPRINT"SYS53184";
628 RETURN
630 SYS64789:SYS65409:SYS64931:SYS49467:POKE646,14:POKE53272,20:RETURN
640 F$="APUA":GOSUB660:GOSUB2030:SYS50032:GOTO200
650 GOSUB660:SYS50037:GOTO200
660 POKE53269,.:MU=.:ZZ=1:SYS50886:RETURN
860 POKE53269,.
865 RK=1:GOSUB900
870 V$="MAINOS"+RIGHT$(STR$(RK),1)
880 OPEN1,8,2,V$+",S":SYS16999:RETURN
890 SYS50416:IFMU=1THENMU=.:GOSUB900:GOTO300
892 MU=1:SYS49920:GOSUB2030:SYS49493:GOSUB920:SYS49920:GOTO300
896 SYS50416:IFMU=.THENMU=1:SYS49920:SYS49498:GOSUB920:SYS49920:GOTO300
898 GOTO890
900 MU=.:SYS49502:RETURN
920 SYS50416:SYS50912
922 PRINTCD$;"[156][198][204][207][208][208][217] [205][193][199][193][218][201][206][197],  [202][207][213][204][213][203][213][213], 6/87";:RETURN
925 REM********************************
930 REM 0=NOTHING:1=HELP:2=MUSIC:3=LOAD"",8:4=LOAD"",8,1:5=EASY SCRIPT FILE
940 REM 6=NEWSROOM PHOTO:7=KOALAPAINTER PICTURE:8=DOODLE PICTURE:>8=LOAD+SYS
945 REM********************************
950 DATA "[154][193][208][213][193]",APUA,1
960 DATA ,,0
970 DATA "[208][219][219][203][201][210][202][207][201][212][213][211]",PAAKIRJ6/87,5
971 DATA ,,0
972 DATA "[212]EKIJ[TIEDOT",OTSAKE,5
980 DATA ,,0
990 DATA "[154][212][193][213][211][212][193][205][213][211][201][201][203][203][201]","MUSIC",2
1000 DATA ,,0
1230 DATA "[193][210][212][201][203][203][197][204][201][212]",,0
1235 DATA ,,0
1242 DATA " [211]ALATUT [203]ONEKIELIK[SKYT",SALATUT6/87,5
1243 DATA " [199]RAFIIKKASPESIAALI NRO 3.",GRAFSPES6/87,5
1244 DATA " [193]JANKOHTAISTA ASIAA.",AJANKOHT6/87,5
1300 DATA ,,0
1330 DATA "[208][193][204][211][212][193][212]",,0
1335 DATA ,,0
1342 DATA " [202]OULUN NIKSIPALSTA",NIKSIT6/87,5
1343 DATA " [210]UUSUT JA RISUT",RUUSUT*,5
1500 DATA ,,0
1530 DATA "[207][200][202][197][204][205][193][212]: [193]-PUOLELLA!",,0
1535 DATA ,,0
1540 DATA " [208]OKEJA",POKES*,4
1541 DATA " [205]USIC [211]HOW [201]",MUSIC SHO*,4
1546 DATA ,,0
1550 DATA "[207][200][202][197][197][212] [193]-PUOLELLA",,0
1555 DATA ,,0
1565 DATA " [203]ONIS-[208]IKAK[SIKIRJAN OHJEET!",KONISOHJEET,5
1570 DATA " [203]ONIS-[208]IKAK[SIKIRJA: [211]IVU 1.",KONEKIELIK. S1,5
1571 DATA " [203]ONIS-[208]IKAK[SIKIRJA: [211]IVU 2.",KONEKIELIK. S2,5
1580 DATA ,,0
1581 DATA "[207][200][202][197][204][205][193][212]: [194]-PUOLELLA!",,0
1582 DATA ,,0
1590 DATA " [211]NOWBALLS -FLIPPERI",SNOWBALLS!,3
1591 DATA " [205]AGIC [200]OUSE",MAGIC HOU*,3
1592 DATA " [211]ANASTO",SANASTO,3
1593 DATA " [196]IGITOIJA [201][201]",DIGITOIJA*,3
1594 DATA " [210]UMPUKONE",RUMPUKONE.N,4
1596 DATA " [210]UMMUTUS",RUMMUTUS,3
1598 DATA " [198]INAL [195]OUNTDOWN",FINAL*,3
1600 DATA ,,0
1601 DATA "[207][200][202][197][197][212] [194]-PUOLELLA",,0
1602 DATA ,,0
1603 DATA " [196]IGITOIJAN OHJEET",OHJEET D*,3
1604 DATA " [210]UMPUKONEEN OHJEET",OHJEET R*,3
1605 DATA ,,0
1608 DATA "...[202][193] [204][207][208][213][203][211][201]...",,0
1609 DATA ,,0
1610 DATA " [212][207][201][205][201][212][213][203][211][197][206] [202][207][213][204][213][212][197][210][214][197][200][196][217][211]",HYVAA JOULUA!,3
1611 ,,-1
1990 DATA ,,-1
1999 REM*******************************
2000 GOSUB2030:IFV=6THEN C1=10:C2=0:POKE49872,C1:POKE49873,C2
2002 IFPMTHENPM=.:IFV<>7THENPOKE49874,V-6:SYS50927:N1=0:GOTO3100
2004 POKE49874,V:SYS49819:GOTO200
2006 IFV=6THEN C1=10:C2=0:POKE49872,C1:POKE49873,C2
2008 POKE49874,V:SYS49964:GOTO200
2010 REM: COLOR 1&2  ( C1 & C2 )                  NEWSROOMISSA, ARVOT 0-15
2030 IFLEN(F$)>16THENF$=LEFT$(F$,16)
2032 N$=RIGHT$(N$,LEN(N$)-2):SYS49952:IFLEN(N$)>32THENN$=LEFT$(N$,32)
2040 POKE49882,LEN(F$):POKE49883,LEN(N$)
2050 FORY=1TOLEN(F$):POKE49903+Y,ASC(MID$(F$,Y,1)):NEXT
2052 IFV<6ORV>8THEN2072
2060 FORY=1TOLEN(N$):N=ASC(MID$(N$,Y,1))
2070 POKE51471+Y,N:NEXT
2072 IFMU=.THENGOSUB860
2080 RETURN
3000 OPEN15,8,15:OPEN2,8,2,"0:"+F$+",P,R":INPUT#15,ZA,ZB$,ZC,ZD:CLOSE2:CLOSE15
3005 IFZA=.THENRETURN
3010 SYS49840:SYS49984:PRINT"[207][200][202][197][204][205][193][193] [197][201] [204][220][217][212][217][206][217][212]. [212]ARKISTA"
3015 PRINT"ONKO OIKEA LEVYNPUOLI SIS[LL[."
3020 PRINT"[205]IK[LI VIKA EI KUITENKAAN OLE"
3025 PRINT"SIIN[, TARKISTA MUUT KYTKENN[T."
3030 PRINT"'_'-N[PP[IMEST[ TAKAISIN VALIKKOON.":POKE198,0
3035 PRINT"[205]UISTA N[PP[IMIST[ LATAUS JATKUU.":SYS50416:SYS50672:SYS50432
3040 GETWC$:PRINT"":IFWC$=""THEN3040
3042 IFWC$="_"THENRETURN
3044 SYS50048:POKE53269,0:GOTO3000
3100 REM KUVAN PRINTTAUSRUTSKUT
3102 SYS50416:SYS49984:SYS50432
3104 SYS49840:SYS50665
3110 PRINT"";TAB(11);"[203][213][214][193][206] [208][210][201][206][212][212][193][213][211]":PRINTTAB(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3112 PRINT" 1 [146]801/1525 -[196]UMPPI"
3114 PRINT" 2 [146][201][206][212][197][210][198][193][195][197]-[198]ASTDUMP"
3116 PRINT" 3 [146]802 -[196]UMPPI"
3118 PRINT" 4 [146][208][207][201][211]."
3120 PRINT"[198][193][211][212][196][213][205][208] ON TARKOITETTU [201][206][212][197][210][198][193][195][197]-"
3122 PRINT"PRINTTEREILLE. [203]UVIEN PRINTTAUS ON"
3124 PRINT"TEHTY [196][207][207][196][204][197]- JA [206][197][215][211][210][207][207][205]-KUVILLE.":POKE198,0
3130 GETWC$:PRINT"":IFWC$=""ORWC$<"1"ORWC$>"4"THEN3130
3132 ON(VAL(WC$))GOTO3140,3150,3160,200
3134 PRINT"[156]    [208][210][201][206][212][193][212][212][193][214][193] [203][213][214][193]: ";N$:PRINT"   [212][217][217][208][208][201]: [196][207][207][196][204][197][157][157][157][157][157][157][157]";
3135 IFV=6THENPRINT"[206][197][215][211][210][207][207][205]";
3136 PRINT:RETURN
3137 PRINT"<< [208][193][201][206][193] [202][207][212][193][201][206] [208][210][201][206][212][193][212][193][203][211][197][211][201] [203][213][214][193][206] >>":POKE198,0:WAIT198,1
3138 POKE198,0:RETURN
3139 PRINT" >>> [208][210][201][206][212][212][193][213][211] [203][219][217][206][206][201][211][211][219]. [200][197][212][203][201] <<<":RETURN
3140 SYS49840
3142 PRINT"";TAB(11);"801/1525 [196][213][205][208][208][201]":PRINTTAB(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3144 REMGOSUB3134:GOSUB3137:GOSUB3139:GOSUB4000:GOTO3104
3146 PRINT" 1525-[196][213][205][208][208][201] [212][213][204][197][197] [197][206][211][201] [206][213][205][197][210][207][207][206]. ":FORD=1TO2000:NEXT
3147 GOTO3104
3150 SYS49840:PRINT"";
3152 PRINTTAB(9);"[201][206][212][197][210][198][193][195][197] [198][193][211][212][196][213][205][208]":PRINTTAB(9);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3154 GOSUB3134:GOSUB3137:GOSUB3139:SYS51712:GOTO3104
3160 SYS49840:PRINT"";
3162 PRINTTAB(14);"802 [196][213][205][208][208][201]":PRINTTAB(14);"[163][163][163][163][163][163][163][163][163][163]"
3164 PRINT"[193]NNA OIKEAN REUNAN MARGINAALI";:INPUTMA:POKE255,MA
3166 GOSUB3134:GOSUB3137:GOSUB3139:SYS52210:GOTO3104