5 ' Expanded CLEAR 0.04 for VX-4/FX-870P 2003 BLUE
10 GOSUB900:BEEP1:PRINT"MODE110(&H";HEX$(EX);")";:END
900 'Machine Code Loader(FX-870P/VX-4)
910 RESTORE1000:READ ST,ED,EX:C=INT((ED-ST)/24)
920 DEFCHR$(252)="D6403C12D600":DEFCHR$(253)="3C15D6205315"
930 DEFCHR$(254)="D8566054F700":MODE110(&H153C)
940 FOR I=0 TO C:READ A$,B$,C$,D$
950 DEFCHR$(252)=A$:DEFCHR$(253)=B$:DEFCHR$(254)=C$:DEFCHR$(255)=D$
960 POKE&H123E,(ST MOD 256):POKE&H123F,INT(ST/256)
970 IF (ED-ST)<24 THEN POKE&H1246,&H3C+(ED-ST)
980 MODE110(&H123C):ST=ST+24:NEXT:CLS:RETURN
1000 DATA 6389,6507,6389
1001 DATA D11CC300775D,19B443D11CFA,0E775D19D600,C6163A1EB407
1002 DATA 56605437A82B,D600CF18AA00,AA0589457750,198865038165
1003 DATA 0FB107566054,376D2B884FA2,0FA20FA20FD6,406319566054
1004 DATA 37A853775019,D11CFC20775D,1956605437E8,2AD6009518A8
1005 DATA 03D100D01C89,43F756605437,21533531322C,313032340000