home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 September
/
64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64
/
spr+hires-edit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 fori=828to828+34:reada:pokei,a:next:a=0:b=0:z=8192:o=z:h$="[147]":fori=1to18:reada
2 n$=n$+chr$(a):next:print"[147][153]"+n$+"[146][154][157][157][157][157][157][157][157][157][157][157][158]sprite+hires editor v1.0"
3 fori=0toz/5:next:fori=704to766:pokei,0:next:b=0:b$="jjj[157][157][157]jjj[157][157][157]jjj":a=0
4 c=53272:d=53265:poked,60:pokec,24:printchr$(147):poke53281,0:poke53280,0
5 poke214,a:poke211,b:sys58640:printb$
6 geta$:ifa$=""then6:data162,32,160,0,134,100,132,99,169,0,170,145,99
7 ifa$=""andb<37thenprinth$:b=b+1:z=z+8:goto5:data200,192,0,208,249,232,224
8 ifa$="s"thengoto19:data32,240,11,164,100,200,132,100,160,0,192,0,240,233,96
9 ifa$="[157]"andb>0thenprinth$:b=b-1:z=z-8:goto5:data77,73,67,72,65,69,76,32,67
10 ifa$=""anda<22thenprinth$:a=a+1:z=z+320:goto5:data90,89,67,72,79,87,83
11 ifa$=chr$(145)anda>0thenprintchr$(147):a=a-1:z=z-320:goto5:data75,73
12 ifa$=chr$(13)thenf=ad:goto16
13 ifa$="a"thenpokec,21:poked,27:printh$:poke19,1:input"adr:";ad:goto4
14 ifa$=h$thenprinth$;:sys828:a=0:b=0:z=o:goto5
15 goto6
16 t=0:y=0:fori=0to20:pokez+t,peek(f):pokez+t+8,peek(f+1):pokez+t+16,peek(f+2)
17 t=t+1:y=y+1:f=f+3:ify=8thent=t+312:y=0
18 nexti:goto5:rem by m.c. (1991)
19 poked,27:pokec,21:poke19,1:input"[147][154]name:";r$:r$=mid$(r$,1,16)
20 sys57812r$,8,1:poke174,255:poke175,63:poke193,0:poke194,32:sys62957:goto4