home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8912a.d64 / save$6-$8 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  221b  |  16 lines
  1. 1 REM
  2. 2 REM
  3. 3 REM  SAVE BITMAP $6000-$8000
  4. 4 REM
  5. 5 REM  (W) GERO BASSENGE
  6. 6 REM  (C) 64'ER
  7. 7 REM
  8. 8 REM
  9. 9 REM
  10. 10 POKE56,6*16:CLR
  11. 20 OPEN1,8,2,"DATEINAME,P,W"
  12. 30 PRINT#1,CHR$(0);CHR$(32);
  13. 40 FORI=6*4096TO8*4096
  14. 50 PRINT#1,CHR$(PEEK(I));
  15. 60 NEXTI:CLOSE1
  16.