Sharp PC-E500/E500S Technikersoftware

COMN.00$

CG change

COMN.00$ (1.359 Bytes)

50000 *CG ' COMN.00$ (CG change)
50010 QFK$="[      ][      ][CENTER][      ][      ]"
50020 QCL$="                                        "
50030 Q1L=PEEK &BFC8A:Q1M=PEEK &BFC8B:Q1H=PEEK &BFC8C
50040 Q2L=PEEK &BFC93:Q2M=PEEK &BFC94:Q2H=PEEK &BFC95
50050 Q3L=PEEK &BFC8D:Q3M=PEEK &BFC8E:Q3H=PEEK &BFC8F
50060 POKE &BFC8A,&0,&FD,&D,&40,&FF,&D
50070 POKE &BFC93,&C0,&FD,&D:RETURN
50100 *CGRET ' CG. return
50110 POKE &BFC8A,Q1L,Q1M,Q1H,Q3L,Q3M,Q3H:POKE &BFC93,Q2L,Q2M,Q2H:RETURN
50200 *REK ' Return key wait
50210 IF ASC INKEY$ &1=&D OR ASC INKEY$ =&2 RETURN ELSE 50210
50300 *DPC ' Computing ...
50310 LOCATE 13,3:PRINT "Computing ...":RETURN
50400 *DPA ' Answer not found
50410 LOCATE 12,3:PRINT "Answer not found":RETURN
50500 *RND ' Round
50510 IF QXQ=0 RETURN
50520 QFQ=LOG ABS QXQ
50530 GOSUB *FIX:QZQ=QFQ
50540 QFQ=QYQ:GOSUB *FIX:QYQ=QZQ-QFQ-1
50550 IF QYQ>=19 RETURN
50560 IF QYQ<0 THEN QXQ=0:RETURN
50570 IF QZQ>=90 THEN QXQ=QXQ*1E-20:QFQ=QZQ:QZQ=QZQ-20
50580 QWQ=ABS (QXQ*(10^(-QZQ))):QWQ=INT (QWQ*(10^QYQ)+0.5)
50590 QWQ=QWQ*(10^QZQ)*(10^(-QYQ))
50600 IF QFQ>=90 THEN QWQ=QWQ*1E+20
50610 IF QXQ>=0 THEN QXQ=QWQ:RETURN ELSE QXQ=-QWQ:RETURN
50700 *RND' Round(n)
50710 IF QXQ=0 RETURN
50720 QFQ=LOG ABS QXQ:QYQ=QFQ+QYQ:GOTO 50530
50800 *FIX ' Fix
50810 IF QFQ>=0 THEN QFQ=INT QFQ:RETURN ELSE QFQ=-INT ABS QFQ:RETURN

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net