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 >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
72 lines
100 rem *******************************
101 rem * *
102 rem * magic colour chars dmo.col *
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,0:!l,4
114 dimc$(29):fort=0to29:readc$(t):next
115 !c,1,65,0:fort=1to8:!b,0:next
116 fort=66to67:!c,1,t,0:!b,0:!b,0:!b,0:!b,126:!b,0:!b,0:!b,0:!b,0:next
117 a=57864:x=0:y=255
118 rem -------------------------------
119 rem - init screen -
120 rem -------------------------------
121 !p,0,1,"magic colour chars"
122 !p,0,3,"thirty colours"
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]"
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
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]"
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]"
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
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]"
129 !p,0,23,"written by matthias fichtner"
130 !p,0,25,"(c) by markt & technik"
131 rem -------------------------------
132 rem - init colour and animation -
133 rem -------------------------------
134 !d,"[144][151][152][155][155][152][151]",3,6,12,14,20,23,25
135 !d,"[151][152][155][155][152][151]",1
136 !a,1,6,1,1,2,2,0
137 !a,2,12,1,1,2,2,0
138 !a,3,14,1,1,2,2,0
139 !a,4,20,1,1,2,2,0
140 !a,5,1,1,1,2,1,24,1
141 !m,1,1,66,"3",0,250,1
142 !m,2,1,67,"7",0,250,1
143 rem -------------------------------
144 rem - show 30 different colours -
145 rem -------------------------------
146 !u,0
147 forc=0to29:!d,c,7to11,15to19
148 !p,28,13," ":!p,12,13," ":ifc<10thenprint" ";
149 printc"[157] ":!p,12,13,c$(c)
150 fort=3to0step-1:pokea+t,x:pokea+(7-t),x:next
151 !d,c,13:ifc=0then:!d,11,13
152 fort=1to200:!g,a$:ifa$=""thennext
153 ifa$<>""then:!r
154 !g,a$:on-(peek(653)=1)goto153
155 !d,0,13:fort=0to3:pokea+t,y:pokea+(7-t),y:next
156 next
157 goto147
158 rem -------------------------------
159 rem - names of colours -
160 rem -------------------------------
161 data black,white,red,cyan,purple
162 data green,blue,yellow,orange,brown
163 data light red,grey 1,grey 2
164 data light green,light blue,grey 3
165 data light brown,watery blue,pink
166 data silver,dark pink,neon green
167 data silver blue,dark purple
168 data watery green,amethyst,mustard
169 data dark bluegreen,light yellow
170 data light purple