Atari 800 Basic Reference Manual

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

Atari 800 Specifications

General

Processor	MOS Technology 6502
Processor Speed	1.79 MHz
ROM	10 KB
Graphics	ANTIC and GTIA chips
Release Year	1979
Display Resolution	up to 320 x 192
Colors	128 colors
Sound	4 channels
Storage	Cartridge, cassette, floppy disk
Ports	Cartridge, serial, monitor
Operating System	Atari OS