2 CLS:PRINT"> LOCATE 1.00":PRINT"> Copyright 1985 Andrew Moore":PRINT@120,"String: ";:LINEINPUT A$:R$=CHR$(27)+"K":Q$=CHR$(34):B$=CHR$(8)
3 PRINT"Scan 1)ROM or 2)RAM? ";:I$=INPUT$(1):IF I$="1" THEN Y=0 ELSE IF I$="2"THEN Y=32768 ELSE PRINT CHR$(13);:GOTO 3
4 PRINT:PRINT"[Scanning";Y;"to";Y+32767;B$;"]":FOR A=Y TO Y+32767:FOR B=A TO A+LEN(A$)-1:C1$=C1$+CHR$(PEEK(B)):NEXT B:IF INKEY$<>"" THEN PRINT@199,A;"of";Y+32767;R$;