home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / spritefinder (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  66 lines
  1. 0 f1=1:f2=2:f3=7:f4=1
  2. 1 iff=1then10
  3. 5 gosub4000
  4. 10 print"[147]";:poke53280,0:poke53281,0
  5. 20 print:printtab(13)"  klau-menue  [146]":print:print
  6. 30 print"  <_>   [146] sprite abspeichern":print
  7. 40 print"  <+>   [146] hoeherer speicherbereich":print
  8. 50 print"  <e>   [146] programmende":print
  9. 60 print" <crsr> [146] spriteblock erhoehen":print
  10. 70 print" <crsd> [146] spriteblock erniedrigen":print
  11. 80 print"  <f1>  [146] farbe 1 veraendern":print
  12. 90 print"  <f3>  [146] farbe 2 veraendern":print
  13. 100 print"  <f5>  [146] farbe 3 veraendern":print
  14. 105 print"  <f7>  [146] farbe 4 veraendern":print
  15. 110 print"                 return                 [146]"
  16. 120 geta$:ifa$<>chr$(13)then120
  17. 130 print"[147]";
  18. 135 input"speichername          ";c$
  19. 140 input"speicherbereich <0-3> ";s
  20. 145 ifs>3ors<0thens=0
  21. 150 input"anfangsblock <0-255>  ";b
  22. 155 ifb>255orb<0then150
  23. 156 c$=left$(c$,7):print"[147]"
  24. 160 v=53248:d=56576:i=(s-3)*-1
  25. 170 pokev,195:pokev+1,75
  26. 180 pokev+2,185:pokev+3,125
  27. 185 pokev+4,135:pokev+5,75:pokev+6,125:pokev+7,125
  28. 190 pokev+21,15:pokev+28,12
  29. 200 pokev+23,10:pokev+29,10
  30. 210 poke2040+s*16384,b:poke2041+s*16384,b
  31. 220 pokev+37,f1:pokev+38,f2
  32. 230 pokev+39,f3:pokev+40,f3:pokev+41,f4
  33. 235 poked,peek(d)and252ori
  34. 240 geta$:ifa$=""then240
  35. 250 ifa$="[133]"thenf1=f1+1
  36. 260 iff1>15thenf1=0
  37. 270 ifa$="[134]"thenf2=f2+1
  38. 280 iff2>15thenf2=0
  39. 290 ifa$="[135]"thenf3=f3+1
  40. 300 iff3>15thenf3=0
  41. 302 ifa$="[136]"thenf4=f4+1
  42. 304 iff4>15thenf4=0
  43. 305 pokev+37,f1:pokev+38,f2:pokev+39,f4:pokev+40,f4:pokev+41,f3:pokev+42,f3
  44. 310 ifa$="e"thengosub2000:goto3000
  45. 320 ifa$="_"thengosub1000
  46. 330 ifa$="+"thengosub2000:print"[147]":goto140
  47. 340 ifa$=""thenb=b+1:ifb>255thenb=255
  48. 350 ifa$=""thenb=b-1:ifb<0thenb=0
  49. 360 poke2040+s*16384,b:poke2041+s*16384,b
  50. 365 poke2042+s*16384,b:poke2043+s*16384,b
  51. 370 goto240
  52. 1000 m=s*16384+64*b:hi=int(m/256):lo=m-hi*256
  53. 1005 f$=c$+str$(s)+"."+str$(b)
  54. 1010 poke903,lo:poke904,hi
  55. 1020 sys896
  56. 1030 open1,8,1,f$
  57. 1040 forz=832to832+62
  58. 1050 print#1,chr$(peek(z));
  59. 1060 nextz
  60. 1090 close1:return
  61. 2000 poked,peek(d)and252or3:return
  62. 3000 pokev+21,0:print"[147]":printtab(10)"block           : [146] ";b:print
  63. 3010 printtab(10)"speicherbereich : [146] ";s:print
  64. 3020 printtab(10)"speichername    : [146]  ";c$:print:end
  65. 4000 f=1:load"klau obj.$037f",8,1
  66.