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 >
Encoding:
Commodore BASIC  |  1991-01-01  |  1018 b   |  21 lines
  1. 1 fori=828to828+34:reada:pokei,a:next:a=0:b=0:z=8192:o=z:h$="[147]":fori=1to18:reada
  2. 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. 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. 4 c=53272:d=53265:poked,60:pokec,24:printchr$(147):poke53281,0:poke53280,0
  5. 5 poke214,a:poke211,b:sys58640:printb$
  6. 6 geta$:ifa$=""then6:data162,32,160,0,134,100,132,99,169,0,170,145,99
  7. 7 ifa$=""andb<37thenprinth$:b=b+1:z=z+8:goto5:data200,192,0,208,249,232,224
  8. 8 ifa$="s"thengoto19:data32,240,11,164,100,200,132,100,160,0,192,0,240,233,96
  9. 9 ifa$="[157]"andb>0thenprinth$:b=b-1:z=z-8:goto5:data77,73,67,72,65,69,76,32,67
  10. 10 ifa$=""anda<22thenprinth$:a=a+1:z=z+320:goto5:data90,89,67,72,79,87,83
  11. 11 ifa$=chr$(145)anda>0thenprintchr$(147):a=a-1:z=z-320:goto5:data75,73
  12. 12 ifa$=chr$(13)thenf=ad:goto16
  13. 13 ifa$="a"thenpokec,21:poked,27:printh$:poke19,1:input"adr:";ad:goto4
  14. 14 ifa$=h$thenprinth$;:sys828:a=0:b=0:z=o:goto5
  15. 15 goto6
  16. 16 t=0:y=0:fori=0to20:pokez+t,peek(f):pokez+t+8,peek(f+1):pokez+t+16,peek(f+2)
  17. 17 t=t+1:y=y+1:f=f+3:ify=8thent=t+312:y=0
  18. 18 nexti:goto5:rem by m.c. (1991)
  19. 19 poked,27:pokec,21:poke19,1:input"[147][154]name:";r$:r$=mid$(r$,1,16)
  20. 20 sys57812r$,8,1:poke174,255:poke175,63:poke193,0:poke194,32:sys62957:goto4
  21.