Listing 3

PLOAD:
    DEF SEG = &HB000
    BLOAD N$,0
    DEF SEG
RETURN
PSAVE:
    DEF SEG = &HB000
    BSAVE N$,0,32767
    DEF SEG
RETURN