home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / spritegenerator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  336 b   |  12 lines
  1. 10 v=53248:printchr$(153)chr$(147)chr$(8)chr$(142);:pokev+32,0:pokev+33,0
  2. 20 fory=0to20:print"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]":nexty : rem 24 mal chr$(186)
  3. 30 printchr$(17)"goto 50"chr$(145)chr$(145);
  4. 40 end
  5. 50 fory=0to20
  6. 60 forby=0to2:d=0
  7. 70 forbi=0to7
  8. 80 ifpeek(1024+y*40+by*8+bi)=42thend=d+2^(7-bi) : rem test auf *
  9. 90 nextbi:poke11*64+y*3+by,d
  10. 100 nextby,y
  11. 110 poke2040,11:pokev,250:pokev+1,100:pokev+39,7:pokev+21,1
  12.