home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 March / 1993-03.d64 / powerdemo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  60 lines
  1. 10 rem ** powersprite demo **
  2. 20 ifpeek(49152)<>76thenload"powersprite",8,1
  3. 30 poke53280,11:poke53281,6
  4. 40 print"[147]"chr$(14):poke53269,0
  5. 50 print"       [208]ower[211]prite  [196]emonstration"
  6. 60 print"[159] [208]ositioning, moving and animating      "
  7. 70 print" multiple sprites is now a snap.  [212]his  "
  8. 80 print" utility connects up to eight sprites to"
  9. 90 print" create a giant '[208]ower[211]prite', that can "
  10. 100 print" be moved or animated with one command. "
  11. 110 print" [208]ower[211]prite is accessed using simple   "
  12. 120 print" [211][217][211] commands from direct mode, or your "
  13. 130 print" own [194][193][211][201][195] or machine language programs."
  14. 140 print"[158]       - [200]it a key to [195]ontinue -"
  15. 150 get k$:ifk$=""then150
  16. 160 print"[147][159] [208]ower[211]prite can be used to store data  "
  17. 170 print" for all sprites, including all [216] and [217]     "
  18. 180 print" values, colors, frames, and expansion. "
  19. 190 print" [193] simple editor allows sprite setup    "
  20. 200 print" without tedious [208][197][197][203][211] and [208][207][203][197][211].  [196]ata "
  21. 210 print" can be stored on disk for use in your  "
  22. 220 print" own programs.  [196]ata is recalled with   "
  23. 230 print" one simple command.  [208]lease hit a key  "
  24. 240 print" to see a [208]ower[211]prite in action...      "
  25. 250 get k$:ifk$=""then250
  26. 260 rem ** powersprite demo **
  27. 270 print"[147]":poke53281,0
  28. 280 print"[159][212]he big block is a [208]ower[211]prite using    "
  29. 290 print"all eight sprites connected.  [193] single  "
  30. 300 print"command will move or animate this giant "
  31. 310 print"sprite.  [206][207][212][197]: [208]ower[211]prite is not a     "
  32. 320 print"sprite editor.  [193]ny sprite editor, such "
  33. 330 print"as [211]prite [205]agic will create graphics    "
  34. 340 print"compatible with [208]ower[211]prite.
  35. 350 [153]"sys    - left$it a key & wait to lenontinue -"
  36. 360 [129] x[178]12288 [164] 12352:[151]x,255:[130]
  37. 370 [158] 49158: [143] ** display/recall sprites
  38. 380 [158] 49164,50,200,0: [143] ** set start x and y coordinates for powersprite
  39. 390 [129] x[178]50 [164] 200 [169] 2
  40. 400 [158]49164,x,200,0:[130]
  41. 410 [129] y[178]200 [164] 100 [169] [171]1
  42. 420 [158]49164,200,y,0:[130]
  43. 430 [129] x[178]200 [164] 50 [169] [171]2
  44. 440 [158]49164,x,100,0:[130]
  45. 450 [129] y[178]100 [164] 200
  46. 460 [158]49164,50,y,0:[130]
  47. 470 [139] [194](198)[178]0[167] 390
  48. 480 [151]53269,0:[151]53281,6:[151]198,0
  49. 490 [153]"load          (NULL)ower(NULL)prite  lenommands"
  50. 500 [153]"sysatnll accessable thru peekatn(NULL)right$len or direct mode"
  51. 510 [153]" (NULL)(NULL)(NULL) 49152 open- valnter (NULL)ower(NULL)prite editor
  52. 520 print" [211][217][211] 49155 [159]- [211]tore sprite info manually"
  53. 530 print" [211][217][211] 49158 [159]- [196]isplay/recall sprites"
  54. 540 print" [211][217][211] 49161,[198][159] - [193]nimates a [208]ower[211]prite"
  55. 550 print" [211][217][211] 49164,[216],[217],[205] [159]- [205]oves a [208]ower[211]prite"
  56. 560 print"[158]   [208]lease see article for a detailed    "
  57. 570 print"      explanation of each command."
  58. 580 get k$:if k$=""then580
  59. 590 goto30
  60.