To run the program you have to push the number of the program and then the key \u201cLIB\u201d.<\/p>\n
<\/p>\n
Of these three, the one that seems most interesting to me is the 0400, the testing program.<\/p>\n
It informs you of the memory installed on the Casio, and also it tells you how much memory you have installed in the expansion module.<\/p>\n
![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/1.png\")
<\/p>\n
\u00a0Test the RAM and the ROM and it tells you whether they are fine. ![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/2.png\")
\u00a0It shows all the pixels of the calculator lit in three different screens, for you to make you see easily whether there was a dead pixel.![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/3.png\")
![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/4.png\")
![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/5.png\")
\u00a0Finally, it takes a \u201cPrinter CHECK\u201d that I am not actually sure whether it means a check out of the port, or to plug a printer to check it out. ![\"Test](\"https:\/\/www.casio880.com\/wp-content\/uploads\/2014\/04\/6.png\")
<\/p>\n
The exact code of the program is in the popular annex at the manual of Alchemist<\/p>\n
<\/p>\n
Library: 0400 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Test\u00a0of the calculator<\/i><\/b><\/p>\n In our lovely calculators are some programs from the library not documented in the manual and not in the paper enclosure in the list of programs that comes with the calculator. Some of these hidden programs, are: 0400 ->Testing\u00a0program of the calculator. 0800 ->Program for the printer. 0900 -> Converter of PB100 to FX-850P. To […]\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"footnotes":""},"categories":[20],"tags":[],"class_list":["post-2459","post","type-post","status-publish","format-standard","hentry","category-sin-categoria-en"],"_links":{"self":[{"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/posts\/2459","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/comments?post=2459"}],"version-history":[{"count":8,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/posts\/2459\/revisions"}],"predecessor-version":[{"id":2487,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/posts\/2459\/revisions\/2487"}],"wp:attachment":[{"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/media?parent=2459"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/categories?post=2459"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.casio880.com\/en\/wp-json\/wp\/v2\/tags?post=2459"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}\n\n
\n 10<\/td>\n CLEAR:CLS:DEFSEG=0:K=PEEK(&H6B4)\/4+PEEK(&H6B5)*64<\/td>\n<\/tr>\n \n 20<\/td>\n IF \u00a0 K<32 THENK1=8:K2=K-K1<\/td>\n<\/tr>\n \n 30<\/td>\n IF \u00a0 K=32 OR K=64 THENK1=32:K2=K-K1<\/td>\n<\/tr>\n \n 40<\/td>\n IF \u00a0 K=40THENPOKE&H8000,10:POKE0,0:IFPEEK&HA000=10THENK1=32:K2=8ELSEK1=8: \u00a0 K2=32<\/td>\n<\/tr>\n \n 50<\/td>\n PRINT”Main”;K1;TAB(8);”Kbyte \u00a0 Option”;K2;”Kbyte”;:PRINT:A=64:D=1:A1=0<\/td>\n<\/tr>\n \n 70<\/td>\n GOSUB1000:A=A+A:D=(D+D)MOD256:IF \u00a0 A<K*1024 THEN70<\/td>\n<\/tr>\n \n 80<\/td>\n FORI=1 \u00a0 TO9:A=K*1024-A1-1:IF I=5 OR I=9 THEND=&H80 ELSE D=&H20<\/td>\n<\/tr>\n \n 100<\/td>\n GOSUB1010:IF \u00a0 A1=0 THENA1=1 ELSEA1=A1*2<\/td>\n<\/tr>\n \n 110<\/td>\n NEXT<\/td>\n<\/tr>\n \n 120<\/td>\n A=K*1024-A1-1:GOSUB1000:A1=A1*2:IF \u00a0 A1<K*1024 THEN120<\/td>\n<\/tr>\n \n 130<\/td>\n PRINT”\u00a0\u00a0 OK\u00a0 \u00a0 RAM”;:GOSUB10000:PRINT:DEFSEG=&H4000<\/td>\n<\/tr>\n \n 160<\/td>\n ROM=(PEEK(4)+1+PEEK(5)*256)*2<\/td>\n<\/tr>\n \n 170<\/td>\n IF \u00a0 PEEK(0)<>&H43 THENPRINT”NG ROM 1″;:GOTO1030<\/td>\n<\/tr>\n \n 180<\/td>\n IF \u00a0 ROM<>1024 THEN200<\/td>\n<\/tr>\n \n 190<\/td>\n D1=PEEK(&H5955):D2=PEEK&HA6AA:D3=PEEK&HFFFF:DEFSEG=&H5000<\/td>\n<\/tr>\n \n 191<\/td>\n D4=PEEK0:D5=PEEK&H5955:D6=PEEK&HA6AA<\/td>\n<\/tr>\n \n 192<\/td>\n IF \u00a0 PEEK&HFFFF<>&H20 THENPRINT”NG ROM 2″;:GOTO1030<\/td>\n<\/tr>\n \n 193<\/td>\n PRINT”OK \u00a0 512K*2 ROM?”;:PRINT<\/td>\n<\/tr>\n \n 194<\/td>\n PRINTRIGHT$(HEX$(D1),2);” \u00a0 “;RIGHT$(HEX$(D2),2);” “;RIGHT$(HEX$(D3),2);” “;RIGHT$(HEX$(D4),2);” \u00a0 “;RIGHT$(HEX$(D5),2);” “;RIGHT$(HEX$(D6),2);””;:GOTO210<\/td>\n<\/tr>\n \n 200<\/td>\n IF \u00a0 PEEK(ROM*128-1)<>&H20 THENPRINT”NG ROM 1″;:GOTO1030<\/td>\n<\/tr>\n \n 201<\/td>\n D1=PEEK&H5955:IF \u00a0 ROM=256 THEND2=PEEK&H26AA ELSE D2=PEEK&HA6AA<\/td>\n<\/tr>\n \n 202<\/td>\n PRINT”OK”;STR$(ROM);”K \u00a0 ROM?”;:PRINT<\/td>\n<\/tr>\n \n 203<\/td>\n PRINTRIGHT$(HEX$(D1),2);” \u00a0 “;RIGHT$(HEX$(D2),2);” “;<\/td>\n<\/tr>\n \n 210<\/td>\n GOSUB10000<\/td>\n<\/tr>\n \n 220<\/td>\n CLS:FOR \u00a0 I=0 TO 63:PRINTCHR$(&HFF);:NEXT:LOCATE 0,0<\/td>\n<\/tr>\n \n 230<\/td>\n DEFCHR$(&HFF)=”FFFFFFFFFF”:GOSUB10000:DEFCHR$(&HFF)=”0000000000″: \u00a0 GOSUB10000<\/td>\n<\/tr>\n \n 250<\/td>\n DEFCHR$(&HFF)=”AA55AA55AA”:GOSUB10000:DEFCHR$(&HFF)=”55AA55AA55″:TRON: \u00a0 GOSUB10000:TROFF<\/td>\n<\/tr>\n \n 280<\/td>\n CLS:PRINT”Printer \u00a0 CHECK”;:LPRINT:GOSUB10000<\/td>\n<\/tr>\n \n 290<\/td>\n LPRINT”Main”;K1;”Kbyte \u00a0 Option”;K2;”Kbyte”<\/td>\n<\/tr>\n \n 320<\/td>\n FOR \u00a0 I=32 TO 255:IF I=&H7F THENI=&H80<\/td>\n<\/tr>\n \n 330<\/td>\n LPRINTCHR$(I);:NEXT:LPRINT<\/td>\n<\/tr>\n \n 350<\/td>\n PRINT”RS \u00a0 232C CHECK”;:PRINT:GOSUB10000<\/td>\n<\/tr>\n \n 360<\/td>\n OPEN \u00a0 “COM0:5,E,8,2,C,D,C,B,N” AS #1:PRINT#1,123:INPUT #1,D<\/td>\n<\/tr>\n \n 390<\/td>\n CLOSE:IF \u00a0 D<> 123 THENPRINT”NG RS 232C”;:GOTO1030<\/td>\n<\/tr>\n \n 410<\/td>\n PRINT”OK \u00a0 RS 232C”;:GOSUB10000:PRINT<\/td>\n<\/tr>\n \n 420<\/td>\n PRINT”MT \u00a0 CHECK\u00a0 \u00a0 <REC>”;:PRINT:GOSUB10000<\/td>\n<\/tr>\n \n 430<\/td>\n OPEN \u00a0 “CAS0:TEST” FOR OUTPUT AS #1:PRINT#1,”ABC”:CLOSE<\/td>\n<\/tr>\n \n 460<\/td>\n PRINT”MT \u00a0 <REW> and <PLAY>”;:PRINT:GOSUB10000<\/td>\n<\/tr>\n \n 470<\/td>\n OPEN \u00a0 “CAS0:TEST” FOR INPUT AS #1:INPUT #1,A$:CLOSE<\/td>\n<\/tr>\n \n 490<\/td>\n IF \u00a0 A$<>”ABC” THENPRINT”NG MT”;:PRINT:GOTO1030<\/td>\n<\/tr>\n \n 510<\/td>\n PRINT”OK \u00a0 MT”;:PRINT<\/td>\n<\/tr>\n \n 520<\/td>\n END<\/td>\n<\/tr>\n \n 1000<\/td>\n POKE \u00a0 A,D<\/td>\n<\/tr>\n \n 1010<\/td>\n IF \u00a0 PEEKA=D THENRETURN<\/td>\n<\/tr>\n \n 1020<\/td>\n IF \u00a0 A>=K1 THENPRINT”NG RAM 2″; ELSE PRINT “NG RAM 1”;<\/td>\n<\/tr>\n \n 1030<\/td>\n BEEP:GOTO1030<\/td>\n<\/tr>\n \n 10000<\/td>\n BEEP:IF \u00a0 INPUT$(1,@)=CHR$(0) THEN10000ELSE RETURN<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"