home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_September_1992_Datasphere_Publications_Side_A.d64 / config (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  202 lines
  1. 1000 rem ******************************
  2. 1010 rem *                            *
  3. 1020 rem *       the club light       *
  4. 1030 rem *        configurator        *
  5. 1040 rem *                            *
  6. 1050 rem * (c) sept.1992    j.r.finch *
  7. 1060 rem *                            *
  8. 1070 rem ******************************
  9. 1080 rem
  10. 1090 rem ******************************
  11. 1100 rem *                            *
  12. 1110 rem * you should amend the data  *
  13. 1120 rem * statements from line 2000  *
  14. 1130 rem * onwards as appropriate and *
  15. 1140 rem * then run this program to   *
  16. 1150 rem * construct and save the     *
  17. 1160 rem * configuration file         *
  18. 1170 rem *                            *
  19. 1180 rem * few checks are performed   *
  20. 1190 rem * on ranges and so you must  *
  21. 1200 rem * follow strictly the        *
  22. 1210 rem * guidance given in the rem  *
  23. 1220 rem * statements - otherwise you *
  24. 1230 rem * may find that any of the   *
  25. 1240 rem * system programs will not   *
  26. 1250 rem * work                       *
  27. 1260 rem *                            *
  28. 1270 rem ******************************
  29. 1280 :
  30. 1290 poke53280,0:poke53281,0:print"[147][142]the club light configurator program"
  31. 1300 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][163][163][163][163][163]"
  32. 1310 print"to operate this program correctly you"
  33. 1320 print"must amend the data statements from"
  34. 1330 print"line 2000 onwards. if you have done"
  35. 1340 print"that and are satisfied, please press"
  36. 1350 print"the 'return' key to start the saving"
  37. 1360 print"or any other key in order to return to"
  38. 1370 print"basic.":poke198,0
  39. 1380 geta$:ifa$=""then1380
  40. 1390 ifa$=chr$(13)then1410
  41. 1400 print"list 2000-[145][145][145]":end
  42. 1410 print"[147]please wait a moment"
  43. 1420 forn=0to42:reada:poke49152+n,a:next
  44. 1430 :
  45. 1440 rem # do not alter this data #
  46. 1450 rem # it is the data from    #
  47. 1460 rem # 2000 on that you       #
  48. 1470 rem # should change          #
  49. 1480 :
  50. 1490 data 32,212,225,32,253,174,32,138,173,32,247,183,165,20,72,165,21,72,32
  51. 1500 data 253,174,32,138,173,32,247,183,166,20,164,21,104,133,252,104,133,251
  52. 1510 data 169,251,32,95,225,96
  53. 1520 :
  54. 1530 for n=0to39:reada:poke679+n,a:next
  55. 1540 :
  56. 1550 if peek(683)<2 and peek(689)<2 and peek(684)<2 then 1580
  57. 1560 print"data error":print"spacing or feed method bytes incorrect"
  58. 1570 end
  59. 1580 if peek(687)>peek(688) then 1610
  60. 1590 print"data error":print"text length greater than page length"
  61. 1600 end
  62. 1610 print"[147]insert side one of the club light disk"
  63. 1620 print"in drive device 8 and press return":poke198,0
  64. 1630 geta$:ifa$<>chr$(13)then1630
  65. 1640 open15,8,15,"i0":open2,8,0,"config":input#15,e:close2:ife>0then1680
  66. 1650 print#15,"s0:lc":sys49152 "lc",8,2,679,719
  67. 1660 input#15,e:ife>0then1680
  68. 1670 close15:print"ok. system reconfigured.":end
  69. 1680 close15:print"disk error!!":print"press any key to continue"
  70. 1690 poke198,0:wait198,1:goto1610
  71. 1700 :
  72. 2000 rem ##############################
  73. 2010 rem #                            #
  74. 2020 rem # screen and text colours    #
  75. 2030 rem # in reader and printer      #
  76. 2040 rem #                            #
  77. 2050 rem # the four numbers should be #
  78. 2060 rem # in the range 0-15 and are  #
  79. 2070 rem # the standard codes for the #
  80. 2080 rem # border, background, main   #
  81. 2090 rem # text and section title     #
  82. 2100 rem # text respectively          #
  83. 2110 :
  84. 2120 data 5, 11, 15, 1
  85. 2130 :
  86. 2140 rem ##############################
  87. 2150 rem #                            #
  88. 2160 rem # text spacing in reader     #
  89. 2170 rem #                            #
  90. 2180 rem # you can set the text to    #
  91. 2190 rem # either single or double    #
  92. 2200 rem # spaced. make the number a  #
  93. 2210 rem # '0' for single spacing or  #
  94. 2220 rem # a '1' for double spacing   #
  95. 2230 :
  96. 2240 data 0
  97. 2250 :
  98. 2260 rem ##############################
  99. 2270 rem #                            #
  100. 2280 rem # printer paper feed method  #
  101. 2290 rem #                            #
  102. 2300 rem # the program will now make  #
  103. 2310 rem # allowances if you want to  #
  104. 2320 rem # print out on single sheets #
  105. 2330 rem # of paper rather than using #
  106. 2340 rem # perforated continuous feed #
  107. 2350 rem # paper. make the number a   #
  108. 2360 rem # '0' if you are using       #
  109. 2370 rem # single sheets or a '1' if  #
  110. 2380 rem # you use continuous tractor #
  111. 2390 rem # feed paper for printing    #
  112. 2400 :
  113. 2410 data 1
  114. 2420 :
  115. 2430 rem ##############################
  116. 2440 rem #                            #
  117. 2450 rem # left margin, line length   #
  118. 2460 rem #                            #
  119. 2470 rem # sets the left margin and   #
  120. 2480 rem # line length in characters  #
  121. 2490 rem # used by the printer        #
  122. 2500 rem # program.                   #
  123. 2510 :
  124. 2520 data 10, 60
  125. 2530 :
  126. 2540 rem ##############################
  127. 2550 rem #                            #
  128. 2560 rem # page length, text length   #
  129. 2570 rem #                            #
  130. 2580 rem # sets the length of the     #
  131. 2590 rem # sheets of paper being      #
  132. 2600 rem # printed on in lines on     #
  133. 2610 rem # your printer. most common  #
  134. 2620 rem # are 66 and 72, for 11" and #
  135. 2630 [143] # 12" paper respectively.    #
  136. 2640 rem # the text length is the     #
  137. 2650 rem # number of lines of text to #
  138. 2660 rem # be dumped to each sheet.   #
  139. 2670 rem #                            #
  140. 2680 rem # text length must be less   #
  141. 2690 rem # than page length           #
  142. 2700 :
  143. 2710 data 72, 68
  144. 2720 :
  145. 2730 rem ##############################
  146. 2740 rem #                            #
  147. 2750 rem # text spacing               #
  148. 2760 rem #                            #
  149. 2770 rem # sets spacing of printed    #
  150. 2780 rem # text. '0' for single and   #
  151. 2790 rem # '1' for double spacing     #
  152. 2800 :
  153. 2810 data 0
  154. 2820 :
  155. 2830 rem ##############################
  156. 2840 rem #                            #
  157. 2850 rem # carriage return            #
  158. 2860 rem #                            #
  159. 2870 rem # the code for a carriage    #
  160. 2880 rem # return with line feed on   #
  161. 2890 rem # your printer               #
  162. 2900 :
  163. 2910 data 13
  164. 2920 :
  165. 2930 rem ##############################
  166. 2940 rem #                            #
  167. 2950 rem # underline on               #
  168. 2960 rem # underline off              #
  169. 2970 rem # bold on                    #
  170. 2980 rem # bold off                   #
  171. 2990 rem #                            #
  172. 3000 rem # three ascii codes for each #
  173. 3010 rem # setting. if your printer   #
  174. 3020 rem # uses only two codes or if  #
  175. 3030 rem # it does not support these  #
  176. 3040 rem # modes, enter '0' for all   #
  177. 3050 :
  178. 3060 data 0, 0, 0
  179. 3070 data 0, 0, 0
  180. 3080 data 0, 0, 0
  181. 3090 data 0, 0, 0
  182. 3100 :
  183. 3110 rem ##############################
  184. 3120 rem #                            #
  185. 3130 rem # set-up codes               #
  186. 3140 rem # finish printing codes      #
  187. 3150 rem #                            #
  188. 3160 rem # two sets of eight bytes    #
  189. 3170 rem # are sent to your printer - #
  190. 3180 rem # one at the start and one   #
  191. 3190 rem # at the end. you can set    #
  192. 3200 rem # these codes here - they    #
  193. 3210 rem # could be to change the     #
  194. 3220 rem # printing font or mode      #
  195. 3230 rem # and a page feed. it is up  #
  196. 3240 rem # to you. unused bytes       #
  197. 3250 rem # should be set to zero      #
  198. 3260 :
  199. 3270 data 0, 0, 0, 0, 0, 0, 0, 0
  200. 3280 data 0, 0, 0, 0, 0, 0, 0, 0
  201. 3290 :
  202.