home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / mcc-dmo.col (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  72 lines
  1. 100 rem *******************************
  2. 101 rem *                             *
  3. 102 rem * magic colour chars  dmo.col *
  4. 103 rem *                             *
  5. 104 rem *    by  matthias fichtner    *
  6. 105 rem *                             *
  7. 106 rem *   (c) by  markt & technik   *
  8. 107 rem *                             *
  9. 108 rem *******************************
  10. 109 rem -------------------------------
  11. 110 rem - init                        -
  12. 111 rem -------------------------------
  13. 112 !t,0,0,0:print"[147]"chr$(142):!i:!s,0
  14. 113 !l,0:!l,4
  15. 114 dimc$(29):fort=0to29:readc$(t):next
  16. 115 !c,1,65,0:fort=1to8:!b,0:next
  17. 116 fort=66to67:!c,1,t,0:!b,0:!b,0:!b,0:!b,126:!b,0:!b,0:!b,0:!b,0:next
  18. 117 a=57864:x=0:y=255
  19. 118 rem -------------------------------
  20. 119 rem - init screen                 -
  21. 120 rem -------------------------------
  22. 121 !p,0,1,"magic colour chars"
  23. 122 !p,0,3,"thirty colours"
  24. 123 !p,0,6,"[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
  25. 124 fort=7to11:!p,0,t,"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]":next
  26. 125 !p,0,12,"[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
  27. 126 !p,0,14,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  28. 127 fort=15to19:!p,0,t,"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]":next
  29. 128 !p,0,20,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  30. 129 !p,0,23,"written by matthias fichtner"
  31. 130 !p,0,25,"(c) by markt & technik"
  32. 131 rem -------------------------------
  33. 132 rem - init colour and animation   -
  34. 133 rem -------------------------------
  35. 134 !d,"[144][151][152][155][155][152][151]",3,6,12,14,20,23,25
  36. 135 !d,"[151][152][155][155][152][151]",1
  37. 136 !a,1,6,1,1,2,2,0
  38. 137 !a,2,12,1,1,2,2,0
  39. 138 !a,3,14,1,1,2,2,0
  40. 139 !a,4,20,1,1,2,2,0
  41. 140 !a,5,1,1,1,2,1,24,1
  42. 141 !m,1,1,66,"3",0,250,1
  43. 142 !m,2,1,67,"7",0,250,1
  44. 143 rem -------------------------------
  45. 144 rem - show 30 different colours   -
  46. 145 rem -------------------------------
  47. 146 !u,0
  48. 147 forc=0to29:!d,c,7to11,15to19
  49. 148 !p,28,13,"  ":!p,12,13,"               ":ifc<10thenprint" ";
  50. 149 printc"[157] ":!p,12,13,c$(c)
  51. 150 fort=3to0step-1:pokea+t,x:pokea+(7-t),x:next
  52. 151 !d,c,13:ifc=0then:!d,11,13
  53. 152 fort=1to200:!g,a$:ifa$=""thennext
  54. 153 ifa$<>""then:!r
  55. 154 !g,a$:on-(peek(653)=1)goto153
  56. 155 !d,0,13:fort=0to3:pokea+t,y:pokea+(7-t),y:next
  57. 156 next
  58. 157 goto147
  59. 158 rem -------------------------------
  60. 159 rem - names of colours            -
  61. 160 rem -------------------------------
  62. 161 data black,white,red,cyan,purple
  63. 162 data green,blue,yellow,orange,brown
  64. 163 data light red,grey 1,grey 2
  65. 164 data light green,light blue,grey 3
  66. 165 data light brown,watery blue,pink
  67. 166 data silver,dark pink,neon green
  68. 167 data silver blue,dark purple
  69. 168 data watery green,amethyst,mustard
  70. 169 data dark bluegreen,light yellow
  71. 170 data light purple
  72.