Casio FX-795P Owner's Manual page 65

Example:
PB-100 program
1@ VAC
3@ INPUT Z(A)
90 NEXT A
116
5-8. Using a PB-100 Program
This example is part of a program to enter data and distribute them according
to their size. Although the program could be used as it is, correct the following
items.
Change "VAC" on line 10 to "CLEAR".
10 CLEAR
Change ";" on lines 40 to 70 to "THEN".
40 IF Z(A)>8@ THEN B=B+1:GOTO 90
Since variable expansion is necessary in this program, write the DEFM com-
mand, manually executed in the PB-100/PB-300/FX-700P/FX-802P, at the
beginning.
5 DEFM 20
Example:
PB-100 program
1@ INPUT "1=1/0=2/P=3" ,N
20 |F N<1 THEN 108
30 IF N>3 THEN 10
408 GOTO N*1@0
This program is used to determine branch destination according to the work.
To adapt it for this computer, modify it as follows by using an:ON ~ GOTO
statement.
117