Atari 800 Basic Reference Manual

1. To use this program, first enter it. After entering it, save this program on
disk or cassette for future use.
10 GRAPHICS 0, PRINT "rE:~~CODE LOADER PROG
RAI'1" =PRINT
20 REM STORES OECit1AL EQUILIALHHS IN ARR
A~t A, OUTPUTS IN PRINTED • DATA STAT8·1ENT
S' AT
21 REM LI~E NUMBER 1500.
30 REM USEJ;.: TI-H~ PLACES CURSOR ON PR It·ITE
0 OUTPUT LINE, HITS "RETURHu, ~ ENTERS
31 REM REST OF BASIC PROGRAM IOCLUDING U
SR STATEMENT.
43 DIM A< 50).. HE:)=:$( 5)
50 REM INPUT,COt·MEF.:~3IOt · V:;TORAGE OF DATA.
60 N=0 = PRWT "Et-HER 1 1-1):: CODE . IF LAST
ONE IS IN} EtHEF.: I DOHE I • II;
70 INPUT 1·£:=0::$
89 IF HE:~= II DONE II THEN N=999: GOTO 130
90 FOR 1=1 TO LEW HE:~{$>
100 IF HE:~< I, I ){="9" H£t-~ N=t-t = ~16+UAL< HE
:~ I } I ) ) = GOTO 120
110 N=~t=n6+ASC< HE:);:$( L I> >-Asu
11
A" >+10
120 NE'I.T I
13£1 PRit·IT H = C=C+1
140 A< C )=N
150 IF N<>999 THEN GOTO 60
190 REM PRHIT OUT DATA LWE AT 1500
200 GRAPHICS 0=PRINT
11
1500 DATA
11
;
210 c=e
220 C=C+1
230 IF A< C )=999 THEt-~ PRHH "999
11
:STOP
240 PRINT A( C); II} II;
250 A<C )=0
260 GOTO 220
300 PRIHT "PUT CORRECT t-UMBER OF HE:= < BYT
ES IH Lit·E 1000. ":STOP : REt1 TRAP LmE
999 f'E1 :r.~ E>;ECUT I Ot~ MODULE :f.: : ;::
1000 CLR : BYTES=0
1910 TRAP 390: DIM E$( 1 ), E( I NT<: 8\'TES . ...-6 )+1
)
1030 FOR I=l TO B'lTES
1940 READ A= IF A>255 TI·El~ GOTO 1060
1050 POKE ADR<E$)+J,A
1060 NE:>n I
1970 REM BASIC PART OF USER Is P~:OI;RAt1 FO
LLO~~S
Figure 11-1. He.-rcode Loader Input Program
64 Advanced Programming Techniques

Atari 800 Specifications

General

Brand	Atari
Model	800
Category	Desktop
Language	English