home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / spritematt (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  829b  |  31 lines
  1. 10 PRINT"[147]":FORI=0TO63:POKE832+I,0:NEXT
  2. 20 GOSUB60000
  3. 999 END
  4. 60000 DATA"   .    .   .    . ."
  5. 60001 DATA" .   .   .      . . "
  6. 60002 DATA"  . .  .   .  .  .    "
  7. 60003 DATA".    .  .   .    .  "
  8. 60004 DATA"   .    .   .    . ."
  9. 60005 DATA" .  .  .  .  .  .  ."
  10. 60006 DATA"  .  .  .  .      . "
  11. 60007 DATA".      .  .  .      "
  12. 60008 DATA"  .      .       .  "
  13. 60009 DATA" .   .      .      ."
  14. 60010 DATA"  .   .   .         "
  15. 60011 DATA"   .        .    .  "
  16. 60012 DATA"   .        .      ."
  17. 60013 DATA" .      .        .  "
  18. 60014 DATA"  . .   ..  ..   .  "
  19. 60015 DATA" . .  . .   .  . .  "
  20. 60016 DATA"  . .    .   .     ."
  21. 60017 DATA" .   .  .        .  "
  22. 60018 DATA"  .   .     .     . "
  23. 60019 DATA" . . .  .   .    .  "
  24. 60020 DATA"   .    .        . ."
  25. 60100 V=53248:POKEV,200:POKEV+1,100:POKEV+21,1:POKEV+39,14:POKE2040,13
  26. 60105 POKEV+23,1:POKEV+29,1
  27. 60110 FORI=0TO20:READA$:FORK=0TO2:T=0:FORJ=0TO7:B=0
  28. 60140 IFMID$(A$,J+K*8+1,1)="."THENB=1
  29. 60150 T=T+B*2^(7-J):NEXT:PRINTT;:POKE832+I*3+K,T:NEXT:PRINT:NEXT
  30. 60200 RETURN
  31.