10 CLEAR ,&H1EFF 20 DEFINT A-Z 30 exec &H5083 ' Capture end state 40 exec &H502d 50 STPTR=0 60 EDPTR=0 70 POKE VARPTR(STPTR) ,PEEK(&H513d) 80 POKE VARPTR(STPTR)+1,PEEK(&H513d+1) 90 POKE VARPTR(EDPTR) ,PEEK(&H513f) 100 POKE VARPTR(EDPTR)+1,PEEK(&H513f+1) 110 PRINT "SAVED START:";HEX$(STPTR) 120 PRINT "SAVED END: ";HEX$(EDPTR) 130 LOADM "URARAMM" 140 POKE &H1f00 ,PEEK(&H513d) 150 POKE &H1f00+1,PEEK(&H513d+1) 160 POKE &H1f02 ,PEEK(&H513f) 170 POKE &H1f02+1 ,PEEK(&H513f+1) 180 POKE &H1f04 ,&H20 190 POKE &H1f04+1 ,&H00 200 EXEC &H1f06 210 SZ=EDPTR-STPTR 220 STPTR=&H2000 230 EDPTR=STPTR+SZ 240 PRINT "START:";HEX$(STPTR) 250 PRINT "END: ";HEX$(EDPTR) 260 PRINT "SAVE FILE NAME:" 270 LINE INPUT F$ 280 SAVEM F$,STPTR,EDPTR,STPTR 290 PRINT "Want to save it again? (Y/N):" 300 LINE INPUT YN$ 310 IF YN$="Y" OR YN$="y" THEN 240 320 IF YN$="N" OR YN$="n" THEN END 330 GOTO 290