home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / rle2hr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  553b  |  10 lines
  1. 5 clr:print"[147]rle2hr!(c) 1986 chrisdos"
  2. 10 input"rle file name: ";f$
  3. 20 open8,8,8,f$+",r"
  4. 30 poke53265,59:poke53272,120:poke56576,150
  5. 40 get#8,a$:ifa$<>"h"goto40
  6. 50 sys2304:close8
  7. 60 geta$:ifa$=""goto60
  8. 70 poke53265,27:poke53272,21:poke56576,199
  9. 80 ::end
  10.