Radio Shack TRS-80 Trsdos & Disk Basic Reference Manual page 71

Extended
Utilities
F
I
LESPEC
:
SEQCHECK/TXT
SECTOR:
1
8
35 26 43 4C 53 3R 26 43 4C 45 41 52 26 31 36 36
16
36 8D 31 36 28 41 24 3D 49 4E 4B 45 59 24
3fi
49
32
46 41 24 3D 22 22 54 48 45 4E 31 38 8D 31 35 26
48
49 46 20 41 24 3D 22 48 22 54 48 45 4E 28 32 35
64 8D 32 30 20 50 52 49 4E 54 41 24 3B 3R 42 24 3D
86 42 24 2B 41 24
3fl
47 4F
54 4F 31
38 8D 32 35
26
96
58 52 49 4E 54
3fi
56 52 49 4E 54 22 44
41
54 41
112 28 49 40 41 4? 45 26 5? 49 4C 4C 28 41 53 26 4F
128 4E 28 4E 45 58 54 26 4C 49 4E 45 2E 28 28 22 43
144 48 52 24 28 39 31 29 22 3D 42 59 54 45 28 44 45
168 4C 49 4D 49 54 45 52 29 22 8D 33 38 28 46 4F 52
176
49 25 3D 31 28 54 4F 28 4C 45 4E 28 42 24 29
3fi
192
28 56 52 49 4E
54 26 41
53 43 28 4D 49 44 24 28
288 42 24 2C 49 25 29 29 43 48 52 24 28 39 31 29
3B
224
3fl
4E 45 58 54 8D 33 35 28 58 52 49 4E 54 8D 35
240 30 28
4F
56 45
4E
22 4F 22 2C 31 2C 22 54 45 53
5 CLS:
CLERR
168!
6.10 fi*=INKEV$:I!
FR$=""THEN10. 15
!
IF
fi$=
,, @"THEN
25!
.20
F'RINTR*.;
:B*=!
B$+fi$:G0T018. 25
!
PRINT :PRINT"DRTR'.
!
IMAGE MILL RS
0!
!N
NEXT LINE.
<"C!
!HR$<91>"=BVTE
DE!
'.LIMITERr.Se
FOR!
!IJi=l
TO LEN<B$):!
PRINT
RSC:<MID$<!
!B$,
I%))CHR$<91>;
!:
NEXT.
35
PRINT.
5!
!8
OPEN"OM,
"TES!
5-9