home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / btxkonv (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  173 lines
  1. 10 ifa=1then100
  2. 20 poke53280,12
  3. 30 poke53281,12
  4. 40 print"[144][147]";
  5. 50 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  6. 60 print" [195]odetabellen-[197]ditor [214]1.31"
  7. 70 print" [196][210][197][215][211] [197][196][214]+[194]tx [199]mb[200] ([195])'90"
  8. 80 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  9. 90 a=1:load"btxparam",8,1
  10. 100 clr:x=20000
  11. 110 print"[194]edienung mit:"
  12. 120 print"[211]pace : [193]lten [215]ert uebernehmen"
  13. 130 print"[210]eturn: [206]euen [215]ert eingeben"
  14. 140 print"[196]ruckertabelle aendern (j/n)  ";
  15. 150 geta$:ifa$<>"j"anda$<>"n"then150
  16. 160 ifa$="n"thenprint"n":goto900
  17. 170 print"j"
  18. 180 print"[211]tandardtabelle nehmen (s)"
  19. 190 print"[206]eue [215]erte eingeben    (n)"
  20. 200 geta$:ifa$<>"s"anda$<>"n"then200
  21. 210 ifa$="n"thenprint"n":goto810
  22. 220 rem standard
  23. 230 print"[197]pson-kompatibel   (1)"
  24. 240 print"[205][208][211]801-kompatibel  (2)"
  25. 250 print"[205][208][211]802-kompatibel  (3)"
  26. 260 print"[205][208][211]1xxx-kompatibel (4)"
  27. 270 print"nur [199][210][207][211][211]          (5)"
  28. 280 geta$:ifa$<"1"ora$>"5"then280
  29. 290 print
  30. 300 ifa$="1"then360
  31. 310 ifa$="2"then420
  32. 320 ifa$="3"then590
  33. 330 ifa$="4"then680
  34. 340 ifa$="5"then760
  35. 350 rem epson
  36. 360 print"[197]pson-[212]abelle initialisiert..."
  37. 370 print"[211]ek.adr = 1"
  38. 380 fori=0to95:pokex+i,i+32:next
  39. 390 pokex+194,1:rem sa 1
  40. 400 goto140
  41. 410 rem mps801 (crs-down-mode)
  42. 420 print"[205][208][211]801-[212]abelle initialisiert..."
  43. 430 print"[211]ek.adr = 7"
  44. 440 fori=0to32:pokex+i,i+32:next
  45. 450 fori=33to58:pokex+i,i+160:next
  46. 460 pokex+59,193:rem gr ae
  47. 470 pokex+60,207:rem gr oe
  48. 480 pokex+61,213:rem gr ue
  49. 490 fori=62to64:pokex+i,i+32:next
  50. 500 fori=65to90:pokex+i,i:next
  51. 510 pokex+91,65:rem ae
  52. 520 pokex+92,79:rem oe
  53. 530 pokex+93,85:rem ue
  54. 540 pokex+94,211:rem sz
  55. 550 pokex+95,127
  56. 560 pokex+194,7:rem sa 7
  57. 570 goto140
  58. 580 rem mps802
  59. 590 print"[205][208][211]802-[212]abelle initialisiert..."
  60. 600 print"[211]ek.adr = 7"
  61. 610 fori=0to32:pokex+i,i+32:next
  62. 620 fori=33to61:pokex+i,i+32:next
  63. 630 fori=62to64:pokex+i,i+32:next
  64. 640 fori=65to95:pokex+i,i+128:next
  65. 650 pokex+194,7:rem sa 7
  66. 660 goto140
  67. 670 rem mps1xxx (crs-down-mode)
  68. 680 print"[205][208][211]1xxx-[212]abelle initialisiert..."
  69. 690 print"[211]ek.adr = 7"
  70. 700 fori=0to32:pokex+i,i+32:next
  71. 710 fori=33to61:pokex+i,i+160:next
  72. 720 fori=62to64:pokex+i,i+32:next
  73. 730 fori=65to95:pokex+i,i:next
  74. 740 pokex+194,7
  75. 750 goto140
  76. 760 rem cursor-up-mode
  77. 770 fori=0to58:pokex+i,i+32:next
  78. 780 print"[199][210][207][211][211]-[212]abelle initialisiert..."
  79. 790 goto500:rem wie mps801!
  80. 800 rem eingabemodus
  81. 810 fori=0to95
  82. 820 print"   ";i+32;":",peek(x+i),
  83. 830 geta$:ifa$=""then830
  84. 840 ifa$<>" "andasc(a$)<>13then830
  85. 850 ifa$=" "thenprint" ";peek(x+i):goto890
  86. 860 b=0:input b
  87. 870 ifb=0thenb=peek(x+i):print"[145]",,"";b
  88. 880 pokex+i,b
  89. 890 nexti
  90. 900 print"[193][211][195][201][201]-[212]abelle ? (j/n) ";
  91. 910 geta$:ifa$<>"j"anda$<>"n"then910
  92. 920 ifa$="n"thenprint"n":goto1030
  93. 930 print "j"
  94. 940 fori=96to191
  95. 950 print"   ";i-64;":",peek(x+i),
  96. 960 geta$:ifa$=""then960
  97. 970 ifa$<>" "andasc(a$)<>13then960
  98. 980 ifa$=" "thenprint" ";peek(x+i):goto1020
  99. 990 b=0:inputb
  100. 1000 ifb=0thenb=peek(x+i):print"[145]",,"";b
  101. 1010 pokex+i,b
  102. 1020 nexti
  103. 1030 print"[196]ruckerparameter? (j/n)  ";
  104. 1040 geta$:ifa$<>"j"anda$<>"n"then1040
  105. 1050 ifa$="n"thenprint"n":goto1540
  106. 1060 print"j"
  107. 1070 i=192
  108. 1080 print"   [204]ogische [198]ilenummer   ";peek(x+i),
  109. 1090 geta$:ifa$=""then1090
  110. 1100 ifa$<>" "andasc(a$)<>13then1090
  111. 1110 ifa$=" "thenprint" ";peek(x+i):goto1160
  112. 1120 b=0:inputb
  113. 1130 ifb=0thenb=peek(x+i):print"[145]",,,"";b
  114. 1140 pokex+i,b
  115. 1150 rem *************************
  116. 1160 i=i+1
  117. 1170 print"   [199]eraeteadresse        ";peek(x+i),
  118. 1180 geta$:ifa$=""then1180
  119. 1190 ifa$<>" "andasc(a$)<>13then1180
  120. 1200 ifa$=" "thenprint" ";peek(x+i):goto1250
  121. 1210 b=0:inputb
  122. 1220 ifb=0thenb=peek(x+i):print"[145]",,,"";b
  123. 1230 pokex+i,b
  124. 1240 rem *************************
  125. 1250 i=i+1
  126. 1260 print"   [211]ekundaeradresse      ";peek(x+i),
  127. 1270 geta$:ifa$=""then1270
  128. 1280 ifa$<>" "andasc(a$)<>13then1270
  129. 1290 ifa$=" "thenprint" ";peek(x+i):goto1340
  130. 1300 b=0:inputb
  131. 1310 print"[145]",,,"";b
  132. 1320 pokex+i,b
  133. 1330 rem *************************
  134. 1340 i=i+1:a=peek(x+i)
  135. 1350 print"   [193]uto-[204]inefeed (j/n)   ";
  136. 1360 ifa=0thenprint"nein";
  137. 1370 ifa>0thenprint"ja  ";
  138. 1380 geta$:ifa$<>"j"anda$<>"n"then1380
  139. 1390 ifa$="j"thenprint"[157][157][157][157]ja  ":poke(x+i),1:goto1420
  140. 1400 print"[157][157][157][157]nein":poke(x+i),0
  141. 1410 rem *************************
  142. 1420 i=i+1:print"   [204]eerzeilen vorher     ";peek(x+i),
  143. 1430 geta$:ifa$=""then1430
  144. 1440 ifa$<>" "andasc(a$)<>13then1430
  145. 1450 ifa$=" "thenprint" ";peek(x+i):goto1480
  146. 1460 b=0:inputb:print"[145]",,,"";b:pokex+i,b
  147. 1470 rem *************************
  148. 1480 i=i+1:print"   [204]eerzeilen nachher    ";peek(x+i),
  149. 1490 geta$:ifa$=""then1490
  150. 1500 ifa$<>" "andasc(a$)<>13then1490
  151. 1510 ifa$=" "thenprint" ";peek(x+i):goto1532
  152. 1520 b=0:inputb:print"[145]",,,"";b:pokex+i,b
  153. 1530 rem *************************
  154. 1532 i=i+1:print"   [204]eerzeichen links     ";peek(x+i),
  155. 1533 geta$:ifa$=""then1533
  156. 1534 ifa$<>" "andasc(a$)<>13then1533
  157. 1535 ifa$=" "thenprint" ";peek(x+i):goto1540
  158. 1536 b=0:inputb:print"[145]",,,"";b:pokex+i,b
  159. 1537 rem *************************
  160. 1540 print"[215]erte ok (j/n)"
  161. 1550 geta$:ifa$<>"j"anda$<>"n"then1550
  162. 1560 ifa$="n"then140
  163. 1570 print"[212]abellen speichern (j/n)"
  164. 1580 geta$:ifa$<>"j"anda$<>"n"then1580
  165. 1590 ifa$="n"thenend
  166. 1600 poke251,peek(43):poke252,peek(44)
  167. 1610 poke253,peek(45):poke254,peek(46)
  168. 1620 poke43,32:poke44,78:poke45,232:poke46,78:rem 200 bytes
  169. 1630 save"@:btxparam",8,1
  170. 1640 poke43,peek(251):poke44,peek(252)
  171. 1650 poke45,peek(253):poke46,peek(254)
  172. 1660 end
  173.