10*LOAD TETRMAX E00 20VDU22,129 30VDU23;8202;0;0;0; 40VDU19,0,0,0,0,0 50VDU19,1,1,0,0,0 60VDU19,2,14,0,0,0 70VDU19,3,7,0,0,0 80VDU23,65,126,126,24,24,24,24,24,24 90VDU23,66,126,126,96,96,96,96,124,12 4 100VDU23,67,62,62,102,102,102,102,62,6 2 110VDU23,68,126,126,24,24,24,24,24,24 120VDU23,69,60,60,102,102,96,96,60,60, 0,0 130VDU23,70,24,24,24,24,24,24,0,0 140VDU23,71,96,96,96,96,126,126,0,0 150VDU23,72,62,62,54,54,102,102,0,0 160VDU23,73,24,24,24,24,126,126,0,0 170VDU23,74,6,6,102,102,60,60,0,0 180*FX194,25 190*FX195,25 200COLOUR129 210COLOUR2 220PRINTTAB(16,2)" ABACDE " 230PRINTTAB(16,3)" FGFHIJ " 240*FX20 250VDU23,82,62,102,102,62,54,102,102,0 260COLOUR128 270COLOUR3 280PRINT'''TAB(15)"The Keys:" 290PRINT''TAB(7)"X - Right Z - L eft" 300PRINT'TAB(5)"RET - Rotate SHFT - Down" 310PRINT'TAB(7)"P - Pause R - Re start" 320PRINT'TAB(5)"ESC - End Game BRK - Exit" 330COLOUR2 340PRINT'''TAB(10)"Press SPACE To Play " 350COLOUR3 360PRINT''TAB(3)"(C)1991 Concasoft Pro duction Inc." 370COLOUR129 380PRINTTAB(0,28)" " 390VDU28,1,28,39,28 400CLS 410a%=16 420RESTORE590 430READ A$ 440PRINTTAB(37,0)A$; 450t=0 460t=t+1 470VDU23,7,0,1,0,0,0,0,0,0 480READ A$ 490PRINTTAB(37,0)A$; 500IFa%=48 THENa%=32:GOTO530 510IFa%=32 THENa%=16:GOTO530 520IFa%=16 THENa%=48:GOTO530 530OSCLI"*FX202,"+STR$(a%) 540*FX118 550TIME=0 560IF?&00EC=226 OR ?&00ED=226 THEN GOT O610 570IF TIME>15THEN GOTO580 ELSE GOTO560 580IFt=153THEN GOTO1350 ELSE GOTO460 590DATA, , , , , ,P,u,t, ,p,i,e,c,e,s, ,i,n,t,o, ,t,h,e, ,p,i,t, ,t,o, ,f,i,l, l, ,a,s, ,l,i,n,e,s, ,a,s, ,p,o,s,s,i,b, l,e,., ,G,a,m,e, ,e,n,d,s, ,w,h,e,n, ,p, u,z,z,l,e, ,r,e,a,c,h,e,s, ,t,o,p, ,o,f, ,t,h,e, ,p,i,t,., ,G,o,o,d, ,l,u,c,k,! 600DATA , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , 610@%=2314 620*FX202,32 630*FX18 640VDU22,129 650*FX194,1 660*FX195,1 670VDU23;8202;0;0;0; 680VDU23,56,3,3,3,3,3,3,3,3 690VDU23,57,192,192,192,192,192,192,19 2,192 700VDU23,53,3,99,115,59,31,15,7,3 710VDU23,54,192,198,206,220,248,240,22 4,192 720VDU19,0,0,0,0,0 730VDU19,1,1,0,0,0 740VDU19,2,2,0,0,0 750VDU19,3,3,0,0,0 760CLS 770COLOUR3 780PRINT''TAB(10)"SELECT START SCREEN" 790VDU23,65,0,254,254,254,254,254,254, 254 800FOR Y=8TO26 810COLOUR1 820PRINTTAB(0,Y)"A" 830PRINTTAB(13,Y)"A" 840PRINTTAB(26,Y)"A" 850PRINTTAB(39,Y)"A" 860NEXT Y 870VDU23,65,60,102,102,126,102,102,102 ,0 880PRINTTAB(4,9)">EASY<":PRINTTAB(16,9 )">MEDIUM<":PRINTTAB(30,9)">HARD<" 890PRINTTAB(3,24)"NO BONUS":PRINTTAB(1 4,24)"BONUS":PRINTTAB(27,24)"BONUS" 900COLOUR3 910PRINTTAB(3,16)"SCREEN 1":PRINTTAB(1 6,16)"SCREEN 4":PRINTTAB(29,16)"SCREEN 7 " 920PRINTTAB(21,24)"10000":PRINTTAB(34, 24)"20000" 930COLOUR2 940PRINTTAB(7,28)"Use X-Y to move the cursor" 950PRINTTAB(11,30)"then press RETURN" 960PRINTTAB(6,6)"89":PRINTTAB(6,7)"56" 970a=1 980*FX21,0 990t=GET 1000IFt=90 OR t=88 OR t=13 THEN1010 ELS E990 1010IFt=90 THENa=a-1 1020IFt=88 THENa=a+1 1030IFt=13 THEN GOTO1130 1040IFa=0THEN a=1 1050IFa=4THEN a=3 1060ON a GOTO1070,1090,1110 1070PRINTTAB(0,6)" 89 ":PRINTTAB(0,7)" 56 " 1080GOTO990 1090PRINTTAB(0,6)" 89 ":PRINTTAB(0,7)" 56 " 1100GOTO990 1110PRINTTAB(0,6)" 89 ":PRINTTAB(0,7)" 56 " 1120GOTO990 1130PRINTTAB(0,6)STRING$(39," "):PRINTT AB(0,7)STRING$(39," "):PRINTTAB(0,28)STR ING$(39," "):PRINTTAB(0,30)STRING$(39," ") 1140*FX20 1150VDU23,82,62,102,102,62,54,102,102,0 1160VDU19,2,15,0,0,0 1170ON a GOTO1180,1210,1240 1180PRINTTAB(4,9)">EASY<":PRINTTAB(3,16 )"SCREEN 1":PRINTTAB(3,24)"NO BONUS" 1190screen%=1:score%=0 1200GOTO1260 1210PRINTTAB(16,9)">MEDIUM<":PRINTTAB(1 6,16)"SCREEN 4":PRINTTAB(14,24)"BONUS 1 0000" 1220screen%=4:score%=10000 1230GOTO1260 1240PRINTTAB(30,9)">HARD<":PRINTTAB(29, 16)"SCREEN 7":PRINTTAB(27,24)"BONUS 200 00" 1250screen%=7:score%=20000 1260?&220=&35 1270?&221=&9 1280?&2A5=130 1290*FX22 1300*FX14,5 1310CALL &935 1320VDU22,129 1321INPUT"Enter 0 for keyboard, 1 for j oystick",?&92B 1322?&92C=?&92B EOR 1 1323?&91E=20 1324?&91F=?&91E 1325?&E37=22 1326?&E38=10 1330CALL &E39 1340GOTO20 1350VDU22,129 1360VDU19,0,4,0,0,0 1370VDU19,1,12,0,0,0 1380VDU23,65,255,255,255,255,255,255,25 5,255 1390VDU23,66,0,255,255,255,255,255,255, 255 1400VDU23,67,254,254,254,254,254,254,25 4,254 1410VDU23,68,0,254,254,254,254,254,254, 254 1420CLS 1430COLOUR2 1440PRINTTAB(1,6)"BDBDDD DDBBDD BDBBBD DBDBBD DD BBBDBD" 1450PRINTTAB(1,7)"CBCBAD BCDCBD DADDBD CDADBD AD DDBDAC" 1460PRINTTAB(1,8)" DD CD BC BC AC DC BC " 1470PRINTTAB(1,9)" CC BC DC DC BD CD CD" 1480PRINTTAB(1,10)" CC DCBD AD CBBDCD AD BCBBDD" 1490PRINTTAB(1,11)" CC CBCD DC ADDCBC DD DCCBDC" 1500PRINTTAB(1,12)" BD CD BD ADCD CC CC" 1510PRINTTAB(1,13)" AC CC DC CBDD CD CC" 1520PRINTTAB(1,14)" BD DADBDD CC BD CC CC DBDBDD" 1530PRINTTAB(1,15)" AC ABDACC AD BC CC BC BCDACC" 1540*FX20 1550VDU23,82,62,102,102,62,54,102,102,0 1560COLOUR1 1570PRINTTAB(10,20)"Press SPACE To Play " 1580COLOUR3 1590VDU28,0,30,39,25 1600VDU23;8202;0;0;0; 1610a%=16 1620RESTORE1810 1630READ A$ 1640PRINTTAB(39,0)A$ 1650t=0 1660t=t+1 1670IFt>107 THEN1710 1680VDU23,7,0,1,0,0,0,0,0,0 1690READ A$ 1700PRINTTAB(39,0)A$ 1710IFa%=48 THENa%=32:GOTO1740 1720IFa%=32 THENa%=16:GOTO1740 1730IFa%=16 THENa%=48:GOTO1740 1740IFa%=48 THEN PROCchange 1750OSCLI"*FX202,"+STR$(a%) 1760*FX118 1770TIME=0 1780IF?&00EC=226 OR ?&00ED=226 THEN610 1790IF TIME>15THEN GOTO1800 ELSE GOTO17 80 1800IFt=150THEN GOTO20 ELSE GOTO1660 1810DATA , , , , ,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, , , , , , , , 1820DEFPROCchange 1830col%=col%+1 1840IFcol%=4THENcol%=5 1850IFcol%=16THENcol%=0 1860VDU19,2,col%,0,0,0 1870ENDPROC