home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / linker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  439b  |  17 lines
  1. 6 open15,8,15
  2. 10 print"[147]":b=15360
  3. 15 forx=15360to15360+8*64:pokex,0:next
  4. 20 forx=1to8:print"name des"x". sprites";:inputa$(x):
  5. 25 next:print
  6. 30 forx=1to8:y=b:ifa$(x)=""thenb=b+64:goto70
  7. 40 : open2,8,2,a$(x)+",s,r":input#15,a,b$,c,d:printa;b$;c;d,a$(x)
  8. 45 : ifa<>0then80
  9. 50 : get#2,a$
  10. 52 : a=asc(a$+chr$(0)):pokeb,a:b=b+1:ifst<>64then50
  11. 60 : close2:b=y+64
  12. 70 next:gosub 90
  13. 80 close15:end
  14. 90 print:print"diskette wechseln":           poke198,0:wait198,1
  15. 100 sys(57812)"@:edisprite",8:poke193,0:poke194,60
  16. 110 poke174,000:poke175,62:sys62957:return
  17.