EasyManua.ls Logo

Atari 400

Atari 400
122 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
H-6
Appendix
TED
COP'
l "
·'
: I
t·
i
PUT
B:t
2.~
0
IF
8$(
1 } 1 )=I!\' u
THf
li
4
~:1(1
300
EHD
400
I=l :
LF'RIHT
:FOR
t:::=1
TO
Et-H~
:
iES
420
LPR
i
f·~T
u#u
.iK.i
11
11
.;
A$(
I .• I
+::;i_
EN1
)
430
I==
I
+~3LEH
:
~~E
:
=<
T
K:
a~D
100€1
REf'l
::;m
I
HG
E:UBE:LE
::;OFT
F.:OUT
I
HE
1010
F.:f
:t-1
IHPUT
=
A$J
SLEt-L
EHTF.:IES
1015
R
Ei'
l
TEr1P$
t
·
1U~3T
HAl...IE
A D
Ii'1EH3
I
Ot
·
~
OF
SLEt-~.
1020
SLEHl=SLEN-1
=
t·1A>=:=:::;LE
t
·H
=:
(
Et
·
HP
I
ES-1
)+1
104(1
FOF~
I=1
TO
t·1A>
=:
::;TEP SLEN
1050
OOHE=1
1060
FO~
:
K=l
TO
t·1A:
:.:-
I
-::;LEt-H
~
3TE
F'
3LEt·~
1070
KSLEtH
=K+3LEt-H
:
f::SLEt
·
i=t:::+SLHi
:
f=:SLEt
·
~
~:;L
EN
1
=K~3LEtH:3LEt
·
U
1080
IF
A$
( K
..
KSLEN1
><
=A
$(
KSLEf.i
..
KSLEt6lEt·l
1)
THEN
GOTO
111(1
1090
OOt
·
~E
=0
1100
TEt-1P$=A$(
K
..
K~3LEr-i
1 ) :
A$(
K ..
r<::;LEr·~
1
)=A:t
<
~::SLE~~}
KSLEt~iSLEt·~
1 ) =
A$(
t<SLEt
·i
·'
KSLEf
·
iSLEf·i
1 )= T
Et1P$
1110
HE:,:T
K
1120
IF
DOt·lE
THEH
F.
:ETU
F.:t
·~
1130
HE:
:<T
I
114f1
RE
TU
RN

Table of Contents

Other manuals for Atari 400

Related product manuals