.BITUL8R
"THE 16 BITULATOR, UTILIZING THE LATEST IN 8.8 TECHNOLOGY?"
Lbl START
If getKey(15)
Return^r
End
sub(INP)
A→theta
ClrHome
While getKey(54)
End
sub(INP)
Lbl 0
ClrHome
Disp "+-*/"
Repeat getKey→K
End
!If K-10
Lbl 10
Repeat 0
rand→B
If getKey(15)
Return^r
End
End!If B^2
!If B^3
Goto 10
End
!If B^5
Goto 10
End
!If B^7
Goto 10
End
Else!If K-11
Lbl 11
Repeat 0
rand→B
If getKey(15)
Return^r
End
End!If B^3
!If B^2
Goto 11
End
!If B^5
Goto 11
End
!If B^7
Goto 11
End
Else!If K-12
Lbl 12
Repeat 0
rand→B
If getKey(15)
Return^r
End
End!If B^5
!If B^2
Goto 12
End
!If B^3
Goto 12
End
!If B^7
Goto 12
End
Else!If K-13
Lbl 13
Repeat 0
rand→B
If getKey(15)
Return^r
End
End!If B^7
!If B^2
Goto 13
End
!If B^3
Goto 13
End
!If B^5
Goto 13
End
Else
Goto 0
End
sub(I)
Lbl I
If getKey(15)
Return^r
End
!If B-0
sub(START)
Else!If B^2
sub(ADD)
Else!If B^3
sub(SUB)
Else!If B^5
sub(PROD)
Else!If B^7
sub(DIV)
End
Lbl ADD
For(Q,0,65535)
If getKey(15)
Return^r
End
A++
theta--
If getKey(0)
Disp A>Hex,theta>Hex,Q>Hex,i
End
!If theta
Goto Atheta
End
End
Lbl Atheta
0→B
0→B
sub(I)
Lbl SUB
~A→A
sub(ADD)
Lbl PROD
theta**A→A
0→B
sub(I)
Lbl DIV
A^^-1→A
sub(PROD)
Lbl INP
ClrHome
Repeat getKey(54)
Output(0,,A>Hex
EndIf getKey(0)
If getKey(15)
Return^r
End
!If getKey(54)
If getKey(1)
A++
End
If getKey(2)
A++
End
If getKey(3)
A--
End
If getKey(4)
A--
End
Goto INP
End

Generated by the BBify'r (http://clrhome.org/resources/bbify/)