Atari DOS 2.5: XF551 Owner's Manual page 83

1 REM POINTEST - POINT STATEMENT DEMO
2 REM TH I S PROGRAM TAKES THE FILE
3 REM CREATED BY NOTEST AND PRINTS
4
REM THE LI NES IN REUERSE ORDER.
10 DH1 B(2(1, 1)
20 DHI A$(4'))
25 REM OPEN DATA FILE
30 OPE N #1,4,0, "D'DATFIL . DAT"
35 REM OPEN POINTER FILE
40 OPEN #2,4,0,"D'POINTS . DAT"
45 RE M READ POINTERS INTO AN ARRAY
50 FOR 1=0 TO 20
60 HlPUT :lt2;X,V
70 B(I,O)=X:BCI, l)=Y
80 I F M-B AND Y-0 THEN LRST-I ' I-20
':;'0
t~EXT
I
95 REM PRINT FILE IN REVERSE ORDER
100 FOR I-LRST-l TO 0 STEP - 1
110 X=BCI,O):Y=BCI,l)
120 POINT #l,X,Y
130 PRItH ":3ECTOF:
**
=
",;X,"B~'TE
**
=
" ;Y
140
H~PUT
#L A$
15" PRHlT A$
160 t·tEXT I
Here is the sample run :
SECTOR
# _
145
110
SECTOR
# -
145
100
SECTOR # - 145
90
SECTOR # - 145
80
SECTOR
# _
145
75
SECTOR # - 145
55
SECTOR
# _
145
45
BYTE # - 28
BYTE #
=
24
BYTE #
=
21
BYTE # _ 18
BYTE
#
=
15
BYTE
# _
12
BYTE # _9
73