Implemented negative numbers and more importantly glendasay

flagpole/tests/tempconv.fp

@@ -1,38 +1,21 @@
 $inc fvmstd.fp
 
-proc mainvar
-  "Source Fahrenheit or Celsius (F/C): " :puts
-  :getchar @srcUnit
-  :getchar drop # newline pmo
-  if &srcUnit 0x43 == &srcUnit 0x63 == bor then
-    "Source Temp: " :puts :getuint @srcTemp
-    &srcTemp 9 u* 5 u/ 32 u+ @dstTemp
-    &srcTemp :putuint "*C == " :puts &dstTemp :putuint "*F" :puts :newline
-    return
-  endif
-  if &srcUnit 0x46 == &srcUnit 0x66 == bor then
-    "Source Temp: " :puts :getuint @srcTemp
-    &srcTemp 32 u- 5 u* 9 u/ @dstTemp
-    &srcTemp :putuint "*F == " :puts &dstTemp :putuint "*C" :puts :newline
-    return
-  endif
-  "Invalid Unit" :puts :newline
-endproc
-
 proc main
   "Source Fahrenheit or Celsius (F/C): " :puts
   :getchar 
   :getchar drop # newline pmo
   if dup 0x43 == dup 0x63 == bor then
-    "Source Temp: " :puts :getuint
-    dup 9 u* 5 u/ 32 u+
-    swap :putuint "*C == " :puts :putuint "*F" :puts :newline
+    "Source Temp: " :puts :getint
+    dup 9 i* 5 i/ 32 i+
+    swap :putint "*C == " :puts
+    :putint "*F" :puts :newline
     return
   endif
   if dup 0x46 == dup 0x66 == bor then
-    "Source Temp: " :puts :getuint
-    dup 32 u- 5 u* 9 u/
-    swap :putuint "*F == " :puts :putuint "*C" :puts :newline
+    "Source Temp: " :puts :getint
+    dup 32 i- 5 i* 9 i/
+    swap :putint "*F == " :puts
+    :putint "*C" :puts :newline
     return
   endif
   "Invalid Unit" :puts :newline