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$:IFVAL(A$)>=.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][206] [199][213][210][213][213][206]"
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=.:GOTO440
340 IFI=32THENPM=1:GOTO440
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 IFVAL(E$(N0))=.THEN360
384 GOTO302
390 IFN0=8THENSYS49920:GOTO304
400 N0=N0-1:SYS50352:IFN0<8THEN302
410 PRINT"    "N$(N0-8)
420 IFVAL(E$(N0))=.THEN390
422 GOTO302
440 SYS49840:IFRIGHT$(E$(N0),1)<>"B"THEN450
442 SYS49920:PRINTLEFT$(CD$,13);"[211][217][220][212][219] [194]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]"
444 PRINT"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":POKE198,0:WAIT198,1:POKE198,0
450 V=VAL(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=RK+1:GOSUB900:IF RK>5THEN RK=1
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][206] [211][208][197][211][201][193][193][204][201]: [199][213][210][213]";: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
951 DATA ,,0
960 DATA "[154][212][193][213][211][212][193][205][213][211][201][201][203][203][201]","MUSIC",2
961 DATA ,,0
970 DATA "[193][204][213][203][211][201]...",ALUKSI,5
971 DATA ,,0
972 DATA "[212]OIMITUS",TOIMITUS,5
999 DATA ,,0
1530 DATA "[207][200][202][197][204][205][193][212]",,0
1535 DATA ,,0
1540 DATA " [203]ALENTERI",KALENTERI.N,4
1541 DATA " [204]ETTER [205]AKER",LETTER*,4
1542 DATA " [218]AMBO-[194]ASIC",ZAMBO*.N,4B
1543 DATA " [211]OFTWRITER V64.1",SOFT*,4B
1544 DATA " [211]OFTWRITER -DEMO-",DEMO,4B
1545 DATA " [211]OFTCRUNCHER V2",SOFTCR*,4B
1549 REMDATA ,,0
1600 REMDATA "[208][197][204][201][207][200][202][197][204][205][193][212]",,0
1605 REMDATA ,,0
1610 REMDATA " [210]AW-[205]ASTER",RAW-MASTER,4B
1612 REMDATA " [201]LPO [195]LASSIC",ILPO,3B
1613 REMDATA " [208]ROFFA",PROFFA,3B
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