home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-06_2001_CSW_Side_A.d64 / slider2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  20KB  |  775 lines
  1. 1000 a=1000:goto20:rem ** slider **
  2. 1010 mh=ho:mv=ve
  3. 1020 rem titelbild
  4. 1030 dimbs$(14),fe(14,20)
  5. 1040 lh=28
  6. 1050 fori=0 to2*mh+1:print"#";:nexti
  7. 1060 sr$="##"
  8. 1070 fori=1 tomh-3
  9. 1080 sr$=sr$+" "
  10. 1090 nexti
  11. 1100 sr$=sr$+"##"
  12. 1110 fori=2 tomv-3
  13. 1120 printsr$;
  14. 1130 nexti
  15. 1140 fori=o to2*ho+1:print"#";:nexti
  16. 1150 ho=0:ve=int((mv+1-16)/2):gosub110
  17. 1160 print"##     [211][211][211]  [204]   [201][201][201]  [196][196]   [197][197][197]  [210][210]"
  18. 1170 print"##    [211]     [204]    [201]   [196] [196]  [197]    [210] [210]"
  19. 1180 print"##    [211]     [204]    [201]   [196] [196]  [197]    [210] [210]"
  20. 1190 print"##     [211][211]   [204]    [201]   [196] [196]  [197][197][197]  [210][210]"
  21. 1200 print"##       [211]  [204]    [201]   [196] [196]  [197]    [210] [210]"
  22. 1210 print"##       [211]  [204]    [201]   [196] [196]  [197]    [210] [210]"
  23. 1220 print"##    [211][211][211]   [204][204][204] [201][201][201]  [196][196]   [197][197][197]  [210] [210]"
  24. 1230 ve=ve+9:ho=0:gosub110
  25. 1240 print"##       ([201]) : [201][206][211][212][210][213][195][212][201][207][206][211]"
  26. 1250 print
  27. 1260 print"##       ([199]) : [199][193][205][197]"
  28. 1270 print
  29. 1280 print"##       ([204]) : [204][197][214][197][204]"
  30. 1290 yy$="([208]) by [199]aisipower. [195]onverted from +4 by "
  31. 1300 yy$=yy$+"[195]hristian and [207]laf  ----  "
  32. 1310 po=1:le=len(yy$):bs=20
  33. 1320 reada,b:ifa>0 then1320
  34. 1330 reada,b:ifa>0 then1330
  35. 1340 readsp,sd
  36. 1350 if(sd<0)and(sp<0) thenrestore:goto1320
  37. 1360 gosub200
  38. 1370 ifin=76 then1540
  39. 1380 ifin=73 then1770
  40. 1390 ifin=71 then2010
  41. 1400 ifbs+po>le then1420
  42. 1410 xx$=mid$(yy$,po,bs):goto1450
  43. 1420 xx$=right$(yy$,le-po+1)
  44. 1430 ifbs+po-le-1<=0 then1450
  45. 1440 xx$=xx$+left$(yy$,bs+po-le-1)
  46. 1450 po=po+1:ifpo>le thenpo=1
  47. 1460 ho=10:ve=mv-4:gosub110
  48. 1470 printxx$
  49. 1480 sv=8:gosub400:goto1340
  50. 1490 printsr$
  51. 1500 print:ifmv>28 thenprint
  52. 1510 gosub450
  53. 1520 return
  54. 1530 rem level
  55. 1540 ho=6:ve=mv-4:gosub110
  56. 1550 sr=lh:gosub300
  57. 1560 lv=1:zz=0
  58. 1570 print"[208]lease enter [204]evel (1-";sr$;") ";
  59. 1580 ho=30+len(sr$)
  60. 1590 gosub210
  61. 1600 ifin=13 then2020
  62. 1610 if(in=127)or(in=28) then1700
  63. 1620 if(in<48)or(in>57) then1590
  64. 1630 if(zz=0)and(in=48) then1590
  65. 1640 ifzz=0 thenlt=in-48:goto1660
  66. 1650 lt=10*lv+in-48
  67. 1660 iflt>lh then1590
  68. 1670 zz=zz+1:printin$;
  69. 1680 lv=lt:ho=ho+1
  70. 1690 goto1590
  71. 1700 ifzz=0 then1590
  72. 1710 lv=int(.1*lv):zz=zz-1
  73. 1720 ifzz=0 thenlv=1
  74. 1730 ho=ho-1:gosub110
  75. 1740 print" ";:gosub110
  76. 1750 goto1590
  77. 1760 rem instructions
  78. 1770 gosub100
  79. 1780 sd=5:gosub450
  80. 1790 ho=0:ve=3
  81. 1800 gosub110
  82. 1810 sr$="     [211]lider is a game for everybody"
  83. 1820 sd=10:gosub1490
  84. 1830 sr$="  [215]ho wants to prove his intelligence"
  85. 1840 sd=10:gosub1490
  86. 1850 sr$="        [217]ou have to push barrels"
  87. 1860 sd=10:gosub1490
  88. 1870 sr$="          on the marked fields"
  89. 1880 sd=10:gosub1490
  90. 1890 sr=lh:gosub300
  91. 1900 sr$="         in "+sr$+" different levels"
  92. 1910 sd=10:gosub1490
  93. 1920 sr$="      and the time is against you"
  94. 1930 sd=10:gosub1490
  95. 1940 sr$="          [208]ress [199] to give up."
  96. 1950 sd=10:gosub1490
  97. 1960 sr$="      [213]se the cursor-keys to play."
  98. 1970 sd=20:gosub1490:print
  99. 1980 sr$="          [199] [207] [207] [196]    [204] [213] [195] [203] !"
  100. 1990 sd=100:gosub1490
  101. 2000 rem game
  102. 2010 lv=1
  103. 2020 mm=7
  104. 2030 gosub100
  105. 2040 iflv>lh then2230
  106. 2050 iflv>5 then2080
  107. 2060 onlv gosub10010,10210,10410,10610,10810
  108. 2070 goto3010
  109. 2080 iflv>10 then2110
  110. 2090 onlv-5 gosub11010,11210,11410,11610,11810
  111. 2100 goto3010
  112. 2110 iflv>15 then2140
  113. 2120 onlv-10 gosub12010,12210,12410,12610,12810
  114. 2130 goto3010
  115. 2140 iflv>20 then2170
  116. 2150 onlv-15 gosub13010,13210,13410,13610,13810
  117. 2160 goto3010
  118. 2170 iflv>25 then2200
  119. 2180 onlv-20 gosub14010,14210,14410,14610,14810
  120. 2190 goto3010
  121. 2200 iflv>lh then2230
  122. 2210 onlv-25 gosub15010,15210,15410
  123. 2220 goto3010
  124. 2230 goto5010:rem zum schlussbild
  125. 3000 rem bild- und feldaufbau
  126. 3010 ma=32:mi=int(tm/60):se=tm-(mi*60)
  127. 3020 t1=0
  128. 3030 fori=1 to14
  129. 3040 ifbs$(i)="" then3180
  130. 3050 forj=1 tolen(bs$(i))
  131. 3060 fe$=mid$(bs$(i),j,1)
  132. 3070 iffe$<>"o" then3140
  133. 3080 h1$=left$(bs$(i),j-1)
  134. 3090 h2$=right$(bs$(i),len(bs$(i))-j)
  135. 3100 ae=ae-1
  136. 3110 fe(i,j)=128+asc("[207]")
  137. 3120 bs$(i)=h1$+"[207]"+h2$
  138. 3130 goto3150
  139. 3140 fe(i,j)=asc(fe$)
  140. 3150 nextj
  141. 3160 ho=10:ve=5+i:gosub110
  142. 3170 printbs$(i)
  143. 3180 nexti
  144. 3190 rem aufbau anzeigen
  145. 3200 l$="                                  "
  146. 3210 sr$=l$:ho=0:ve=0:gosub110:gosub150
  147. 3220 sr=lv:gosub300
  148. 3230 lv$=sr$
  149. 3240 sr=mm:gosub300
  150. 3250 lv$="  [204]evel: "+right$("0"+lv$,2)+" "
  151. 3260 lv$=lv$+"  [194]ild: "+bl$
  152. 3270 sr$=lv$+"   [205]en: "+sr$+"  "
  153. 3280 ve=1:gosub110:gosub150
  154. 3290 ve=2:gosub110:sr$=l$:gosub150
  155. 3300 ho=0:ve=21:gosub110
  156. 3310 gosub150
  157. 3320 ve=23:gosub110:gosub150
  158. 3330 mo=0:pu=0
  159. 3340 rem schleife (beginn)
  160. 3350 rem 
  161. 3360 ho=0:ve=22:gosub110
  162. 3370 sr=mo:gosub300
  163. 3380 mo$=sr$
  164. 3390 sr=pu:gosub300
  165. 3400 mo$="[205]oves "+right$("00"+mo$,3)
  166. 3410 mo$=mo$+"  [208]ushes "+right$("00"+sr$,3)
  167. 3420 sr=mi:gosub300:mi$=sr$
  168. 3430 sr=se:gosub300:se$=sr$
  169. 3440 sr$=mo$+"   [212]ime "+right$("00"+mi$,2)+":"
  170. 3450 sr$=sr$+right$("00"+se$,2)
  171. 3460 gosub150
  172. 3470 rem tastaturabfrage
  173. 3480 sd=10:gosub450
  174. 3490 if(in<>0)and((sd=0)or(sd=10)) thensd=5
  175. 3500 tx=1-sd/10:t1=t1+tx:ift1>1 thent1=t1-1:se=se-1
  176. 3510 ifse<0 thense=59:mi=mi-1
  177. 3520 ifmi<0 then4260
  178. 3530 ifin<>0 then3550
  179. 3540 goto3360
  180. 3550 ifin=28 thenxi=0:dj=-1:goto3620
  181. 3560 ifin=29 thenxi=0:dj=1:goto3620
  182. 3570 ifin=30 thenxi=1:dj=0:goto3620
  183. 3580 ifin=31 thenxi=-1:dj=0:goto3620
  184. 3590 ifin=71 then4010:rem give up
  185. 3600 goto3360
  186. 3610 rem bewegung
  187. 3620 we=fe(vm+xi,hm+dj)
  188. 3630 if(we=32)or(we=42) thenmo=mo+1:sp=39:goto3770
  189. 3640 ifwe=35 then3540:rem zur abfrage
  190. 3650 w1=fe(vm+2*xi,hm+2*dj)
  191. 3660 if(w1<>32)and(w1<>42) then3540:rem abfrage
  192. 3670 w2=we:pu=pu+1:sp=15
  193. 3680 if(we=79)or(we=111) then3730:rem tonne weg 
  194. 3690 ae=ae+1:w2=we-128:we=42
  195. 3700 fe(vm+xi,hm+dj)=42
  196. 3710 goto3740
  197. 3720 rem tonne verschieben
  198. 3730 fe(vm+xi,hm+dj)=32
  199. 3740 ifw1=42 thenfe(vm+2*xi,hm+2*dj)=128+w2:ae=ae-1
  200. 3750 ifw1=32 thenfe(vm+2*xi,hm+2*dj)=w2
  201. 3760 rem maennchen laeuft
  202. 3770 mn=we:fe(vm+xi,hm+dj)=asc("[216]")
  203. 3780 ifma<>42 thenma=32
  204. 3790 fe(vm,hm)=ma:ma=mn
  205. 3800 rem auf bildschirm
  206. 3810 ve=vm+5:ho=hm+9:gosub110
  207. 3820 printchr$(fe(vm,hm))
  208. 3830 ve=vm+xi+5:ho=hm+dj+9:gosub110
  209. 3840 print"[216]"
  210. 3850 ve=vm+2*xi+5:ho=hm+2*dj+9:gosub110
  211. 3860 fe=fe(ve-5,ho-9)
  212. 3870 iffe>128 thenfe=fe-128
  213. 3880 printchr$(fe)
  214. 3890 hm=hm+dj:vm=vm+xi
  215. 3900 sd=1:sv=14:gosub400
  216. 3910 ifae>0 then3360
  217. 3920 rem level completed
  218. 3930 ho=10:ve=12:gosub110
  219. 3940 sr$="[195]ongratulation":gosub150
  220. 3950 restore
  221. 3960 readsp,sd:if(sp<0)and(sd<0) then3980
  222. 3970 sv=8:gosub400:goto3960
  223. 3980 lv=lv+1
  224. 3990 goto2030
  225. 4000 rem give up
  226. 4010 ho=13:ve=12:gosub110
  227. 4020 sr$="[199]ive up":gosub150
  228. 4030 forx=5 to1 step-1
  229. 4040 sp=69+x:sd=6:sv=8:gosub400
  230. 4050 nextx
  231. 4060 forx=1 to100:nextx
  232. 4070 mm=mm-1
  233. 4080 ifmm>0 then2030
  234. 4090 restore
  235. 4100 reada,b:ifa>0 then4100
  236. 4110 readsp,sd:ifsp<0 then4130
  237. 4120 sv=8:gosub400:goto4110
  238. 4130 gosub100
  239. 4140 ho=0:ve=12:gosub110
  240. 4150 print"             [212]hat was it!!!"
  241. 4160 sd=30:gosub450
  242. 4170 ho=0:ve=12:gosub110
  243. 4180 print"          [201] hope you had fun."
  244. 4190 sd=30:gosub450
  245. 4200 ho=0:ve=12:gosub110
  246. 4210 print"       [199]o on and try it again!!!"
  247. 4220 sd=60:gosub450
  248. 4230 goto1000
  249. 4240 rem ende
  250. 4250 rem time over
  251. 4260 ho=10:ve=12:gosub110
  252. 4270 sr$="the time is out"
  253. 4280 gosub150
  254. 4290 goto4030
  255. 5000 rem ende
  256. 5010 print:print:print
  257. 5020 print"             [195][207][206][199][210][193][212][213][204][193][212][201][207][206]"
  258. 5030 print:print:print:print
  259. 5040 print"       [217][207][213]'[214][197] [195][207][205][208][204][197][212][197][196] [193][204][204] [204][197][214][197][204][211]"
  260. 5050 print:print"             [217][207][213] [200][193][214][197] [215][207][206] :"
  261. 5060 print:print"            [193] [194][193][210][210][197][204] [207][198] [194][197][197][210]"
  262. 5070 print:print:print:print
  263. 5080 print"[208][204][197][193][211][197] [215][207][206]'[212] [194][217] [196][210][213][206][203][197][206] [193][198][212][197][210] [196][210][201][206][203][201][206][199] !"
  264. 5090 sd=100:gosub450:goto950
  265. 10000 rem bild 1
  266. 10010 ae=6:hm=13:vm=10:tm=390:bl$="001"
  267. 10020 bs$(1)="     #####"
  268. 10030 bs$(2)="     #   #"
  269. 10040 bs$(3)="     #[207]  #"
  270. 10050 bs$(4)="   ###  [207]##"
  271. 10060 bs$(5)="   #  [207] [207] #"
  272. 10070 bs$(6)=" ### # ## #"
  273. 10080 bs$(7)=" #   # ## #   ######"
  274. 10090 bs$(8)=" # [207]  [207]   #####  **#"
  275. 10100 bs$(9)=" #####           **#"
  276. 10110 bs$(10)="     # ### #[216]##  **#"
  277. 10120 bs$(11)="     #     #########"
  278. 10130 bs$(12)="     #######"
  279. 10140 bs$(13)=""
  280. 10150 bs$(14)=""
  281. 10160 return
  282. 10200 rem bild 2
  283. 10210 ae=10:hm=9:vm=6:tm=420:bl$="002"
  284. 10220 bs$(1)=""
  285. 10230 bs$(2)=" ############"
  286. 10240 bs$(3)=" #**  #     ###"
  287. 10250 bs$(4)=" #**  # [207]  [207]  #"
  288. 10260 bs$(5)=" #**  #[207]####  #"
  289. 10270 bs$(6)=" #**   [207][216] ##  #"
  290. 10280 bs$(7)=" #**  # #  [207] ##"
  291. 10290 bs$(8)=" ###### ##[207] [207] #"
  292. 10300 bs$(9)="   #  [207]   [207] [207] #"
  293. 10310 bs$(10)="   #     #    #"
  294. 10320 bs$(11)="   ############"
  295. 10330 bs$(12)=""
  296. 10340 bs$(13)=""
  297. 10350 bs$(14)=""
  298. 10360 return
  299. 10400 rem bild 3
  300. 10410 ae=11:hm=17:vm=3:tm=390:bl$="003"
  301. 10420 bs$(1)=""
  302. 10430 bs$(2)="          ########"
  303. 10440 bs$(3)="          #     [216]#"
  304. 10450 bs$(4)="          # [207]#[207] ##"
  305. 10460 bs$(5)="          # [207]  [207]#"
  306. 10470 bs$(6)="          ##[207] [207] #"
  307. 10480 bs$(7)=" ########## [207] # ###"
  308. 10490 bs$(8)=" #****   ## [207]  [207]  #"
  309. 10500 bs$(9)=" #***      [207]  [207]   #"
  310. 10510 bs$(10)=" #****   ##########"
  311. 10520 bs$(11)=" #########"
  312. 10530 bs$(12)=""
  313. 10540 bs$(13)=""
  314. 10550 bs$(14)=""
  315. 10560 return
  316. 10600 rem bild 4
  317. 10610 ae=20:hm=11:vm=11:tm=510:bl$="004"
  318. 10620 bs$(1)="           ########"
  319. 10630 bs$(2)="############  ****#"
  320. 10640 bs$(3)="#    #  [207]  [207]  ****#"
  321. 10650 bs$(4)="# [207][207][207]#[207]  [207] #  ****#"
  322. 10660 bs$(5)="#  [207]     [207] #  ****#"
  323. 10670 bs$(6)="# [207][207] #[207] [207] [207]#  ****#"
  324. 10680 bs$(7)="#  [207] #     ########"
  325. 10690 bs$(8)="## #########"
  326. 10700 bs$(9)="#    #    ##"
  327. 10710 bs$(10)="#      [207]  ##"
  328. 10720 bs$(11)="#  [207][207]#[207][207]  [216]#"
  329. 10730 bs$(12)="#    #    ##"
  330. 10740 bs$(13)="############"
  331. 10750 bs$(14)=""
  332. 10760 return
  333. 10800 rem bild 5
  334. 10810 ae=12:hm=17:vm=8:tm=495:bl$="005"
  335. 10820 bs$(1)="          #####"
  336. 10830 bs$(2)="          #   #####"
  337. 10840 bs$(3)="          # #[207]##  #"
  338. 10850 bs$(4)="          #    [207]  #"
  339. 10860 bs$(5)="  ######### ###   #"
  340. 10870 bs$(6)="  #****  ## [207]  [207]###"
  341. 10880 bs$(7)="  #****    [207] [207][207] ##"
  342. 10890 bs$(8)="  #****  ##[207]  [207] [216]#"
  343. 10900 bs$(9)="  #########  [207]  ##"
  344. 10910 bs$(10)="          # [207] [207]  #"
  345. 10920 bs$(11)="          ### ## #"
  346. 10930 bs$(12)="            #    #"
  347. 10940 bs$(13)="            ######"
  348. 10950 bs$(14)=""
  349. 10960 return
  350. 11000 rem bild 6
  351. 11010 ae=10:hm=13:vm=3:tm=390:bl$="006"
  352. 11020 bs$(1)=""
  353. 11030 bs$(2)="   ######  ###"
  354. 11040 bs$(3)="   #**  # ##[216]##"
  355. 11050 bs$(4)="   #**  ###   #"
  356. 11060 bs$(5)="   #**     [207][207] #"
  357. 11070 bs$(6)="   #**  # # [207] #"
  358. 11080 bs$(7)="   #**### # [207] #"
  359. 11090 bs$(8)="   #### [207] #[207]  #"
  360. 11100 bs$(9)="      #  [207]# [207] #"
  361. 11110 bs$(10)="      # [207]  [207]  #"
  362. 11120 bs$(11)="      #  ##   #"
  363. 11130 bs$(12)="      #########"
  364. 11140 bs$(13)=""
  365. 11150 bs$(14)=""
  366. 11160 return
  367. 11200 rem bild 7
  368. 11210 ae=11:hm=8:vm=3:tm=420:bl$="007"
  369. 11220 bs$(1)="         #####"
  370. 11230 bs$(2)="   #######   ##"
  371. 11240 bs$(3)="  ## # [216]## [207][207] #"
  372. 11250 bs$(4)="  #     [207]     #"
  373. 11260 bs$(5)="  #  [207]  ###   #"
  374. 11270 bs$(6)="  ### #####[207]###"
  375. 11280 bs$(7)="  # [207]  ### **#"
  376. 11290 bs$(8)="  # [207] [207] [207] ***#"
  377. 11300 bs$(9)="  #    ###***#"
  378. 11310 bs$(10)="  # [207][207] # #***#"
  379. 11320 bs$(11)="  #  ### #####"
  380. 11330 bs$(12)="  ####"
  381. 11340 bs$(13)=""
  382. 11350 bs$(14)=""
  383. 11360 return
  384. 11400 rem bild 8
  385. 11410 ae=14:vm=11:hm=3:tm=450:bl$="008"
  386. 11420 bs$(1)="           #######"
  387. 11430 bs$(2)="           #  ***#"
  388. 11440 bs$(3)="       #####  ***#"
  389. 11450 bs$(4)="       #      * *#"
  390. 11460 bs$(5)="       #  ##  ***#"
  391. 11470 bs$(6)="       ## ##  ***#"
  392. 11480 bs$(7)="      ### ########"
  393. 11490 bs$(8)="      # [207][207][207] ##"
  394. 11500 bs$(9)="  #####  [207] [207] #####"
  395. 11510 bs$(10)=" ##   #[207] [207]   #   #"
  396. 11520 bs$(11)=" #[216] [207]  [207]    [207]  [207] #"
  397. 11530 bs$(12)=" ###### [207][207] [207] #####"
  398. 11540 bs$(13)="      #      #"
  399. 11550 bs$(14)="      ########"
  400. 11560 return
  401. 11600 rem bild 9
  402. 11610 ae=15:vm=5:hm=9:tm=570:bl$="009"
  403. 11620 bs$(1)=" ################"
  404. 11630 bs$(2)=" #              #"
  405. 11640 bs$(3)=" # # ######     #"
  406. 11650 bs$(4)=" # #  [207] [207] [207] [207]#  #"
  407. 11660 bs$(5)=" # #   [207][216][207]   ## ##"
  408. 11670 bs$(6)=" # # #[207] [207] [207]###***#"
  409. 11680 bs$(7)=" # #   [207] [207]  ##***#"
  410. 11690 bs$(8)=" # ###[207][207][207] [207] ##***#"
  411. 11700 bs$(9)=" #     # ## ##***#"
  412. 11710 bs$(10)=" #####   ## ##***#"
  413. 11720 bs$(11)="     #####     ###"
  414. 11730 bs$(12)="         #     #"
  415. 11740 bs$(13)="         #######"
  416. 11750 bs$(14)=""
  417. 11760 return
  418. 11800 rem bild 10
  419. 11810 ae=16:vm=5:hm=7:tm=540:bl$="010"
  420. 11820 bs$(1)="   #########"
  421. 11830 bs$(2)="  ##   ##  ######"
  422. 11840 bs$(3)="###     #  #    ###"
  423. 11850 bs$(4)="#  [207] #[207] #  #  *** #"
  424. 11860 bs$(5)="# # [207]#[216][207]## # #*#* #"
  425. 11870 bs$(6)="#  # #[207]  #    * * #"
  426. 11880 bs$(7)="# [207]    [207] # # #*#* #"
  427. 11890 bs$(8)="#   ##  ##[207] [207] * * #"
  428. 11900 bs$(9)="# [207] #   #  #[207]#*#* #"
  429. 11910 bs$(10)="## [207]  [207]   [207]  [207]*** #"
  430. 11920 bs$(11)=" #[207] ######    ##  #"
  431. 11930 bs$(12)=" #  #    ##########"
  432. 11940 bs$(13)=" ####"
  433. 11950 bs$(14)=""
  434. 11960 return
  435. 12000 rem bild 11
  436. 12010 ae=15:vm=4:hm=13:tm=570:bl$="011"
  437. 12020 bs$(1)="            ######"
  438. 12030 bs$(2)="        #####    #"
  439. 12040 bs$(3)="   ######   # [207]  #"
  440. 12050 bs$(4)="   #    # [207] [216][207]   #"
  441. 12060 bs$(5)="   #  [207]  # # [207]  ##"
  442. 12070 bs$(6)="   ###[207]  [207] ## ###"
  443. 12080 bs$(7)="     #   ## [207][207]#"
  444. 12090 bs$(8)="     ###[207]##   #"
  445. 12100 bs$(9)="     #***[207] [207]  ##"
  446. 12110 bs$(10)="     #*o* #    #"
  447. 12120 bs$(11)="     #**# #[207] [207] #"
  448. 12130 bs$(12)="     #**##  ####"
  449. 12140 bs$(13)="     #*****##"
  450. 12150 bs$(14)="     #######"
  451. 12160 return
  452. 12200 rem bild 12
  453. 12210 ae=6:vm=11:hm=5:tm=420:bl$="012"
  454. 12220 bs$(1)="     ##########"
  455. 12230 bs$(2)="     #**  #   #"
  456. 12240 bs$(3)="     #**      #"
  457. 12250 bs$(4)="     #**  #  ####"
  458. 12260 bs$(5)="    #######  #  ##"
  459. 12270 bs$(6)="    #            #"
  460. 12280 bs$(7)="    #  #  ##  #  #"
  461. 12290 bs$(8)="  #### ##  #### ##"
  462. 12300 bs$(9)="  #  [207]  ##### #  #"
  463. 12310 bs$(10)="  # # [207]  [207]  # [207]  #"
  464. 12320 bs$(11)="  # [216][207]  [207]   #   ##"
  465. 12330 bs$(12)="  #### ## #######"
  466. 12340 bs$(13)="     #    #"
  467. 12350 bs$(14)="     ######"
  468. 12360 return
  469. 12400 rem bild 13
  470. 12410 ae=11:vm=3:hm=14:tm=570:bl$="013"
  471. 12420 bs$(1)="     ###########"
  472. 12430 bs$(2)="     #  *  #   #"
  473. 12440 bs$(3)="     # #*    [216] #"
  474. 12450 bs$(4)=" ##### ##**# ####"
  475. 12460 bs$(5)="##  # **###     ###"
  476. 12470 bs$(6)="# [207] #***   [207] #  [207] #"
  477. 12480 bs$(7)="#    ** ##  ## ## #"
  478. 12490 bs$(8)="####[207]##[207]# [207] #   # #"
  479. 12500 bs$(9)="  ## #    #[207] [207][207] # #"
  480. 12510 bs$(10)="  #  [207] # #  # [207]## #"
  481. 12520 bs$(11)="  #               #"
  482. 12530 bs$(12)="  #  ###########  #"
  483. 12540 bs$(13)="  ####         ####"
  484. 12550 bs$(14)=""
  485. 12560 return
  486. 12600 rem bild 14
  487. 12610 ae=18:vm=8:hm=4:tm=1035:bl$="014"
  488. 12620 bs$(1)="    #######"
  489. 12630 bs$(2)="    #  #  ####"
  490. 12640 bs$(3)="##### [207]#[207] #  ##"
  491. 12650 bs$(4)="#** #  #  #   #"
  492. 12660 bs$(5)="#** # [207]#[207] #  [207]####"
  493. 12670 bs$(6)="#*  #     #[207]  #  #"
  494. 12680 bs$(7)="#**   [207]#  # [207]    #"
  495. 12690 bs$(8)="#**[216]#  #[207] #[207]  #  #"
  496. 12700 bs$(9)="#** # [207]#     [207]#  #"
  497. 12710 bs$(10)="#** #  #[207][207]#[207]  #  ##"
  498. 12720 bs$(11)="#** # [207]#  #  [207]#[207]  #"
  499. 12730 bs$(12)="#** #  #  #   #   #"
  500. 12740 bs$(13)="##* ####  #####   #"
  501. 12750 bs$(14)=" ####  ####   #####"
  502. 12760 return
  503. 12800 rem bild 15
  504. 12810 ae=13:vm=10:hm=16:tm=540:bl$="015"
  505. 12820 bs$(1)="   #######"
  506. 12830 bs$(2)="   #  #  #####"
  507. 12840 bs$(3)="  ##  #  #***###"
  508. 12850 bs$(4)="  #  [207]#  #***  #"
  509. 12860 bs$(5)="  # [207] #[207][207] ***  #"
  510. 12870 bs$(6)="  #  [207]#   *** *#"
  511. 12880 bs$(7)="  #   # [207]########"
  512. 12890 bs$(8)="  ##[207]       [207] [207] #"
  513. 12900 bs$(9)="  ##  #  [207][207] #   #"
  514. 12910 bs$(10)="   ######  ##[207][207][216]#"
  515. 12920 bs$(11)="       #       ##"
  516. 12930 bs$(12)="       #########"
  517. 12940 bs$(13)=""
  518. 12950 bs$(14)=""
  519. 12960 return
  520. 13000 rem bild 16
  521. 13010 ae=20:vm=12:hm=11:tm=900:bl$="016"
  522. 13020 bs$(1)=" #################"
  523. 13030 bs$(2)=" #***   #    #   ##"
  524. 13040 bs$(3)="##*****  [207]## # #[207] #"
  525. 13050 bs$(4)="#******#  [207]  #    #"
  526. 13060 bs$(5)="#******#  #  # #  #"
  527. 13070 bs$(6)="######### [207]  [207] [207]  #"
  528. 13080 bs$(7)="  #     #[207]##[207] ##[207]##"
  529. 13090 bs$(8)=" ##   [207]    # [207]    #"
  530. 13100 bs$(9)=" #  ## ### #  ##[207] #"
  531. 13110 bs$(10)=" # [207] [207][207]     [207]  [207]  #"
  532. 13120 bs$(11)=" # [207]    [207]##[207] ######"
  533. 13130 bs$(12)=" #######  [216] ##"
  534. 13140 bs$(13)="       ######"
  535. 13150 bs$(14)=""
  536. 13160 return
  537. 13200 rem bild 17
  538. 13210 ae=16:vm=5:hm=12:tm=555:bl$="017"
  539. 13220 bs$(1)="#####"
  540. 13230 bs$(2)="#   ##"
  541. 13240 bs$(3)="# [207]  #########"
  542. 13250 bs$(4)="## # #       ######"
  543. 13260 bs$(5)="## #   [207]#[207]#[216]  #   #"
  544. 13270 bs$(6)="#  #      [207] #   [207] #"
  545. 13280 bs$(7)="#  ### ######### ##"
  546. 13290 bs$(8)="#  ## **o***** # ##"
  547. 13300 bs$(9)="## ## o*o**o*o # ##"
  548. 13310 bs$(10)="# [207]########## ##[207] #"
  549. 13320 bs$(11)="#  [207]   [207]  [207]    [207]  #"
  550. 13330 bs$(12)="#  #   #   #   #  #"
  551. 13340 bs$(13)="###################"
  552. 13350 bs$(14)=""
  553. 13360 return
  554. 13400 rem bild 18
  555. 13410 ae=18:vm=6:hm=6:tm=1050:bl$="018"
  556. 13420 bs$(1)="       ###########"
  557. 13430 bs$(2)="       #   #     #"
  558. 13440 bs$(3)="#####  #     [207] [207] #"
  559. 13450 bs$(4)="#   ##### [207]## # ##"
  560. 13460 bs$(5)="# [207] ##   # ## [207]  #"
  561. 13470 bs$(6)="# [207]  [216][207][207] # ##[207][207][207] #"
  562. 13480 bs$(7)="## ###   # ##    #"
  563. 13490 bs$(8)="## #   ### #####[207]#"
  564. 13500 bs$(9)="## #     [207]  #****#"
  565. 13510 bs$(10)="#  ### ## [207] #****##"
  566. 13520 bs$(11)="# [207]   [207] #   #**[207]* #"
  567. 13530 bs$(12)="#  ## [207] #  ##**** #"
  568. 13540 bs$(13)="#####   ######***##"
  569. 13550 bs$(14)="    #####    #####"
  570. 13560 return
  571. 13600 rem bild 19
  572. 13610 ae=15:vm=12:hm=8:tm=525:bl$="019"
  573. 13620 bs$(1)="           ####"
  574. 13630 bs$(2)="      ######  ##"
  575. 13640 bs$(3)="      # [207] [207]   ##"
  576. 13650 bs$(4)="   ####  [207] [207] [207] ###"
  577. 13660 bs$(5)="   # [207] [207]   [207][207]    #"
  578. 13670 bs$(6)="   #  #  [207]   [207] [207] #"
  579. 13680 bs$(7)="   ## ##### ######"
  580. 13690 bs$(8)="    #   #*** #"
  581. 13700 bs$(9)="    #  [207] ****#"
  582. 13710 bs$(10)="    # [207] #****#"
  583. 13720 bs$(11)="    ## [207]#****#"
  584. 13730 bs$(12)="     ##[216]######"
  585. 13740 bs$(13)="      ###"
  586. 13750 bs$(14)=""
  587. 13760 return
  588. 13800 rem bild 20
  589. 13810 ae=15:vm=3:hm=14:tm=915:bl$="020"
  590. 13820 bs$(1)=""
  591. 13830 bs$(2)="   ###############"
  592. 13840 bs$(3)="   #    ##  #[216]   #"
  593. 13850 bs$(4)="   # [207][207] # [207] ###[207] #"
  594. 13860 bs$(5)="   ## [207] #[207]  # [207]  #"
  595. 13870 bs$(6)="   ##        [207]   #"
  596. 13880 bs$(7)="   #  ####### ####"
  597. 13890 bs$(8)="   # [207]#    [207]****##"
  598. 13900 bs$(9)="   #   [207][207]#  *****#"
  599. 13910 bs$(10)="   #  # [207] ## #***#"
  600. 13920 bs$(11)="   #  # [207]  [207] #**##"
  601. 13930 bs$(12)="   ####      #*###"
  602. 13940 bs$(13)="   ###############"
  603. 13950 bs$(14)=""
  604. 13960 return
  605. 14000 rem bild 21
  606. 14010 ae=14:vm=11:hm=14:tm=690:bl$="021"
  607. 14020 bs$(1)="          ####"
  608. 14030 bs$(2)="    #######  ####"
  609. 14040 bs$(3)="    #    [207]  ****#"
  610. 14050 bs$(4)="  ###   # # **#*#"
  611. 14060 bs$(5)="  # [207][207] #  # ****#"
  612. 14070 bs$(6)="  #    # [207]# **#*#"
  613. 14080 bs$(7)="  ##[207]###[207]  ###  #"
  614. 14090 bs$(8)="   #  #  [207] [207]    #"
  615. 14100 bs$(9)="   #    [207] [207]  #[207] #"
  616. 14110 bs$(10)="   # [207]## [207] ##  ##"
  617. 14120 bs$(11)="   ## #### # [216]##"
  618. 14130 bs$(12)="    #   #  [207] ##"
  619. 14140 bs$(13)="    ###     ##"
  620. 14150 bs$(14)="      #######"
  621. 14160 return
  622. 14200 rem bild 22
  623. 14210 ae=8:hm=14:vm=3:tm=540:bl$="022"
  624. 14220 bs$(1)=""
  625. 14230 bs$(2)="           ####"
  626. 14240 bs$(3)="     ####### [216]#"
  627. 14250 bs$(4)="     #     [207]  #"
  628. 14260 bs$(5)="     #   [207]## [207]#"
  629. 14270 bs$(6)="     ## #***# #"
  630. 14280 bs$(7)="      #[207][207]***  ##"
  631. 14290 bs$(8)="      # #* *#  #"
  632. 14300 bs$(9)="      #   # #[207] #"
  633. 14310 bs$(10)="      #[207]  [207]    #"
  634. 14320 bs$(11)="      #  #######"
  635. 14330 bs$(12)="      ####"
  636. 14340 bs$(13)=""
  637. 14350 bs$(14)=""
  638. 14360 return
  639. 14400 rem bild 23
  640. 14410 ae=24:vm=3:hm=18:tm=630:bl$="023"
  641. 14420 bs$(1)="      ########"
  642. 14430 bs$(2)="   ####      ######"
  643. 14440 bs$(3)="   #    ## [207] [207]   [216]#"
  644. 14450 bs$(4)="   # ## ##[207]#[207] [207] [207]##"
  645. 14460 bs$(5)=" ### ******#  [207][207] ##"
  646. 14470 bs$(6)=" #   ******#  #   #"
  647. 14480 bs$(7)=" # # ******#[207]  [207]  #"
  648. 14490 bs$(8)=" # # ****** [207][207]# [207] #"
  649. 14500 bs$(9)=" #  [207]### ###[207]  [207] ##"
  650. 14510 bs$(10)=" ###   [207] [207]  [207]  [207] #"
  651. 14520 bs$(11)="   #   [207] [207]  [207]  [207] #"
  652. 14530 bs$(12)="   ######   ######"
  653. 14540 bs$(13)="        #####"
  654. 14550 bs$(14)=""
  655. 14560 return
  656. 14600 rem bild 24
  657. 14610 ae=9:vm=9:hm=10:tm=510:bl$="024"
  658. 14620 bs$(1)=""
  659. 14630 bs$(2)="        #######"
  660. 14640 bs$(3)="    #####  #  ####"
  661. 14650 bs$(4)="    #   #   [207]    #"
  662. 14660 bs$(5)=" #### #[207][207] ## ##  #"
  663. 14670 bs$(6)="##      # #  ## ###"
  664. 14680 bs$(7)="#  ### [207]#[207]  [207]  [207]  #"
  665. 14690 bs$(8)="#***    # ##  #   #"
  666. 14700 bs$(9)="#***#    [216] # ### ##"
  667. 14710 bs$(10)="#***#  ###  [207]  [207]  #"
  668. 14720 bs$(11)="######## ##   #   #"
  669. 14730 bs$(12)="          #########"
  670. 14740 bs$(13)=""
  671. 14750 bs$(14)=""
  672. 14760 return
  673. 14800 rem bild 25
  674. 14810 ae=17:vm=10:hm=8:tm=990:bl$="025"
  675. 14820 bs$(1)="  ##### ####"
  676. 14830 bs$(2)="  #***# #  ####"
  677. 14840 bs$(3)="  #***###  [207]  #"
  678. 14850 bs$(4)="  #****## [207]  [207]###"
  679. 14860 bs$(5)="  ##****##   [207]  #"
  680. 14870 bs$(6)="  ###*** ## [207] [207] #"
  681. 14880 bs$(7)="  # ##    #  [207]  #"
  682. 14890 bs$(8)="  #  ## # ### ####"
  683. 14900 bs$(9)="  # [207] # #[207]  [207]    #"
  684. 14910 bs$(10)="  #  [207] [216] [207]    [207]  #"
  685. 14920 bs$(11)="  #   # [207] [207][207] [207] ###"
  686. 14930 bs$(12)="  #  ######  ###"
  687. 14940 bs$(13)="  # ##    ####"
  688. 14950 bs$(14)="  ###"
  689. 14960 return
  690. 15000 rem bild 26
  691. 15010 ae=14:vm=12:hm=11:tm=660:bl$="026"
  692. 15020 bs$(1)="            ######"
  693. 15030 bs$(2)="            #    #"
  694. 15040 bs$(3)="  #####   ### ## #"
  695. 15050 bs$(4)="  #** ##### [207]  # #"
  696. 15060 bs$(5)="  #**     [207]   [207]# #"
  697. 15070 bs$(6)="  #**  ## ##   # #"
  698. 15080 bs$(7)="  #** ## [207] #[207] [207]# #"
  699. 15090 bs$(8)="  #** #     [207]  # #"
  700. 15100 bs$(9)="  #** #  [207] ###[207]  #"
  701. 15110 bs$(10)="  #** # [207] [207]  [207] ###"
  702. 15120 bs$(11)="  ### ## # [207]    #"
  703. 15130 bs$(12)="    #    #[216]## [207] #"
  704. 15140 bs$(13)="    #########  ##"
  705. 15150 bs$(14)="            ####"
  706. 15160 return
  707. 15200 rem bild 27
  708. 15210 ae=16:vm=7:hm=7:tm=690:bl$="027"
  709. 15220 bs$(1)=""
  710. 15230 bs$(2)="         ####"
  711. 15240 bs$(3)=" #########  ##"
  712. 15250 bs$(4)="##  [207]      [207] #####"
  713. 15260 bs$(5)="#   ## ##   ##***#"
  714. 15270 bs$(6)="# #[207][207] [207] [207][207]#[207]##***#"
  715. 15280 bs$(7)="# #   [216]   #   ***#"
  716. 15290 bs$(8)="#  [207]# ###[207][207]   ***#"
  717. 15300 bs$(9)="# [207]  [207][207]  [207] ##****#"
  718. 15310 bs$(10)="###[207]       #######"
  719. 15320 bs$(11)="  #  #######"
  720. 15330 bs$(12)="  ####"
  721. 15340 bs$(13)=""
  722. 15350 bs$(14)=""
  723. 15360 return
  724. 15400 rem bild 28
  725. 15410 ae=34:vm=7:hm=3:tm=480:bl$="028"
  726. 15420 bs$(1)="    ####"
  727. 15430 bs$(2)="#####  #"
  728. 15440 bs$(3)="#  [207] [207] # #######"
  729. 15450 bs$(4)="#   [207]  # #o*o*o#"
  730. 15460 bs$(5)="## [207] [207] ###*o*o*#"
  731. 15470 bs$(6)=" #[207] [207]  #  o*o*o#"
  732. 15480 bs$(7)=" #[216][207] [207]    *o*o##"
  733. 15490 bs$(8)=" #[207] [207]  #  o*o*o#"
  734. 15500 bs$(9)="## [207] [207] ###*o*o*#"
  735. 15510 bs$(10)="#   [207]  # #o*o*o#"
  736. 15520 bs$(11)="#  [207] [207] # #######"
  737. 15530 bs$(12)="#####  #"
  738. 15540 bs$(13)="    ####"
  739. 15550 bs$(14)=""
  740. 15560 return
  741. 25000 rem musikdatenfeld
  742. 25010 data72,2,69,1,67,2,64,1,65,2,69,1,65,2,62,1
  743. 25020 data64,2,60,1,62,2,59,1,60,2,-1,-1
  744. 25030 data57,6,57,6,57,3,57,9,60,6,59,3,59,6,57,3,57,6
  745. 25040 data56,3,57,6,-1,-1
  746. 25050 data60,2,62,2,64,2,65,2,62,2,64,2,60,2,67,4
  747. 25060 data72,4,71,4,72,4,74,2,67,2,69,2,71,2,72,2
  748. 25070 data69,2,71,2,67,2,74,4,79,4,77,4,79,4,76,4
  749. 25080 data81,2,79,2,77,2,76,2,79,2,77,2,81,2,79,2
  750. 25090 data77,2,76,2,74,2,72,2,76,2,74,2,77,2,76,2
  751. 25100 data74,2,72,2,71,2,69,2,72,2,71,2,74,2,72,2
  752. 25110 data71,2,69,2,67,2,66,2,69,2,67,2,71,2,69,2
  753. 25120 data62,2,72,1,71,1,72,2,74,4,71,2,69,2,67,2
  754. 25130 data66,2,64,2,67,2,66,2,69,2,67,2,71,2,69,2
  755. 25140 data72,2,71,2,71,1,72,1,74,2,79,2,71,1,72,1
  756. 25150 data71,2,69,2,67,2,67,8,67,8,-1,-1
  757. 30000 rem ******************************
  758. 30010 rem olaf krause (computerpost) &
  759. 30020 rem christian schaeffner anno 1990
  760. 30030 rem h.-heine-str.13/zimmer 32
  761. 30040 rem o-9200 freiberg
  762. 30050 rem cpc 464 & +4/c16 
  763. 30060 rem test auf cpc 464
  764. 30070 rem ******************************
  765. 30080 rem erweiterung auf 28 bilder
  766. 30090 rem eingebunden von:
  767. 30100 rem mario leubner
  768. 30110 rem chemnitztalstrasse 25
  769. 30120 rem o-9114 markersdorf
  770. 30130 rem auf kc85/4 mit floppy-disk
  771. 30140 rem 01.12.1990
  772. 30150 rem ******************************
  773. 30160 rem erstausstrahlung: deutschlandsender kultur
  774. 30170 rem-spezial 901128
  775.