home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh77a.d64 / stamp-maker-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.