PROGRAM:PRIME			PROGRAM:FLOR (subroutine)
:ClrHome			:1->E
:Input "NUM=", A		:Lbl 4
:If A<2				:If E<=D
:Then				 :Then
:Disp "NP"			  :E+1->E
:Else				  :Goto 4
:A/2->B				:Else
:2->C				  :E-1->E
:Lbl 3				:Return
:If C<=B
 :Then
  :A/C->D
  :prgmFLOR
  :If D!=E
   :Then
    :C+1->C
    :Goto 3
  :Else
    :Disp "NP"
    :End
:Else
  :Disp "P"
  :End


Definitions:
     <= : Less than or Equal too
     != : Not Equal too
     -> : Store As
   Disp : Display/Print
ClrHome : Clears Screen
    Lbl : Label
   Goto : Goes to Label with same number
 Return : Returns from subroutine