home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / F / PWAIDS.ARK / PWCONFIG.BAS < prev    next >
BASIC Source File  |  1989-09-27  |  1KB  |  67 lines
  1.  
  2.  
  3. var num, I, J = integer
  4. var abyte, cursor, fill, tabs = char
  5. var indent, clock, ldelay = char
  6. var hdelay, fsize = char
  7. files D, D, S[1], S[1]
  8. create "B:PW.SWP"
  9. open #3; "A:PW.SWP"
  10. open #2; "B:PW.SWP"
  11.  
  12. rem GET USER PREFERENCES************
  13. print "File size in K [64 is normal]";
  14. input num
  15. let fsize = chr[num]
  16. print "Cursor start line [10 is normal]";
  17. input num
  18. let cursor = chr[num]
  19. print "Fill column [65 is normal]";
  20. input num
  21. let fill = chr[num]
  22. print "Tab spacing [8 is normal]";
  23. input num
  24. let tabs = chr[num]
  25. print "Indent column [0 is normal]";
  26. input num
  27. let indent = chr[num]
  28. print "CPU clock speed [4 is normal]";
  29. input num
  30. let clock = chr[num]
  31. print "Delay count [300 is normal]";
  32. input num
  33. let ldelay = chr[num-[int[num/256]*256]]
  34. let hdelay = chr[int[num/256]]
  35.  
  36. rem COPY FIRST 117 BYTES*********
  37. for I = 0H to 74H
  38. read #3; abyte
  39. write #2; abyte
  40. next I
  41. rem CHANGE PARAMETER BYTES**********
  42. for I = 75H to 7CH
  43. read #3; abyte
  44. next I
  45. write #2; cursor, fill, tabs, indent
  46. write #2; clock, ldelay, hdelay, fsize
  47. rem COPY REMAINDER OF FIRST 1K**********
  48. for I = 7DH to 3FFH
  49. read #3; abyte
  50. write #2; abyte
  51. next I
  52. rem PAD FILE TO SIZE*******
  53. let abyte = chr[0]
  54. for I = 1 to fsize
  55. for J = 0H to 3FFH
  56. write #2; abyte
  57. next J
  58. print I;"K";chr[0DH];
  59. next I
  60. close #2
  61. close #3
  62. end
  63.  
  64. r[num]
  65. print "Cursor start line [10 is normal]";
  66. input num
  67. let c