home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / hr2rle (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 10 if lo=1 goto 250
  2. 20 printchr$(14)"[147]   [195]hrisdos' [200]i[210]es to [210][204][197] [195]onverter."
  3. 30 print""
  4. 40 print"[197]nter the file name of the picture:"
  5. 50 input file$:print""
  6. 60 print"[197]nter the name for the [210][204][197][160]file:"
  7. 70 input rle$:print""
  8. 80 print"[196]o you want the <[210]eturn to [212][197][216][212]>
  9. 90 [153]"at the end of the file ?"
  10. 100 [133] text$
  11. 110 [153]"load valnter (NULL)closeoffset (0-63):";:[133] xoff
  12. 120 [139] xoff[179]0 [176] xoff[177]63 [137] 110
  13. 130 [153]" valnter (NULL) offset (0-7):";:[133] yoff
  14. 140 [139] yoff[179]0 [176] yoff[177]7 [137] 130
  15. 150 [151]828,xoff:[151]829,yoff
  16. 160 [153]" (NULL)ormal or right$nverse";:[133]v$:v$[178][200](v$,1)
  17. 170 [151] 830,0:[139]v$[178]"i"[167][151]830,255
  18. 180 [153]"load    (NULL)close(NULL)closeatnclose(NULL)closestr$closepeekclose(NULL)"
  19. 190 [129]x[178]1[164] 200:[130]
  20. 200 [141] 1000:[143] hires
  21. 210 lo[178]1:[147] file$,8,1
  22. 250 ff$[178]rle$[170]".rle,w,s"
  23. 260 [159]8,8,8,ff$
  24. 270 [152]8,[199](27);[199](71);[199](72);
  25. 280 [158] 3328
  26. 300 text$[178][200](text$,1)
  27. 310 [139] text$[178]"y" [167] [152]8,[199](27);[199](71);[199](78);
  28. 900 [160] 8
  29. 910 [141] 1100
  30. 920 [153]"load     ascile conversion finished.
  31. 930 print" [212]his program written by [195]hrisdos and
  32. 940 [153]"is spported in str$(NULL)2 of the lenpeekright$chr$ (NULL)ig on
  33. 950 print"[195]ompuserve. [199][207][160][195][194][201][199].
  34. 960 [153]"  (c) 1985 by lenhrisdos.
  35. 999 stop
  36. 1000 ba=peek(56576)
  37. 1010 sm=peek(53272)
  38. 1020 hr=peek(53265)
  39. 1030 poke53265,59
  40. 1040 poke53272,120
  41. 1050 poke56576,150
  42. 1060 return
  43. 1100 poke 53265,hr
  44. 1110 poke 53272,sm
  45. 1120 poke 56576,ba
  46. 1130 return
  47.