home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003b.d64 / btx-konvert (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  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.