C64 Software  <  SCA: The C64 Software Collection / M3 DIXIE

  Run
100 PRINT ""
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
140 POKE 54296,15
150 POKE V1+1,9:POKE V2+2,0
160 POKE V2+1,36:POKE V2+2,36
170 POKE V3+1,18:POKE V3+2,170
180 T=TI
200 POKE V1,16:POKE V2,32:POKE V3,16
210 READ S:IF S=0 GOTO 290
220 READ X1,Y1,X2,Y2,X3,Y3
230 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,17
240 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
250 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,17
260 T=T+S
270 IF T>TI GOTO 270
280 GOTO 200
290 FORJ=L1 TO 54296:POKE J,0:NEXT J
300 DATA 10,51,97,0,0,0,0
310 DATA 10,43,52,0,0,0,0
320 DATA 20,34,75,21,154,8,147
330 DATA 20,34,75,25,177,0,0
340 DATA 10,34,75,17,37,6,108
350 DATA 10,38,126,0,0,0,0
360 DATA 10,43,52,25,177,0,0
370 DATA 10,45,198,0,0,0,0
400 DATA 20,51,97,21,154,8,147
410 DATA 20,51,97,25,177,0,0
420 DATA 20,51,97,17,37,9,159
430 DATA 20,43,52,25,177,10,205
440 DATA 20,57,172,22,227,11,114
450 DATA 20,57,172,34,75,0,0
460 DATA 20,57,172,28,214,8,147
470 DATA 10,0,0,34,75,0,0
480 DATA 10,51,97,0,0,0,0
500 DATA 20,57,172,22,227,11,114
510 DATA 10,0,0,34,75,0,0
520 DATA 10,51,97,0,0,0,0
530 DATA 10,57,172,28,214,10,205
540 DATA 10,64,188,0,0,0,0
550 DATA 10,68,149,34,75,9,159
560 DATA 10,76,252,0,0,0,0
600 DATA 20,86,105,21,154,8,147
610 DATA 20,0,0,25,177,0,0
620 DATA 20,0,0,17,37,6,108
630 DATA 10,68,149,25,177,0,0
640 DATA 10,51,97,0,0,0,0
650 DATA 20,68,149,21,154,8,147
660 DATA 20,0,0,25,177,0,0
670 DATA 20,0,0,17,37,8,23
680 DATA 10,51,97,25,177,7,53
690 DATA 10,43,52,0,0,0,0
700 DATA 20,51,97,22,227,6,108
710 DATA 20,0,0,25,177,0,0
720 DATA 20,0,0,19,63,9,159
730 DATA 10,38,126,25,177,0,0
740 DATA 10,43,100,0,0,0,0
750 DATA 20,34,75,21,154,8,147
760 DATA 20,0,0,25,177,6,108
770 DATA 20,0,0,21,154,4,73
780 DATA 20,0,0,0,0,0,0
790 DATA 0
READY.