C64 Software  <  SCA: The C64 Software Collection / DATA MAKER

  Run
1 Z=10000:INPUT"";I
2 PRINT""Z"";:FORJ=0TO15:PRINTMID$(STR$(PEEK(I+J)),2,3)"";:NEXT:PRINT""
3 IFPEEK(I)=170THENIFPEEK(I+1)=170THENIFPEEK(I+2)=170THENEND
4 PRINT""Z+10""I+16"":POKE198,3:POKE631,19:POKE632,13:POKE633,13:END
READY.