Skip to main content

Casio FX-700P

Casio FX-700P.jpg

Resources

Usage

Writing programs

  1. Enter write mode: MODE, 1
  2. Select program S, 0 to 9
  3. Enter program lines: <line no> <command> <args>, EXEC
  4. LIST to list the program (follow by line number to start from that line)
    1. Each listed line can be edited
    2. AC to cancel any changes made to a line
    3. EXEC save changes
  5. Changing <line no> of a line makes a copy of it under that name (if already exist it overwrites existing one)
  6. Putting just <line no> with no <command> removes that line

Running programs

  1. Enter run mode with MODE, 0
  2. S, <program number> to run it
  3. Alternatively type RUN to run currently selected program (last edited or run)

Typing

  • Lower case letters: MODE, . (dot; EXT mode)

BASIC

Input INPUT <string var> Enter data from keyboard.

<char var> = KEY

 

1 FOR I=0 TO 20
2 K$=KEY
3 NEXT I:
4 PRINT K$

 

 Read a character and assign it to a variable. Program is not stopped. Empty string is read if no key is pressed.
Output

PRINT [string | var | command] [: | ,] [string | var] ([: | ,] ...)

 

1 PRINT CSR 3;
2 PRINT "HI"
3 F=2
4 PRINT "FOO=";F

 

If no arguments are given clears screen. If string or variable is given it is printed out. ; separates arguments to print without clearing screen. , waits for any key and clears the screen. If terminated by ; screen is not cleared, otherwise waits for any key and clears the screen.

PRINT CSR [var | num] sets position of cursor (0 to 11).
Branching GOTO [line | var] Execution jumps to specified line number.

IF <comparison> [THEN <line> | ; <command>] Jump to line or execute command following ; if comparison is true. Otherwise continue from next command.

GOSUB [line | var] Jump to line or line stored in a variable.

RETURN Returns from last GOSUB call to command next after it.









BASIC games

Spot and Stop

5 L=0
10 PRINT "Spot and Stop"
20 PRINT "HIGHEST=";H
30 PRINT "BY ";$
40 FOR G=1 TO 20
50 A=INT (RAN#*10)
60 GOSUB 300
70 INPUT C
80 IF A=C;L=L+20:PRINT "GOOD":GOTO 100
90 L=L/2:PRINT "MISSED"
100 NEXT G
110 L=INT L:PRINT :PRINT "SCORE=";L
120 IF L>H;H=L:PRINT "NEW HIGH":INPUT "NAME",$
130 END
300 PRINT "::::::::::";
310 PRINT CSR A;";";:FOR W=1 TO 40:NEXT W
315 PRINT
320 PRINT "0123456789";
330 RETURN

Gopher Trap

10 PRINT "HIGHEST:";H:G=0:$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
20 FOR C=0 TO 4
30 PRINT CSR 0;"            ";
40 A=INT (RAN#*26+1):B=INT (RAN#*12)
50 D$=MID(A,1)
60 FOR E=0 TO 25:PRINT CSR B;D$;:F$=KEY:IF F$="";NEXT E
70 IF D$=F$;PRINT :PRINT "MISSED:0";:GOSUB 200:NEXT C:GOTO 100
80 PRINT :PRINT CSR 0;"TIME :";E;:GOSUB 200
90 S=(27-E)*10:PRINT CSR 0;"SCORE:"S;:G=G+S:GOSUB 200:NEXT C
100 IF H<G;H=G
110 PRINT :PRINT CSR 0;"FINAL:";G;" "
120 END
200 FOR W=1 TO 200:NEXT W:RETURN

Back to top