C64 Software < SCA: The C64 Software Collection / QF 1-40 #4
10 B=5120:OPEN15,8,15:FORI=0TO2 20 FORJ=0TO255:PRINT#15,""CHR$(J)CHR$(I+4)CHR$(1)CHR$(PEEK(B+256*I+J)):NEXT 30 NEXT:PRINT#15,""CHR$(3)CHR$(4) READY.
10 B=5120:OPEN15,8,15:FORI=0TO2 20 FORJ=0TO255:PRINT#15,""CHR$(J)CHR$(I+4)CHR$(1)CHR$(PEEK(B+256*I+J)):NEXT 30 NEXT:PRINT#15,""CHR$(3)CHR$(4) READY.