System Variables

Here is a program which you can eerge with one you have written and which will print out a list of goodies such as how many bytes of BASIC, machine code and free space you have, where the character set you are using is located, et cetera. This program is for the TS 2068 and uses about 2036 bytes.

9600 CLS 
9610 GO SUB 9700 
9620 STOP 
9630 CLS 
9640 60 SUB 9800 
9650 60 TO 9900 
9700 REM SysVars 
9710 REM Borders 
9715 PRINT 
9720 PRINT TAB 3; "CHANS"; TAB 11;PEEK 23631+256*PEEK 23632 
9722 PRINT 
9724 PRINT TAB 3; "PROE"; TAB 11;PEEK 23635+256*PEEK 23636 
9726 PRINT TAB 18; "Basic "; (PEEK 23627+256*PEEK 23628) - (PEEK 23635+256+PEEK 23636) 
9728 PRINT TAB 3; "VARS"; TAB 11;PEEK 23627+256*PEEK 23628 
9730 PRINT 
9732 PRINT TAB 3; "E-LINE*; TAB 11;PEEK 23641+256*PEEK 23642 
9734 PRINT 
9736 PRINT TAB 3; "WORKSP*; TAB 11;PEEK 23649+256*PEEK 23650 
9738 PRINT 
9740 PRINT RAB 3; "STKBOT*; TAB 11;PEEK 23651+2568PEEK 23652 
9742 PRINT 
9744 PRINT TAB 3; "SKEND*; TAB 11;PEEK 23653+256 PEEK 23654 
9746 PRINT TAB 18; "Free *; FREE 
9748 PRINT TAB 3; "RANTOP*; TAB 11; PEEK 23730+256*PEEK 23731 
9750 PRINT TAB 18; "Cade *; (PEEK 23675+256*PEEK 23676) -(PEEK 23730+256&PEEK 23731)-1 
9752 PRINT TAB 3; "UD6"; TAB 11;PEEK 23675+2568PEEK 23676 
9754 PRINT 
9756 PRINT TAB 3; *P-RAMT'; TAB 11;PEEK 23732+256*PEEK 23733 
9760 RETURN  
9800 REM SysVars2 
9810 PRINT 
9812 PRINT TAB 3: "CHARS *;PEEK 23606+256*PEEK 23607; TAB 18; "Byte ! *:PEEK 2360 
9814 PRINT TAB 18; "Byte 2 *;PEEK 23607 
9815 PRINT 
9816 PRINT TAB 3; "NEWPPC *;PEEK. 23618+256*PEEK 23619; TAB 18; *NSPPC *;PEEK 23620 
9818 PRINT
9820 PRINT TAB 3; PPC "LAST K *;PEEK 23560 
9822 PRINT 
9824 PRINT TAB 3;"E PPC *;PEEK "ERR NF *;PEEK 23610 *;PEEK 23621+256&PEEK 23622 TAB 18: 23625+2568PEEK 23626;TAB 18;
9826 PRINT 
9829 PRINT TAB 3; "CURCHL ";PEEK 23633+2568PEEK 23634; TAB 18 "BRES ";PEEK 23655 
9830 PRINT 
9832 PRINT TAB 3; "S TOP *;PEEK 23660+256*PEEK 23661; TAB 18: *DF S2 *;PEEK 23659 
9934 PRINT 
9836 PRINT TAB 3; OLDPPC *;PEEK 23662+2563PEEK 23663; TAB 18; *SCR CT ";PEEK 23692 
9838 PRINT 
9940 PRINT TAB 3; "SEED ":PEEK 23670+256*PEEK 23671; TAB 18; *CURCBN *;PEEK 23743 
9842 PRINT 9844 PRINT TAB 3; "ERR LN ":PEEK 23734+256*PEEK 23735; TAB 18: *STRMNR *;PEEK 23755 
9850 RETURN 
9900 REM End