Instruction manual
6:
Shape File Initialization Program
7:
Shape Creating Program
-
~,
19
REM
SHAPE
FILE
I~rrIAL!Z}!T!Of·!
20J.)
~~
=N + 6
210
REr1
STO~:E
~'lE!'~
!~I[!E:'<
HI
QI~:E
eTOP'y'
220
F1)KE
f~{O[!P
+
4,,~!
- 256:t. I
NT
(H
..-'
256::-
23e
POf:::E
:~DOP
~
5.l
IHT
(N
/' 256)
N+
(A~~f
..
!E
)
FILE
LP!GT~
PEE~~:
(AS'..JE
+ 2 :t
PEEK
(A:3l..'E
+ 2
:t.
It-fUT
·STARTIHG
ADDRE~::~::
..
GEC
I~1
II
;A$I)£
REM
DISK
~:CESSES
L~E
O!S~
0
68
REM
I~PL!T
TABLE
Nr~r1E
~:Na
Loe
ATION
70
IWUT
HSHAPE
TABLE
~l:~!'1E
II.:
NAt1
E$
89
Ft.
98
2
100
0$
=
CHR!
(4)'
PR
I
HT
Df
,;
"~lm'1
1)4
C.'
LO"
110
PRINT
Df;
118L!Jf~D
II
+
HAr~E$
+
..
I
A"
+
STR$
(AS!.}E:'
+
";
t,l0
i 0
2"
120
REM
GET
CAPACITY
MAX
OF
FIL
E
130
MA;~
=
PEEK
(A:3
1
.,.IE
+ 2) +
256
:t.
PEEK
(ASt'E
+
:3)
140
MAX
=
(MAX
-
2)
/ 2
150
REM
GET
NO.
OF
SHI~PE:::
HI T
~.!
BLE
160
N =
PEE~::
170
REM
GET
180
I~E:~~
=
2)
+
256
:t
N +
3)
190
REM
CDt'1P'_'fE
ADD~E:::::'
C!F
~·lE>~T
FREE
BYTE
2ee
Amp
=
~f:::!...lE
+ I
~~DE>·:
210
REM
SEE
IF
FILE
IS
FUL~
220
IF
M~~:y:
>N
TH£~f
2€!?
230
PRUfr
":3HAPE
TABLE
!=ttL.
NE:-<
T
FREE
BYTE
AT
II
,;
ADm::
240
GOTO
137!~
2S0
R81
SET
UP
APP'_.E
F'eI~·rn::e~~:
T
I)
TABLE
~'6e
POKE
2J2
..
AS'.}!:
- 256:t. I
NT
(
~')E
./
256):
POKE
233.,
INT
(
AStlE
/ 256)
10
PRHlT
TA8(
6);
1I:t.:rt.:t:CRE;~TE
A
$PE
TABLE:t:n:t.
1I
20
PRHIT
30
PR!HT
TAB(
5)j
IIB~J
J.
FIGUE~~A
5
..
ROL.T£STER~
N.Y.
U
:
PRlt·fT
49
PRH{T
TAB(
16)"9
.....
12/79
11
:
PRINT
HIT
eTI
C
t
...
__
H.I'TiI n
.'i,
'_'
..
'
UP[!~~
T~
~::H:~jPE
c:eU~fTE~:
ADD~:
..
1
STO~~E
!N!T!
~~fL.
I
ZED
F.£!1
P()I(C
•
'_'1'.-
130
RP1
CALC
WHIrlL
:~DCRE~:::::::
TO
Clf.:30!!:
140
UHT
=
ADOP
+
t-!
150
REr'~
EHTE~~
CUR~::C!~'
~;H~:fPE
f..JEeT
ORS
160
DATA
62,36..
45.,
54
..
!~4.,
0!~
170
FOF.:
I = e
TO
5
lse
RE~7([!
A'
POKE
IHIT
+ IJ
A:
rfE:'<T
R
ge~~=2:t.N+2
1
00
REr-1
PUT
C!jP~3C!R
I
t'!DE;-'~
I
RECTOR'·,·'
110
POKE
AOOP
+
2,
~1
-
25£
:t
(H
/ 256)
120
POKE
AO(lR
+
3..
INT
(N
/
240
250
260
ON
DISK
270
0$
=
CHR~
(4)
280
PR!
~JT
D!.:
II
N!J!~:C!~'r
C."
I
.J
0
if
290
PR!
~·rr
D$.:
Ii
8~:~~~_i.}E
a +
N:=~ME$'
.L
If
JAR
+
STR!
(ADCP)
+
II}l"
+
STR:t
un
+
/I
..
l!0
..
D2"
300
END
29
ItflUT
II~~ME
OF
SHAPE
T~IS!..E
Il.:
HAt1E$
30
HPUT
"START
I
~!G
ADDPE~~::
..
DEC
H~
f.t.
";
AODR
40
INPUT
11m.
OF
SHAPES
TO
8E
8T
~D
";N
50
REM
ZERO
DIRECTORY
60
FOR
I =e
TO
2
:t.
N+ 1
70
PC~E
ADOP
+ !
..
0:
NEXT
:30
REM
CALCULATE
INDEX
TO
CURse
)
December, 1979
MICRO
--
The 6502 Journal
19:19