home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / b.nevsky (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  231 lines
  1. 10 poke56,48:clr:poke53281,0:poke53280,0:poke53371,0:poke788,49
  2. 20 tq=ti
  3. 30 dv=peek(186):ifdv<8thendv=8
  4. 40 dimw$(14,2),s$(14),m$(14)
  5. 50 print"[147]":gosub60000
  6. 60 unpack=56*256:hg=un+3:sr=52480:sq=52486:g=49153
  7. 70 sys57812"nevsky.shp",dv,0:poke780,0:poke781,0:poke782,58:sys65493
  8. 80 sys57812"unp 3800",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 82 ifti<tq+100then82
  10. 84 tq=ti
  11. 90 poke251,58:poke252,96:poke253,92:sysun:print"[147]":syshg
  12. 100 sys57812"nevsky font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  13. 110 sys57812"nevskyc000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  14. 120 fs$="[193][204][197][216][193][206][196][197][210] [206][197][214][211][203][217]"
  15. 130 sp$="                                        "
  16. 140 poke53281,0:print"[147]"
  17. 150 syssr,96,92,48
  18. 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]"
  19. 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]"
  20. 180 fori=1to13
  21. 190 s$(i)="nevsky"+str$(i)+".shp"
  22. 200 m$(i)="nevsky"+str$(i)+".mus"
  23. 210 readw$(i,0),w$(i,1)
  24. 220 next
  25. 230 data"[210]ussia [213]nder the [205]ongol [217]oke"
  26. 232 data"[212]he peasants resist the tyrants"
  27. 240 data"[211]ong about [193]lexander [206]evsky"
  28. 242 data"[200]e is chosen as their leader"
  29. 250 data"[212]he [195]rusaders in [208]skov - [208]art 1"
  30. 252 data"[198]oreigners want to conquer them"
  31. 260 data"[212]he [195]rusaders in [208]skov - [208]art 2"
  32. 262 data"[212]hey are oppressed by the invaders"
  33. 270 data"[193]rise, [208]eople of [210]ussia!"
  34. 272 data"[212]he call to unite against tyranny"
  35. 280 data"[212]he [194]attle on the [201]ce - [208]t. 1"
  36. 282 data"[212]he invaders are lured onto the ice"
  37. 290 data"[212]he [194]attle on the [201]ce - [208]t. 2"
  38. 292 data"[212]he brave [210]ussians await the enemy"
  39. 300 data"[212]he [194]attle on the [201]ce - [208]t. 3"
  40. 302 data"[212]he onslaught begins!"
  41. 310 data"[212]he [194]attle on the [201]ce - [208]t. 4"
  42. 312 data"[212]he fierce fighting continues!"
  43. 320 data"[212]he [198]ield of the [196]ead - [208]t. 1"
  44. 322 data"[212]he enemy falls through the ice"
  45. 330 data"[212]he [198]ield of the [196]ead - [208]t. 2"
  46. 332 data"[212]he priests come to pray"
  47. 340 data"[193]lexander's [197]ntry into [208]skov - [208]t. 1"
  48. 342 data"[200]e savors his triumph"
  49. 350 data"[193]lexander's [197]ntry into [208]skov - [208]t. 2"
  50. 352 data"[200]e is greeted as a true hero"
  51. 360 ifti<tq+100then360
  52. 370 syshg
  53. 380 goto1230
  54. 390 :
  55. 400 :rem box
  56. 410 :
  57. 420 poke214,y:print
  58. 430 printtab(x)"[155][176]"left$(tp$,xx)"[174]"
  59. 440 forii=1toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  60. 450 printtab(x)"[173]"left$(bt$,xx)"[189]"
  61. 460 return
  62. 470 :
  63. 480 :rem see, hear, read
  64. 490 :
  65. 500 gosub910:rem intro
  66. 510 fors=1to13
  67. 520 gosub1140:rem message
  68. 530 tq=ti
  69. 540 gosub710:rem load
  70. 550 ifti<tq+100then550
  71. 560 gosub770:rem pic on
  72. 570 gosub830:rem music on
  73. 580 syssq-3,"[159][144]"
  74. 590 syssq,0,23,sp$:syssq,0,24,sp$
  75. 598 forj=0to1
  76. 600 syssq,20-int((len(w$(s,j))/2)),23+j,w$(s,j)
  77. 602 next
  78. 610 poke198,0
  79. 620 ifpeek(49152)=0then650
  80. 630 geta$:ifa$<>"q"anda$<>" "then620
  81. 640 ifa$="q"thens=13
  82. 650 gosub870:syshg
  83. 660 next
  84. 670 goto1230
  85. 680 :
  86. 690 :rem load pic and music
  87. 700 :
  88. 710 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  89. 720 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,58:sys65493
  90. 730 return
  91. 740 :
  92. 750 :rem display pic
  93. 760 :
  94. 770 poke251,58:poke252,96:poke253,92:sysun
  95. 780 print"[147]":syshg
  96. 790 return
  97. 800 :
  98. 810 :rem music on
  99. 820 :
  100. 830 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  101. 840 :
  102. 850 :rem music off
  103. 860 :
  104. 870 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  105. 880 :
  106. 890 :rem intro
  107. 900 :
  108. 910 poke53281,0:print"[147][155]"
  109. 920 x=1:y=1:xx=36:yy=20:gosub420
  110. 930 print"[193] [204] [197] [216] [193] [206] [196] [197] [210]    [206] [197] [214] [211] [203] [217]"
  111. 940 print"[152]   [193] [198]ilm by [211]ergei [197]isenstein
  112. 950 [153]"    (NULL)core by (NULL)ergei (NULL)rokofiev
  113. 960 print"   [208]hotographed by [197]dward [212]isse
  114. 970 [153]" (NULL)ne of the most popular warrior-
  115. 980 print"princes of the 13th century,
  116. 990 [153]"(NULL)rince (NULL)evsky united the (NULL)ussian
  117. 1000 print"peasantry to fight the invading
  118. 1010 [153]"(NULL)nights of the (NULL)eutonic (NULL)rder.
  119. 1020 print"[212]he two forces met at [204]ake [208]iepus
  120. 1030 [153]"in 1242 where the armor-laden
  121. 1040 print"[199]ermanic knights were driven into
  122. 1050 [153]"the lake to drown. atnlexander then
  123. 1060 print"trimphantly marched to a hero's
  124. 1070 [153]"welcome in the city of (NULL)skov.
  125. 1080 tq=ti
  126. 1090 geta$:ifa$=""and(ti<tq+1200)then1090
  127. 1100 return
  128. 1110 :
  129. 1120 :rem message
  130. 1130 :
  131. 1140 print"[147]":poke53281,0
  132. 1150 x=3:y=4:xx=33:yy=7:gosub420
  133. 1160 print""tab(8)"[155][215]hile picture is showing:
  134. 1170 [153][163]11)"(NULL)(NULL)atnlenval print#- (NULL)ext (NULL)art
  135. 1180 printtab(11)"[209] [152]- [209]uit to [205]ain [205]enu
  136. 1190 [142]
  137. 1200 :
  138. 1210 :[143] main menu
  139. 1220 :
  140. 1230 [151]53281,0
  141. 1240 [153]"load":[151]53272,29:[139]mu[167][141]870
  142. 1250 x[178]3:y[178]4:xx[178]33:yy[178]13:[141]420
  143. 1260 [153]""[163]12)fs$
  144. 1270 [153][163]5)"1print#  (NULL)ee, hear and read the saga
  145. 1280 printtab(5)"2[152]  [211]ee the thirteen pictures
  146. 1290 [153][163]5)"3print#  left$ear the cantata
  147. 1300 printtab(5)"4[152]  [211]ee the map
  148. 1310 [153][163]5)"5print#  (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  149. 1320 poke198,0
  150. 1330 geta$:ifa$<"1"ora$>"5"then1330
  151. 1340 onval(a$)goto500,1380,1600,1790,40000
  152. 1350 :
  153. 1360 :rem see the pics
  154. 1370 :
  155. 1380 fori=1to13
  156. 1390 print"[147]"
  157. 1400 x=3:y=4:xx=33:yy=7:gosub420
  158. 1410 print"[152]"tab(5)"[215]hile the picture is showing...
  159. 1420 [153][163]5)"(NULL)(NULL)atnlenval print#- chr$o to the next picture
  160. 1430 printtab(5)"[209] [152]- [210]eturn to the [205]enu
  161. 1440 tq[178]ti
  162. 1450 [158]57812s$(i),dv,0:[151]780,0:[151]781,0:[151]782,58:[158]65493
  163. 1460 [139]ti[179]tq[170]100[167]1460
  164. 1470 [151]251,58:[151]252,96:[151]253,92:[158]un
  165. 1480 [153]"load":[158]hg
  166. 1490 [158]sq[171]3,"openstop"
  167. 1500 [158]sq,0,23,sp$:[158]sq,0,24,sp$
  168. 1508 [129]j[178]0[164]1
  169. 1510 [158]sq,20[171][181](([195](w$(i,j))[173]2)),23[170]j,w$(i,j)
  170. 1512 [130]
  171. 1520 [151]198,0
  172. 1530 [161]a$:[139]a$[179][177]" "[175]a$[179][177]"q"[167]1530
  173. 1540 [158]hg:[151]53281,0
  174. 1550 [139]a$[178]"q"[167]i[178]13
  175. 1560 [130]:[137]1230
  176. 1570 :
  177. 1580 :[143] hear the cantata
  178. 1590 :
  179. 1600 [153]"load"
  180. 1610 x[178]0:y[178]3:xx[178]37:yy[178]9:[141]420
  181. 1620 [153]""[163]8)"(NULL)(NULL)atnlenval print#- chr$o to (NULL)ext (NULL)art
  182. 1630 printtab(8)"[209] [152]- [210]eturn to [205]ain [205]enu
  183. 1640 [129]i[178]1[164]13
  184. 1650 [158]57812m$(i),dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  185. 1660 [141]830
  186. 1670 [151]214,9:[153]:[153][163]10)"list(NULL)ou're listening to:
  187. 1680 print""left$(sp$,37)
  188. 1690 print"[145]"tab(20-(len(w$(i,0))/2))w$(i,0)
  189. 1700 poke198,0
  190. 1710 geta$:ifa$=""andpeek(49152)=7then1710
  191. 1720 ifpeek(49152)=0then1760
  192. 1730 ifa$=" "then1760
  193. 1740 ifa$="q"theni=13:goto1770
  194. 1750 goto1710
  195. 1760 gosub870
  196. 1770 next
  197. 1780 goto1230
  198. 1787 :
  199. 1788 :rem see the map
  200. 1789 :
  201. 1790 print"[147]"
  202. 1800 sys57812"nevsky map.shp",dv,0:poke780,0:poke781,0:poke782,58:sys65493
  203. 1810 poke251,58:poke252,96:poke253,92:sysun
  204. 1820 print"[147]":syshg
  205. 1830 poke198,0
  206. 1840 geta$:ifa$=""then1840
  207. 1850 syshg:poke53281,0
  208. 1860 goto1230
  209. 10000 d=peek(186):n$="0:b.nevsky":open15,d,15,"s"+n$:close15:saven$,d:end
  210. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  211. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  212. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  213. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  214. 40040 close2:open2,i,2:close2:ifstthen40060
  215. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  216. 40060 next:return
  217. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  218. 40080 print"[147]p[207]2048,0:p[20