home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / mcc-dmo.mov (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  64 lines
  1. 100 rem *******************************
  2. 101 rem *                             *
  3. 102 rem * magic colour chars  dmo.mov *
  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,4
  15. 114 rem -------------------------------
  16. 115 rem - init screen                 -
  17. 116 rem -------------------------------
  18. 117 !p,0,1,"magic colour chars"
  19. 118 !p,0,3,"moving chars"
  20. 119 !p,0,23,"written by matthias fichtner"
  21. 120 !p,0,25,"(c) by markt & technik"
  22. 121 rem -------------------------------
  23. 122 rem - init colours                -
  24. 123 rem -------------------------------
  25. 124 !l,0
  26. 125 !d,"[151][152][155][155][152][151]",1
  27. 126 !d,"[144][151][152][155][155][152][151]",3,23,25
  28. 127 !a,1,1,1,1,2,1,24,1
  29. 128 !u,0
  30. 129 rem -------------------------------
  31. 130 rem - init char fields            -
  32. 131 rem -------------------------------
  33. 132 data 12,6,3,10,21,10,12,14
  34. 133 a$(1)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  35. 134 a$(2)="[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
  36. 135 a$(3)="[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
  37. 136 a$(4)="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  38. 137 c$="[151][152][155]"
  39. 138 forc=64to67
  40. 139 !c,1,c,0:!b,255:!b,255:!b,255:!b,231:!b,231:!b,255:!b,255:!b,255
  41. 140 next
  42. 141 print"":fori=1to4:readx,y:fort=0to3:printmid$(c$,t+1,1);
  43. 142 !p,x+8-2*t,y+t,left$(a$(i),2+4*t)
  44. 143 !p,x+8-2*t,y+(6-t),left$(a$(i),2+4*t)
  45. 144 nextt,i
  46. 145 rem -------------------------------
  47. 146 rem - moving chars - show         -
  48. 147 rem -------------------------------
  49. 148 a$(1)="111555555111"
  50. 149 a$(2)="222666666222"
  51. 150 a$(3)="333777777333"
  52. 151 a$(4)="444888888444"
  53. 152 a$(5)="555111111555"
  54. 153 a$(6)="666222222666"
  55. 154 a$(7)="777333333777"
  56. 155 a$(8)="888444444888"
  57. 156 fort=1to4:!m,t,1,63+t,"0",0,1,2:next
  58. 157 fort=1to4
  59. 158 a=int(rnd(1)*8)+1:!w,2,t:!m,t,1,63+t,a$(a),1,1,1
  60. 159 fori=1to20:!g,a$:ifa$=""thennext
  61. 160 ifa$<>""then:!r
  62. 161 next
  63. 162 goto157
  64.