Dear visitor, welcome to Forum64. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Quoted
Original von matthes
Hm, du könntest es ins Paint Magic Format wandeln.
Quoted
Original von hoogo
Mist, immer, wenn ich sowas mal gebraucht habe, hab ich mir schnell eine Kopierroutine geschrieben, das Bild gelinkt und gepackt. Aber ein fertiges Programm für Anwender hab ich nie draus gemacht, dachte immer, das würde es in unendlichen Massen geben.
Vielleicht setzt sich ja hier mal jemand an so etwas heran? |
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
1 rem lader koala *********************
2 rem *********************************
3 :
4 rem lader fuer koala-bilder
5 rem koalabild zeichen und abspeichern
6 rem dann mit diesem lader einladen und anschauen
7 :
8 :
9 poke53280,14:poke53281,6:print"{clr}":z$="ggg.kla":rem nam
10 if a=1goto90
20 fora=49154to49317:readi:pokea,i:next
70 a=1:print"{clr}{blk}{down}{down}{down}lade bild!":loadz$,8,1
80 end
90 sys49154
100 poke198,0:wait198,1:gete$:poke198,1
101 ife$=chr$(32)then110
102 goto100
110 poke53265,peek(53265)and223
120 poke53272,(peek(53272)and240)or4
130 poke53281,14:poke646,16:print"{clr}"
135 ifb=1then500
140 z$="phantomia.kla":b=1:goto70:rem 2. bild
200 data173,17,208,41,239,141,17,208
210 data162,127,160,64,32,156,192,162
220 data4,160,0,32,161,192,162,131
230 data160,39,32,114,192,162,131,160
240 data40,32,156,192,162,216,160,0
250 data32,161,192,162,135,160,15,32
260 data114,192,173,16,135,141,33,208
270 data173,17,208,9,34,141,17,208
280 data173,22,208,41,223,9,16,141
290 data22,208,173,24,208,9,8,141
300 data24,208,162,96,160,0,32,156
310 data192,162,32,160,0,32,161,192
320 data162,127,160,63,32,114,192,173
330 data17,208,9,16,141,17,208,96
340 data142,1,192,140,0,192,160,0
350 data177,251,145,253,165,252,205,1
360 data192,208,8,165,251,205,0,192
370 data208,1,96,230,251,208,2,230
380 data252,230,253,208,227,230,254,76
390 data122,192,134,252,132,251,96,134
400 data254,132,253,96
500 print"{clr}vielen dank fuers bewundern meiner bilder!":end
|
This post has been edited 6 times, last edit by "c64-camper" (Aug 12th 2007, 10:43am)
Quoted
Original von MRC
Trotzdem scheint in Zeile 70 noch ein Fehler zu sein, den ich nicht kenne.
Forum Software: Burning Board® 3.1.7, developed by WoltLab® GmbH