home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / customizer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  422 lines
  1. 10 rem      font customizer
  2. 20 rem copyright (c) 1988 roger moore
  3. 30 rem      all rights reserved.
  4. 40 poke 53280,12:poke 53281,0
  5. 50 poke 53265,27:poke53272,23
  6. 60 print chr$(8);chr$(14)
  7. 80 rem dis stop/rest
  8. 90 gosub 3190
  9. 100 print"[147]"tab(12)"[158][198]ont [195]ustomizer"
  10. 110 printtab(12)"[150][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  11. 120 print"[154]  [193] program for editing character sets
  12. 130 [153][163]10)"for the lenommodore 64.
  13. 140 rem
  14. 150 print"[154]"tab(6)"[213]se [195]ommodore [210][207][205] set (y/n)? "
  15. 160 geta$:ifa$=""then160
  16. 170 ifa$="n"ora$="[206]"then c=0:goto 250
  17. 180 ifa$<>"y"anda$<>"[217]"then160
  18. 190 printtab(7)"[153][213]pper or [204]ower case (u/l)?"
  19. 200 geta$:ifa$=""then200
  20. 210 ifa$="u"ora$="[213]"thenc=1:goto240
  21. 220 ifa$="l"ora$="[204]"thenc=2:goto240
  22. 230 goto 200
  23. 240 rem    poke 831,77
  24. 250 print"[147][159] [208]ress the [200][159] key for [200][197][204][208][159] at any time."
  25. 260 printtab(8)"[208]ress <[210][197][212][213][210][206]> to begin.
  26. 270 [161]a$:[139]a$[178]""[167]270
  27. 280 [139]a$[178]"h"[167]f[178]0:[137]550
  28. 290 [139]a$[179][177][199](13)[167]250
  29. 300 [151] 53265,[194](53265)[176]32
  30. 310 [151] 53272,[194](53272)[176]8
  31. 320 [158] 49152:[158] 49216:[151]247,0
  32. 330 [139] c[178]1 [167] [158] 49296
  33. 340 [139] c[178]2 [167] [158] 49360
  34. 350 [158] 49424:[158] 49504:[158] 51456:[158]51499
  35. 360 [158] 49808:[158] 49568:[158] 49728
  36. 370 [158] 49826:[158] 49946:[158] 49856
  37. 380 [151] 198,0:[151] 53269,2:d[178]0:a[178]1
  38. 390 [161]a$:[139]a$[178]""[167] 390
  39. 400 [139]a$[178]"h"[167]f[178]1:[137]550
  40. 410 [139]a$[178]""[167]1040
  41. 420 [139]a$[178]"cmd"[167]1170
  42. 430 [139]a$[178]""[167]1240
  43. 440 [139]a$[178]"on"[167]1310
  44. 450 [139]a$[178]"l"[167]1380
  45. 460 [139]a$[178]"s"[167]1690
  46. 470 [139]a$[178]"q"[167]2120
  47. 480 [139]a$[178]"i"[167]2000
  48. 490 [139]a$[178]""[167]2100
  49. 500 [139]a$[178]"c"[167]2190
  50. 510 [139]a$[178]"d"[167] df[178]0:[141]3300:[137]390
  51. 520 [143]  ifa$=chr$(13)then11100
  52. 530 [139]a$[178][199](141)[167]2320
  53. 540 [137] 390
  54. 550 [143] help is on the way
  55. 560 [151]53265,27:[151]53272,23:[151]53269,0
  56. 570 [153]"load";:[153][163]15)"syslenustomizer
  57. 580 print"[159]          [150][211][197][204][197][195][212][159] mode commands
  58. 590 [153]" left$open  atnctivate the help screen
  59. 600 print" [211][159]  [211]ave a font file to disk
  60. 610 [153]" (NULL)open  (NULL)oad a font file (str$irectory option)
  61. 620 print" [196][159]  [196]iskette [196]irectory
  62. 630 [153]" lenopen  lenopy in the entire (NULL)(NULL)(NULL) set
  63. 640 print" [201][159]  [195]reate the inverse half of the set
  64. 650 [153]" left$(NULL)(NULL)valopen  (NULL)ove window to top left
  65. 660 print" [195][210][211][210] [203][197][217][211][159]  [211]elect character to edit"
  66. 670 print" [209][159]  [209]uit program"
  67. 680 print" [211][200][201][198][212] <[210][197][212][213][210][206]>[159]  [197]nter [150][197][196][201][212][159] mode.
  68. 690 [153][163]9)"sys(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)> for more"
  69. 700 [161]a$:[139]a$[179][177][199](13)[167]700
  70. 710 [153]"loadopen           defvalstr$right$(NULL)open mode commands
  71. 720 print" [198]1[159]  [195]opy into buffer
  72. 730 [153]" asc2open  lenopy from buffer
  73. 740 print" [198]3[159]  [211]hift left
  74. 750 [153]" asc4open  (NULL)hift right
  75. 760 print" [198]5[159]  [211]hift up
  76. 770 [153]" asc6open  (NULL)hift down
  77. 780 print" [198]7[159]  [210]otate clockwise
  78. 790 [153]" asc8open  (NULL)otate counter-clockwise
  79. 800 print"  1[159]  [204]ogical [193][206][196] character with buffer
  80. 810 [153]"  2open  (NULL)ogical (NULL)(NULL) character with buffer
  81. 820 print"  3[159]  [204]ogical [216][207][210] character with buffer
  82. 830 [153][163]9)"sys(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)> for more"
  83. 840 [161]a$:[139]a$[179][177][199](13)[167]840
  84. 850 [153]"loadopen         (NULL)ore defvalstr$right$(NULL)open mode commands
  85. 860 print" +[159]  [211][208][193][195][197] [194][193][210] turns bits on
  86. 870 [153]" -open  (NULL)(NULL)atnlenval peekatn(NULL) turns bits off
  87. 880 print" [211][208][193][195][197] [194][193][210][159]  [212]urn bits on/off
  88. 890 [153]" atnopen  atndvance after (NULL)(NULL)atnlenval peekatn(NULL)
  89. 900 print" [206][159]  [206]o advance after [211][208][193][195][197] [194][193][210]
  90. 910 [153]" (NULL)open  (NULL)everse character
  91. 920 print" [205][159]  [205]irror character
  92. 930 [153]" left$(NULL)(NULL)valopen  (NULL)ove to top left bit
  93. 940 print" [195][204][210] [200][207][205][197][159]  [197]rase character
  94. 950 [153]" left$open  left$elp screen
  95. 960 print" [211][200][201][198][212] <[210][197][212][213][210][206]>[159]  [197]nter [211]elect mode
  96. 970 [153]"   sysvalnd of help screen. (NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
  97. 980 [161]a$:[139]a$[179][177][199](13)[167]980
  98. 990 [153]"load"
  99. 1000 [139] f[177]0[167][151]53265,59:[151]53272,31:[158]50352:[158]49826:[158]49728:[158]51499
  100. 1010 [139] f[178]1 [167] [151] 53269,2
  101. 1020 [139] f[178]2 [167] [151] 53269,3
  102. 1030 [145] f[170]1 [137] 250,390,2340
  103. 1040 [143] right
  104. 1050 m[178]1:w[178][194](2):nw[178]w[170]1:[139]w[178]4[176]w[178]9[167]nw[178]w
  105. 1060 [139][194](830)[178]255[167]m[178]0
  106. 1070 [139][194](830)[178]223[175]w[178]4[167]nw[178]9:[151]247,188
  107. 1080 [139]m[167][151]830,[194](830)[170]1
  108. 1090 [151]2,nw
  109. 1100 [139]w[178]nw[175]m[167][151]247,[194](247)[170]1
  110. 1110 [158]49568:[158]49856:[158]50144:[137]390
  111. 1120 [143] return key was hit
  112. 1130 q[178]32[170]32[172][181]([194](830)[173]31)
  113. 1140 [139]q[179]223[167][151]2,0:[151]830,q:[151]247,q:[158]49568:[158]49856:[158]50144:[137]390
  114. 1150 [139]q[179]255[167][151]2,5:[151]830,q:[151]247,q[171]32:[158]49568:[158]49856:[158]50144
  115. 1160 [137] 390
  116. 1170 [143] left
  117. 1180 m[178]0:w[178][194](2):nw[178]w[171]1:[139]w[178]0[176]w[178]5[167]nw[178]w
  118. 1190 [139][194](830)[179][177]0[167][151]830,[194](830)[171]1:m[178]1
  119. 1200 [139][194](247)[178]0[175][194](830)[178]31[167]nw[178]0:[151]247,31:m[178]0
  120. 1210 [151]2,nw
  121. 1220 [139]w[178]nw[175]m[167][151]247,[194](247)[171]1
  122. 1230 [158]49568:[158]49856:[158]50144:[137]390
  123. 1240 [143] down
  124. 1250 m[178]0:w[178][194](2):nw[178]w[170]5:[139]w[177]4[167]nw[178]w
  125. 1255 [139][194](830)[177]223 [167] 390
  126. 1260 p[178][194](247):[139]p[177]187[175]p[179]192[175]w[177]4[167][151]247,187:nw[178][194](830)[171]214:w[178]nw
  127. 1270 [139][194](830)[179]224[167][151]830,[194](830)[170]32:m[178]1
  128. 1280 [151]2,nw
  129. 1290 [139]w[178]nw[175]m[167][151]247,[194](247)[170]32
  130. 1300 [158]49568:[158]49856:[158]50144:[137]390
  131. 1310 [143] up
  132. 1320 m[178]0:w[178][194](2):nw[178]w[171]5:[139]w[179]5[167]nw[178]w
  133. 1330 p[178][194](830):[139][194](247)[179]32[175]p[177]31[175]w[179]5[167][151]247,0:nw[178]p[171]32
  134. 1340 [139][194](830)[177]31[167][151]830,[194](830)[171]32:m[178]1
  135. 1350 [151]2,nw
  136. 1360 [139]w[178]nw[175]m[167][151]247,[194](247)[171]32
  137. 1370 [158]49568:[158]49856:[158]50144:[137]390
  138. 1380 [143]   load
  139. 1390 [151]53265,27:[151]53272,23:[151]53269,0:
  140. 1400 [153]"load       cont(NULL)oad custom character set."
  141. 1410 [153]"open       (NULL)ress dopen for str$irectory.
  142. 1420 print"       [208]ress <[210][197][212][213][210][206]>[159] otherwise.":w=1
  143. 1430 get a$:if a$="d"then df=1:gosub3300:w=0:goto1450
  144. 1440 ifa$<>chr$(13)then1430
  145. 1450 print"[153]     [212]o abort [204][207][193][196] operation press
  146. 1460 [153]" <(NULL)val(NULL)(NULL)(NULL)(NULL)> without entering a filename.
  147. 1470 ifwthenprint"       [159][208]ut load diskette in disk
  148. 1480 [139]w[167][153]"        drive device 8 drive 0."
  149. 1490 [153]"    ascilename:list_waitcmd";:l[178]0:f$[178]""
  150. 1500 [161]a$:[139]a$[178]""[167]1500
  151. 1510 [139]a$[178][199](13)[167][153]" ";:[137]1560
  152. 1520 [139]a$[178][199](20)[175]l[177]0[167][153]" cmdcmd cmd_waitcmd";:l[178]l[171]1:f$[178][200](f$,l)
  153. 1530 [139]l[179]14[167][139](a$[177][178]" "[175]a$[179][178]"_")[175]a$[179][177][199](34)[167]1550
  154. 1540 [137] 1500
  155. 1550 [153]a$"_waitcmd";:l[178]l[170]1:f$[178]f$[170]a$:[137]1500
  156. 1560 [139]l[178]0[167][153]"load":[151]53265,[194](53265)[176]32:[151]53272,[194](53272)[176]8
  157. 1570 [139]l[178]0[167][158]50352:[158]49826:[158]49728:[158]51499:[151]53269,2:[137]390
  158. 1580 [129]i[178]1[164][195](f$):[151]50677[170]i,[198]([202](f$,i,1)):[130]
  159. 1590 [153]:[153]"cont(NULL)earching for"[199](3