100 REM KAIKKI MATERIAALI (C) FLOPPY MAGAZINE JA PROTOCOL PRODUCTIONS OY
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] 3/87!"
240 PRINTCD$;"[156]([195]) [208]ROTOCOL [208]RODUCTIONS [207]Y"
260 IFSC=.ORMU=1THENGOSUB920
262 IFYZ=1THENYZ=0:SYS50416:RETURN
265 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=.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
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 SYS49920:IFV=1THEN640
462 IF(N1<>N0)ORPMTHEN468
464 SYS50048:IFV>=6ANDV<=8THEN2006
466 ON(V-1)GOTO896,570,600,512
468 N1=N0
469 SYS50048:IFV<>2THENGOSUB900
470 POKE53269,.:IFV>=6ANDV<=8THEN2000
472 IFV>8THEN610
480 ON(V-1)GOTO890,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
522 SYS50665
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>0THEN200
580 GOSUB860:GOSUB630:PRINT"";
582 IFTU=.ORPEEK(49875)=.THENPRINT"SYS53226";
584 IFTU=1ANDPEEK(49875)=1THENPRINT"SYS53184";
585 REMPRINT"SYS53184";
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>0THEN200:REMLOAD,8,1
602 GOSUB860:GOSUB630:PRINT"";
603 IFTU=.ORPEEK(49875)=.THENPRINT":SYS53226";
604 IFTU=1ANDPEEK(49875)=1THENPRINT":SYS53184";
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>0THEN200:REMLOAD+SYS
612 GOSUB860:GOSUB630:PRINT"";
613 IFTU=.ORPEEK(49875)=.THENPRINT":SYS53226";
614 IFTU=1ANDPEEK(49875)=1THENPRINT":SYS53184";
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
630 SYS64789:SYS65409:SYS64931:SYS49467:POKE646,14:POKE53272,20:RETURN
640 SYS49840:PRINT"[156]                 [193][208][213][193]"
660 PRINT"   [195][210][211][210] [146] - [206][PP[IN LIIKUTTAA VALIKKOA"
670 PRINT"  [183][183][183][183][183][183]   YL\S TAI ALAS."
680 PRINT"[175][175][175][175][175][175][175][175]"
690 PRINT" [210][197][212][213][210][206] [146] - [206][PP[IMELL[ VOIT LUKEA"
700 PRINT"[183][183][183][183][183][183][183][183]   NUOLEN OSOITTAMAN ARTIKKELIN"
710 PRINT"           TAI K[YNNIST[[ OHJELMAN."
730 PRINT" [175][175][175][175][175][175][175]"
740 PRINT"  [211][208][193][195][197] [146] - [206][PP[IN TOIMII SAMOIN KUIN"
750 PRINT" [183][183][183][183][183][183][183]    [210][197][212][213][210][206] [146] MUTTA TULOSTAA"
760 PRINT"           ARTIKKELIN TAI KUVAN PRINT-"
770 PRINT"           TERILLE."
780 PRINT"           [193]RTIKKELIA LUKIESSASI SAAT"
790 PRINT"           LIS[OHJEITA  [198] 8 [146] N[PP[I-"
800 PRINT"           MELL[. [212]AKAISIN VALIKKOON"
810 PRINT"           P[[SET  [198] 6 [146] N[PP[IMELL[."
830 PRINT"PAINA [210][197][212][213][210][206].[146]"
840 POKE198,0:WAIT198,1:POKE198,0:GOTO200
860 IFV<>1THENPOKE53269,.
865 RK=RK+1:IF RK>5THEN 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], [203]ES[KUU,  3/87";:RETURN
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
950 DATA "[154][193][208][213][193]",,1
960 DATA ,,0
970 DATA "[208][219][219][203][201][210][202][207][201][212][213][211]",PAAKIRJ3/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]","? APPLI*",2
1000 DATA ,,0
1010 DATA "[193][210][212][201][203][203][197][204][201][212]",,0
1015 DATA ,,0
1044 DATA " [201]LPO ENNEN JA NYT",ILPO ARTIKKELI,5
1045 DATA " [214]IRIT[ ITSE LEVYASEMA",LEVARI,5
1046 DATA " [212]EKNORAMA",TEKNORAMA,3
1090 DATA ,,0
1100 DATA "[208][193][204][211][212][193][212]",,0
1101 DATA ,,0
1110 DATA " [206]IKSIPALSTA",NIKSIT,5
1112 DATA " [203]ONEKIELI OSA 1",KONEKIELI,5
1114 DATA " [208]ELIASEITA",POKEJA,3
1115 DATA " [214]IDEOT JA TIETOKONEPELIT",VIDEO PALSTA,5
1116 DATA " [210]OOLIPELIT",ROOLIP3/87.PAL,5
1117 DATA " [211]EIKKAILIJOIDEN TAVERNA",ADVPAL3/87.PAL,5
1125 DATA ,,0
1230 DATA "[207][200][202][197][197][212]",,0
1235 DATA ,,0
1242 DATA " [195]REATE [205]AXALODA",CREATE ML.OHJ,5
1300 DATA ,,0
1330 DATA "[205][193][201][206][207][203][211][201][193]",,0
1335 DATA ,,0
1342 DATA " [210]OOLIPELIT",?PIC A*,7
1400 DATA ,,0
1450 DATA "[207][200][202][197][204][205][193][212]: [193]-PUOLELLA!",,0
1455 DATA ,,0
1460 DATA " [205]USICAL-64 [208]ART 3",MUSICAL*,3
1461 DATA " [204]OMAKUVA",LOMAKUVA,3
1462 DATA " [203]ESSU",KESSU,3
1500 DATA ,,0
1550 DATA "[207][200][202][197][204][205][193][212]: [194]-PUOLELLA!",,0
1555 DATA ,,0
1560 DATA " [195]REATE [205]AXALODA",CREATE*,4
1561 DATA " [198]LOPPIS-SAMPLE",FLOPPIS-LOADER,3
1562 DATA " [208]ICTURE [211]HOW [201][201]",PICTURE*,3
1563 DATA " [211]ARJIS",SARJAKUVA,3
1567 DATA " [214]ILJO",VILJO,3
1568 DATA " [203]OLMEN VALTION TUNTURIVY\HYKE",ILPO*,3
1990 DATA ,,-1
2000 GOSUB2030:IFV=6THEN C1=7: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=7: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)):REMIFN>192THENN=N-128:GOTO2070
2062 REMIFN>64ANDN<128THENN=N-64
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" [214][193][204][201][212][197][212][212][193][214][193][211][212][201] 1525-[196][213][205][208][208][201] [207][206] [203][197][211][203][197][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
4000 XX=X:REM MPS-801/803,1525 EI TOIMI
4002 FORI=1TO25:FORR=1TO40:SC$(I,R)="":NEXT:NEXT:SL=24576
4008 FORI=0TO127:SC(I)=PEEK(53056+I):T=T+SC(I):NEXT:IFT<>24512THENSTOP
4030 OPEN4,4:FORI=7680+SLTO7992+SLSTEP8:M=(I-7680-SL)/8+1
4032 FORJ=I-7680TOISTEP320:N=(I-J)/320+1:FORK=J+7TOJSTEP-1:X=PEEK(K)
4034 IFX>127THENX=X-64:GOTO4034
4036 IFK=J+7THENSC$(N,M)=SC$(N,M)+CHR$(SC(XANDPEEK(K-1)+128)):GOTO4040
4038 SC$(N,M)=SC$(N,M)+CHR$(SC(X))
4040 NEXT:NEXT:FORL=1TO25:PRINT#4,CHR$(8)SC$(L,M);:NEXT:PRINT#4,CHR$(8):NEXT
4042 PRINT#4:CLOSE4:X=XX:RETURN