Advertisement
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
f"
5
~~~:?J~;
~~~C~;c.1~S;1
1
;r~tirt~·f
.;;;lfa:' r ~~r;);
-ti~"'t'';i, . . .
-·: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 .
Advertisement
