100 PROGRAM "COM.6"
  101 SPOKE 255,49104,30:SPOKE 255,49103,3:SPOKE 255,48818,0
  110 TEXT 
  120 PRINT AT13,5:"T-BOY'S ANIMATION REAL TIME!"
  130 PRINT AT15,8:"Written by:K.System'S"
  140 PRINT AT20,14:"1991 05 27"
  150 PRINT AT23,6:"PRESS SPACE TO LOAD NEXT PART!"
  160 SET VIDEOX11
  170 SET VIDEOY11
  180 SET VIDEOCOLOR1
  190 SET VIDEOMODE5
  200 FOR I=1TO4
  210   OPEN #I:"VIDEO:"
  220 NEXT 
  230 REM 351*=X 395*=Y
  240 PLOT #1:175,0;0,120;175,240;350,120;175,0,
  250 PLOT #1:175,240;175,380;0,260;0,120,350,120;350,260;175,380,
  260 PLOT #1:0,0,PAINT,350,0,PAINT,0,390,PAINT
  270 SET #1:INK2:PLOT #1:175,10,PAINT:SET #1:INK3:PLOT #1:300,250,PAINT
  280 PLOT #2:175,0;90,120;260,240;350,120;175,0,90,120;0,260;175,380;260,240,
  290 PLOT #2:0,0,PAINT,350,0,PAINT,0,390,PAINT:SET #2:INK2:PLOT #2:175,10,PAINT
  300 PLOT #3:175,380;0,260;175,140;350,260;175,380,
  310 PLOT #3:175,140;175,0;0,120;0,260,350,260;350,120;175,0,
  320 PLOT #3:0,0,PAINT,350,0,PAINT,0,390,PAINT:SET #3:INK2:PLOT #3:200,50,PAINT:SET #3:INK3:PLOT #3:100,130,PAINT
  330 PLOT #4:175,380;90,260;260,140;350,260;175,380,90,260;0,120;175,0;260,140,
  340 PLOT #4:0,0,PAINT,0,390,PAINT,350,0,PAINT:SET #4:INK3:PLOT #4:100,120,PAINT
  350 FOR I=100TO-50STEP-10
  360   POKE 1024,(I+ABS(I))/2
  370   SET #3:PALETTE255,0,219,GREEN
  380   DISPLAY #3:AT1FROM1TO11
  390   CALL W
  400   SET #4:PALETTE255,0,0,GREEN
  410   DISPLAY #4:AT1FROM1TO11
  420   CALL W
  430   SET #1:PALETTEBLUE,0,GREEN,255
  440   DISPLAY #1:AT1FROM1TO11
  450   CALL W
  460   SET #2:PALETTEBLUE,0,GREEN,0
  470   DISPLAY #2:AT1FROM1TO11
  480   CALL W
  490   SET #3:PALETTEBLUE,0,GREEN,RED
  500   DISPLAY #3:AT1FROM1TO11
  510   CALL W
  520   SET #4:PALETTEBLUE,0,0,RED
  530   DISPLAY #4:AT1FROM1TO11
  540   CALL W
  550   SET #1:PALETTEMAGENTA,0,RED,BLUE
  560   DISPLAY #1:AT1FROM1TO11
  570   CALL W
  580   SET #2:PALETTEMAGENTA,0,RED,0
  590   DISPLAY #2:AT1FROM1TO11
  600   CALL W
  610   SET #3:PALETTEMAGENTA,0,RED,219
  620   DISPLAY #3:AT1FROM1TO11
  630   CALL W
  640   SET #4:PALETTEMAGENTA,0,0,219
  650   DISPLAY #4:AT1FROM1TO11
  660   CALL W
  670   SET #1:PALETTE255,0,219,MAGENTA
  680   DISPLAY #1:AT1FROM1TO11
  690   CALL W
  700   SET #2:PALETTE255,0,219,0
  710   DISPLAY #2:AT1FROM1TO11
  720   CALL W
  730 NEXT 
  740 DEF W
  750   FOR I=1TOPEEK(1024)
  760     IF INKEY$=" "THENRUN "COM.7"
  770   NEXT 
  775   IF INKEY$=" "THENRUN "COM.7"
  780 END DEF