home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / PERI_50.ZIP / PERI.PGM / FTOC.DEF < prev    next >
Encoding:
Text File  |  1990-08-20  |  234 b   |  9 lines
  1. \c1=dr ss:bp-e vars;
  2. \x0=g _main
  3. \vars
  4. upper,i,2    ; upper range as decimal integer
  5. step,i,2    ; increment as decimal integer
  6. lower,i,2    ; lower range as decimal integer
  7. celsius,s,4    ; degrees celsius
  8. fahr,s,4    ; degrees fahrenheit
  9.