64'er 1992 November/64er_Magazin_92-11_1992_Markt__Technik_de_Side_B.d64/mini-raster-edit

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

1 data"42011220430f0c0f123aa0a020202020430f0c0f123aa0a060a000b900c0c960f007990004"
2 data"c84c1bc0a9168d18d0a001a20ead00dcc97af0dfc97ef013c97df027c97bf03bc977f048c9"
3 data"6ff0554ca8c0a50299001288b9001285028d0ad88d0bd88a9900124ca8c0a502990012c8b9"
4 data"001285028d0ad88d0bd88a9900124ca8c0ca20c8c08e16d88e17d88a9900124ca8c0e820c8"
5 data"c08e16d88e17d88a9900124ca8c08a85024ca8c08ee0c0a200e8e0fff0034cadc0a200e8e0"
6 data"fff0034cb7c0aee0c020c8c04c32c08ee0c0a200e8e0fff0034ccdc0aee0c060eaeaeaeaea"
7 data"78a2018e1ad0a0328c12d0a97f8d0ddca9c38d1403a9108d15035860000000000000000000"
8 data"000000000000ee19d0ee19d0a019c8c88c11d0eaeaeaeaeaeaeaeaeaa000a2f8b900128d20"
9 data"d08d21d0c8e8f0f1eaeaeaeaeaeaeaeaeaeaeaeaeaeaeaeab90012c0c0b00524ff1890da20"
10 data"1c11201c11201c114c31ea4c31eaea4c31ea201c114c31ea602a2d300000003600363e0036"
11 s(1)=49152:d=1:forb=4606to4606+255:pokeb,0:next
12 s(2)=4240:s(3)=4616:e(1)=49368:e(2)=4380:e(3)=4655:print"[147]":fora=1to12
13 reada$:forg=1tolen(a$)step2:e=asc(mid$(a$,g))-48:e=e+(e>10)*7:k=asc(mid$(a$,g+1))-48
14 k=k+(k>10)*7:e=e*16+k:gosub15:nextg,a:sys4240:sys49177:poke4608+peek(782),peek(02):goto17
15 pokes(d),e:s(d)=s(d)+1:ifs(d)>e(d) then d=d+1:data"3e3300363e434100464e5351535e"
16 return:data"660061635e5600635e56004e460046"
17 d=51:a=1:print"[147][196]ata [218]eilen ([202]/[206])";:inputa$:print"[147]";:ifa$<>"j"thenend
18 a$="50d[193]":forg=4608to4608+192:a$=a$+str$(peek(g))+",":a=a+1:ifa>17thengoto20
19 nextg:print"";:end
20 printa$:a$="[157]"+str$(d)+"d[193]":d=d+1:a=1:next g:print"";