10 POKE56,48:CLR:POKE53281,0:POKE53280,0:POKE53371,0:POKE788,49
20 TQ=TI
30 DV=PEEK(186):IFDV<8THENDV=8
40 DIMW$(14,2),S$(14),M$(14)
50 PRINT"[147]":GOSUB60000
60 UNPACK=56*256:HG=UN+3:SR=52480:SQ=52486:G=49153
70 SYS57812"NEVSKY.SHP",DV,0:POKE780,0:POKE781,0:POKE782,58:SYS65493
80 SYS57812"UNP 3800",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
82 IFTI<TQ+100THEN82
84 TQ=TI
90 POKE251,58:POKE252,96:POKE253,92:SYSUN:PRINT"[147]":SYSHG
100 SYS57812"NEVSKY FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
110 SYS57812"NEVSKYC000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
120 FS$="[193][204][197][216][193][206][196][197][210] [206][197][214][211][203][217]"
130 SP$="                                        "
140 POKE53281,0:PRINT"[147]"
150 SYSSR,96,92,48
160 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
170 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
180 FORI=1TO13
190 S$(I)="NEVSKY"+STR$(I)+".SHP"
200 M$(I)="NEVSKY"+STR$(I)+".MUS"
210 READW$(I,0),W$(I,1)
220 NEXT
230 DATA"[210]USSIA [213]NDER THE [205]ONGOL [217]OKE"
232 DATA"[212]HE PEASANTS RESIST THE TYRANTS"
240 DATA"[211]ONG ABOUT [193]LEXANDER [206]EVSKY"
242 DATA"[200]E IS CHOSEN AS THEIR LEADER"
250 DATA"[212]HE [195]RUSADERS IN [208]SKOV - [208]ART 1"
252 DATA"[198]OREIGNERS WANT TO CONQUER THEM"
260 DATA"[212]HE [195]RUSADERS IN [208]SKOV - [208]ART 2"
262 DATA"[212]HEY ARE OPPRESSED BY THE INVADERS"
270 DATA"[193]RISE, [208]EOPLE OF [210]USSIA!"
272 DATA"[212]HE CALL TO UNITE AGAINST TYRANNY"
280 DATA"[212]HE [194]ATTLE ON THE [201]CE - [208]T. 1"
282 DATA"[212]HE INVADERS ARE LURED ONTO THE ICE"
290 DATA"[212]HE [194]ATTLE ON THE [201]CE - [208]T. 2"
292 DATA"[212]HE BRAVE [210]USSIANS AWAIT THE ENEMY"
300 DATA"[212]HE [194]ATTLE ON THE [201]CE - [208]T. 3"
302 DATA"[212]HE ONSLAUGHT BEGINS!"
310 DATA"[212]HE [194]ATTLE ON THE [201]CE - [208]T. 4"
312 DATA"[212]HE FIERCE FIGHTING CONTINUES!"
320 DATA"[212]HE [198]IELD OF THE [196]EAD - [208]T. 1"
322 DATA"[212]HE ENEMY FALLS THROUGH THE ICE"
330 DATA"[212]HE [198]IELD OF THE [196]EAD - [208]T. 2"
332 DATA"[212]HE PRIESTS COME TO PRAY"
340 DATA"[193]LEXANDER'S [197]NTRY INTO [208]SKOV - [208]T. 1"
342 DATA"[200]E SAVORS HIS TRIUMPH"
350 DATA"[193]LEXANDER'S [197]NTRY INTO [208]SKOV - [208]T. 2"
352 DATA"[200]E IS GREETED AS A TRUE HERO"
360 IFTI<TQ+100THEN360
370 SYSHG
380 GOTO1230
390 :
400 :REM BOX
410 :
420 POKE214,Y:PRINT
430 PRINTTAB(X)"[155][176]"LEFT$(TP$,XX)"[174]"
440 FORII=1TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
450 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
460 RETURN
470 :
480 :REM SEE, HEAR, READ
490 :
500 GOSUB910:REM INTRO
510 FORS=1TO13
520 GOSUB1140:REM MESSAGE
530 TQ=TI
540 GOSUB710:REM LOAD
550 IFTI<TQ+100THEN550
560 GOSUB770:REM PIC ON
570 GOSUB830:REM MUSIC ON
580 SYSSQ-3,"	[159]	[144]"
590 SYSSQ,0,23,SP$:SYSSQ,0,24,SP$
598 FORJ=0TO1
600 SYSSQ,20-INT((LEN(W$(S,J))/2)),23+J,W$(S,J)
602 NEXT
610 POKE198,0
620 IFPEEK(49152)=0THEN650
630 GETA$:IFA$<>"Q"ANDA$<>" "THEN620
640 IFA$="Q"THENS=13
650 GOSUB870:SYSHG
660 NEXT
670 GOTO1230
680 :
690 :REM LOAD PIC AND MUSIC
700 :
710 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
720 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,58:SYS65493
730 RETURN
740 :
750 :REM DISPLAY PIC
760 :
770 POKE251,58:POKE252,96:POKE253,92:SYSUN
780 PRINT"[147]":SYSHG
790 RETURN
800 :
810 :REM MUSIC ON
820 :
830 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1:RETURN
840 :
850 :REM MUSIC OFF
860 :
870 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0:RETURN
880 :
890 :REM INTRO
900 :
910 POKE53281,0:PRINT"[147][155]"
920 X=1:Y=1:XX=36:YY=20:GOSUB420
930 PRINT"[193] [204] [197] [216] [193] [206] [196] [197] [210]    [206] [197] [214] [211] [203] [217]"
940 PRINT"[152]   [193] [198]ILM BY [211]ERGEI [197]ISENSTEIN
950 [153]"    (null)CORE BY (null)ERGEI (null)ROKOFIEV
960 PRINT"   [208]HOTOGRAPHED BY [197]DWARD [212]ISSE
970 [153]" (null)NE OF THE MOST POPULAR WARRIOR-
980 PRINT"PRINCES OF THE 13TH CENTURY,
990 [153]"(null)RINCE (null)EVSKY UNITED THE (null)USSIAN
1000 PRINT"PEASANTRY TO FIGHT THE INVADING
1010 [153]"(null)NIGHTS OF THE (null)EUTONIC (null)RDER.
1020 PRINT"[212]HE TWO FORCES MET AT [204]AKE [208]IEPUS
1030 [153]"IN 1242 WHERE THE ARMOR-LADEN
1040 PRINT"[199]ERMANIC KNIGHTS WERE DRIVEN INTO
1050 [153]"THE LAKE TO DROWN. ATNLEXANDER THEN
1060 PRINT"TRIMPHANTLY MARCHED TO A HERO'S
1070 [153]"WELCOME IN THE CITY OF (null)SKOV.
1080 TQ=TI
1090 GETA$:IFA$=""AND(TI<TQ+1200)THEN1090
1100 RETURN
1110 :
1120 :REM MESSAGE
1130 :
1140 PRINT"[147]":POKE53281,0
1150 X=3:Y=4:XX=33:YY=7:GOSUB420
1160 PRINT""TAB(8)"[155][215]HILE PICTURE IS SHOWING:
1170 [153][163]11)"(null)(null)ATNLENVAL PRINT#- (null)EXT (null)ART
1180 PRINTTAB(11)"[209] [152]- [209]UIT TO [205]AIN [205]ENU
1190 [142]
1200 :
1210 :[143] MAIN MENU
1220 :
1230 [151]53281,0
1240 [153]"LOAD":[151]53272,29:[139]MU[167][141]870
1250 X[178]3:Y[178]4:XX[178]33:YY[178]13:[141]420
1260 [153]""[163]12)FS$
1270 [153][163]5)"1PRINT#  (null)EE, HEAR AND READ THE SAGA
1280 PRINTTAB(5)"2[152]  [211]EE THE THIRTEEN PICTURES
1290 [153][163]5)"3PRINT#  LEFT$EAR THE CANTATA
1300 PRINTTAB(5)"4[152]  [211]EE THE MAP
1310 [153][163]5)"5PRINT#  (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
1320 POKE198,0
1330 GETA$:IFA$<"1"ORA$>"5"THEN1330
1340 ONVAL(A$)GOTO500,1380,1600,1790,40000
1350 :
1360 :REM SEE THE PICS
1370 :
1380 FORI=1TO13
1390 PRINT"[147]"
1400 X=3:Y=4:XX=33:YY=7:GOSUB420
1410 PRINT"[152]"TAB(5)"[215]HILE THE PICTURE IS SHOWING...
1420 [153][163]5)"(null)(null)ATNLENVAL PRINT#- CHR$O TO THE NEXT PICTURE
1430 PRINTTAB(5)"[209] [152]- [210]ETURN TO THE [205]ENU
1440 TQ[178]TI
1450 [158]57812S$(I),DV,0:[151]780,0:[151]781,0:[151]782,58:[158]65493
1460 [139]TI[179]TQ[170]100[167]1460
1470 [151]251,58:[151]252,96:[151]253,92:[158]UN
1480 [153]"LOAD":[158]HG
1490 [158]SQ[171]3,"	OPEN	STOP"
1500 [158]SQ,0,23,SP$:[158]SQ,0,24,SP$
1508 [129]J[178]0[164]1
1510 [158]SQ,20[171][181](([195](W$(I,J))[173]2)),23[170]J,W$(I,J)
1512 [130]
1520 [151]198,0
1530 [161]A$:[139]A$[179][177]" "[175]A$[179][177]"Q"[167]1530
1540 [158]HG:[151]53281,0
1550 [139]A$[178]"Q"[167]I[178]13
1560 [130]:[137]1230
1570 :
1580 :[143] HEAR THE CANTATA
1590 :
1600 [153]"LOAD"
1610 X[178]0:Y[178]3:XX[178]37:YY[178]9:[141]420
1620 [153]""[163]8)"(null)(null)ATNLENVAL PRINT#- CHR$O TO (null)EXT (null)ART
1630 PRINTTAB(8)"[209] [152]- [210]ETURN TO [205]AIN [205]ENU
1640 [129]I[178]1[164]13
1650 [158]57812M$(I),DV,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
1660 [141]830
1670 [151]214,9:[153]:[153][163]10)"LIST(null)OU'RE LISTENING TO:
1680 PRINT""LEFT$(SP$,37)
1690 PRINT"[145]"TAB(20-(LEN(W$(I,0))/2))W$(I,0)
1700 POKE198,0
1710 GETA$:IFA$=""ANDPEEK(49152)=7THEN1710
1720 IFPEEK(49152)=0THEN1760
1730 IFA$=" "THEN1760
1740 IFA$="Q"THENI=13:GOTO1770
1750 GOTO1710
1760 GOSUB870
1770 NEXT
1780 GOTO1230
1787 :
1788 :REM SEE THE MAP
1789 :
1790 PRINT"[147]"
1800 SYS57812"NEVSKY MAP.SHP",DV,0:POKE780,0:POKE781,0:POKE782,58:SYS65493
1810 POKE251,58:POKE252,96:POKE253,92:SYSUN
1820 PRINT"[147]":SYSHG
1830 POKE198,0
1840 GETA$:IFA$=""THEN1840
1850 SYSHG:POKE53281,0
1860 GOTO1230
10000 D=PEEK(186):N$="0:B.NEVSKY":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,9:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[193] [204] [197] [216] [193] [206] [196] [197] [210]   [206] [197] [214] [211] [203] [217]"
60032 Z$(2)="BY [200]ARNED, [205]ARQUIS AND [212]UCKER
60040 Z$(4)[178]"(LEN) 1998 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370   1-318-221-8718
60090 [151]214,11:[153]
60100 [129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]