home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_A.d64 / blockgrafik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  91 lines
  1. 10 rem *********************************
  2. 15 rem **                             **
  3. 20 rem ** 'blockgraphik' - wettbewerb **
  4. 25 rem **                             **
  5. 30 rem *********************************
  6. 35 rem **                             **
  7. 40 rem **    fuer  c 16/116 & c 64    **
  8. 45 rem **                             **
  9. 50 rem *********************************
  10. 55 rem ** joerg gerjets / 2980 norden **
  11. 60 rem **                             **
  12. 65 rem **     (c) by dps mcmlxxxv     **
  13. 70 rem *********************************
  14. 75 rem ** bei c 16/116 durch druecken **
  15. 80 rem **   der tasten '@','+','-'    **
  16. 85 rem **       & '*' bewegung        **
  17. 90 rem **        [esc] = ende         **
  18. 95 rem *********************************
  19. 100 print"":printchr$(142):(NULL)4,1:(NULL)0,2
  20. 110 print"[147]";
  21. 120 print"[144]    f 2 3 4[144]  #########    ^ ^^ ^  2 4 [144]  "
  22. 130 print"    u  [149]    [146][159][213][195][195][195][201][144][213][195][195][195][195][195][201][154][168][144][223][213][178][178][178][178][178][178][201]0[149] [194] 6[144]  "
  23. 140 print"    e 1[149] [213] 5[146][159][194][209] [209][159][194][144][194][129] m-3 [146][144][194][149][213][201][144][171][219][219][219][219][219][219][179] [149] [215]  [144]  "
  24. 150 print"    l  [149]  [205] [146][159][194] [209][158][209][159][194][144][202][195][195][195][195][195][203][149][194][194][144][171][219][219][219][219][219][219][179]ht[149]  8[144]  "
  25. 160 print"      0 7 6[146][159][202][195][195][195][203][161]30.37[146][161][149][202][203][144][202][177][177][177][177][177][177][203]  10 [144]  "
  26. 170 print"[169][129][172][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][146][187][144][223]"
  27. 180 print"[129]  [146]                   [146]    [144]           . [129] "
  28. 190 print"[170] [146]     [144][223][146][129]             [146]  [144]     ,         [129] [146][180]"
  29. 200 print"[182] [146]    [144]   [183][183][163] [223][146][129]       [146]             [129][216]   [129] [146][181]"
  30. 210 print"[161] [146]      [144][183][187][146][184][187][146][184][184][129]       [146]             [175][146]   [129] [146][161]"
  31. 220 print"[161] [146]                   [146]    [144][216]        [175][146]   [129] [146][161]"
  32. 230 print"[182] [146]             [144][164][129]     [146]   [144][183] [146]        [175][146]   [129] [146][181]"
  33. 240 print"[170] [146][149][185][175][185][175][164]   [164] [164]  [144][223]   [129]  [144]      [146][169] [164]  [149][185][162] [184][146][175] [129] [146][180]"
  34. 250 print"                   [129]                   [129] "
  35. 260 print" [188][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][146][190]"
  36. 270 print" [198][198][198] [175]  [213][195][195][195][195][201] [144][213][195][195][195][195][195][195][195][195][178][195][195][201] -radar[144]- [213][195][201]"
  37. 280 print" [215][209][215][186]n[146][204] [194]w  1[146][194]<[144][194][153][169] [164]  [164] [223][146][144][194][209][209][144][194] [169]  [194]  [223][146][144] [171] [179]"
  38. 290 print"[154] > [169]   [223][146][202][195][195][178][195][177][201][144][194][153] [164][164]  [164][164] [146][144][194] [129]^[144][194]      [206] [146][144] [171] [179]"
  39. 300 print" [175][169]     [223][146][175] [194][154]  [146][194][144][194][153]  [164]  [164]  [146][144][194][209] [144][194][213]    [206]  [146][144][201][171][158][185][144][179]"
  40. 310 print"[170]w _[195][215][195]  e[146][180][194][154]  [146][194][144][194][153][175] [175][186][204][175] [175][146][144][194][209] [144][194][194][195]  [215]  [195][146][144][194][171][158] [146][144][179]"
  41. 320 print" [183][223]     [146][169][183] [202][195][195][203][144][194][183] [164]  [164] [183][146][194] [158][209][144][194][202]       [146][144][203][171][158] [146][144][179]"
  42. 330 print" [129][175] [223]   [146][169][129]_[215] [156]dps[129]-[144][194] [164][164]  [164][164] [146][194][129][215][159]+[144][194]        [146][144] [171][158] [146][144][179]"
  43. 340 print"[129][170][156][209][129][180] [208]s[146][207][176][195][195][195][195][195][195][174][144][194]  [164]  [164]  [146][194] [156][209][144][194] [223]  [194]  [146][169][144] [171][158] [146][144][179]"
  44. 350 print"[149][170]#4[146][180] [183][144] [194][144]>>[255][216][144]<<[194][144][194][223]      [146][169][194]*[144]*[194]   [202][195][203]   [202][195][203]    "
  45. 360 print"[223][146] [196][196][196][196] [173][195][195][195][195][195][195][189][144][202][195][195][195][195][195][195][195][195][177][195][195][203] [153][215][154][197][197][197][197][197][153][215][144] _ ";:poke4071,233
  46. 370 rem
  47. 380 rem
  48. 390 rem
  49. 400 rem *******************************
  50. 410 rem ** bewegung - nur c 16/116 ! **
  51. 420 rem *******************************
  52. 430 (NULL):get(NULL)a$
  53. 440 ifa$="*"then(NULL)1,34,08,"[130][129][216][144]":(NULL)1,37,24,"[130][144]_":(NULL)1,26,19,"[130][218]"
  54. 450 ifa$="+"then(NULL)1,13,3,"[130][209]":(NULL)1,1,22,"[130][156][209]"
  55. 460 ifa$="-"then(NULL)1,25,23,"[130]*":(NULL)1,23,1,"[130][156][168]"
  56. 470 ifa$="@"thenprint""chr$(27)"t"
  57. 480 ifa$="@"thenprint""chr$(27)"b";:goto510
  58. 490 ifa$=chr$(27)then600
  59. 500 (NULL)
  60. 510 fori=1to4:forj=1to1000:next:print:next:(NULL)
  61. 600 print"[147][144]    **  (c) by don't panic soft  **"
  62. 700 rem ********************************
  63. 710 rem ********************************
  64. 720 rem **   achtung : aenderungen    **
  65. 730 rem **         fuer c 64          **
  66. 740 rem ********************************
  67. 750 rem ** poke 4071,233 in zeile 360 **
  68. 760 rem **  muss durch poke 2023,233  **
  69. 770 rem **       ersetzt werden       **
  70. 780 rem ********************************
  71. 790 rem **   color 0,2 in zeile 100   **
  72. 800 rem **  muss durch poke 53281,1   **
  73. 810 rem **       ersetzt werden       **
  74. 820 rem ********************************
  75. 830 rem **   color 4,1 in zeile 100   **
  76. 840 rem **  muss durch poke 53280,0   **
  77. 850 rem **       ersetzt werden       **
  78. 860 rem ********************************
  79. 870 rem **   das steuerzeichen fuer   **
  80. 880 rem **    hellblau muss durch     **
  81. 890 rem **    normal-blau ersetzt     **
  82. 900 rem **    nur wichtig in zeile    **
  83. 910 rem **         280 - 310          **
  84. 920 rem ********************************
  85. 930 rem **  zeile 430 muss lauten :   **
  86. 940 rem **  430 geta$:ifa$=""then430  **
  87. 950 rem **  zeile 440 - 510 duerfen   **
  88. 960 rem **  nicht uebernommen werden  **
  89. 970 rem ********************************
  90. 980 rem ********************************
  91.