P702 CEEFAX 702  Wed 29 Dec  13:19/28
30204109NFSN0x   SNAKES   30204109NFSN0x
5y T(POJZT (2,Y1|=40 TXPOINT (2,Y2|741 F
OR I=Q TO 20}$42   IF SYS(5) THEN GET A$
                                        
 IF A$="O" THEN V5=1 : H2=0|n45   IF A$=
"A" (HEN V1=-1 : H1=0|,46   IF A$="Q" TH
EN V5=1 : H1=0|p47   IF A$="N" THEN j2=0
 : H2=-1|=48   IF A$="M" THEN V2=0 : H2=
1|p4:   IF A$="Z" THEN V5=0 : HQ=-1|*50 
  IF A$="X" THEN V1=0 : H1=1|r51 NEXT I 
|j5R GOTO 31|—53 REM 53-79 SCORING|b54 R
EZ ———————————————|*55 S2=S2+1|*56 IF S2
=5 THEN W=2|b57 GOTO 61|h58 STOP |o59 S1
=S1+1|+60 IF S1=5 THEN W=1|{61 FOR I=0 T
O@1000 : NEXT J |&62 ; CHR$(12)|463 ; GG
RN NWBG||64 ; GGRN NWBG DBLE BLU "PLAYER
 Q> ";RED S1;|l65 ; DBLE BLU " PLAYER 2>
 ";RED S2|866 FOR I=1 TO 19 : ; GGRN NWB
G : NEXT I |&67 ; |d68 IF SQ=5 OR S2=5 T
HEN 73|—69 ; CUR(5,0) GGRN NWBG MAG "PRE
SS SPACEBAR TO CONTINUE" GUN CUR(51,1);|
:70 IF SYS(5%) THEN GET A$ ELSE 70| |   
                                        
                                        
                                        
   P702 CEEFA( 702  Wed 29 Dec  13:04/43
30204109NFSN0x   SNAKES   30204109NFSN0x
9s ; GGRN NWBG CU5(11TQ8) MAG "X FOR REG
HT"|'94 ; |d95 ; GGRN VWBG MAG "PLAYER T
WO USES - O FOR UP"}*9v ; GGRN NWBG CUR(
14,20) MAG "K FOR DOWN"|397 ; GGRN NWBG 
CUR(15,20) MAG "N FOR LEFT"|+98 ; GGRN N
WBG CUR(16,20) MAG "M FOR RIGHT"|:9 ; |
i100 ; GGRN NWBG R D "PRESS SPACEBAR TO 
C NTJNUE^" o 01 ; GUN CU (22,1);| 102 IF
 SYS(5 ) THEN GET A$ ELSE 102|x103 IF A$
<>" " TH N 102|$104 GOTO  |?105 R M 105 
                                        
  9) R D  LS  "CHE RJ !"|  07 ; CUR( 1,0
);|d108 PR NT CHR$(12)|7109 GOTO 65000|*
|                                       
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
                                        
   P702 CEEFAX 702  Wed 29 Dec  Q3:25/00