vg5000experience01.txt

new
1 init 7,0

10 seteg 100,"55AA55AA55AA55AA55AA"
11 setet 100,"55AA55AA55AA55AA55AA"

192 seteg 192,"00000000000000000000"
193 seteg 193,"11441100000000000000"
194 seteg 194,"55AA5500000000000000"
195 seteg 195,"EEBBEE00000000000000"
196 seteg 196,"FFFFFF00000000000000"
197 seteg 197,"00000044114411000000"
198 seteg 198,"11441144114411000000"
199 seteg 199,"55AA5544114411000000"
200 seteg 200,"EEBBEE44114411000000"
201 seteg 201,"FFFFFF44114411000000"
202 seteg 202,"000000AA55AA55000000"
203 seteg 203,"114411AA55AA55000000"
204 seteg 204,"55AA55AA55AA55000000"
205 seteg 205,"EEBBEEAA55AA55000000"
206 seteg 206,"FFFFFFAA55AA55000000"
207 seteg 207,"000000BBEEBBEE000000"
208 seteg 208,"114411BBEEBBEE000000"
209 seteg 209,"55AA55BBEEBBEE000000"
210 seteg 210,"EEBBEEBBEEBBEE000000"
211 seteg 211,"FFFFFFBBEEBBEE000000"
212 seteg 212,"000000FFFFFFFF000000"
213 seteg 213,"114411FFFFFFFF000000"
214 seteg 214,"55AA55FFFFFFFF000000"
215 seteg 215,"EEBBEEFFFFFFFF000000"
216 seteg 216,"FFFFFFFFFFFFFF000000"
217 seteg 217,"00000000000000441144"
218 seteg 218,"11441100000000441144"
219 seteg 219,"55AA5500000000441144"
220 seteg 220,"EEBBEE00000000441144"
221 seteg 221,"FFFFFF00000000441144"
222 seteg 222,"00000044114411441144"
223 seteg 223,"11441144114411441144"
224 seteg 224,"55AA5544114411441144"
225 seteg 225,"EEBBEE44114411441144"
226 seteg 226,"FFFFFF44114411441144"
227 seteg 227,"000000AA55AA55441144"
228 seteg 228,"114411AA55AA55441144"
229 seteg 229,"55AA55AA55AA55441144"
230 seteg 230,"EEBBEEAA55AA55441144"
231 seteg 231,"FFFFFFAA55AA55441144"
232 seteg 232,"000000BBEEBBEE441144"
233 seteg 233,"114411BBEEBBEE441144"
234 seteg 234,"55AA55BBEEBBEE441144"
235 seteg 235,"EEBBEEBBEEBBEE441144"
236 seteg 236,"FFFFFFBBEEBBEE441144"
237 seteg 237,"000000FFFFFFFF441144"
238 seteg 238,"114411FFFFFFFF441144"
239 seteg 239,"55AA55FFFFFFFF441144"
240 seteg 240,"EEBBEEFFFFFFFF441144"
241 seteg 241,"FFFFFFFFFFFFFF441144"
242 seteg 242,"00000000000000AA55AA"
243 seteg 243,"11441100000000AA55AA"
244 seteg 244,"55AA5500000000AA55AA"
245 seteg 245,"EEBBEE00000000AA55AA"
246 seteg 246,"FFFFFF00000000AA55AA"
247 seteg 247,"00000044114411AA55AA"
248 seteg 248,"11441144114411AA55AA"
249 seteg 249,"55AA5544114411AA55AA"
250 seteg 250,"EEBBEE44114411AA55AA"
251 seteg 251,"FFFFFF44114411AA55AA"
252 seteg 252,"000000AA55AA55AA55AA"
253 seteg 253,"114411AA55AA55AA55AA"
254 seteg 254,"55AA55AA55AA55AA55AA"

365 setet 128+65,"3F737373737F73737300"
366 setet 128+66,"7F7373737F7373737F00"
367 setet 128+67,"3F737070707070733F00"
368 setet 128+68,"7F777373737373777F00"
369 setet 128+69,"7F7070707F7070707F00"
370 setet 128+70,"7F7070707F7070707000"
371 setet 128+71,"3F737070707F73733F00"
372 setet 128+72,"737373737F7373737300"
373 setet 128+73,"7F1C1C1C1C1C1C1C7F00"

800 for x=0 to 999:y=0
801 poke 16384+(((y*40)+x)*2),192+int(rnd(1)*63)
802 poke 16384+(((y*40)+x)*2)+1,128+(int(rnd(1)*7)*16)+0+(int(rnd(1)*7))
803 display
804 next x

1010 for y=0 to 15:for x=0 to 15
1061 poke 16384+((((y+4)*40)+x)*2),y*16+x
1062 poke 16384+((((y+4)*40)+x)*2)+1,  0+(4*16)+0+(7)
1051 poke 16384+((((y+4)*40)+x+20)*2),y*16+x
1052 poke 16384+((((y+4)*40)+x+20)*2)+1,128+(3*16)+0+(4)
1153 display
1154 next x:next y

1200 goto 1200

run