1 REM
2 REM
3 REM  SAVE BITMAP $6000-$8000
4 REM
5 REM  (W) GERO BASSENGE
6 REM  (C) 64'ER
7 REM
8 REM
9 REM
10 POKE56,6*16:CLR
20 OPEN1,8,2,"DATEINAME,P,W"
30 PRINT#1,CHR$(0);CHR$(32);
40 FORI=6*4096TO8*4096
50 PRINT#1,CHR$(PEEK(I));
60 NEXTI:CLOSE1