10MODE129 20VDU23;8202;0;0;0; 30VDU19,1,12,0,0,0 40VDU19,0,4,0,0,0 50VDU23,65,255,255,255,255,255,255,25 5,255 60VDU23,66,0,255,255,255,255,255,255, 255 70VDU23,67,254,254,254,254,254,254,25 4,254 80VDU23,68,0,254,254,254,254,254,254, 254 90CLS 100COLOUR2 110PRINTTAB(1,6)"BDBDDD DDBBDD BDBBBD DBDBBD DD BBBDBD" 120PRINTTAB(1,7)"CBCBAD BCDCBD DADDBD CDADBD AD DDBDAC" 130PRINTTAB(1,8)" DD CD BC BC AC DC BC " 140PRINTTAB(1,9)" CC BC DC DC BD CD CD" 150PRINTTAB(1,10)" CC DCBD AD CBBDCD AD BCBBDD" 160PRINTTAB(1,11)" CC CBCD DC ADDCBC DD DCCBDC" 170PRINTTAB(1,12)" BD CD BD ADCD CC CC" 180PRINTTAB(1,13)" AC CC DC CBDD CD CC" 190PRINTTAB(1,14)" BD DADBDD CC BD CC CC DBDBDD" 200PRINTTAB(1,15)" AC ABDACC AD BC CC BC BCDACC" 210*FX20 220VDU23,82,62,102,102,62,54,102,102,0 230COLOUR1 240PRINTTAB(8,20)"Press SPACE To Conti nue" 250COLOUR3 260VDU28,0,30,39,25 270a%=16 280RESTORE470 290READ A$ 300PRINTTAB(39,0)A$ 310t=0 320t=t+1 330IFt>117 THEN370 340VDU23,7,0,1,0,0,0,0,0,0 350READ A$ 360PRINTTAB(39,0)A$ 370IFa%=48 THENa%=32:GOTO400 380IFa%=32 THENa%=16:GOTO400 390IFa%=16 THENa%=48:GOTO400 400IFa%=48 THEN PROCchange 410OSCLI"*FX202,"+STR$(a%) 420*FX118 430TIME=0 440IF?&00EC=226 OR ?&00ED=226 THEN 550 450IF TIME>15THEN GOTO460 ELSE GOTO440 460IFt=150THEN GOTO280 ELSE GOTO320 470DATA , , , , , , , , , , , , , , 480DATA T,E,T,R,I,S, ,w,r,i,t,t,e,n, , f,o,r, ,t,h,e, ,C,o,n,c,a,s,o,f,t, ,P,r, o,d,u,c,t,i,o,n, ,b,y, ,C,a,r,l,o, ,C,o, n,c,a,r,i,., , , , , , , , , ,(,C,),1,9, 9,1, ,C,o,n,c,a,r,i, ,P,r,o,d,u,c,t,i,o, n, , , , , , , , 490DEFPROCchange 500col%=col%+1 510IFcol%=4THENcol%=5 520IFcol%=16THENcol%=0 530VDU19,2,col%,0,0,0 540ENDPROC 550VDU22,129,23;8202;0;0;0;19,1,1,0,0, 0:COLOUR1:PRINT'''" Loading..." 560*LOAD TEMPMAC 900 570*LOAD TETROM 4000 580*SRWRITE 4000 8000 8000 4 590*LOAD TETRTAB 4000 600*SRWRITE 4000 8000 8000 5 610*LOAD ROM6 4000 620*SRWRITE 4000 8000 8000 6 630CHAIN"TETRBAS"