10 ONERROR CHAIN"SLAT1" 20 MODE7 30 VDU23;8202;0;0;0; 40 PROCsc 50 DEC%=FALSE:I%=126:VDU23;8202;0;0;0;:DIMM$(3),E(3),N(3):V=110:PROCenvs:PROCriffs:M$="abccdefgdefghijkldefgdefgmnophijk":KEY=3:TEMP=2:*FX15 60 REPEAT:FORX=1TOLEN(M$):D=EVAL("FNpart"+MID$(M$,X,1)):E(0)=EVAL("&"+LEFT$(E$,1)):E(2)=EVAL("&"+MID$(E$,2,1)):E(3)=EVAL("&"+RIGHT$(E$,1)):IFRIGHT$(M$(3),1)="*" GOTO70 70 FORL=1TOLENM$(1):FORV=1TO3:P=4*ASC(MID$(M$(V),L,1)):IFV=1 AND P=260 ORP=252 P=P+48 80 B%=V OR &200:B%=B%OR-&1000*(P=128):P=P+(KEY*4)-91*(V=1):SOUNDB%,E(V),P,TEMP:NEXT:IFMID$(M$(1),L,1)="*" SOUND0,3,4,TEMP:GOTO110 90 IFMID$(M$(1),L,1)="#" SOUND0,E(0),6,TEMP:GOTO110 100 SOUND-&1000*(MID$(M$(1),L,1)=" "),E(0),3,TEMP 110 NEXT:NEXT:PROCend 120 DEFFNbass(B$):Z$=B$+" * "+B$+B$+" "+B$+" * "+B$+" "+B$+" * "+B$+B$+" "+B$+" * ":=Z$ 130 DEFFNbas2(D$):Z$=STRING$(16,D$+" "):GOTO140:Z$=D$+" "+D$+" "+"*"+STRING$(3,(STRING$(3," "+D$)+" *"))+" "+D$+" " 140 =Z$ 150 DEFFNrif2(C$):X$=STRING$(8,C$)+STRING$(8," "):=X$+X$ 160 DEFPROCriffs:r1$="M * MM M * F H * HH H * J ":r2$="K * KK K * H F * FF J * L ":r3$="]]]]]]]] [[[[[[[[ ^^^^^^^^ ^^^^^^^^ ":ENDPROC 170 DEFPROCenvs:ENVELOPE1,1,0,0,0,0,0,0,126,-4,0,-1,110,0:ENVELOPE2,1,0,0,0,0,0,0,32,-4,0,-2,126,63:ENVELOPE3,1,0,0,0,0,0,0,126,-7,0,-2,100,0:ENVELOPE4,1,0,0,0,0,0,0,126,-6,0,-2,126,0:ENVELOPE5,1,0,0,0,0,0,0,126,-7,0,-2,80,0 180 ENVELOPE6,6,0,0,0,0,0,0,126,-6,0,-4,110,0 190 ENVELOPE7,1,0,0,-1,10,5,20,126,-10,0,-1,126,0:ENVELOPE8,1,0,0,0,0,0,0,32,-16,0,-1,120,70:ENVELOPE9,6,0,0,0,0,0,0,126,-8,0,-1,110,0:ENVELOPE10,1,0,0,0,0,0,0,32,-8,0,-1,126,63:ENDPROC 200 DEFPROCkeys:CLS:PRINT" B D G I K N P S U W Z \ _ a A C E F H J L M O Q R T V X Y [ ] ^ ` b"''" Z \ _ a c f h k m o r t w y {Y [ ] ^ ` b d e g i j l n p q s u v x z":VDU28,0,24,39,6:ENDPROC 210 DEFFNpartdemo:E$="three hex envelope numbers":M$(1)="bass line":M$(2)="second line":M$(3)="third line":=0:REM Start FNparts here... 220 DEFFNparta:E$="400":M$(1)=r1$+r2$:=1 230 DEFFNpartb:E$="405":M$(1)=r1$+r2$:M$(3)=r3$:=2 240 DEFFNpartc:E$="485":M$(1)=r1$+r2$:M$(2)="M Q O O R R M ":M$(3)=r3$:=0 250 DEFFNpartd:E$="425":M$(1)=FNbass("A")+"J ":M$(2)=" Q T T T T Q V T ":M$(3)=FNrif2("]"):=0 260 DEFFNparte:E$="425":M$(1)=FNbass("K")+"H ":M$(2)=" R R R R R R T V VTR ":M$(3)=FNrif2("^"):=0 270 DEFFNpartf:E$="425":M$(1)=FNbass("F")+"J ":M$(2)=" R R R R V V Y VTR ":M$(3)=FNrif2("^"):=0 280 DEFFNpartg:E$="425":M$(1)=FNbass("A")+"A ":M$(2)=" T T T T T T V T V M ":M$(3)=FNrif2("]"):=0 290 DEFFNparth:E$="495":M$(1)=FNbass("A")+"A ":M$(2)="Q Q R T Q ":M$(3)=FNrif2("]"):=0 300 DEFFNparti:E$="495":M$(1)=FNbass("?")+"? ":M$(2)="R R R R T V ":M$(3)=FNrif2("^"):=0 310 DEFFNpartj:E$="495":M$(1)=FNbass("F")+"F ":M$(2)="V T R T T V V T V ":M$(3)=FNrif2("^"):=0 320 DEFFNpartk:E$="495":M$(1)=FNbass("A")+"A ":M$(2)="M ":M$(3)=FNrif2("]"):=0 330 DEFFNpartl:E$="405":M$(1)=FNbass("A")+"A "+FNbass("?")+"? "+FNbass("F")+"F "+FNbass("A")+"A ":M$(3)=FNrif2("]")+FNrif2("^")+FNrif2("^")+FNrif2("]"):=0 340 DEFFNpartm:E$="195":M$(1)=FNbas2("A"):M$(2)="Q Q R T Q ":M$(3)=FNrif2("]"):=0 350 DEFFNpartn:E$="195":M$(1)=FNbas2("?"):M$(2)="R R R R T V ":M$(3)=FNrif2("^"):=0 360 DEFFNparto:E$="195":M$(1)=FNbas2("F"):M$(2)="V T R T T V V T V ":M$(3)=FNrif2("^"):=0 370 DEFFNpartp:E$="195":M$(1)=FNbas2("A"):M$(2)="M ":M$(3)=FNrif2("]"):=0 380 DEFFNpartq:E$="1A0":M$(1)="Q Q Q Q Q Q Q Q R R R R R R R R ":M$(2)="V V T V V T VM ":M$(3)="J J J H E J J M ":=0 390 DEFPROCsc 400 PRINT"–p”pppppppppppppppppppppppppppppppp–p" 410 VDU132,157,141:PRINT"slatter†byƒa.s.shakoor…sept'91 ";CHR$(156) 420 VDU132,157,141:PRINT"slatter†byƒa.s.shakoor…sept'91 ";CHR$(156) 430 PRINT"–`”````````````````````````````````–`" 440 PRINT"†THE OBJECTIVE OF THE GAME IS TO "'"†GUIDE THE SLATES,FALLING FROM THE TOP"'"†OF THE SCREEN,NEXT TO EACH OTHER SO"'"ƒ3 SLATES OF THE SAME COLOUR†ARE"'"†NEXT TO EACH OTHER.VERY SIMILAR TO "'"†TETRIS." 450 PRINT"BUT IF YOUR SLATES REACH THE RED BAR"'"AT THE TOP THEN THE GAME HAS "'"ENDED.THE INSTRUCTIONS ARE ON THE "'"PLAYING SCREEN." 455 PRINT"‚THIS MAY SOUND EASY...SO I'VE ADDED "'"‚A TIMER..YOU HAVE 4 MINUTES DO GAIN "'"‚THE HIGHEST SCORE POSSIBLE.MY SCORE "'"‚ISƒ8700." 460 PRINT"…IT IS POSSIBLE TO SQUEEZE LARGE SLATES"'"…INTO SMALLER GAPS AS THEY FALL..THIS"'"…CAN BE VERY HELPFUL." 470 PRINT"”,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," 480 VDU141:PRINT"†PRESS…ESCAPE†TO LOAD MAIN PROGRAM":VDU141:PRINT"†PRESS…ESCAPE†TO LOAD MAIN PROGRAM" 490 ENDPROC