This programme transfers any library programme into the P0 programme area of your Casio FX-850P/FX-880P.
Before transferring, make sure that there is enough memory on your Casio computer (The basic command NEW deletes one programme in the current programme area. If you want to delete all programmes, use the basic command NEW ALL. But remember to make a data backup first!
Now copy the programme TRANSL1 to P1 and the programme TRANSL2 to P2. Since the library programme is created in P0, you should definitely delete this programme area (if you have not already done so). Start the programme in programme area P1 and enter the desired LIB number. As soon as you have entered a number, the library programme is created in the programme area P0. There you can list, start or save it (but not edit it!). Now the programme can be transferred to a PC. The programme in programme area P2 deletes the program in P0 and makes programme area P0 usable again.
Here is the source code for TRANSL1:
10 REM Program:TRANS-LIB -> P1
11 REM Task: Main program
20 CLEAR: CLS: PRINT "This auxiliary program transmits a library program to P0."
30 INPUT "Please enter the library-program-no.:";NR$
40 DEFSEG=0: X=PEEK1715+PEEK1716*256-15
50 A=PEEK1718+PEEK1719*256+PEEK1720*65536
60 B=PEEK1724+PEEK1725*256+PEEK1726*65536
70 FOR I=A TO B-15 STEP 15
80 DEFSEG=I/16: C=I-INT(I/16)*16+6
90 FOR K=1 TO LEN(NR$): IF ASC(MID$(NR$,K)=PEEK(K+C) THEN NEXT K: GOTO 110
100 NEXT I: PRINT "Searched library programme not found. Please select again!": GOTO 10
110 REM Determine addresses
120 DEFSEG=0: IF PEEK(X+2)=0 THEN A0=PEEK X: A1=PEEK(X+1): A3=PEEK(X+3): A4=PEEK(X+4)
130 FOR K=0 TO 5: DEFSEG=I/16: N=PEEK(K+I-INT(I/16)*16): DEFSEG=0: POKE X+K,N: NEXT K
140 PRINT "Library-Program-No.:";NR$;: PRINT " is now stored in P0!"Here is the source code for TRANSL2:
10 REM Program:TRANS-LIB -> P2
11 REM Task: Delete program in P0
20 INPUT "Delete P0? [Y/N] ";Q$
30 IF Q$<>"Y" OR X=0 THEN END
40 POKE X+0,A0
41 POKE X+1,A1
42 POKE X+2,0
43 POKE X+3,A3
44 POKE X+4,A4
45 POKE X+5,0
46 X=0