CASIO FX-730P portable computer

Dismantled machine for cleaning.

Assembling:

Testing

Memory test:

Initial remaining capacity=7520

Ready P0

10 CLEAR
20 C=904
25 DEFM C
30 FOR B=1 TO C
40 D(B)=B
50 NEXT B
60 $="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
70 BEEP 1: BEEP 1
80 PRINT "INPUT OK*";
90 GOTO #1

Ready P1

  5 A=0
  7 A=A+1
 10 FOR B=1 TO C
 20 IF D(B)<>B THEN 100
 30 NEXT B
 40 IF $<>"ABCDEFGHIJKLMNOPQRSTUVWXYZ" THEN 100
 50 IF A=5 THEN 110
 60 PRINT A;: GOTO 7
100 PRINT "CHECK**NG**;: BEEP 1: BEEP 0: GOTO 111
110 PRINT "CHECK**OK**";: BEEP 1: BEEP 1
111 PRINT "A=";A;: END


After P0 and P1 execution remaining capacity=9