This programme transfers any library programme into the P0 programme area of your Casio FX-850P\/FX-880P.<\/p>\n\n\n\n
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!<\/p>\n\n\n\n
Now copy the programme TRANSL1<\/strong> to P1 and the programme TRANSL2<\/strong> 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. <\/p>\n\n\n\n Here is the source code for TRANSL1:<\/p>\n\n\n\n Here is the source code for TRANSL2:<\/p>\n\n\n\n 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. … Continue reading 10 REM Program:TRANS-LIB -> P1\n11 REM Task: Main program\n20 CLEAR: CLS: PRINT \"This auxiliary program transmits a library program to P0.\"\n30 INPUT \"Please enter the library-program-no.:\";NR$\n40 DEFSEG=0: X=PEEK1715+PEEK1716*256-15\n50 A=PEEK1718+PEEK1719*256+PEEK1720*65536\n60 B=PEEK1724+PEEK1725*256+PEEK1726*65536\n70 FOR I=A TO B-15 STEP 15\n80 DEFSEG=I\/16: C=I-INT(I\/16)*16+6\n90 FOR K=1 TO LEN(NR$): IF ASC(MID$(NR$,K)=PEEK(K+C) THEN NEXT K: GOTO 110\n100 NEXT I: PRINT \"Searched library programme not found. Please select again!\": GOTO 10\n110 REM Determine addresses\n120 DEFSEG=0: IF PEEK(X+2)=0 THEN A0=PEEK X: A1=PEEK(X+1): A3=PEEK(X+3): A4=PEEK(X+4)\n130 FOR K=0 TO 5: DEFSEG=I\/16: N=PEEK(K+I-INT(I\/16)*16): DEFSEG=0: POKE X+K,N: NEXT K\n140 PRINT \"Library-Program-No.:\";NR$;: PRINT \" is now stored in P0!\"<\/code><\/pre>\n\n\n\n10 REM Program:TRANS-LIB -> P2\n11 REM Task: Delete program in P0\n20 INPUT \"Delete P0? [Y\/N] \";Q$\n30 IF Q$<>\"Y\" OR X=0 THEN END\n40 POKE X+0,A0\n41 POKE X+1,A1\n42 POKE X+2,0\n43 POKE X+3,A3\n44 POKE X+4,A4\n45 POKE X+5,0\n46 X=0<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"