home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / spritegenerator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  336b  |  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.