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

