AMSTRAD cpc 6128 User Instruction page 484

760 '
770 pwpe=(p1wp=p2wp):IF p1sa AND NOT(p2sa) AND pwpe THE
N p1sc=p1sc+1:S0UND 132,120,10,0,1,0:PRINT#1,a$(p1s
c);:IF p1sc=9 THEN 860
780 IF p2sa AND NOT(p1sa) AND pwpe THEN p2sc=p2sc+1:S0U
ND 132,100,10,0,1,0:PRINT#2,a$(p2sc);:IF p2sc=9 THE
N 860
790 IF p1sa THEN SOUND 132,40,70,0,1,1
800 IF p2sa THEN SOUND 132,56,70,0,1,1
810 p1sa=0
820 p2sa=0
830 RETURN
840 '
850 '
860 PEN 6
870 LOCATE 6,10:PRINT"GAME OVER"
880 IF p1sc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:1
NK 1,0
890 SOUND 129,1000,0,12,3:S0UND 130,900,0,12,3
900 W H IL E INK E Y $ < >" " : WEN D
910 t!=TIME:WHILE t!+2000>TIME:WEND
920 WHILE INKEY$="":WEND
930 CLS
940 finished=-1
950 RETURN
960 '
970 '
980 a$(0)="111101101101111"
990 a$(1)="001001001001001"
1000 a$(2)="111001111100111
1010 a$(3)="111001111001111
1020 a$(4)="100100101111001
1030 a$(5)="111100111001111
1040 a$(6)="111100111101111
1050 a$(7)="111001001010010
1060 a$(8)="111101111101111
1070 a$(9)="111101111001001"
1080 FOR n=0 TO 9
1090 howLong=LEN(a$(n»
1100 FOR n2=1 TO howLong
1110 IF MID$(a$(n),n2,1)="1"THEN MID$(a$(n),n2,1)=CHR$(
143)ELSE MID$(a$(n),n2,1)=CHR$(32)
1120 NEXT n2,n
1130 '
continued on the next page
Some Programs for you .... Appendix 3 Page 11