100 REM *******************************
101 REM *                             *
102 REM * MAGIC COLOUR CHARS  DMO.MOV *
103 REM *                             *
104 REM *    BY  MATTHIAS FICHTNER    *
105 REM *                             *
106 REM *   (C) BY  MARKT & TECHNIK   *
107 REM *                             *
108 REM *******************************
109 REM -------------------------------
110 REM - INIT                        -
111 REM -------------------------------
112 !T,0,0,0:PRINT"[147]"CHR$(142):!I:!S,0
113 !L,4
114 REM -------------------------------
115 REM - INIT SCREEN                 -
116 REM -------------------------------
117 !P,0,1,"MAGIC COLOUR CHARS"
118 !P,0,3,"MOVING CHARS"
119 !P,0,23,"WRITTEN BY MATTHIAS FICHTNER"
120 !P,0,25,"(C) BY MARKT & TECHNIK"
121 REM -------------------------------
122 REM - INIT COLOURS                -
123 REM -------------------------------
124 !L,0
125 !D,"[151][152][155][155][152][151]",1
126 !D,"[144][151][152][155][155][152][151]",3,23,25
127 !A,1,1,1,1,2,1,24,1
128 !U,0
129 REM -------------------------------
130 REM - INIT CHAR FIELDS            -
131 REM -------------------------------
132 DATA 12,6,3,10,21,10,12,14
133 A$(1)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
134 A$(2)="[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
135 A$(3)="[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
136 A$(4)="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
137 C$="[151][152][155]"
138 FORC=64TO67
139 !C,1,C,0:!B,255:!B,255:!B,255:!B,231:!B,231:!B,255:!B,255:!B,255
140 NEXT
141 PRINT"":FORI=1TO4:READX,Y:FORT=0TO3:PRINTMID$(C$,T+1,1);
142 !P,X+8-2*T,Y+T,LEFT$(A$(I),2+4*T)
143 !P,X+8-2*T,Y+(6-T),LEFT$(A$(I),2+4*T)
144 NEXTT,I
145 REM -------------------------------
146 REM - MOVING CHARS - SHOW         -
147 REM -------------------------------
148 A$(1)="111555555111"
149 A$(2)="222666666222"
150 A$(3)="333777777333"
151 A$(4)="444888888444"
152 A$(5)="555111111555"
153 A$(6)="666222222666"
154 A$(7)="777333333777"
155 A$(8)="888444444888"
156 FORT=1TO4:!M,T,1,63+T,"0",0,1,2:NEXT
157 FORT=1TO4
158 A=INT(RND(1)*8)+1:!W,2,T:!M,T,1,63+T,A$(A),1,1,1
159 FORI=1TO20:!G,A$:IFA$=""THENNEXT
160 IFA$<>""THEN:!R
161 NEXT
162 GOTO157