home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_July_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / config (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  203 lines
  1. 1000 rem ******************************
  2. 1010 rem *                            *
  3. 1020 rem *   the light configurator   *
  4. 1030 rem *                            *
  5. 1040 rem * (c)1992                jrf *
  6. 1050 rem *                            *
  7. 1060 rem ******************************
  8. 1070 rem
  9. 1080 rem ******************************
  10. 1090 rem *                            *
  11. 1100 rem * you should amend the data  *
  12. 1110 rem * statements from line 5000  *
  13. 1120 rem * onwards as appropriate and *
  14. 1130 rem * then run this program to   *
  15. 1140 rem * construct and save the     *
  16. 1150 rem * configuration file         *
  17. 1160 rem *                            *
  18. 1170 rem * few checks are performed   *
  19. 1180 rem * on ranges and so you must  *
  20. 1190 rem * follow strictly the        *
  21. 1200 rem * guidance given in the rem  *
  22. 1210 rem * statements - otherwise you *
  23. 1220 rem * may find that any of the   *
  24. 1230 rem * system programs will not   *
  25. 1240 rem * work                       *
  26. 1250 rem *                            *
  27. 1260 rem ******************************
  28. 1270 :
  29. 1280 poke53280,0:poke53281,0:print"[147][142]the light configurator program"
  30. 1290 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  31. 1300 print"to operate this program correctly you"
  32. 1310 print"must amend the data statements from"
  33. 1320 print"line 5000 onwards. if you have done"
  34. 1330 print"that and are satisfied, please press"
  35. 1340 print"the 'return' key to start the saving"
  36. 1350 print"or any other key in order to return to"
  37. 1360 print"basic.":poke198,0
  38. 1370 geta$:ifa$=""then1370
  39. 1380 ifa$=chr$(13)then2000
  40. 1390 print"list 5000-[145][145][145]":end
  41. 2000 print"[147]please wait a moment"
  42. 2005 forn=0to42:reada:poke49152+n,a:next
  43. 2010 :
  44. 2020 rem # do not alter this data #
  45. 2030 rem # it is the data from    #
  46. 2040 rem # 5000 on that you       #
  47. 2050 rem # should change          #
  48. 2060 :
  49. 2070 data 32,212,225,32,253,174,32,138,173,32,247,183,165,20,72,165,21,72,32
  50. 2080 data 253,174,32,138,173,32,247,183,166,20,164,21,104,133,252,104,133,251
  51. 2090 data 169,251,32,95,225,96
  52. 2100 :
  53. 2110 for n=0to39:reada:poke704+n,a:next
  54. 2120 :
  55. 2130 if peek(704)<2 and peek(709)<2 and peek(714)<2 then 2160
  56. 2140 print"data error":print"first byte or spacing bytes incorrect"
  57. 2150 end
  58. 2160 if peek(712)>peek(713) then 2190
  59. 2170 print"data error":print"text length greater than page length"
  60. 2180 end
  61. 2190 print"[147]insert side one of the program disk in"
  62. 2200 print"drive device 8 and press return":poke198,0
  63. 2210 geta$:ifa$<>chr$(13)then2210
  64. 2220 open15,8,15,"i0":open2,8,0,"config":input#15,e:close2:close15
  65. 2230 ife>0then2190
  66. 2240 sys 49152 "@:lc",8,2,704,744
  67. 2250 print"[147]now insert side one of the text"
  68. 2260 print"disk in device 8 and press return":poke198,0
  69. 2270 geta$:ifa$<>chr$(13)then2270
  70. 2280 open15,8,15,"i0":open2,8,0,"edspeak       .t":input#15,e:close2:close15
  71. 2290 ife>0then2250
  72. 2300 sys 49152 "@:lc",8,2,704,744
  73. 2310 print"[147]ok. all done.":end
  74. 5000 rem ##############################
  75. 5010 rem #                            #
  76. 5020 rem # number of drives in system #
  77. 5030 rem #                            #
  78. 5040 rem # change the number to a '0' #
  79. 5050 rem # if you are using one disk  #
  80. 5060 rem # drive only (device 8)      #
  81. 5070 rem #                            #
  82. 5080 rem # change the number to a '1' #
  83. 5090 rem # if you are using a two     #
  84. 5100 rem # drive system in which case #
  85. 5110 rem # the program disk should be #
  86. 5120 rem # in device 8 and the text   #
  87. 5130 rem # disk in device 9           #
  88. 5140 :
  89. 5150 data 0
  90. 5160 :
  91. 5170 rem ##############################
  92. 5180 rem #                            #
  93. 5190 rem # screen and text colours    #
  94. 5200 rem # in reader and printer      #
  95. 5210 rem #                            #
  96. 5220 rem # the four numbers should be #
  97. 5230 rem # in the range 0-15 and are  #
  98. 5240 rem # the standard codes for the #
  99. 5250 rem # border, background, main   #
  100. 5260 rem # text and section title     #
  101. 5270 rem # text respectively          #
  102. 5280 :
  103. 5290 data 5, 11, 15, 1
  104. 5300 :
  105. 5310 rem ##############################
  106. 5320 rem #                            #
  107. 5330 rem # text spacing in reader     #
  108. 5340 rem #                            #
  109. 5350 rem # you can set the text to    #
  110. 5360 rem # either single or double    #
  111. 5370 rem # spaced. make the number a  #
  112. 5380 rem # '0' for single spacing or  #
  113. 5390 rem # a '1' for double spacing   #
  114. 5400 :
  115. 5410 data 0
  116. 5420 :
  117. 5430 rem ##############################
  118. 5440 rem #                            #
  119. 5450 rem # left margin, line length   #
  120. 5460 rem #                            #
  121. 5470 rem # sets the left margin and   #
  122. 5480 rem # line length in characters  #
  123. 5490 rem # used by the printer        #
  124. 5500 rem # program.                   #
  125. 5510 :
  126. 5520 data 10, 70
  127. 5530 :
  128. 5540 rem ##############################
  129. 5550 rem #                            #
  130. 5560 rem # page length, text length   #
  131. 5570 rem #                            #
  132. 5580 rem # sets the length of the     #
  133. 5590 rem # sheets of paper being      #
  134. 5600 rem # printed on in lines on     #
  135. 5610 rem # your printer. most common  #
  136. 5620 rem # are 66 and 72. the text    #
  137. 5630 rem # length is the number of    #
  138. 5640 rem # lines of text to be dumped #
  139. 5650 rem # to each sheet.             #
  140. 5660 rem #                            #
  141. 5670 rem # text length must be less   #
  142. 5680 rem # than page length           #
  143. 5690 :
  144. 5700 data 72, 68
  145. 5710 :
  146. 5720 rem ##############################
  147. 5730 rem #                            #
  148. 5740 rem # text spacing               #
  149. 5750 rem #                            #
  150. 5760 rem # sets spacing of printed    #
  151. 5770 rem # text. '0' for single and   #
  152. 5780 rem # '1' for double spacing     #
  153. 5790 :
  154. 5800 data 0
  155. 5810 :
  156. 5820 rem ##############################
  157. 5830 rem #                            #
  158. 5840 rem # carriage return            #
  159. 5850 rem #                            #
  160. 5860 rem # the code for a carriage    #
  161. 5870 rem # return with line feed on   #
  162. 5880 rem # your printer               #
  163. 5890 :
  164. 5900 data 13
  165. 5910 :
  166. 5920 rem ##############################
  167. 5930 rem #                            #
  168. 5940 rem # underline on               #
  169. 5950 rem # underline off              #
  170. 5960 rem # bold on                    #
  171. 5970 rem # bold off                   #
  172. 5980 rem #                            #
  173. 5990 rem # three ascii codes for each #
  174. 6000 rem # setting. if your printer   #
  175. 6010 rem # uses only two codes or if  #
  176. 6020 rem # it does not support these  #
  177. 6030 rem # modes, enter '0' for all   #
  178. 6040 :
  179. 6050 data 0, 0, 0
  180. 6060 data 0, 0, 0
  181. 6070 data 0, 0, 0
  182. 6080 data 0, 0, 0
  183. 6090 :
  184. 6100 rem ##############################
  185. 6110 rem #                            #
  186. 6120 rem # set-up codes               #
  187. 6130 rem # finish printing codes      #
  188. 6140 rem #                            #
  189. 6150 rem # two sets of eight bytes    #
  190. 6160 rem # are sent to your printer - #
  191. 6170 rem # one at the start and one   #
  192. 6180 rem # at the end. you can set    #
  193. 6190 rem # these codes here - they    #
  194. 6200 rem # could be to change the     #
  195. 6210 rem # printing font or mode      #
  196. 6220 rem # and a page feed. it is up  #
  197. 6230 rem # to you. unused bytes       #
  198. 6240 rem # should be set to zero      #
  199. 6250 :
  200. 6260 data 0, 0, 0, 0, 0, 0, 0, 0
  201. 6270 data 0, 0, 0, 0, 0, 0, 0, 0
  202. 6280 :
  203.