0 SAVE.EME A modification of Paul Globman's SAVE.NOD (C) by Arnold Silverman for RAM100.CO and the EME Rampac
1 A=64929+2*PEEK(65006):A=PEEK(A)+256*PEEK(A+1):FORX=3TO10:F$=F$+CHR$(PEEK(A+X)):NEXT:F$=F$+CHR$(13)+CHR$(13)+"Y"
2 A=65450:POKEA,11:FORX=1TO11:POKEA+2*X,0:POKEA+2*X-1,ASC(MID$(F$,X)):NEXT:CLEAR99,61558:LOADM"RAM100"
3 CALL61625,255:CLEAR0,MAXRAM:X$=INKEY$:MENU