FILE00008 ==0801==
   50 sys700
   75 .opt p,oo
   80 ;****************
   81 ;*              *
   82 ;*  lyle giese  *
   83 ;*  version 1.0 *
   84 ;*   06/21/86   *
   85 ;*              *
   86 ;****************
  120 readst = $ffb7
  130 setlfs = $ffba
  140 setnam = $ffbd
  150 open   = $ffc0
  160 close  = $ffc3
  170 chkin  = $ffc6
  180 chkout = $ffc9
  190 clrchn = $ffcc
  200 chrin  = $ffcf
  210 chrout = $ffd2
  220 getin  = $ffe4
  230 clall  = $ffe7
  300 index  = $fb
  310 fnam   = $033c;using cassette buffer to store filenames
  320 flen   = $fd;for length of filename
  330 outfile = $fe
  340 rtemp  = $03ff
  350 atemp  = $03fe
  360 pdev   = $03fd
  370 shflag = $028d
  380 high   = $03fc
  390 low    = $03fb
  490 *= $c000
  500 ;set up screen
  510 start lda #$00;make border and background black
  520 sta $d020
  530 sta $d021
  540 lda #$07;make the characters yellow
  550 sta $0286
  555 ;send first message to screen
  560 lda #<amess
  570 sta index
  580 lda #>amess
  590 sta index+1
  600 jsr messout;send message to screen
 5000 messout ldy #$00;send message to screen
 5010 lpy lda (index),y;index points to start of message
 5020 beq end;and it must end with a zero byte
 5030 jsr chrout
 5040 iny
 5050 bne lpy;has y looped around to zero
 5060 inc index+1;if it has we must inc
 5070 jmp lpy;the hi byte of our index address
 5080 end rts
 7000 amess =*;opening message
 7010 .byte $93;clear/home
 7020 .byte $0d,$0d,$0d,$0e
 7030 .asc "         SEQUENTIAL FILE READER"
 7040 .byte $0d,$0d
 7050 .asc "             By Lyle Giese"
 7060 .byte $0d,$0d
 7070 .asc " Use the Shift and Shift Lock to pause
 7080 .byte $0d
 7090 .asc " listing. Press the Ctrl and Shift to"
 7100 .byte $0d
 7110 .asc " exit current file. To exit just"
 7120 .byte $0d
 7130 .asc " hit (rvon)return(rvof) at the Filename > prompt."
 7140 .byte $0d,$0d
 7150 .asc " Filename > "
 7160 .byte $00
