home *** CD-ROM | disk | FTP | other *** search
/ Power Pack / Power_Pack_1_1992_Alfons_Mittelmeyer_de.d64 / treibergenerator (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  147 lines
  1. 0 :
  2. 10 rem  programmed by holger heinrich
  3. 11 rem        published 1988 by
  4. 12 rem  commodore welt/disk  muenchen
  5. 13 rem     any problems?  write to
  6. 14 rem             hotbox
  7. 15 rem          postfach 165
  8. 16 rem          3110  uelzen
  9. 17 :
  10. 18 rem   --- treiber-generator ---
  11. 19 rem      fuer action-text 64
  12. 20 :
  13. 30 poke53280,0:poke53281,0
  14. 40 print"[158][147]"chr$(9)chr$(142)"  treiber generator fuer action-text"
  15. 41 print" ------------------------------------"
  16. 50 dim tw(255)
  17. 60 print"einen moment bitte..."
  18. 70 tr$="":fori=1to255:readw:tr$=tr$+chr$(w):next
  19. 72 fori=1to128:readw:tb$(0)=tb$(0)+chr$(w):next
  20. 74 fori=1to128:readw:tb$(1)=tb$(1)+chr$(w):next
  21. 80 print"[145]                     "
  22. 81 nw$="00"
  23. 90 z=0
  24. 100 print"anfangssequenz: 16 zeichen"
  25. 110 fori=0to15:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  26. 120 print"zeilensequenz: 8 zeichen"
  27. 130 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  28. 140 print"seitensequenz: 16 zeichen"
  29. 150 fori=0to15:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  30. 160 print"endsequenz: 8 zeichen"
  31. 170 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  32. 180 print" leerzeilen am blattanfang     ? 4[157][157][157]";:inputw:tw(z)=w:z=z+1
  33. 190 print" anzahl druckzeilen            ? 62[157][157][157][157]";:inputw:tw(z)=w:z=z+1
  34. 200 print" leerzeilen am blattende       ? 6[157][157][157]";:inputw:tw(z)=w:z=z+1
  35. 210 print" wagenruecklauf chr$(x)        ? 13[157][157][157][157]";:inputw:tw(z)=w:z=z+1
  36. 220 print" endlos =0 / einzel =1         ? 0[157][157][157]";:inputw:tw(z)=w:z=z+1
  37. 230 print" geraeteadresse (7=centronics) ? 4[157][157][157]";:inputw:tw(z)=w:z=z+1
  38. 240 print" sekundaeradresse              ? 0[157][157][157]";:inputw:tw(z)=w:z=z+1
  39. 250 print"fettdruck ein: 8 zeichen"
  40. 260 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  41. 270 print"fettdruck aus: 8 zeichen"
  42. 280 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  43. 290 print"unterstreichen ein: 8 zeichen"
  44. 300 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  45. 310 print"unterstreichen aus: 8 zeichen"
  46. 320 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  47. 330 print"reversdruck ein: 8 zeichen"
  48. 340 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  49. 350 print"reversdruck aus: 8 zeichen"
  50. 360 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  51. 370 print"sonderfunktion ein: 8 zeichen"
  52. 380 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  53. 390 print"sonderfunktion aus: 8 zeichen"
  54. 400 fori=0to7:print"wert"i+1" "nw$;"[157][157][157][157]";: inputw:tw(z)=w:z=z+1:next
  55. 410 print"[147]"chr$(9)chr$(14)      "[212]ransformer-[212]abelle"
  56. 420 print:print"[197]ine der beiden [211]tandarttabellen"
  57. 430 print"verwenden (0 / 1=[212]ab.1 / 2=[212]ab.2)? 0[157][157][157]";:inputw
  58. 440 ifw>2then410
  59. 450 ifw<>0andw<3thentb=w-1:goto1000
  60. 500 h$="":print:fori=0to101:print"[218]eichen";
  61. 510 ifi=95thenprint" [193]e[157][157][157]";:goto610
  62. 520 ifi=96thenprint" [207]e[157][157][157]";:goto610
  63. 530 ifi=97thenprint" [213]e[157][157][157]";:goto610
  64. 540 ifi=98thenprint" ae[157][157][157]";:goto610
  65. 550 ifi=99thenprint" oe[157][157][157]";:goto610
  66. 560 ifi=100thenprint" ue[157][157][157]";:goto610
  67. 570 ifi=101thenprint" ss[157][157][157]";:goto610
  68. 600 poke peek(210)*256+peek(209)+8,i
  69. 610 print": [196]ruckcode?"asc(mid$(tb$(1),i+1,1))
  70. 620 print"[145]";:inputw
  71. 630 h$=h$+chr$(m)
  72. 640 next:h$=h$+right$(tb$(1),26):tb$(1)=h$:tb=1
  73. 1000 print"[147]             -------------"
  74. 1010 input"[212]reibername";tn$
  75. 1020 iflen(tn$)>13then1010
  76. 1030 iflen(tn$)<13thenfori=0to12-len(tn$):tn$=tn$+" ":next
  77. 1040 tn$="t."+tn$
  78. 1050 open1,8,1,tn$+",p,w":print#1,chr$(0);chr$(16);
  79. 1060 print#1,tr$;chr$(0);
  80. 1070 fori=0toz-1:print#1,chr$(tw(i));:next
  81. 1080 print#1,tb$(tb);:close1:end
  82. 62999 : : : : : : : : : : : : : : : :
  83. 63000 data1,76,19,16,76,124,16,76
  84. 63001 data139,16,76,199,16,76,212,16
  85. 63002 data76,188,16,173,53,17,201,7
  86. 63003 data240,47,169,0,32,189,255,169
  87. 63004 data1,174,53,17,172,54,17,32
  88. 63005 data186,255,32,192,255,162,1,32
  89. 63006 data201,255,169,0,32,221,237,169
  90. 63007 data0,32,221,237,32,204,255,165
  91. 63008 data144,41,131,208,2,24,96,56
  92. 63009 data96,169,255,141,3,221,173,2
  93. 63010 data221,9,4,141,2,221,169,0
  94. 63011 data141,1,221,173,0,221,41,251
  95. 63012 data141,0,221,9,4,141,0,221
  96. 63013 data173,13,221,162,255,169,16,44
  97. 63014 data13,221,208,5,202,208,248,56
  98. 63015 data96,234,24,96,173,53,17,201
  99. 63016 data7,240,6,162,1,32,201,255
  100. 63017 data96,234,96,72,173,53,17,201
  101. 63018 data7,240,9,104,170,189,119,17
  102. 63019 data32,221,237,96,104,170,189,119
  103. 63020 data17,141,1,221,173,13,221,173
  104. 63021 data0,221,41,251,141,0,221,9
  105. 63022 data4,141,0,221,169,16,44,13
  106. 63023 data221,240,251,96,234,174,53,17
  107. 63024 data224,7,208,212,76,161,16,173
  108. 63025 data53,17,201,7,240,4,32,204
  109. 63026 data255,96,234,96,173,53,17,201
  110. 63027 data7,240,6,169,1,32,195,255
  111. 63028 data96,234,96,0,0,0,0,0
  112. 63029 data0,0,0,0,0,0,0,0
  113. 63030 data0,0,0,0,0,0,0,0
  114. 63031 data0,0,0,0,0,0,0
  115. 63032 data96,97,98,99,100,101,102,103
  116. 63033 data104,105,106,107,108,109,110,111
  117. 63034 data112,113,114,115,116,117,118,119
  118. 63035 data120,121,122,123,124,125,126,127
  119. 63036 data32,33,34,35,36,37,38,39
  120. 63037 data40,41,42,43,44,45,46,47
  121. 63038 data48,49,50,51,52,53,54,55
  122. 63039 data56,57,58,59,60,61,62,63
  123. 63040 data64,65,66,67,68,69,70,71
  124. 63041 data72,73,74,75,76,77,78,79
  125. 63042 data80,81,82,83,84,85,86,87
  126. 63043 data88,89,90,91,92,93,94,91
  127. 63044 data92,93,123,124,125,126,0,0
  128. 63045 data0,0,0,0,0,0,0,0
  129. 63046 data0,0,0,0,0,0,0,0
  130. 63047 data0,0,0,0,0,0,0,0
  131. 63048 data64,65,66,67,68,69,70,71
  132. 63049 data72,73,74,75,76,77,78,79
  133. 63050 data80,81,82,83,84,85,86,87
  134. 63051 data88,89,90,91,92,93,94,91
  135. 63052 data32,33,34,35,36,37,38,39
  136. 63053 data40,41,42,43,44,45,46,47
  137. 63054 data48,49,50,51,52,53,54,55
  138. 63055 data56,57,58,59,60,61,62,63
  139. 63056 data64,97,98,99,100,101,102,103
  140. 63057 data104,105,106,107,108,109,110,111
  141. 63058 data112,113,114,115,116,117,118,119
  142. 63059 data120,121,122,123,124,125,126,91
  143. 63060 data92,93,123,124,125,126,0,0
  144. 63061 data0,0,0,0,0,0,0,0
  145. 63062 data0,0,0,0,0,0,0,0
  146. 63063 data0,0,0,0,0,0,0,0
  147.