home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_19_1987_Transactor_Publishing.d64 / mr. ed lines_pg (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  246b  |  13 lines
  1. 100 pg=55: rem lines per page
  2. 110 open 4,4,7
  3. 120 open 5,8,5,"letter"
  4. 130 get#5,a$
  5. 140 x=st: rem save status
  6. 150 print#4,a$;
  7. 160 if a$=chr$(13) then lc=lc+1
  8. 170 if lc<>pg then 200
  9. 180 get k$: if k$="" then 180
  10. 190 lc=0: rem initialize line count
  11. 200 if x<>64 then 130
  12. 210 print#4: close4: close5
  13.