home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 February / 1995-02b.d64 / dataloader (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  33 lines
  1. 5 poke55,0:poke56,16:clr
  2. 10 printchr$(147):print"***displaymaker data transfer utility***":print:print
  3. 20 input"filename";n$:ifn$="end"thenend
  4. 21 ifn$="chars"then3000
  5. 22 ifn$="save"then4000
  6. 23 z$="0:"+n$+",s,r":open2,8,2,z$
  7. 24 input"load address";a:gosub 1000:gosub5000:poke252,d:gosub5010:poke253,d
  8. 25 h$="00"+right$(la$,2)
  9. 30 input"row length";rl:poke828,rl
  10. 40 input"step size";ss:poke829,ss
  11. 45 print:print"  loading ";n$
  12. 50 sys 3119:close2:goto10
  13. 1000 h$="":a=a/4096:forj=1to4:a%=a:h$=h$+chr$(48+a%-(a%>9)*7):a=16*(a-a%):next
  14. 1001 return
  15. 2000 d=0:forj=1to4:d%=asc(x$):d%=d%-48+(d%>64)*7:x$=mid$(x$,2):d=16*d+d%:next
  16. 2001 return
  17. 3000 print:print:print"  character set[146]":print:input"filename";n$:gosub6000
  18. 3001 input "new filename";n$:gosub7000
  19. 3010 input "address to relocate";a:gosub1000
  20. 3020 gosub5000:poke832,d:gosub5010:poke833,d:sys 3170:goto10
  21. 4000 print:print:print"  save as prg file[146]":print:input"filename(prg file)";n$
  22. 4001 gosub7000
  23. 4010 input"start address of save";a:gosub1000
  24. 4020 gosub5000:poke834,d:gosub5010:poke835,d
  25. 4040 input"last address to save +1";a:gosub1000
  26. 4050 gosub5000:poke836,d:gosub5010:poke837,d:sys 3269:goto10
  27. 5000 x$="00"+right$(h$,2):gosub2000:return
  28. 5010 x$="00"+left$(h$,2):gosub2000:return
  29. 6000 l=len(n$):poke831,l:v=678:fori=1tol:s$=mid$(n$,i,1):pokev+i,asc(s$):next
  30. 6010 return
  31. 7000 l1=len(n$):poke838,l1:v=694:fori=1tol1:s$=mid$(n$,i,1):pokev+i,asc(s$):next
  32. 7010 return
  33.