100 REM: COPYRIGHT BY PROTOCOL PROD. OY 101 REM: VALIKON TEKI TONI LUODE AD.-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][197][206] 3/88!"
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"ANDBP=0THEN449
441 SYS49920:IFBP=1THEN448
442 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]":BP=1
444 PRINT"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":POKE198,0:WAIT198,1:POKE198,0
446 GOTO449
448 PRINTLEFT$(CD$,13);"[211][217][220][212][219] [193]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":BP=0
449 SYS49840
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:GOTO200
892 MU=1:SYS49920:GOSUB2030:SYS49493:GOSUB920:SYS49920:GOTO200
896 SYS50416:IFMU=.THENMU=1:SYS49920:SYS49498:GOSUB920:SYS49920:GOTO200
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],   [203][197][211][219][203][213][213], 3/88";: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 "[208][219][219][203][201][210][202][207][201][212][213][211]",PAAKIRJ3/88,5
971 DATA ,,0
972 DATA "[154][212]OIMITUS",TOIMITUS,5
980 DATA ,,0
990 DATA "[211]IS[LT\ 3/88",SISALTO3/88,5
999 DATA ,,0
1000 REMDATA "[213][213][212][212][193] [205][193][193][201][204][205][193][204][212][193]",,0
1001 REMDATA ,,0
1230 REMDATA "[212][197][211][212][193][213][203][211][197][212] [202][193] [193][210][214][207][211][212][197][204][213][212]",,0
1231 DATA "[205][193][193][201][204][205][193][206][205][201][197][200][201][219]",,0
1235 DATA ,,0
1242 DATA " [211]COTT [193]DAMS - TEKSTIPELINERO",SCOTT*ADAMS,5
1299 DATA ,,0
1300 DATA "[207][200][202][197][204][205][207][201][202][201][204][204][197] [202][193] [208][197][204][193][193][202][201][204][204][197]",,0
1301 DATA ,,0
1341 DATA " [206]IKSIPALSTAN KUULUMISET",NIKSIT3/88,5
1342 DATA " [202]EEA [213]TURT JA ERTETITYRUASET",JEEA UTURT*,5
1343 DATA " [193]JANKOHTAISTA ASIAA.",AJANKOHT3A/88,5
1344 DATA " [193]JANKOHTAISTA ASIAA/2.",AJANKOHT3B/88,5
1345 DATA " [208]IENI TUTUSTUMIMINEN [199]AME[215]ORLDIIN",GAMEWORLD,5
1399 DATA ,,0
1400 DATA "[202][207][203][193] [206][213][205][197][210][207][211][211][193]",,0
1401 DATA ,,0
1402 DATA " [204]UKIJOIDEN IHMETTELYJ[",LUKIJAT3/88,5
1403 DATA " [204][213][203][201][202][193][203][201][204][208][193][201][204][213]",KILPA*3/88,5
1430 DATA ,,0
1431 DATA "[205][193][201][206][207][203][211][197][212]",,0
1435 DATA ,,0
1440 DATA " [199][213][210][213] -SUPERSOFTAA!!!",DDGURU88,8
1441 DATA " [198]LOPPIS - MAHTILEHTI! [212]ILAA!",DDFM2/88*,8
1442 DATA " [199]AME[215]ORLD - KANNATTAA K[YD[!",DDGAMEWORLD,8
1443 DATA " [211]UPERSOFTAA: [199]AME[208]ACK!!!",DDGAMEPACK!,8
1450 DATA ,,0
1451 DATA "[212][219][205][219][206] [206][213][205][197][210][207][206] [207][200][202][197][204][205][201][211][212][193]",,0
1455 DATA ,,0
1465 DATA " [208]AHA [202]UTTU [201][201][201]",PAHA JUTTU*,5
1470 DATA " [194]LACK [212]RACK",BLACK TRACK.*,5B
1500 DATA ,,0
1530 DATA "[200][217][220][212][217][207][200][202][197][204][205][193][212]",,0
1535 DATA ,,0
1541 DATA " [201]NTERDOODLE 1.81",INTER*,4B
1542 DATA " [194]LACK [212]RACK",BLACK*,4B
1550 DATA ,,0
1551 DATA "[205][213][213][212] [200][217][220][196][217][204][204][201][211][197][212] [207][200][202][197][204][205][193][212]",,0
1555 DATA ,,0
1565 REMDATA " [196]&[196] [193][201][196] [201][201]",D&D AID*.N,4
1570 DATA " [203]ONEKIRJOITUSTESTI",KIRJ.NOP.T*,3B
1571 REMDATA " [203]ALENTERI VUODELLE 1988",1988,3
1600 DATA ,,0
1601 DATA "[211][197][201][203][203][193][201][204][213][208][197][204][201][212]",,0
1605 DATA ,,0
1610 DATA " [201]LPON [211]EIKKAILUT",ILPOLOADER.N,3B
1611 DATA " [208]AHA [202]UTTU [201][201][201]",PAHALOADER,4B
1700 DATA ,,0
1701 REMDATA "[205][213][213][212] [208][197][204][201][212]",,0
1705 REMDATA ,,0
1720 DATA ,,0
1721 DATA "[205][213][213][212] [207][200][202][197][204][205][193][212]",,0
1725 DATA ,,0
1726 DATA " [203]ARVINEN -SHOW 3",KARVINEN -*,4
1727 DATA " [196]EMO [201]",DEMO I,4B
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] [213][213][212][197][197][206] [214][193][204][201][203][203][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
50000 PRINT"DISK IN:":INPUTA$
50001 OPEN15,8,15,"S0:MX":CLOSE15:SAVE"MX",8,1:VERIFY"MX",8,1
50002 PRINT"NEXT...":GOTO50000