home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / masken-gen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  103 lines
  1. 1 poke 53272,(peek(53272)and15)or176
  2. 2 poke 648,44
  3. 10 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]";
  4. 20 print"[161][146]                                      [161]";
  5. 30 print"[161][146] [162][162][162][162][162] [162][162][162][162][162]        [162][162][162][162][162]  [162][162][162]   [162][162][162]  [161]";
  6. 40 print"[161][146]    [146]    [146]     [212][146]    [212]    [146]    ";
  7. 45 print"[146]    [146]  [146]   [162][146] [161]";
  8. 50 print"[161][146]    [146]    [146]      e[146]  e     [146]    ";
  9. 55 print"[146]    [146]  [146]     [161]";
  10. 60 print"[161][146]    [146]    [146][162][162][162]    x[146]x      [146]    ";
  11. 65 print"[146][162][162][162] [146] [162][146][162][162][162]  [161]";
  12. 70 print"[161][146]    [146]    [146]       tt[146]      [146]    ";
  13. 75 print"[146]    [146]      [146] [161]";
  14. 80 print"[161][146]    [146]    [146]      a  a[146]     [146]    ";
  15. 85 print"[146]    [146]      [146] [161]";
  16. 90 print"[161][146]    [146]    [146][162][162][162][162] s    s[146]    [146]    ";
  17. 95 print"[146]    [146] [162][146][162][162][162][162][146] [161]";
  18. 100 print"[161][146]                                      [161]";
  19. 110 print"[161][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]";
  20. 120 print"[161][146]                                      [161]";
  21. 130 print"[161][146]        (c)  by  [207]liver [193]lbold        [161]";
  22. 140 print"[161][146]                                      [161]";
  23. 150 print"[161][146]                                      [161]";
  24. 160 print"[161][146]                                      [161]";
  25. 170 print"[161][146] [210]epeat funktion (j/n) <.>   ja  nein[146] [161]";
  26. 180 print"[161][146]                                      [161]";
  27. 190 print"[161][146] [218]eichen pro [218]eile : <...>      80   [146] [161]";
  28. 200 print"[161][146]                                      [161]";
  29. 210 print"[161][146] [199]ebrauchsanweisung      :   ctrl - [199][146] [161]";
  30. 215 print"[161][146]                                      [161]";
  31. 220 print"[161][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]";
  32. 230 poke 53272,(peek(53272)and15)or192
  33. 240 poke 648,48
  34. 250 print"[147]";
  35. 255 print" [198]unktion :                             [146]";
  36. 260 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  37. 270 print"";
  38. 275 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  39. 280 print" [212]ab:     [218]eile:      [198]reizeilen:       [146]";
  40. 290 print"                                        [146]";
  41. 300 print" [211]eite:      [194]eschriebene [218]eilen:      [146]";:poke12288+999,32+128
  42. 310 poke 53272,(peek(53272)and15)or160
  43. 320 poke 648,40
  44. 330 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  45. 340 print"[161]  [210]ahmenfarbe      : <...>      00  [146]  [161][146]";
  46. 345 print"[161]                                      [161][146]";
  47. 350 print"[161]  [200]intergrundfarbe : <...>      00  [146]  [161][146]";
  48. 355 print"[161]                                      [161][146]";
  49. 360 print"[161]  [214]ordergrundfarbe : <...>      01  [146]  [161][146]";
  50. 370 print"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][146]";
  51. 380 print"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  52. 390 print"[161] [218]eichensatzeditor :  @ a b c d e f g[146] [161][146]";
  53. 400 print"[161][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] h i j k l m n o[146] [161][146]";
  54. 410 print"[161][176]        [174]  [176]      [174]  p q r s t u v w[146] [161][146]";
  55. 420 print"[161]         [146]     0000 [146]   x y z [ \ ] ^ _[146] [161][146]";
  56. 430 print"[161]         [146]   [173][194]-[195]ode[189]    !   # $ % & '[146] [161][146]";:poke10747,162
  57. 440 print"[161]         [146]             ( ) * + , - . /[146] [161][146]";
  58. 450 print"[161]         [146]             0 1 2 3 4 5 6 7[146] [161][146]";
  59. 460 print"[161]         [146]      [176]   [174]  8 9 : ; < = > ?[146] [161][146]";
  60. 470 print"[161]         [146]          [146]   [192] [193][160][194][160][195][160][196][160][197][160][198][160][199][146] [161][146]";
  61. 480 print"[161]         [146]        @ [146]   [200] [201] [202] [203] [204] [205][160][206][160][207][146] [161][146]";
  62. 490 print"[161]         [146]          [146]   [208][160][209][160][210][160][211][160][212][160][213][160][214][160][215][146] [161][146]";
  63. 500 print"[161][173]        [189]     [173]   [189]  [216] [217] [218] [219] [220] [221] [255] [223][146] [161][146]";
  64. 510 print"[161]                        [161] [162] [163] [164] [165] [166] [167][146] [161][146]";
  65. 520 print"[161]  [218]urueck zum [212]ext-[146]   [168] [169] [170] [171] [172] [173] [174] [175][146] [161][146]";
  66. 530 print"[161]  editor mit :     [146]   [176] [177] [178] [179] [180] [181] [182] [183][146] [161][146]";
  67. 540 print"[161]         >> [210]eturn [146]   [184] [185] [186] [187] [188] [189] [190] [191][146] [161][146]";
  68. 550 print"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:poke10240+999,126+128
  69. 560 poke 53272,(peek(53272)and15)or208
  70. 570 poke 648,52
  71. 580 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  72. 590 print"[161]           [196]ruck - [208]arameter [146]         [161][146]";
  73. 600 print"[161]                                      [161][146]";
  74. 610 print"[161] a) [203]opfzeile          :   ja  nein[146]   [161][146]";
  75. 620 print"[161] b) [211]eitenzahlen       :   ja  nein[146]   [161][146]";
  76. 630 print"[161] c) [203]leiner [214]orschub   :   ja  nein[146]   [161][146]";
  77. 640 print"[161] d) [218]eichen pro [218]eile  :           [146]   [161][146]";
  78. 641 print"[161] e) [208]unkte pro [218]eichen :           [146]   [161][146]";
  79. 642 print"[161] f) [213]nterstreichart    :           [146]   [161][146]";
  80. 650 print"[161] g) [218]eilen pro [211]eite   :           [146]   [161][146]";
  81. 660 print"[161] h) [218]eilenabstand      :           [146]   [161][146]";
  82. 670 print"[161] i) [212]renn - [218]eichen    :           [146]   [161][146]";
  83. 680 print"[161] j) [218]eichensatz        :           [146]   [161][146]";
  84. 690 print"[161] k) [196]ruckart           :           [146]   [161][146]";
  85. 700 print"[161] l) [204]inker [218]eilenrand  :           [146]   [161][146]";
  86. 730 print"[161]                                      [161][146]";
  87. 740 print"[161] m)  [196]rucken [146]          :   ja  nein[146]   [161][146]";
  88. 750 print"[161]                                      [161][146]";
  89. 760 print"[161] n) ctrl-0 :  0000 [146] s) ctrl-5 :  0000 [161][146]";
  90. 770 print"[161] o) ctrl-1 :  0000 [146] t) ctrl-6 :  0000 [161][146]";
  91. 780 print"[161] p) ctrl-2 :  0000 [146] u) ctrl-7 :  0000 [161][146]";
  92. 790 print"[161] q) ctrl-3 :  0000 [146] v) ctrl-8 :  0000 [161][146]";
  93. 800 print"[161] r) ctrl-4 :  0000 [146] w) ctrl-9 :  0000 [161][146]";
  94. 810 print"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  95. 820 print"[161]                                      ";:poke13312+999,97+128
  96. 19999 getx$:ifx$<>" "then19999
  97. 20000 sys 57812 "@:masken",8
  98. 20010 x=14336/256
  99. 20020 poke175,int(x):poke174,(x-int(x))*256
  100. 20030 x=9216/256
  101. 20040 poke194,int(x):poke193,(x-int(x))*256
  102. 20050 sys 62954
  103.