Casio FP-200 - Page 133

SYSTEM DEVELOPMENT:J
··-1
1455 Bytes I
100 · initiarize
110 CLS: F'f.: I NT "* Ht?:~·· Dump FF'--200 •
11
1212l INPUT "Printer· .<Y/Nl:
11
,Z$: IF Z$:.::"Y" OR Z$="y"
THEN PSW=l ELSE PSW=Cll
21210
210 PHINT : INPUT "Top addr(HEXl:",AO$:GOSUB 1000:
ADTOP=AD:IF ER=l THEN 300
220 INPUT "End addr(HEXl:",A0$:GOSUB 1000:ADEND=A
0: IF ER=l THEN 31210
230 IF AOTOP>=AOENO-THEN 200 ELSE C=0
240 FOR J=AOTOP TO ADEND STEP 16:H$="":C$='"':SUM=
J:X=J:L=4:GOSUB 1217J0:H$=X$+" "
250 FOR I=0 TO 15:M=PEEK (J+IJ:GOSUB 1100:HS=HS+M
$+" ":C$=C$+A$:SUM=SUM+M:NEXT I
260 X=SUM:L=2:GOSUB 1200:SS=XS:IF C=0 THEN GOSUB
400
I
I
l
j
I
i .. -
i
I
i
! .
270 IF F'SW=l THEN LPRINT H$•
11
"· C$• i•
11
• S$: GOSUB
/Cf"
5
~~~:?J~; ~~~C~;c.1~S;1
1
;r~tirt~·f .;;;lfa:'r~~r;); -ti~"'t'';i, ...
,.c:-·:6>;MID$CH$
1
32,11>;TABC6J;MID$(H$,44J:PRINT TAB(4);C f'~':'';
; $ - l
290 NEXT ~J:GOTO 200.
300
310 IF~PSW=l THEN LPRINT CHR$(12>;
320 END
400
410 IF ~SW=l THEN 440
420 IF J=ADTbP THEN CLS:RETURN
430 IF I Nl~:EY$="" THEN 430 ELSE CLS: RETURN
440 FOR I=l TO 3:LPRINT:NEXT I
450 LPR I NT "addr 0 1 2 :5 4 5 6 7 8 9
A 8 C D E F ascii sum"
460 LF'R I NT " --- -- -+ ·-· --· ------- ·-·- --- ·- ··- · - -- ····-·-·-·---·--·- -- -- - ·-----·· -- -·--·
- - - --- -··-·-·- - --------- -+- ·- -- --- ···- -- -- - -- - - -- - - .... --+-- -- ··-"
470 RETURN
500 '
510 C=C+1:IF C=B THEN LPRINT
520 IF C=16 THEN C=0
530 RETURN
1000 "HEXS(A0$) to DEC<ADJ
1010 AD~0:Y=l:ER=0
'
, .
!
l .
137
i
!.-.