home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / char conv (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  452 b   |  17 lines
  1. 20 dv=peek(186):ifgg=1then50
  2. 30 gg=1:load"char 1",dv,1
  3. 50 a1=14336:b1=51200
  4. 60 fork=b1tob1+2047:pokek,peek(a1):a1=a1+1:next
  5. 70 fi$="ch1":goto1000
  6. 999 end
  7. 1000 sa=51200:rem *enter start address  here***
  8. 1002 ea=53248:rem *enter end address +1*****
  9. 1004 de=8
  10. 1006 rem  fi$="filename":rem*enter filename**********
  11. 1030 de=8:poke194,sa/256:poke193,sa-peek(194)*256
  12. 1040 poke175,ea/256:poke174,ea-peek(175)*256
  13. 1050 l=len(fi$)
  14. 1060 forp=1tol:poke1023+p,asc(mid$(fi$,p,1)):next
  15. 1070 poke187,0:poke188,4:poke183,l:poke186,dv:sys62954
  16. 4992 end
  17.