Added if statements and bitwise operations

flagpole/tests/isprime.fp

@@ -0,0 +1,13 @@
+$inc fvmstd.fp
+
+proc main
+  :getuint @x
+  2 @checkFact
+  while &checkFact &checkFact u* 1 u- &x u< do
+    if &x &checkFact u% 0 == then
+      "Not Prime" :puts :newline return
+    endif
+    &checkFact 1 u+ @checkFact
+  endwhile
+  "Prime" :puts :newline
+endproc

flagpole/tests/tempconv.fp

@@ -0,0 +1,39 @@
+$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
+    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
+    return
+  endif
+  "Invalid Unit" :puts :newline
+endproc

flagpole/tests/underflow.fp

@@ -0,0 +1,5 @@
+$inc fvmstd.fp
+
+proc main
+  1 u+ :putuint
+endproc