Atari 400 Basic Reference Manual page 72

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} I I ;
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