64'er 1990 February/64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64/fader

Commodore BASIC | 1990-01-01 | 1.3 KB | 23 lines

0 data169,32,133,168,169,0,168,133,167,133,169,145,167,200,208,251,230,168,166
1 data168,224,64,208,243,185,64,127,153,0,4,185,64,128,153,0,5,185,64,129,153
2 data0,6,185,64,130,153,0,7,185,40,131,153,0,216,185,40,132,153,0,217,185,40
3 data133,153,0,218,185,40,134,153,0,219,200,208,205,173,16,135,141,33,208,169
4 data0,141,32,208,173,22,208,9,16,141,22,208,173,17,208,9,32,141,17,208,169,24
5 data141,24,208,32,114,16,32,224,228,96,169,0,133,167,133,169,141,5,17,141,6
6 data17,141,7,17,169,96,133,168,169,32,133,170,174,5,17,189,0,18,168,173,0,167
7 data24,109,7,17,41,3,170,189,0,17,49,167,17,169,145,169,238,145,16,32,215,16
8 data230,168,230,170,165,168,201,128,240,6,238,5,17,76,137,16,169,96,133,168
9 data169,32,133,170,238,6,17,173,6,17,141,5,17,208,189,238,7,17,173,7,17,201
10 data4,208,179,96,162,20,202,208,253,96,32,0,16,169,20,141,24,208,173,22,208
11 goto21:data41,239,141,22,208,173,17,208,41,223,141,17,208,96
12 poke56,16:poke4352,192:poke4353,12:poke4354,48:poke4355,3:ifs>0then18
13 print"[147]please wait":fori=0to255:poke4608+i,i*151-int(i*151/256)*256:next
14 fori=0to1e3:a%=peek(4608+int(255*rnd(0))):b%=peek(4608+int(255*rnd(0)))
15 c%=a%:a%=b%:b%=c%:next
16 fori=4096to4341:reada:s=s+a:pokei,a:next:ifs<>28077thenprint"data error":stop
17 input"[147]picture name";n$:loadn$,8,8
18 sys4317:getn$:input"[147]again";n$:ifn$="yes"orn$="y"then18
19 input"new picture";n$:ifn$="yes"orn$="y"then17
20 end
21 poke 45,peek(174):poke46,peek(175):clr:goto12