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 >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
127 lines
5 ifa=0thena=1:load"stamp-maker v2",8,1
10 poke53280,0:poke53281,0:poke53272,23:poke657,128:goto 30
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]";
14 print"[221][149] [146][129][221]";
16 print"[221][149] [211][212][193][205][208]-[205][193][203][197][210] [214]2 - [196][197][205][207] [146][129][221]";
18 print"[221][149] [146][129][221]";
20 print"[221][149] ([195]) 1990 by [202]oerg [206]eumann [146][129][221]";
22 print"[221][149] [146][129][221]";
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
30 gosub12
32 print"[196]ieses [208]rogramm demonstriert die [198]aehig-";
34 print"keiten von [211][212][193][205][208]-[205][193][203][197][210] [214]2. [215]enn [211]ie nun
36 [153]"eine (NULL)aste druecken, laed es zwei
38 print"[199]rafiken, die eine [193]nimation bilden. [196]as";
40 print"[208]rogramm generiert nun jedoch mit [200]ilfe
42 [153]"von (NULL)(NULL)atn(NULL)(NULL)-(NULL)atn(NULL)val(NULL) (NULL)2 (NULL)leinbilder,die
44 print"speichersparender sind. [196]ie [193]nimation,
46 [153]"die dann folgt spielt sich nur auf einer";
48 [153]"chr$rafikseite ab. (NULL)it left$ilfe einer (NULL)chleife";
50 [153]"werden dort die (NULL)leinbilder gelesen und
52 print"auf die [199]rafikseite geschrieben. [200]ierbei";
54 print"entsteht der [197]indruck, als wuerde sich
56 [153]"die chr$rafik bewegen. str$och werden die
58 print"[199]rafiken nicht ausgetauscht. [211]o be-
60 [153]"noetigt man auch nur 12785 peekytes fuer
62 print"die [199]rafik,anstatt 20000 [194]ytes fuer zwei";
64 print"[199]rafikseiten. <[212]aste>[146]";:poke198,0:wait198,1:goto100
70 gosub12
72 print"[205]an kann mit [200]ilfe von [211][212][193][205][208]-[205][193][203][197][210][160][214]2
74 [153]"auch (NULL)leingrafiken bewegen, was die
76 print"folgende [196]emo beweist.
78 [153]"<(NULL)aste>";:[151]198,0:[146]198,1:[137]600
89 [128]
90 :
91 :
92 :
93 :
94 : [172][172][172] grafik einschalten [172][172][172]
95 :
100 [141]540:[141]300:[141]520: [143] bilder laden, generieren und farbe setzen
101 [151]53265,59:[151]53270,216:[151]53272,125:[151]56576,198:[151]198,0:[137]200
190 :
191 :
192 :
193 :
194 : [172][172][172] animati[145]sschle[139]e [172][172][172]
195 :
200 [141]400 : [143] animationsteil 1
202 [161]z$:[139]z$[179][177]""[167]214
204 [129]a[178]1[164]2:[130] : [143] verzoegerung
206 [141]500 : [143] animationsteil 2
208 [129]a[178]1[164]2:[130] : [143] verzoegerung
210 [161]z$:[139]z$[179][177]""[167]214
212 [137]200
214 [141]560:[137]70: [143] grafik aus
290 :
291 :
292 :
293 :
294 : [172][172][172] kleinbilder generieren [172][172][172]
295 :
300 [158]49152,8,7,24576,32576,33576,34576,35024,35136,0,1,12,3
302 [158]49152,8,7,57344,16384,17384,35192,35640,35696,1,1,12,3
304 [158]49152,7,3,24576,32576,33576,35752,35920,35941,0,1,25,1
306 [158]49152,7,3,57344,16384,17384,35962,36130,36151,1,1,25,1
308 [158]49152,6,5,24576,32576,33576,36172,36412,36442,0,1,2,17
310 [158]49152,6,5,57344,16384,17384,36472,36712,36742,1,1,2,17
312 [158]49152,8,3,24576,32576,33576,8192,8472,8507,0,1,25,21
314 [158]49152,8,3,57344,16384,17384,8542,8822,8857,1,1,25,21
316 [158]49152,5,5,24576,32576,33576,8881,9081,9106,0,1,23,8
318 [158]49152,5,5,57344,16384,17384,9131,9331,9356,1,1,23,8:[142]
390 :
391 :
392 :
393 :
394 : [172][172][172] animati[145]steil 1 [172][172][172]
395 :
400 [158]49152,8,7,34576,35024,35136,24576,23552,55296,0,0,12,3
406 [158]49152,7,3,35752,35920,35941,24576,23552,55296,0,0,25,1
410 [158]49152,6,5,36172,36412,36442,24576,23552,55296,0,0,2,17
414 [158]49152,8,3,8192,8472,8507,24576,23552,55296,0,0,25,21
418 [158]49152,5,5,8881,9081,9106,24576,23552,55296,0,0,23,8:[142]
490 :
491 :
492 :
493 :
494 : [172][172][172] animati[145]steil 2 [172][172][172]
495 :
500 [158]49152,8,7,35192,35640,35696,24576,23552,55296,0,0,12,3
502 [158]49152,7,3,35962,36130,36151,24576,23552,55296,0,0,25,1
504 [158]49152,6,5,36472,36712,36742,24576,23552,55296,0,0,2,17
506 [158]49152,8,3,8542,8822,8857,24576,23552,55296,0,0,25,21
508 [158]49152,5,5,9131,9331,9356,24576,23552,55296,0,0,23,8:[142]
510 :
511 :
512 : [172][172][172] farbspeicher fuel[195] [172][172][172]
513 :
520 [158]50075,32576,23552:[158]50075,33576,55296:[142]
530 :
531 :
532 : [172][172][172] bilder und farbe laden [172][172][172]
533 :
540 [158]50033,"demo-1"
541 [158]50033,"demo-2"
542 [158]50033,"demo-3":[142]
550 :
551 :
552 : [172][172][172] grafik ausschalten [172][172][172]
553 :
560 [153]"loadfor":[151]53265,155:[151]53270,200:[151]53272,23:[151]56576,151:[142]
570 :
571 :
572 : [172][172][172] kleingrafik bewegen [172][172][172]
573 :
580 [143]
600 [158]50135,8192
602 [151]53272,29:[151]53265,59:[151]53270,216:[151]53280,0:[151]53281,0:[153]"load"
606 [129]i[178]0[164]10
608 [158]49152,13,3,18384,18696,18735,8192,1024,55296,0,0,0[170]i,0[170]i:[130]
609 [151]198,0:[146]198,1:[158]50135,8192
614 [129]i[178]0[164]10
616 [158]49152,13,3,18774,19086,19125,8192,1024,55296,0,0,0[170]i,0[170]i:[130]
618 [151]198,0:[146]198,1:[141]560:[141]12:[153]"str$emo nocheinmal? (j/n)"
620 [161]z$:[139]z$[179][177]"j"[175]z$[179][177]"n"[167]620
622 [139]z$[178]"j"[167]10
624 [158]64738