Operating instructions
THE
ITFM
1
D0C
)
RU~I
63000
IS FI)UNn
1M
THE
Fl)lln~'II"G
t1"'ES:
255: IF
PEEK
(
PE~K
(I
63030
PRINT
"I'/)
YOU
WANT
TO
~FAR
CH
INSIDE
STRINGS":
INPUT
"(
YES
OR
NO)?
";YY~:
PPINT
"DO
YOU
WANT
TO
$EA~CH
STRINGS
ONLy
lI
:
I~PllT
"(YF.S
OR
NO)?
"
i
YZS:
IF
YB
=
"YES"
THEN
SO
• l:YY$ •
"NO"
630~0
FOR
I • 0
TO
255
63050 SEEK(I)
..
PEEK
(START
+ 4 +
I )
63060
IF
SEEK(I) = 0
THEN
N • I -
1:
GOTO
63080
63070
NEXT
63080 M •
START
+ N + F
63090
CH
•
0:
IF
256
*
PF.EK
(M +
3)
+
PE~K
(~
+
2)
< > 2
THEN
CH
..
1:
GOTO
63120
63100
IF
N • 0
THEN
NT(C)
=
PEEK
(M
+
4):
GOTO
63120
63110
FOR
I = 0
TO
N:NT(I).
PEEK
(M
+
~
+
I):
NF.XT
63120
LM
•
256
*
P~F.K
(M
+ 3) +
PEEK
(~
+
2):
I F
L~
>
..
fi2
999
THEN
6318(1
63130
FOR
I •
~
+ 4
TO
~
+
PEEK
(I)
< > 0
ANn
I)
< >
SEEK(O)
AND
) < >
3~
THEN
NEXT
63140
IF
PEEK
(I)
•
34
AND
YY$
..
"NOll
THEN
SO
..
SO
+
1:
IF
SO
• 2
THEN
SO
• 0
63150
IF
PEEK
(I)
•
SEEK(O)
ANI'
SO
< > 1
THEN
GOSUB
63300
63160
IF
PEEK
(I)
• 0
THEN
~
..
I +
1:
COTO
63120
63170
NEXT
63180
HOME:
PRINT:
PRINT:
PRINT
liTHE
ITFM":
PRINT"
";:
LIST
1:
PR
I
NT
"I
S
F('ltJ~1D
IN
THE
~O
LLOWING
LINES:":
PRINT:
IF
L(1)
• 0
THEN
PRINT
II
NONE-":
EN"
631QO
FOR
I
..
1
TO
K:
PRINT
L(I)
,:
NEXT
:
PR
I
NT
63200
PRINT:
1~'PtlT"
[In
YOU
W'I1Il
T
THESE
LINES
LISTEO
(YES
OR
NO)?
";V~:
IF
Y$
..
"NO"
THEN
END
63210
PRINT:
PRINT
IITHERE
\'JILL
BE
A
W~
IT
AFTER
EACH
II
NE":
PR
I
~IT
"UNTIL
YOU
HIT
RETURN
Tn
rON
TINUE.":
PRINT
63220
FOR
I
..
1
TO
1000:W
..
FINI
- 2 -
I:
IF
PEEK
(W)
..
188
THEN
63240
63230
NEXT
63240
FOR
I
..
1
TO
K:
IF
L(
I)
•
L(
I -
1)
THEN
63290
63250
LS
•
110000"
+
STR~
(L(
I»:
L$·
RIGHTS
(L$,5)
63260
FOR
J • 1
TO
5:
POKF
W + J
50
<:)0
Fig.
4:
CHANGE Demonstration
60
PR
I'IT
:
DR
"IT
"THF
P~('lIlAfllr:
'.1
IN',ER
pi
A
rAT-rOG
F"~HT":
PPI'!T
"WITH
";nr.s;"
nnr.~
ANI"
";CTC:
;"
CAT~
"IOIIl" RE"
1
nOG
2
f)GS
50
IF
CT~
= 0
~~"
aA<;
= r
TH~N
Efln
<:)0
IF
PM"
(1)
* eTc; I
D~S
>
.~
THEN
PPI~IT
"*****CAT<;*****":
FNn
70
IF
(lGS
.. 0 THF'1
f'lO'
'!T
"*****
CAT<;*****":
PH'
no
YOli
1'/MlT
T'"!ES~
! !'IEe;
LI~Tf'n
(YES
Or'?
~l('l)?
YES
THER~ ~Ill
RE
~
WAIT
AFTEo
EArH
llNF
U'IT'L
YOU
HIT
!"
r:TIIR"
Tn
CO'IT
HillE.
40
70
40
,"'PIIT
"riVE
THr:
fI""'Fl~P
flr:
nor
~
";
res:
PP I
MT
Fig.
5:
Listing
of
SEARCH/CHANGE Program
62999
END
53000
DIM
SFEK(10n),NT(100),L(10
O):START
•
256
*
PEEK
(104)
+
PEFK
(103):~INI
•
25~
*
PEEK
(106)
+
PtEK
(105)
63010
IF
256
*
PfE~
(STAPT
+ 3)
+
PF.E~
(START
+ 2) < > 1
THEN
PPINT
"YOl)
MUST
ENTER
YO"q
SEAPCH
ITH1
AS
LIN!:": PPH'T
"1
BEFORE
YOU
RUN
63000.":
ENn
63020
L1C)T
0,2:
PPINT
"PLfASF
VE
RIFY
IF
TI-IE
CC'MPUTEl?
TAKES":
PRINT
"TI-IIS
AS
YOU
INTHJnF['
•
DO
YOU
\-rANT":
I
NPllT
"TO
cn
NTINUE
(YES
OR
..
'O)?
"iY$:
IF
Y$
< > "YES"
THEN
END
Pl~ASF
VERIFY
IF
THE
rn~PUT~o
TAK~~
TH
I S
AS
YflU I NTr:NnEn.
N'
Ym'
'4A~IT
Tn
cnNTINUE
(YFS
nR
NO)?
YES
no
ynu
WANT
Tn
~FAnrH
I~SlnF
~TPIN~~
(Y~S
n[\
Nn)?
NO
Of)
ynu
WA~'T
Tn
~PPCH
c;nlMr,~
MllY
(YFS
nR
WI)?
'!I)
J
January, 1980
MICRO
--
The 6502
Journal
20:57