home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / mapconv (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  705b  |  23 lines
  1. 3 remconv udg map & cl to 1 file 35072to****37071****justfilenames then run
  2. 4 rem*waits for save disk
  3. 5 rem
  4. 10 dv=peek(186):open 1,dv,1,"g1s1":poke780,0:sys65493:close1:remat35072
  5. 20 open 1,dv,1,"g1s1.cl":poke780,0:sys65493:close1:remat37120
  6. 22 fi$="g1s1"
  7. 30 x=36072:y=37120
  8. 40 forp=36072to37071:pokep,peek(y):y=y+1:next
  9. 44 print:print"insert save disk & anykey..."
  10. 45 poke198,0:wait198,1:goto1000:remsave
  11. 50 x=36072:y=37120:rem*chkonly
  12. 60 printpeek(x);:printpeek(y):x=x+1:y=y+1:goto60
  13. 1000 sa=35072:rem *enter start addres
  14. 1002 ea=37072:rem *enter end address +1
  15. 1004 de=8
  16. 1006 rem** fi$="filename":rem*enter filename
  17. 1030 poke194,sa/256:poke193,sa-peek(194)*256
  18. 1040 poke175,ea/256:poke174,ea-peek(175)*256
  19. 1050 l=len(fi$)
  20. 1060 forp=1tol:poke1023+p,asc(mid$(fi$,p,1)):next
  21. 1070 poke187,0:poke188,4:poke183,l:poke186,dv:sys62954
  22. 1080 end
  23.