home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 68 / Tiger_Disk_068_19xx_Tiger-Crew-Disk_de_Side_B.d64 / sprite-wandler (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  160 lines

  1. 100 poke788,52:poke657,128:poke650,128
  2. 110 rem" sprite wandler 64 v.2
  3. 120 [143]" written by o.musolf
  4. 130 rem" hardenbergstr. 13
  5. 140 [143]" 4040 neuss 21
  6. 150 rem" tel.:02107/6605
  7. 160 [143]" (c) s+s soft
  8. 170 rem" (commodore 64)
  9. 180 xx[178]1:rs[178]1:vw[178]1:v[178]53248:f[178]2:fm1[178]0:fm2[178]6:y$[178]""
  10. 190 e$(0)[178]"ontocmd(NULL)waiton cmd(NULL)":e$(2)[178]"on cmd(NULL)ontocmd(NULL)"
  11. 200 [139][194](820)[178]0[167][151]832,195:[151]833,80:[151]820,1
  12. 210 [143]" * menue *
  13. 220 pokev+21,0:poke53280,254:poke53281,254:printchr$(14)"[147][144][211]prite [215]andler 64 [214].2"
  14. 230 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
  15. 240 print"by [207]liver [205]usolf"
  16. 250 print"[211]+[211] [211]oft 1984"
  17. 260 print"[164][164][164][164][164]"
  18. 270 print"[205]enue"
  19. 280 print"[164][164][157][157][198]1[146] = [208]rogrammende
  20. 290 [153]"totocmdcmdasc5wait = peeklock (NULL)un
  21. 300 print"[164][164][157][157][198]7[146] = [196][193][212][193] - [215]andler
  22. 310 [153]"peekitte waehlen (NULL)ie:"
  23. 320 [153]"onontocmd?":[129]t[178]1[164]55:[130]
  24. 330 [161]a$:[139]a$[179][177]""[167]350
  25. 340 [153]"onon cmd?":[129]t[178]1[164]55:[130]:[137]320
  26. 350 [139]a$[178]"read"[167]400
  27. 360 [139]a$[178]"input"[167]1570
  28. 370 [139]a$[178]"let"[167]1040
  29. 380 [137]340
  30. 390 [143]" * block run *
  31. 400 poke2040,0:pokev+23,0:pokev+29,0:pokev+39,f:pokev,220:pokev+1,131
  32. 410 pokev+37,fm1:pokev+38,fm2:pokev+28,0
  33. 420 print"[147][211]prite [215]andler 64 [214].2 ([194]lock [210]un)"
  34. 430 print"[164][164][157][157][198]1[146] = [214]ergroesserung [216]-[210]ichtung"
  35. 440 print"[164][164][157][157][198]3[146] = [214]ergroesserung [217]-[210]ichtung"
  36. 450 print"[164][164][157][157][198]5[146] = [211]prite [205]odus: [206]ormal
  37. 460 [153]"totocmdcmdasc7wait = (NULL)unspeed aendern ortantantantantantan^"
  38. 470 [153]"                      (NULL)      (NULL)"
  39. 480 [153]"_waitfn= (NULL)orwahl ^wait = (NULL)enue (NULL)      (NULL)"
  40. 490 [153]"tototototo       tab(         (NULL)      (NULL)"
  41. 500 [153]"(NULL)(NULL)atnlenvalwait = (NULL)erzoegerung  (NULL)      (NULL)"
  42. 510 [153]"tototototo                 (NULL)      (NULL)"
  43. 520 [153]"len(NULL)(NULL)(NULL)>wait = (NULL)un  /  (NULL)top  /tantantantantantanexp"
  44. 530 [153]"         to             peeklock: "
  45. 540 [153]"(NULL)unspeed ?wait"rs
  46. 550 [153]"to                        "[166]4[171][195]([196]([194](2040))))[194](2040)
  47. 560 [153]"1wait  = (NULL)prite ascarbe
  48. 570 print"[164][157]2[146]  = [211]prite [198]arbe 1 [205]ulticolor"
  49. 580 print"[164][157]3[146]  = [211]prite [198]arbe 2 [205]ulticolor":pokev+21,1
  50. 590 rem" * run beginn *
  51. 600 [129]tt[178]vw[164]255:[153][200](y$,18)[166]28[171][195]([196](tt)))" ";tt:[151]2040,tt
  52. 610 [161]a$:[151]198,0:[139]a$[178]""[167]xx[178][171]xx
  53. 620 [139]a$[178]"input"[175][194](v[170]29)[178]0[167][151]v[170]21,0:[151]v[170]29,1:[141]800:[151]v[170]21,1
  54. 630 [139]a$[178]"input"[175][194](v[170]29)[178]1[167][151]v[170]21,0:[151]v[170]29,0:[141]800:[151]v[170]21,1
  55. 640 [139]a$[178]"dim"[175][194](v[170]23)[178]0[167][151]v[170]21,0:[151]v[170]23,1:[141]800:[151]v[170]21,1
  56. 650 [139]a$[178]"dim"[175][194](v[170]23)[178]1[167][151]v[170]21,0:[151]v[170]23,0:[141]800:[151]v[170]21,1
  57. 660 [139]a$[178]"^"[167]220
  58. 670 [139]a$[178]"1"[167]f[178]f[170]1:[151]v[170]39,f:[139]f[178]16[167]f[178]0
  59. 680 [139]a$[178]"2"[167]fm1[178]fm1[170]1:[151]v[170]37,fm1:[139]m1[178]8[167]fm1[178]0
  60. 690 [139]a$[178]"3"[167]fm2[178]fm2[170]1:[151]v[170]38,fm2:[139]m2[178]8[167]fm2[178]0
  61. 700 [139]a$[178]"read"[175]m[178]1[167]m[178]0:[153][200](y$,7)[166]19)"(NULL)ormal    ":[151]v[170]28,0:a$[178]""
  62. 710 [139]a$[178]"read"[175]m[178]0[167]m[178]1:[153][200](y$,7)[166]19)"(NULL)ulticolor":[151]v[170]28,1
  63. 720 [139]a$[178]"let"[167][141]910
  64. 730 [139]a$[178]"_"[167]980
  65. 740 [153][200](y$,15)e$(xx[170]1)
  66. 750 [139]xx[178]1[167]610
  67. 760 [139]a$[178]" "[167]890
  68. 770 [129]w[178]1[164]rs
  69. 780 [130]
  70. 790 [130]:vw[178]1:[137]600
  71. 800 a$[178]"":[139][194](v[170]29)[178]0[175][194](v[170]23)[178]0[167][151]v,220:[151]v[170]1,131:[137]840
  72. 810 [139][194](v[170]29)[178]1[175][194](v[170]23)[178]1[167][151]v,208:[151]v[170]1,121:[137]840
  73. 820 [139][194](v[170]29)[178]0[175][194](v[170]23)[178]1[167][151]v,220:[151]v[170]1,121:[137]840
  74. 830 [139][194](v[170]23)[178]0[175][194](v[170]29)[178]1[167][151]v,208:[151]v[170]1,131
  75. 840 [139][194](v[170]23)[178]1[167][153]""[166]20)"tocmd(NULL)wait":[137]860
  76. 850 [153]""[166]20)" cmd(NULL)"
  77. 860 [139][194](v[170]29)[178]1[167][153]""[166]20)"tocmd(NULL)wait":[142]
  78. 870 [153]""[166]20)" cmd(NULL)":[142]
  79. 880 [142]
  80. 890 a$[178]"":[153][200](y$,12)[166]8)"tocmd(NULL)":[129]w[178]1[164]1000[170]rs:[130]
  81. 900 [153][200](y$,12)[166]8)" cmd(NULL)":[137]770
  82. 910 rs$[178]"":[153][200](y$,8)[166]5)"tocmd(NULL)"
  83. 920 [133]"                        cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";rs$
  84. 930 [139]rs$[178]""[167]950
  85. 940 rs[178][181]([197](rs$)):[139]rs[178][179]0[176]rs[177]1000[167]910
  86. 950 [153][200](y$,8)[166]5)" cmd(NULL)"
  87. 960 [153]"tocmd?wait"rs"cmd                         "
  88. 970 [142]
  89. 980 vw$[178]"":[153][200](y$,10)"tocmd(NULL)"
  90. 990 [133]"peeklock (NULL)r.                       cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdon cmd";vw$
  91. 1000 [139]vw$[178]""[167]1020
  92. 1010 vw[178][181]([197](vw$)):[139]vw[179][178]0[176]vw[177]255[167]980
  93. 1020 [153][200](y$,10)" cmd(NULL)"
  94. 1030 [153]"(NULL)unspeed ontocmd?wait"rs"cmd                         ":[137]600
  95. 1040 [151]v[170]23,0:[151]v[170]29,0:[151]v,76:[151]v[170]1,172
  96. 1050 [153]"loadstop(NULL)prite (NULL)andler 64 (NULL).2                      (str$atn(NULL)atn-(NULL)andler)"
  97. 1060 [153]"totocmdcmdasc5wait = peeklock -> str$atn(NULL)atn wandlung"
  98. 1070 [153]"totocmdcmdasc7wait = peeklock wahl"
  99. 1080 [153]"^wait  = (NULL)enue"
  100. 1090 [153]"tab(cmdpeeklock (NULL)ame ontocmd?"
  101. 1100 [153]"peeklock (NULL)r.  ontocmd?"
  102. 1110 [153]"     ortantantantan^"
  103. 1120 [153]"peeklock(NULL)    (NULL)"
  104. 1130 [153]"     (NULL)    (NULL)"
  105. 1140 [153][166]5[171][195]([196]([194](2040))))[194](2040)"cmd(NULL)    (NULL)"
  106. 1150 [153]"     /tantantantanexp":[151]v[170]21,1
  107. 1160 [153]"peekitte waehlen (NULL)ie:"
  108. 1170 [153][200](y$,23)
  109. 1180 [153]"onontocmd?wait":[129]t[178]1[164]55:[130]
  110. 1190 [161]a$:[139]a$[179][177]""[167]1210
  111. 1200 [153]"onon cmd?":[129]t[178]1[164]55:[130]:[137]1180
  112. 1210 [139]a$[178]"let"[167]1470
  113. 1220 [139]a$[178]"read"[167]1530
  114. 1230 [139]a$[178]"^"[167]220
  115. 1240 [137]1200
  116. 1250 [153]"load";:zn[178][194](832)[172]256[170][194](833):a[178]0:i[178]0
  117. 1260 [153]zn"rem "n$:zn[178]zn[170]10
  118. 1270 [153]zn"rem sprite wandler 64 v.2":zn[178]zn[170]10:i[178]2
  119. 1280 l[178]0:[153]zn"data";
  120. 1290 a$[178][202]([196]([194](sa)),2)
  121. 1300 [153]a$;:l[178]l[170][195](a$)[170]1:sa[178]sa[170]1
  122. 1310 [139]l[179]66[175]sa[179][178]ea[167][153]",";:[137]1290
  123. 1320 zn[178]zn[170]10:[153]:i[178]i[170]1
  124. 1330 [139] i[179]10 [175] sa[179][178]ea[167]1280
  125. 1340 [153]"run":i[178]i[170]1
  126. 1350 [151]631,19
  127. 1360 [129]p[178]0[164]i:[151]632[170]p,13:[130]
  128. 1370 [151]198,p[170]1
  129. 1380 b[178]sa[173]256:[151]828,b:[151]829,sa[171][181](b)[172]256
  130. 1390 b[178]ea[173]256:[151]830,b:[151]831,ea[171][181](b)[172]256
  131. 1400 b[178]zn[173]256:[151]832,b:[151]833,zn[171][181](b)[172]256
  132. 1410 [128]
  133. 1420 sa[178]25[216][172][194](828)[170][194](829)
  134. 1430 ea[178]256[172][194](830)[170][194](831)
  135. 1440 zn[178]256[172][194](832)[170][194](833)
  136. 1450 [153]"load";:[137]1280
  137. 1460 [143] * blockwahl *
  138. 1470 vw$[178]"":[153][200](y$,12);:[133]" cmd";vw$
  139. 1480 [153][200](y$,12)"tocmd?wait                         "
  140. 1490 [139]vw$[178]""[167]1170
  141. 1500 vw[178][181]([197](vw$)):[139]vw[179][178]0[176]vw[177]255[167]1470
  142. 1510 [153][200](y$,18)"     "
  143. 1520 [151]2040,vw:[153][200](y$,18)[166]5[171][195]([196](vw)))vw:[137]1170
  144. 1530 n$[178]"":[153][200](y$,10);:[133]" cmd";n$
  145. 1540 [153][200](y$,10)"tocmd?wait                         "
  146. 1550 [139]n$[178]""[167]1170
  147. 1560 sa[178][194](2040)[172]64:ea[178]sa[170]63:[137]1250
  148. 1570 [153]"load(NULL)prite (NULL)andler 64 (NULL).2 ((NULL)rogrammende)"
  149. 1580 [153]"totototototototototototototo"
  150. 1590 [153]"peekitte warten !"
  151. 1600 [129]t[178]1[164]2000:[130]:zn[178]100:[153]"loadcont"[199](142);
  152. 1610 [153]zn:zn[178]zn[170]10:i[178]i[170]1:[139]i[179]9[167]1610
  153. 1620 [153]"goto1640":[151]631,19:[129]t[178]0[164]9:[151]632[170]t,13:[130]:[151]198,t[170]1
  154. 1630 b[178]zn[173]256:[151]832,b:[151]833,zn[171][181](b)[172]256:[128]
  155. 1640 zn[178]256[172][194](832)[170][194](833)
  156. 1650 [153]"load";:[139]zn[179][177]1630[167]1610
  157. 1660 [151]631,19:[129]t[178]0[164]9:[151]632[170]t,13:[130]
  158. 1670 [129]t[178]163[164]168:[153]t[172]10:[130]:[153]"?"[199](34)"loadstop"[199](34)";:list"
  159. 1680 [151]657,0:[151]198,10
  160.