100 REM *** ALL PURPOSE BSAVE ***
110 DS=52224:DE=DS+858:REM START AND END+1
120 F$="MDOS52224":REM YOUR NAME HERE
130 AD=DS:GOSUB190:SL=LB:SH=HB
140 AD=DE:GOSUB190:EL=LB:EH=HB
150 SYS57812F$,8,1
160 POKE193,SL:POKE194,SH:POKE174,EL:POKE175,EH
170 SYS62954:REM CALL KERNAL SAVE
180 END
190 HB=INT(AD/256):LB=AD-256*HB:RETURN