RAM explorer and dumper for SmileBASIC

TRAMEXPLORER

XSCREEN 2
BGSCREEN 0,134217728,16
A=0
C=1
U=0
K=0
S=0
SM=0
EM=0
@MAINLOOP
K=BUTTON()
IF K != 0 THEN C=1
IF K AND 1 THEN A=A+16
IF K AND 2 THEN A=A-16
IF K AND 4 THEN A=A-1
IF K AND 8 THEN A=A+1
U=K AND 64
IF U THEN
  IF S==0 THEN
    SM=A/16
    S=1
  ENDIF
ELSE
  IF S THEN
    EM=A/16
    IF EM<SM THEN
      S=EM
      EM=SM
      SM=S
    ENDIF
    S=SM
    G=0
    F=0
    PRINT "SIZEOF "; (((EM-SM)+1)*16)
    PRINT "STARTM "; SM
    PRINT "ENDMEM "; EM
    DIM BUF[((EM-SM)+1)*16]
    PRINT"SAVING..."
    WHILE S<=EM
      WHILE G < 16
        BUF[F+G]=BGGET(0,S,15-G,0)
        G=G+1
      WEND
      G=0
      F=F+16
      K=K+1
      S=S+1
    WEND
    SAVE"DAT:RAMDUMP",BUF
    S=0
  ENDIF
ENDIF
IF K AND 128 THEN A=98000
IF K AND 256 THEN A=A-256
IF K AND 512 THEN A=A+256
IF A<0 THEN A=0
IF C THEN
PRINT A; " | "; A/16
C=0
BGOFS 0,A,0
ENDIF
VSYNC 1
GOTO @MAINLOOP