home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 63 / Tiger_Disk_063_19xx_Tiger-Crew-Disk_de_Side_B.d64 / border sprites (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  91 lines
  1. 5 ifa=0thena=1:load"sprites*",8,1
  2. 10 ifpeek(49152)+peek(49156)<>103thenload"mcode*",8,1
  3. 20 poke53269,255:poke53277,0:poke53271,0:fori=0to7:poke53287+i,4
  4. 30 poke2040+i,192+i:next
  5. 35 fori=0to7:sys49155,i,90+i*24,25:next:poke2,1
  6. 50 poke53280,5:poke53281,0:sys49152
  7. 60 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  8. 70 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  9. 80 print"[150]     ![204]et your sprites break free!"
  10. 90 print"[159] [196]ie [193]ssembler-[210]outine erlaubt es [196]ir,"
  11. 100 print" [211]prites im oberen und unteren [210]ahmen"
  12. 110 print" darzustellen."
  13. 120 print" [206]atuerlich kannst [196]u sie auch auf dem"
  14. 130 print" normalen [211]creen plazieren, ohne die"
  15. 140 print" bei der [216]-[208]ositionierung sonst notwen-"
  16. 150 print" digen [208]okes. - [211]etze die [214]ariable [154][195][210][159]"
  17. 160 print" zunaechst auf die [211]tartadresse der"
  18. 170 print" [210]outine."
  19. 180 gosub1000
  20. 190 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  21. 200 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  22. 210 print"[150]     ![204]et your sprites break free!"
  23. 220 print"[154] [211][217][211] [195][210] [159]aktiviert die [210]outine und [196]u"
  24. 230 print" kannst [196]einen [211]prites jetzt jede"
  25. 240 print" [217]-[203]oordinate von [154]0 [159]bis  [154]255[159] geben."
  26. 250 print" [197]s erscheint ein [200]inweis, dass die"
  27. 260 print" [210]outine aktiv ist, den [196]u aber mit"
  28. 270 print" [154][208][207][203][197] 2,1[159] abschalten kannst."
  29. 280 print" [200]inweis: [205]oeglich sind nur die [210]ahmen"
  30. 290 print" [207][194][197][206] und [213][206][212][197][206] !"
  31. 300 gosub1000
  32. 310 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  33. 320 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  34. 330 print"[150]     ![204]et your sprites break free!"
  35. 340 print"[154] [211][217][211] [195][210]+3,sn,x,y  [159] positioniert [211]prite"
  36. 350 print" [154]sn[159] an die [211]telle, die [196]u mit"
  37. 360 print" [154]x[159] und [154]y[159] bestimmst. - [200]ierdurch werden"
  38. 370 print" auch automatisch die [210]egister-[194]its"
  39. 380 print" gesetzt bzw. geloescht."
  40. 390 print"[154] "chr$(34)"sn"chr$(34)"[159] kann zwischen 0 und 7, [154]"chr$(34);
  41. 400 print"x"chr$(34):print"[159] zwischen 0 und 360, und [154]"chr$(34)"y"chr$(34);
  42. 410 print"[159] zwischen    0 und 255 betragen.":gosub1000
  43. 420 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  44. 430 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  45. 440 print"[150]     ![204]et your sprites break free!"
  46. 450 print"[159] [211]oll die [210]outine verschoben werden ?"
  47. 460 print"[154]        [194]itte [202] oder [206] druecken"
  48. 470 geta$:ifa$="n"thens=49152:goto570
  49. 480 ifa$<>"j"then470
  50. 490 print"[159] [211]tartadresse :";:open1,0:input#1,a$:close1
  51. 500 s=val(a$):if(s<0)or(s>65535)or(s>48800ands<49511)thenprint"[145][145][145]":goto490
  52. 510 sa=s:print:print"[145][159]        [214]erlege [195]ode an[154]"sa
  53. 520 fori=0to315:pokesa+i,peek(49152+i):next
  54. 530 fori=1to9:readpl,ex:e=sa+ex:el=e-(256*int(e/256)):eh=int(e/256)
  55. 540 pokesa+pl,el:pokesa+pl+1,eh:next
  56. 550 data1,89,4,27,28,9,42,35,47,9,65,82,83,9,111,124,122,169
  57. 560 e=sa+223:pokesa+178,e-(256*int(e/256)):pokesa+180,int(e/256)
  58. 570 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  59. 580 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  60. 590 print"[150]     ![204]et your sprites break free!"
  61. 600 print" [215]ichtiger [200]inweis:"
  62. 610 print"[159] [195]ode liegt von[154]"s"[159]bis[154]"s+315"[159]incl."
  63. 620 print"[154] [195][210][159] also mit[154]"s"[157][159] angeben."
  64. 630 print"[159] [210]outine ist initialisiert."
  65. 640 print" [218]um [211]peichern der [210]outine erst"
  66. 650 print"[154] [210][213][206]/[211][212][207][208][159]  /  [154][210][197][211][212][207][210][197][159] druecken, dann:"
  67. 660 print"[154] [210][213][206] 5000"
  68. 670 a$="[145][210][197][193][196][217]":fori=1to6:poke630+i,asc(mid$(a$,i,1)):next:poke637,141:poke198,7
  69. 680 end
  70. 1000 geta$:ifa$<>" "then1000
  71. 1010 return
  72. 5000 x=peek(53280)and15:y=peek(53281)and15:ifx=14andy=6then5030
  73. 5010 print"before saving code, interrupts must be  disabled - restore the screen"
  74. 5020 end
  75. 5030 poke53280,5:poke53281,0
  76. 5040 print"[147][155]   [194][207][210][196][197][210] [211][208][210][201][212][197][211] and [211][208][210][201][212][197] [204][207][195][193][212][197][210]"
  77. 5050 print"   [215]ritten by [202].[198]inch     [211]ept. 1988"
  78. 5060 print"[150]     ![204]et your sprites break free!"
  79. 5070 print," [205][193][195][200][201][206][197] [195][207][196][197] [211][193][214][197][210]"
  80. 5080 print,"[159] [154][196][146]isk [159]oder [154][212][146]ape":dv=8:d$="[196][201][211][203]"
  81. 5090 geta$:ifa$="t"thendv=1:d$="[212][193][208][197]":goto5110
  82. 5100 ifa$<>"d"then5090
  83. 5110 print,"[145]   [159][211]peichere auf [154]"d$"   "
  84. 5120 print"[159] [211]tartadresse eingeben:[154] ";:open1,0:input#1,a$:close1
  85. 5130 a=val(a$):if(a<0ora>65535)thenprint"[145][145][145][145]":goto5120
  86. 5140 print:s=a:e=s+315:print"[145] [159][211]tartadresse:[154]"s"[157]       "
  87. 5150 print"[159] [197]ndadresse:  [154]"e:a$="bord.spr."+str$(s)
  88. 5160 sys49468 a$,dv,2,s,e+1
  89. 5170 print"[147][154][142]code saved ok";:poke53280,14:poke53281,6:end
  90. 0 
  91.