home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_A.d64 / mag.019.CCCCCCC. < prev    next >
Text File  |  2023-02-26  |  1KB  |  60 lines
  1.  4 
  2. f]r coder
  3. pull-down-men]s
  4. f]r diese erste ausgabe siehts mager
  5. aus f]r den coder-corner.
  6.  
  7. diesmal gibt es nur eine routine f]r
  8. sogenannte pull-down-men]s{CBM--}d.h. men]s
  9. bei denen man per balken einen men]-
  10. punkt ausw@hlt.
  11.  
  12. nicht gerade viel{CBM--}ich weiss{CBM--}aber ich
  13. muss noch 100-te anderer artikel
  14. (]bertreib{CBM--}]bertreib) schreiben !
  15. n@chstes mal gibt's mehr.
  16.  
  17. bei fragen {CBM-+} schreiben !!!
  18. {CBM-P}{CBM-A} PULL-DOWN-MEN{SHIFT-POUND}S
  19. {CBM-E}{CBM-R} {CBM-Q}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-Z}
  20.  
  21. variablen {SHIFT-+}
  22. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  23. an    = anzahl men]punkte
  24. m$(x) = men]punkt x
  25. mf    = men]farbe
  26. q     = akt.farbwert
  27.  
  28. das men] arbeitet mit flash{CBM--}wie auch
  29. in den PUBLICATION-men]s !
  30. nach return steht in der variable "a"
  31. der gew@hlte men]punkt.
  32. 10 printchr$(147){SHIFT-+}a=1{SHIFT-+}q=-1{SHIFT-+}poke646,mf{SHIFT-+}
  33.    forg=1toan{SHIFT-+}print" "m$(g){SHIFT-+}nextg
  34. 20 q=q+1{SHIFT-+}poke646{CBM--}q:ifq=16thenq=0
  35. 30 poke211{CBM--}1{SHIFT-+}poke214{CBM--}a{SHIFT-+}sys58640{SHIFT-+}
  36.    printm$(a)
  37. 40 geta${SHIFT-+}ifa$=""then20
  38. 50 poke211{CBM--}1{SHIFT-+}poke214{CBM--}a{SHIFT-+}sys58640{SHIFT-+}
  39.    poke646{CBM--}mf{SHIFT-+}printm$(a)
  40. 60 ifa$="{CBM-K}"then
  41.    ifa>1thena=a-1
  42. 70 ifa$="{CBM-I}"then
  43.    ifa<anthena=a+1
  44. 80 ifa$="ReturN"thenreturn
  45. 90 goto 20
  46. soweit eine kleine men]routine.dazu
  47. ist auf diskette ein beispielprogramm.
  48. nat]rlich muss die routine noch aus-
  49. gebaut werden{CBM--}aber das kann jetzt ja
  50. jeder nach seinen individuellen be-
  51. d]rfnissen.
  52. wichtig w@ren zum beispiel men]koordi-
  53. naten !!! man k[nnte ausserdem das
  54. ganze mit einer rahmenroutine koppeln{CBM--}
  55. die jedes men] einrahmt.
  56. man kann auch den aktuellen men]punkt
  57. invers machen{CBM--}so dass ein men]balken
  58. flimmert.
  59. probiert mal ein bisschen dran rum !
  60.