 |
 |
|
On Screen Programs |
|
Download these ON SCREEN PROGS |
Download this HTML File |
What do they make? |
On Screen Programs HELP |
|
MENU
|
TIP Press CTRL F to find a word in the text. NOTE: |
| 01 - 09 Simple programs INPUT OBJ® | BACK TO TOP | NEXT 10 |
E01
« CLEAR
"A+B
Enter A B" ""
INPUT OBJ® ® A B
« 'A+B' EVAL
»
»
E02
« CLEAR
"Area of a Triangle
Enter h(high) b(base)"
"" INPUT OBJ® ® H B
« '.5*H*B'
EVAL
»
»
E03
« CLEAR DEG
"Degree to radians
Enter angle in Degrees"
"" INPUT OBJ® ®
DEGREE
« DEGREE D®R
»
»
E04
« CLEAR
"Factorial
Enter a positive
integer number "
"" INPUT OBJ® ® N
« N !
»
»
E05
« CLEAR
"Hyperbolic Sine
Enter a number "
"" INPUT OBJ® ® N
« N SINH
»
»
E06
« CLEAR MEM
"Free Memory" ®TAG
32000 MEM -
"Used Memory" ®TAG
»
E07
« CLEAR CLLCD
"PRESS <ENTER> TO
SORT MENU"
4 DISP 0 WAIT VARS
SORT ORDER
"MENU SORTED" SWAP
DROP
»
E08
« CLEAR
"Three numbers
to a vector
Enter three numbers"
"" INPUT OBJ® ® N
« N ®V3
»
»
E09
« CLEAR
"Decimal to fraction
Enter decimal number"
"" INPUT OBJ® ® N
« N ®Q
»
»
| 10 - 19 Vectors, Arry, ® TAG | BACK TO TOP | PREV 10 | NEXT 10 |
« CLEAR
"Celsius to Fahrenheit
Enter T in CELSIUS"
"" INPUT OBJ® ®C
« C "Celsius"
®TAG '1.8*C+32'
EVAL "Fahrenheit"
®TAG
»
»
E11
« CLEAR
"Baskara Formula
Enter a b c"
"" INPUT OBJ® ®® a b
c
« 'ƒ(b^2-4*a*
c)' ®®D
« '.5*a*(-b
+D)' ®NUM "X1" ®TAG
'.5*a*(-b-D)' ®NUM
"X2" ®TAG
»
»
»
E12
« CLEAR
"3rd order matrix det
Enter a11 a12 a13 a21
a22 a23 a31 a32 a33"
"" INPUT OBJ® ® MAT
« MAT { 3 3 }
®ARRY DET "det"
®TAG
»
»
E13
« CLEAR
"Vector and vector abs
Enter a b c"
"" INPUT OBJ® ® A
« A ®V3 "V"
®TAG DUP ABS
"ABS(V)" ®TAG
»
»
E14
« CLEAR
"Parts of a number
Enter a number"
"" INPUT OBJ® ® A
« A "Number"
®TAG 'IP(A)' ®NUM
"Int Part" ®TAG 'FP
(A)' ®NUM
"Frac Part" ®TAG
»
»
E15
«
"Using SWAP
Enter A B"
"" INPUT OBJ® ® ® A B
« A "A" ®TAG
B "B" ®TAG A
"swaped A" ®TAG B
"swaped B" ®TAG
SWAP
»
»
E16
« CLEAR
"Using DROP
Enter A B C"
"" INPUT OBJ® ® A B
C
«
"C HAS DROPPED!" A
"A" ®TAG B "B" ®TAG
C "dropped C" ®TAG
DROP
»
»
E17
« CLEAR
"Using DUP
Enter a number"
"" INPUT OBJ® ® A
« 'A^5' ®NUM
"X1" ®TAG DUP -1 *
"-X1" ®TAG DUP -10
* "10*X1" ®TAG
»
»
E18
« CLEAR
"Using ROT
Enter A B C"
"" INPUT OBJ® ® A B
C
«
"Rotating A B C" A
"A" ®TAG B "B" ®TAG
C "C" ®TAG ROT
»
»
E19
« CLEAR
"Using Algebraic
Enter A B C"
"" INPUT OBJ® ® A B
C
« 'A^5*B^2/C'
®NUM
»
| 20 - 29 CLLCD,DISP,WAIT | BACK TO TOP | PREV 10 | NEXT 10 |
E20
« CLEAR
"Using RPN
Enter A B C"
"" INPUT OBJ® ® A B
C
« A 5 ^ B 2 ^
* C /
»
»
E21
« CLEAR CLLCD
" Calculus
of Circle area
Press <ENTER>"
3 DISP 0 WAIT DROP
"Enter r" "" INPUT
OBJ® ® r
« r "r" ®TAG
'‡*r^2' ®NUM "area"
®TAG
»
»
E22
« CLEAR CLLCD
" Entering Strings
Press <ENTER>"
3 DISP 0 WAIT DROP
"Enter a word" { Œ
} INPUT OBJ® ® A
« A
»
»
E23
« CLEAR
"Using INPUT OBJ® 2x
Enter a b c"
"" INPUT OBJ®
"Enter d e f" ""
INPUT OBJ® ® A B C
D E F
« 'A+B+C+D+E+
F' ®NUM
"a+b+c+d+e+f" ®TAG
»
»
E24
« CLEAR CLLCD
" INPUT OBJ® in rows
Enter the numbers and
press Q after. (html dont accept the symbol for the arrow set
closed to Q. You need press arrow set down)
Press <ENTER> after
the last number"
2 DISP 5 WAIT
"INPUT OBJ® in rows"
{ ":Vo:
:a:
:t:" {
1 0 } } INPUT OBJ®
® VO A T
« CLEAR 'VO+A
*T' ®NUM "V" ®TAG
»
»
E25
« CLEAR
"Using units
Enter Vo a t"
"" INPUT OBJ® ® VO
A T
« 'VO+A*T'
®NUM ®STR "_m/s" +
"V" ®TAG
»
»
E26
« CLEAR
"Using Strings & nums.
V=Vo + a*t
Enter Vo a t"
"" INPUT OBJ® ®VO
A T
« "V = " VO
" + " A " * " T + +
+ + +
»
»
E27
« CLEAR
"Using DISP as output
V=Vo + a*t
Enter Vo a t"
"" INPUT OBJ® ® VO
A T
« CLLCD
"Vo = " VO ®STR + 1
DISP .01 WAIT
"a = " A ®STR + 2
DISP .01 WAIT
"t = " T ®STR + 3
DISP .01 WAIT
"V=Vo+a*t=" 'VO+A*T
' ®NUM ®STR + 5
DISP .01 WAIT
"Press <ENTER> to exit!"
7 DISP 0 WAIT DROP
»
»
E28
« CLEAR
"Using a menu option
Choose Option
1-Celsius 2-Fahrenheit"
"" INPUT OBJ® ® A
« CLEAR
IF A 1 ==
THEN
"Celsius to Fahrenheit
Enter T Celsius "
"" INPUT OBJ® ® C
« C "C"
®TAG '1.8*C+32'
®NUM "F" ®TAG
»
ELSE
IF A 2 ==
THEN
"Fahrenheit to Celsius
Enter T Fahrenheit"
"" INPUT OBJ® ® F
« F "F"
®TAG '5*(F-32)/9'
®NUM "C" ®TAG
»
END
END
»
»
E29
« CLEAR CLLCD
" Using
MSGBOX!"
MSGBOX
"A + B
Enter A B"
"" INPUT OBJ® ® A B
« "A + B = "
'A+B' ®NUM ®STR +
MSGBOX
»
»
| 30 - 39 FOR NEXT ,IF THEN ELSE | BACK TO TOP | PREV 10 | NEXT 10 |
E30
« CLEAR -56 CF
"Beep when solve
Enter A B"
"" INPUT OBJ® ® A B
« 'A*B' ®NUM
"A+B" ®TAG 1400 .1
BEEP
»
»
E31
« CLEAR CLLCD
"Minehunt with Password
Enter Password"
{ a } INPUT ® A
« A
IF A "HP48"
==
THEN CLEAR
CLLCD
" Password OK!"
4 DISP 1 WAIT
MINEHUNT
ELSE
" MISMATCH
PASSWORD!
Use HP48
as password!"
MSGBOX CLEAR
END
»
»
E32
«
DO CLEAR
"Continuous Program
Enter Q (quantity)
P (price) "
"" INPUT OBJ® ® A B
« CLLCD
"quantity " A ®STR
+ 1 DISP .01 WAIT
"price " B ®STR
+ 2 DISP .01 WAIT
"Total " 'A*B' ®NUM
®STR + 4 DISP .01
WAIT
" Pressione <ENTER>
to continue!"
6 DISP 0 WAIT
»
UNTIL 1 2 ==
END
»
E33
« CLEAR CLLCD
"Generating a
Random Number"
2 DISP 1 WAIT RAND
1000 *
»
E34
« CLEAR
"IF THEN ELSE END
Enter a b"
"" INPUT OBJ® ® A B
« A "a" ®TAG
B "b" ®TAG
IF 'A<B'
THEN "a<b"
ELSE
IF 'A>B'
THEN
"a>b"
ELSE
IF 'A==
B'
THEN
"a=b"
END
END
END
»
»
E35
« CLEAR
"IF THEN ELSE END
Enter a b c (a<b<c)"
"" INPUT OBJ® ® A B
C
« A "a" ®TAG
B "b" ®TAG C "c"
®TAG
IF 'A<B AND
B<C'
THEN
"a<b<c"
ELSE
"Indefinite Clause!"
END
»
»
E36
« CLEAR
"CASE THEN END
Enter a number A"
"" INPUT OBJ® ® A
«
CASE 'A<0'
THEN
"A<0"
END 'A==0
'
THEN
"A=0"
END 'A>0'
THEN
"A>0"
END
END
»
»
E37
«
"Using FOR NEXT
S since a till b
Enter a b"
"" INPUT OBJ® ® A B
« A B
FOR C C
NEXT A 'B-1'
START +
NEXT ® D
«CLEAR A "a"
®TAG B "b" ®TAG D
"S" A ®STR + " ® "
B ®STR + + ®TAG
»
»
»
E38
« CLEAR
"Using S
Enter a b"
"" INPUT OBJ® ® A B
« 'S(N=A,B,N)
' ®NUM ® C
« A "a"
®TAG B "b" ®TAG C
"S" A ®STR + " ®"
B ®STR + + ®TAG
»
»
»
E39
« CLEAR
"Zero FOR STEP
S from a till b
Enter a b c(step)"
"" INPUT OBJ® ® A B
S
« 0 A B
FOR C C + S
STEP ® D
« A "a"
®TAG B "b" ®TAGS
"step" ®TAG D " S "
A ®STR " ® " B ®STR
+ + + ®TAG
»
»
»
| 40 - 49 FOR NEXT,IFERR,Graphics | BACK TO TOP | PREV 10 | NEXT 10 |
E40
« CLEAR
"Zero FOR STEP
S from a till b
Enter a b"
"" INPUT OBJ® ® A B
« 0 A B
FOR C C + 1
STEP ® D
« A "a"
®TAG B "b" ®TAG D
" S " A ®STR " ® "
B ®STR + + + ®TAG
»
»
»
E41
« CLEAR
IFERR
"IFERR THEN ELSE END
Press <ENTER> to error
or a number to OK!"
"" INPUT OBJ® ® A
« A LN
"Result OK!" " LN "
A ®STR + + ®TAG
»
THEN
"An error has occurred
The program disp this
message because you
entered too few
arguments!"
1 DISP 5 WAIT
ELSE
END
»
E42
« CLEAR
IFERR
"IFERR THEN ERRM END
Type bad guess to ERRM
or a number to OK!"
"" INPUT OBJ® ® A
« 'A^2'
®NUM
"Result OK! A² "
®TAG
»
THEN CLLCD
"The error message is"
3 DISP .01 WAIT
ERRM 5 DISP 2 WAIT
ELSE
END
»
E43
« CLEAR
"Using DOERR
LOG of a number
Enter a number ‰ 0"
"" INPUT OB® ® A
«
CASE 'A‰0'
THEN
"ERROR! Irreal Result!
"
DOERR
END 'A>0'
THEN 'LOG
(A)' ®NUM " LOG "
®TAG
END
END
»
»
E44
« CLEAR
"Using DOERR
LOG of a number
Enter a number ‰ 0"
"" INPUT OBJ® ® A
«
IF 'A‰0'
THEN
"ERROR! Irreal Result!"
DOERR
END
IF 'A>0'
THEN 'LOG(A
)' ®NUM " LOG "
®TAG
END
»
»
E45
« CLEAR
"Using CASE THEN END
Enter a number"
"" INPUT OBJ® ® A
« A "A" ®TAG
CASE 'A==0'
THEN
"A=0"
END 'A<0'
THEN
"A<0"
END 'A>0'
THEN
"A>0"
END
END
»
»
E46
« CLEAR CLLCD
" -----Message-----
using DISP and WAIT
This message desapear
in few seconds"
2 DISP 3 WAIT
»
E47
« ERASE { # 0d
# 0d } PVIEW PICT {
# 50d # 32d }
"View Chars" 3
®GROB GOR 0 WAIT
ERASE CLEAR
»
E48
« CLEAR
"Strings and Numbers
Enter A B C"
"" INPUT OBJ® ® A B
C
« ERASE {
# 0d # 0d } PVIEW
PICT { # 10d # 5d }
"VAlue of ƒA: " 'ƒA
' EVAL 4 RND ®STR +
1 ®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 25d }
"Value of ƒB: " 'ƒB
' EVAL 4 RND ®STR +
2 ®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 50d }
"Value of ƒC: " 'ƒC
' EVAL 4 RND ®STR +
3 ®GROB GOR 0 WAIT
ERASE CLEAR
»
»
E49
« CLEAR
"String and Numbers II
Enter A B C"
"" INPUT OBJ® ® A B
C
« ERASE {
# 0d # 0d } PVIEW
PICT { # 10d # 3d }
"Result:" 2 ®GROB
GOR { # 0d # 0d }
PVIEW PICT { # 10d
# 15d }
"VALue of ƒA: " 'ƒA
' EVAL ®STR + 1
®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 27d }
"Value of ƒB: " 'ƒB
' EVAL ®STR + 1
®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 39d }
"VALue of ƒC: " 'ƒC
' EVAL ®STR + 1
®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 51d }
"Press enter to exit!"
1 ®GROB GOR { # 0d
# 0d } PVIEW PICT {
# 10d # 63d } 0
WAIT ERASE CLEAR
»
| 50 - 59 Graphics and Sounds | BACK TO TOP | PREV 10 | NEXT 10 |
E50
« CLEAR CLLCD
-56 CF
" Random Sound!"
4 DISP RAND 2000 *
® A
« A .1 BEEP
» E50
»
E51
« CLEAR CLLCD
-56 CF
" Emmiting Sound!"
4 DISP 1500 .1 BEEP
1600 .1 BEEP 1700
.1 BEEP 1800 .1
BEEP 1900 .1 BEEP
2000 .1 BEEP 1400
.1 BEEP 1200 .1
BEEP 1300 .1 BEEP
1200 .1 BEEP 1100
.1 BEEP 1000 .1
BEEP 900 .1 BEEP
800 .1 BEEP 700 .1
BEEP 600 .1 BEEP
500 .1 BEEP 400 .1
BEEP 300 .1 BEEP
200 .1 BEEP 100 .1
BEEP
»
E52
« CLEAR CLLCD
" HP48 Playing Music!"
4 DISP 50 5000
FOR I I .1
BEEP 100
STEP
»
E53
«
" View Graph
Enter graph name (E55...
E59) and press <ENTER>"
{ Œ } INPUT OBJ® ®
A
« A PICT STO
PICTURE
»
»
E54
« ERASE E55 E56
E57 E58 { 4 { # 0d
# 0d } .2 0 }
ANIMATE CLEAR
»
E55 - E59 Grapic objects used to make animation in other programs
| 60 - 64 INFORM and CHOOSE | BACK TO TOP | PREV 10 | TO THE END OF FILE |
E60
« E59 ®
caterpilar
« ERASE {
# 0d # 0d } PVIEW {
# 0d # 0d } PICT
OVER caterpilar
GXOR 2 MAXR
FOR X X 131
MOD R®B # 0d 2
®LIST PICT OVER
caterpilar GXOR
PICT ROT caterpilar
GXOR 2
STEP
»
»
E61
« CLEAR
"INFORM TO SOLVE MATRIX A"
{ { "A:"
"ENTER MATRIX ELEMENTS"
} "B:" "C:" "D:"
"E:" "F:" "G:" "H:"
{ "I:"
"ENTER THE NUMBER AND PRESS OK!"
} } { 3 1 } { } { }
INFORM DROP EVAL {
3 3 } ®ARRY ® A
«
IF A DET 0 ==
THEN
" Matrix not
inversible"
MSGBOX
ELSE
" INVERSE MATRIX" {
"A:" "B:" "C:" "D:"
"E:" "F:" "G:" "H:"
"I:" "DET" } { 3 1
} { } 'INV(A)' EVAL
OBJ® DROP A DET 10
®LIST INFORM CLEAR
END
»
»
E62
« CLEAR
"USING INFORM V=VO+A.T"
{ "VO" "A" "T" } {
1 1 } { } { }
INFORM DROP EVAL ®
VO A T
« 'VO+A*T' EVAL
"V (m/s)" ®TAG
»
»
E63
« CLEAR
"USING INFORM II A.X²+B.X+C"
{ { " A"
"ENTER 2ND DEGREE COEFFICIENT"
} { " B"
"ENTER 1ST DEGREE COEFFICIENT"
} { " C"
"ENTER INDEPENDENT COEFFICIENT"
} } { 1 1 } { } { }
INFORM DROP EVAL ®
A B C
« "ROOTS" { " X1"
" X2" } { 1 1 } { }
'(-B+ƒ(B^2-4*A*C))/
2*A' EVAL '(-B-ƒ(B^
2-4*A*C))/2*A' EVAL
2 ®LIST INFORM
CLEAR
»
»
E64
« -40 CF 64 STWS
"CHOOSE:PRESS OK TO RUN:"
{ E01 E06 E24 E37
E60 E63 HOME } 1
CLLCD CHOOSE
IF 0 ==
THEN CLEAR KILL
END EVAL
»
| BACK TO TOP | PREV 10 |
