1000 REM "Vars"
 1010zp0 = &C0
 1020zp1 = &C1
 1021help0 = &A8
 1022help1 = &A9
 1030swzp0 = &AA
 1040swzp1 = &AB
 1050scratch0 = &C2
 1060scratch1 = &C3
 1070fixed = &E00
 1080Got_flag = fixed
 1090input_eof_flag = Got_flag+1
 1100tube_present = input_eof_flag+1
 1110work1 = tube_present+1
 1120work2 = work1 + 1
 1121work3 = work2 + 1
 1130cline = work3 + 1
 1140info_block = cline + 2
 1150endfixed = info_block + 16
 1160private_size = &100
 1170RETURN