10  *=$C000           _!START OF CODE
20  SETLFS=$FFBA      _!KERNAL ROUTINES
30  SETNAM=$FFBD       !
40  DO(null)=$FFD5       !
50  DEVICE=8          _!DEVICE NUMBER
60  FILENO=1          _!FILE NUMBER
70  SECADD=255        _!SECONDARY ADDR.
80  ;
100 LDA #FILENO
110 LDX #DEVICE
120 LDY #SECADD
130 JSR SETLFS        _!SET UP FILE
140 LDA #NAME1-NAME   _!FILENAME LENGTH
150 LDX #<NAME        _!LO/HI BYTE OF
160 LDY #>NAME         ! START OF NAME
170 JSR SETNAM        _!SET FILENAME
180 LDA #0            _!FLAG FOR LOAD
190 JSR DO(null)        _!DO THE LOAD
200 JMP START         _!START OF PROG.
210 ;
220 NAME BYT "FILENAME"
230 NAME1 ;
240 START RTS