home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #6 / Commodore_Disk_User_Vol.4_6_1991_-.d64 / lgconvert (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  66 lines
  1. 1000 rem"@:lgconvert.bas"
  2. 1001 rem
  3. 1002 rem ******************************
  4. 1003 rem *                            *
  5. 1004 rem *    this program remains    *
  6. 1005 rem *                            *
  7. 1006 rem *     (c) copyright 1988     *
  8. 1007 rem *                            *
  9. 1008 rem *             by             *
  10. 1009 rem *                            *
  11. 1010 rem *         dave weaver        *
  12. 1011 rem *                            *
  13. 1012 rem *                            *
  14. 1013 rem *   but feel free to give    *
  15. 1014 rem *  copies away to friends!   *
  16. 1015 rem *                            *
  17. 1017 rem *                            *
  18. 1018 rem ******************************
  19. 1019 rem
  20. 1029 deffnhi(x)=int(x/256)
  21. 1030 deffnlo(x)=x-(fnhi(x)*256)
  22. 1040 d=8:ln=1000:lk=2049
  23. 1050 print"[147]laser genius to 6510+ source converter"
  24. 1060 print"(c) 1988 dave weaver"
  25. 1061 print"nb: l.g. files must have been saved     with the 'fsave' command!"
  26. 1062 print"you must also have 6510+ v1.21 or more!"
  27. 1070 input"l.g. file name ";fi$
  28. 1080 iffi$=""then1070
  29. 1090 input"new file name ";fo$
  30. 1100 iffo$=""thenend
  31. 1110 open15,d,15,"i0:"
  32. 1120 gosub1360
  33. 1130 open1,d,0,fi$+",s,r"
  34. 1140 gosub1360
  35. 1150 open2,d,1,fo$+",p,w"
  36. 1151 gosub1360
  37. 1152 print#2,chr$(1)chr$(8);
  38. 1160 gosub1360
  39. 1171 input#1,s$
  40. 1180 println""s$
  41. 1185 s=st
  42. 1190 rem * output s$ as a basic line
  43. 1200 rem * lk = link address
  44. 1210 rem * ln = line number
  45. 1220 lk=lk+len(s$)+5
  46. 1230 print#2,chr$(fnlo(lk));
  47. 1240 print#2,chr$(fnhi(lk));
  48. 1250 print#2,chr$(fnlo(ln));
  49. 1260 print#2,chr$(fnhi(ln));
  50. 1280 ln=ln+10
  51. 1290 print#2,s$+chr$(0);
  52. 1299 s$=""
  53. 1300 ifs=0then1160
  54. 1310 print#2,chr$(0)chr$(0);
  55. 1320 close2
  56. 1330 close1
  57. 1340 close15
  58. 1350 end
  59. 1360 input#15,a,b$,x,y
  60. 1370 ifa=0thenreturn
  61. 1380 print:print""a"[157],"b$","x"[157],"y
  62. 1390 close2
  63. 1400 close1
  64. 1410 close15
  65. 1420 end
  66.