Atari 400 Basic Reference Manual page 103

H-6
Appendix
TED COP' l " ·' : I t·iPUT B:t
2.~0
IF 8$( 1 } 1
)=I!\'
u
THfli
4~:1(1
300 EHD
400 I=l : LF'RIHT :FOR t:::=1 TO
Et-H~: iES
420
LPR i f·~T u#u . i K. 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>=:=:::;LEt·H=: ( Et·HP IES-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
~3TEF' 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· i SLEf·i 1
)=
T
Et1P$
1110 HE:,:T K
1120 IF DOt·lE THEH F.:ETUF.:t·~
1130 HE::<T I
114f1 RETURN