home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / masken-gen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.