; extra/override ZP variables USR := GORESTART ; XXX ; constants SPACE_FOR_GOSUB := $3E STACK_TOP := $FA WIDTH := 80 WIDTH2 := 30 RAMSTART2 := $0400 BYTES_FP := 5 BYTES_PER_ELEMENT := BYTES_FP BYTES_PER_VARIABLE := BYTES_FP+2 MANTISSA_BYTES := BYTES_FP-1 BYTES_PER_FRAME := 2*BYTES_FP+8 FOR_STACK1 := 2*BYTES_FP+5 FOR_STACK2 := BYTES_FP+4 MAX_EXPON = 10 STACK := $0100 STACK2 := STACK INPUTBUFFERX = INPUTBUFFER & $FF00 CR=13 LF=10