Copy and paste programs to Calprola program code window (prog tab), and press run.

Send your programs: cssandor[at]gmail[dot]com

26.03.2009.
Lotto (output: lotto numbers)
#LBL 000
#BTN A1
#BTN E4
#BTN J1
#BTN E1
#BTN H3
#BTN K1
#BTN L5
#STO D01
#BTN L5
#STO D02
#BTN L5
#STO D03
#BTN L5
#STO D04
#BTN L5
#STO D05
#BTN A1
#WRI "0"
#BTN L5
#STO D08
#LBL 001
#INC D08
#IFL D01 D02 G002
#CHG D01 D02
#LBL 002
#IFL D02 D03 G003
#CHG D02 D03
#LBL 003
#IFL D03 D04 G004
#CHG D03 D04
#LBL 004
#IFL D04 D05 G005
#CHG D04 D05
#LBL 005
#BTN A1
#WRI "5"
#BTN L5
#STO D09
#IFN D08 D09 G001
#IFE D01 D02 G000
#IFE D02 D03 G000
#IFE D03 D04 G000
#IFE D04 D05 G000
#BTN A1
#RCL D01
#WRI ","
#RCL D02
#WRI ","
#RCL D03
#WRI ","
#RCL D04
#WRI ","
#RCL D05
#END

23.03.2009.
Square (input: side a, side b, output: area, perimeter)
#BTN A1
#PRI "a?"
#INP D01
#BTN A1
#PRI "b?"
#INP D02
#BTN A1
#RCL D01
#WRI "*"
#RCL D02
#BTN L5
#STO D03
#BTN A1
#PRI "area="
#RCL D03
#STP
#BTN A1
#RCL D01
#WRI "*2+2*"
#RCL D02
#BTN L5
#STO D03
#BTN A1
#PRI "perimeter="
#RCL D03
#END

15.07.2008.
Pithagoras (input: side a, side b, output: side c)
#BTN A1
#PRI "a?"
#INP D01
#BTN A1
#PRI "b?"
#INP D02
#BTN A1
#WRI "sqrt(pow("
#RCL D01
#WRI ")+pow("
#RCL D02
#BTN L5
#STO D03
#BTN A1
#PRI "c="
#RCL D03
#END

15.07.2008.
SAV, ADD (save and add string)
#BTN A1
#WRI "HELLO WORLD!"
#SAV 1
#BTN A1
#WRI "*"
#SAV 2
#ADD 1
#ADD 2
#ADD 1
#ADD 2
#END

15.07.2008.
PRI vs WRI - step by step
#BTN A1
#WRI "one"
#STP
#WRI "two"
#STP
#PRI "three"
#STP
#PRI "four"
#END

15.07.2008.
PRI vs WRI
#BTN A1
#WRI "one"
#WRI "two"
#PRI "three"
#PRI "four"
#END

15.07.2008.
Hello World! II. (WRI)
#BTN A1
#WRI "HELLO WORLD!"
#END

15.07.2008.
Hello World! I. (PRI)
#BTN A1
#PRI "HELLO WORLD!"
#END

23.06.2008.
LIFO - push, pop:
#PRI "5"
#STO D01
#PSH D01
#PRI "6"
#STO D01
#PSH D01
#PRI "7"
#STO D01
#PSH D01
#POP D01
#RCL D01
#POP D01
#RCL D01
#POP D01
#RCL D01
#END

23.06.2008.
Wait:
#PRI "WAIT 0.5 SEC"
#WAI 05
#PRI "WAIT 1 SEC"
#WAI 10
#PRI "WAIT 3 SEC"
#WAI 30
#PRI "OK"
#END

20.06.2008.
Stop:
#PRI "WAIT, PRESS '='"
#STP
#PRI "WAIT AGAIN..."
#STP
#BTN A1
#END

20.06.2008.
If - then - else (positive, zero, negative):
#PRI "0"
#STO D00
#BTN A1
#PRI "number?"
#INP D01
#IFN D01 D00 G001
#PRI "zero"
#END
#LBL 001
#IFL D01 D00 G002
#PRI "positive"
#END
#LBL 002
#PRI "negative"
#END

20.06.2008.
Jump example:
#BTN A1
#JMP 2
#WRI "no"
#WRI "no"
#WRI "yes"
#WRI "yes"
#WRI "yes"
#END

19.06.2008.
Cube:
#BTN A1
#PRI "a?"
#INP D01
#BTN A1
#PRI "b?"
#INP D02
#BTN A1
#PRI "c?"
#INP D03
#MLT D01 D01 D02
#MLT D01 D01 D03
#BTN A1
#PRI "cube="
#RCL D01
#END

19.06.2008.
My first cycle:
#PRI "0"
#STO D01
#PRI "10"
#STO D02
#BTN A1
#LBL 001
#RCL D01
#INC D01
#IFN D01 D02 G001
#END

18.06.2008.
Brackets - my first simple Calprola program:
#BTN B5
#BTN B1
#BTN A4
#BTN H4
#BTN A4
#BTN B4
#BTN H5
#END