home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_B.d64 / btx-konvert (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.6 KB  |  116 lines
  1. 100 ifa=1then190
  2. 110 poke53280,12
  3. 120 poke53281,12
  4. 130 print"[144][147]";
  5. 140 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. 150 print" [195]odetabellen-[197]ditor [214]1.1"
  7. 160 print" [196][210][197][215][211] [197][196][214]+[194]tx [199]mb[200] ([195])'90"
  8. 170 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. 180 a=1:load"btx-drucker",8,1
  10. 190 clr:x=20000
  11. 200 print"[194]edienung mit:"
  12. 210 print"[211]pace : [193]lten [215]ert uebernehmen"
  13. 220 print"[210]eturn: [206]euen [215]ert eingeben"
  14. 230 print"[196]ruckertabelle aendern (j/n)  ";
  15. 240 geta$:ifa$<>"j"anda$<>"n"then240
  16. 250 ifa$="n"thenprint"n":goto680
  17. 260 print"j"
  18. 270 print"[211]tandardtabelle nehmen (s)"
  19. 280 print"[206]eue [215]erte eingeben    (n)"
  20. 290 geta$:ifa$<>"s"anda$<>"n"then290
  21. 300 ifa$="n"thenprint"n":goto590
  22. 310 rem standard
  23. 320 print"[197]pson-kompatibel   (e)"
  24. 330 print"[205][208][211]801-kompatibel  (m)"
  25. 340 print"nur [199][210][207][211][211]          (g)"
  26. 350 geta$:ifa$<>"e"anda$<>"m"anda$<>"g"then350
  27. 360 ifa$="m"then420
  28. 370 ifa$="g"then560
  29. 380 rem epson
  30. 390 fori=0to95:pokex+i,i+32:next
  31. 395 print"[197]pson-[212]abelle initialisiert..."
  32. 400 goto230
  33. 410 rem mps801 (crs-down-mode)
  34. 420 fori=0to32:pokex+i,i+32:next
  35. 430 fori=33to58:pokex+i,i+160:next
  36. 435 print"[205][208][211]801-[212]abelle initialisiert..."
  37. 440 pokex+59,193:rem gr ae
  38. 450 pokex+60,207:rem gr oe
  39. 460 pokex+61,213:rem gr ue
  40. 470 fori=62to64:pokex+i,i+32:next
  41. 480 fori=65to90:pokex+i,i:next
  42. 490 pokex+91,65:rem ae
  43. 500 pokex+92,79:rem oe
  44. 510 pokex+93,85:rem ue
  45. 520 pokex+94,211:rem sz
  46. 530 pokex+95,127
  47. 540 goto230
  48. 550 rem cursor-up-mode
  49. 560 fori=0to58:pokex+i,i+32:next
  50. 565 print"[199][210][207][211][211]-[212]abelle initialisiert..."
  51. 570 goto480:rem wie mps801!
  52. 580 rem eingabemodus
  53. 590 fori=0to95
  54. 600 print"   ";i+32;":",peek(x+i),
  55. 610 geta$:ifa$=""then610
  56. 620 ifa$<>" "andasc(a$)<>13then610
  57. 630 ifa$=" "thenprint" ";peek(x+i):goto670
  58. 640 b=0:input b
  59. 650 ifb=0thenb=peek(x+i):print"[145]",,"";b
  60. 660 pokex+i,b
  61. 670 nexti
  62. 680 print"[193][211][195][201][201]-[212]abelle ? (j/n) ";
  63. 690 geta$:ifa$<>"j"anda$<>"n"then690
  64. 700 ifa$="n"thenprint"n":goto810
  65. 710 print "j"
  66. 720 fori=96to191
  67. 730 print"   ";i-64;":",peek(x+i),
  68. 740 geta$:ifa$=""then740
  69. 750 ifa$<>" "andasc(a$)<>13then740
  70. 760 ifa$=" "thenprint" ";peek(x+i):goto800
  71. 770 b=0:inputb
  72. 780 ifb=0thenb=peek(x+i):print"[145]",,"";b
  73. 790 pokex+i,b
  74. 800 nexti
  75. 810 print"[196]ruckerparameter? (j/n)  ";
  76. 820 geta$:ifa$<>"j"anda$<>"n"then820
  77. 830 ifa$="n"thenprint"n":goto1090
  78. 840 print"j"
  79. 850 i=192
  80. 860 print"   [204]ogische [198]ilenummer   ";peek(x+i),
  81. 870 geta$:ifa$=""then870
  82. 880 ifa$<>" "andasc(a$)<>13then870
  83. 890 ifa$=" "thenprint" ";peek(x+i):goto930
  84. 900 b=0:inputb
  85. 910 ifb=0thenb=peek(x+i):print"[145]",,,"";b
  86. 920 pokex+i,b
  87. 930 i=i+1
  88. 940 print"   [199]eraeteadresse        ";peek(x+i),
  89. 950 geta$:ifa$=""then950
  90. 960 ifa$<>" "andasc(a$)<>13then950
  91. 970 ifa$=" "thenprint" ";peek(x+i):goto1010
  92. 980 b=0:inputb
  93. 990 ifb=0thenb=peek(x+i):print"[145]",,,"";b
  94. 1000 pokex+i,b
  95. 1010 i=i+1
  96. 1020 print"   [211]ekundaeradresse      ";peek(x+i),
  97. 1030 geta$:ifa$=""then1030
  98. 1040 ifa$<>" "andasc(a$)<>13then1030
  99. 1050 ifa$=" "thenprint" ";peek(x+i):goto1090
  100. 1060 b=0:inputb
  101. 1070 print"[145]",,,"";b
  102. 1080 pokex+i,b
  103. 1090 print"[215]erte ok (j/n)"
  104. 1100 geta$:ifa$<>"j"anda$<>"n"then1100
  105. 1110 ifa$="n"then230
  106. 1120 print"[212]abellen speichern (j/n)"
  107. 1130 geta$:ifa$<>"j"anda$<>"n"then1130
  108. 1140 ifa$="n"thenend
  109. 1160 poke251,peek(43):poke252,peek(44)
  110. 1170 poke253,peek(45):poke254,peek(46)
  111. 1180 poke43,32:poke44,78:poke45,227:poke46,78
  112. 1190 save"@:btx-drucker",8,1
  113. 1200 poke43,peek(251):poke44,peek(252)
  114. 1210 poke45,peek(253):poke46,peek(254)
  115. 1220 end
  116.