home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 77 / 64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_A.d64 / stamp-maker-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  127 lines
  1. 5 ifa=0thena=1:load"stamp-maker v2",8,1
  2. 10 poke53280,0:poke53281,0:poke53272,23:poke657,128:goto 30
  3. 12 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  4. 14 print"[221][149]                                      [146][129][221]";
  5. 16 print"[221][149]       [211][212][193][205][208]-[205][193][203][197][210] [214]2  -  [196][197][205][207]        [146][129][221]";
  6. 18 print"[221][149]                                      [146][129][221]";
  7. 20 print"[221][149]      ([195]) 1990 by [202]oerg [206]eumann       [146][129][221]";
  8. 22 print"[221][149]                                      [146][129][221]";
  9. 24 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:return
  10. 30 gosub12
  11. 32 print"[196]ieses [208]rogramm demonstriert die [198]aehig-";
  12. 34 print"keiten von [211][212][193][205][208]-[205][193][203][197][210] [214]2. [215]enn [211]ie nun
  13. 36 [153]"eine (NULL)aste druecken, laed es zwei
  14. 38 print"[199]rafiken, die eine [193]nimation bilden. [196]as";
  15. 40 print"[208]rogramm generiert nun jedoch mit [200]ilfe
  16. 42 [153]"von (NULL)(NULL)atn(NULL)(NULL)-(NULL)atn(NULL)val(NULL) (NULL)2 (NULL)leinbilder,die
  17. 44 print"speichersparender sind. [196]ie [193]nimation,
  18. 46 [153]"die dann folgt spielt sich nur auf einer";
  19. 48 [153]"chr$rafikseite ab. (NULL)it left$ilfe einer (NULL)chleife";
  20. 50 [153]"werden dort die (NULL)leinbilder gelesen und
  21. 52 print"auf die [199]rafikseite geschrieben. [200]ierbei";
  22. 54 print"entsteht der [197]indruck, als wuerde sich
  23. 56 [153]"die chr$rafik bewegen. str$och werden die
  24. 58 print"[199]rafiken nicht ausgetauscht. [211]o be-
  25. 60 [153]"noetigt man auch nur 12785 peekytes fuer
  26. 62 print"die [199]rafik,anstatt 20000 [194]ytes fuer zwei";
  27. 64 print"[199]rafikseiten.                  <[212]aste>[146]";:poke198,0:wait198,1:goto100
  28. 70 gosub12
  29. 72 print"[205]an kann mit [200]ilfe von [211][212][193][205][208]-[205][193][203][197][210][160][214]2
  30. 74 [153]"auch (NULL)leingrafiken bewegen, was die
  31. 76 print"folgende [196]emo beweist.
  32. 78 [153]"<(NULL)aste>";:[151]198,0:[146]198,1:[137]600
  33. 89 [128]
  34. 90 :
  35. 91 :
  36. 92 :
  37. 93 :
  38. 94 :  [172][172][172] grafik einschalten [172][172][172]
  39. 95 :
  40. 100 [141]540:[141]300:[141]520: [143] bilder laden, generieren und farbe setzen
  41. 101 [151]53265,59:[151]53270,216:[151]53272,125:[151]56576,198:[151]198,0:[137]200
  42. 190 :
  43. 191 :
  44. 192 :
  45. 193 :
  46. 194 :  [172][172][172] animati[145]sschle[139]e [172][172][172]
  47. 195 :
  48. 200 [141]400 : [143] animationsteil 1
  49. 202 [161]z$:[139]z$[179][177]""[167]214
  50. 204 [129]a[178]1[164]2:[130] : [143] verzoegerung
  51. 206 [141]500 : [143] animationsteil 2
  52. 208 [129]a[178]1[164]2:[130] : [143] verzoegerung
  53. 210 [161]z$:[139]z$[179][177]""[167]214
  54. 212 [137]200
  55. 214 [141]560:[137]70: [143] grafik aus
  56. 290 :
  57. 291 :
  58. 292 :
  59. 293 :
  60. 294 :  [172][172][172] kleinbilder generieren [172][172][172]
  61. 295 :
  62. 300 [158]49152,8,7,24576,32576,33576,34576,35024,35136,0,1,12,3
  63. 302 [158]49152,8,7,57344,16384,17384,35192,35640,35696,1,1,12,3
  64. 304 [158]49152,7,3,24576,32576,33576,35752,35920,35941,0,1,25,1
  65. 306 [158]49152,7,3,57344,16384,17384,35962,36130,36151,1,1,25,1
  66. 308 [158]49152,6,5,24576,32576,33576,36172,36412,36442,0,1,2,17
  67. 310 [158]49152,6,5,57344,16384,17384,36472,36712,36742,1,1,2,17
  68. 312 [158]49152,8,3,24576,32576,33576,8192,8472,8507,0,1,25,21
  69. 314 [158]49152,8,3,57344,16384,17384,8542,8822,8857,1,1,25,21
  70. 316 [158]49152,5,5,24576,32576,33576,8881,9081,9106,0,1,23,8
  71. 318 [158]49152,5,5,57344,16384,17384,9131,9331,9356,1,1,23,8:[142]
  72. 390 :
  73. 391 :
  74. 392 :
  75. 393 :
  76. 394 :    [172][172][172] animati[145]steil 1 [172][172][172]
  77. 395 :
  78. 400 [158]49152,8,7,34576,35024,35136,24576,23552,55296,0,0,12,3
  79. 406 [158]49152,7,3,35752,35920,35941,24576,23552,55296,0,0,25,1
  80. 410 [158]49152,6,5,36172,36412,36442,24576,23552,55296,0,0,2,17
  81. 414 [158]49152,8,3,8192,8472,8507,24576,23552,55296,0,0,25,21
  82. 418 [158]49152,5,5,8881,9081,9106,24576,23552,55296,0,0,23,8:[142]
  83. 490 :
  84. 491 :
  85. 492 :
  86. 493 :
  87. 494 :    [172][172][172] animati[145]steil 2 [172][172][172]
  88. 495 :
  89. 500 [158]49152,8,7,35192,35640,35696,24576,23552,55296,0,0,12,3
  90. 502 [158]49152,7,3,35962,36130,36151,24576,23552,55296,0,0,25,1
  91. 504 [158]49152,6,5,36472,36712,36742,24576,23552,55296,0,0,2,17
  92. 506 [158]49152,8,3,8542,8822,8857,24576,23552,55296,0,0,25,21
  93. 508 [158]49152,5,5,9131,9331,9356,24576,23552,55296,0,0,23,8:[142]
  94. 510 :
  95. 511 :
  96. 512 :  [172][172][172] farbspeicher fuel[195] [172][172][172]
  97. 513 :
  98. 520 [158]50075,32576,23552:[158]50075,33576,55296:[142]
  99. 530 :
  100. 531 :
  101. 532 :  [172][172][172] bilder und farbe laden [172][172][172]
  102. 533 :
  103. 540 [158]50033,"demo-1"
  104. 541 [158]50033,"demo-2"
  105. 542 [158]50033,"demo-3":[142]
  106. 550 :
  107. 551 :
  108. 552 :  [172][172][172] grafik ausschalten [172][172][172]
  109. 553 :
  110. 560 [153]"loadfor":[151]53265,155:[151]53270,200:[151]53272,23:[151]56576,151:[142]
  111. 570 :
  112. 571 :
  113. 572 :  [172][172][172] kleingrafik bewegen [172][172][172]
  114. 573 :
  115. 580 [143]
  116. 600 [158]50135,8192
  117. 602 [151]53272,29:[151]53265,59:[151]53270,216:[151]53280,0:[151]53281,0:[153]"load"
  118. 606 [129]i[178]0[164]10
  119. 608 [158]49152,13,3,18384,18696,18735,8192,1024,55296,0,0,0[170]i,0[170]i:[130]
  120. 609 [151]198,0:[146]198,1:[158]50135,8192
  121. 614 [129]i[178]0[164]10
  122. 616 [158]49152,13,3,18774,19086,19125,8192,1024,55296,0,0,0[170]i,0[170]i:[130]
  123. 618 [151]198,0:[146]198,1:[141]560:[141]12:[153]"str$emo nocheinmal? (j/n)"
  124. 620 [161]z$:[139]z$[179][177]"j"[175]z$[179][177]"n"[167]620
  125. 622 [139]z$[178]"j"[167]10
  126. 624 [158]64738
  127.