home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64 / mc-sprite-zeiger (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  491b  |  22 lines
  1. 10 dimb(65):poke53281,0:poke53280,0:print"[147]"
  2. 20 :
  3. 30 rem einlesen
  4. 40 :
  5. 50 open2,8,2,"datas2,s,r":fora=1to63:input#2,b(a):next:close2
  6. 60 :
  7. 70 rem farbeingabe
  8. 80 :
  9. 90 print"eingabe: farbe "
  10. 100 fort=1to3:print"[145]";t;:inputa$(t):next
  11. 110 a=val(a$(1)):b=val(a$(2)):c=val(a$(3)): rem a=spritefarbe / b/c = mc-farben
  12. 120 :
  13. 130 rem zeigen
  14. 140 :
  15. 150 v=53248
  16. 160 pokev+4,60:pokev+5,200:poke2042,13:pokev+37,b:pokev+41,a:pokev+38,c
  17. 170 forx=1to63:poke831+x,b(x):next:pokev+21,4:pokev+28,4
  18. 180 :
  19. 190 rem ausschalten / ende
  20. 200 :
  21. 210 poke198,0:wait198,1:poke198,0:pokev+21,0:list60-180
  22.