TS 2068 VARS Save and Reload: TOS Disk System Version

Program by Bill Jones
Modified for TOS by Dunnington

9900 LET ELIN=1: LET VARS=1: LET H80=1: LET X$="111": LET Y$="111": LET Z$="11111.COD": LET L$="11111"
9910 LET VARS=PEEK 23627+256*PEEK 23628: FOR N=1 TO 1: NEXT N
9915 LET ELIN=PEEK 23641+256*PEEK 23642
9920 LET X$=STR$ (PEEK 23627): LET Y$=STR$ (PEEK 23628)
9925 IF LEN X$<3 THEN LET X$=STR$ 0+Y$: GO TO VAL "9925"
9930 IF LEN Y$<3 THEN LET Y$=STR$ 0+Y$: GO TO 9930
9935 LET L$=STR$ (ELIN-VARS-1)
9940 IF LEN L$<5 THEN LET L$=STR$ 0+L$: GO TO 9940
9945 LET Z$=L$+".COD"
9950 LET H80=PEEK 23641+256*PEEK 23642-1
9965 PRINT "ELIN=";ELIN;TAB 12;"EADR=";PEEK 23641+256*PEEK 23642''"VARS=";VARS;TAB 12;"VADR=";PEEK 23627+256*PEEK 23628''"LENGTH=";L$;''"LENGTH VERIF=";(PEEK 23641+256*PEEK 23642)-(PEEK 23627+256*PEEK 23628)-1''"VLSB=";X$;TAB 14;"VMSB=";Y$'';"VLEN=";Z$;TAB 15;"IS SER # OF SAVE"''"H80=";H80;TAB 14;"VERIF=";PEEK (PEEK 23641+256*PEEK 23642-1)
9970 PRINT ''"ENTER WHEN READY": PAUSE 0: SAVE *Z$CODE VARS,VAL L$
9972 REM PAD****************
9980 CLEAR : CAT *
9985 DIM K$(9): INPUT "INPUT 9 CHR TITLE OF VARS CODE  ";K$: DIM V$(VAL K$( TO 5)-9)
9990 POKE 23297,INT (VAL K$( TO 5)/256): POKE 23296,(VAL K$( TO 5)-PEEK 23297*256): LOAD *K$CODE (PEEK 23627+256*PEEK 23628):
9995 LET N=PEEK 23627+256*PEEK 23628+PEEK 23296+256*PEEK 23297: POKE N,128: LET N=N+1: POKE 23642,INT (N/256): POKE 23641,N-PEEK 23642*256: POKE N-1,128