1 BORDER 0: PAPER 0: INK 7: CLS : POKE 23658,8: POKE 23609,80
   3 REM \#020\#001**** ZX SNAKE ****\#020\#000
  10 CLS : PRINT AT 21,0;"\* 1984 YT2FSG Goran Stankovic"
  50 INPUT "Brzina (0-50)= ";sp 
 100 GO SUB 3000
 200 DIM d(34,24): LET a=600 
 205 PAPER 7: INK 1: BRIGHT 0: BORDER 0: CLS 
 207 PRINT #1;"O=Levo  P=Desno  Q=Gore  A=Dole"
 210 LET n=0: LET p=0 
 215 LET b1=1: LET b2=b1
 220 LET h=INT (RND *26)+1  
 230 LET v=INT (RND *18)+1 
 240 PRINT AT v-1,h-1;CHR$ 144
 250 FOR i=0 TO sp: LET a$=INKEY$ : NEXT i
 252 IF a$="Q" THEN LET a=500
 254 IF a$="P" THEN LET a=600
 255 IF a$="O" THEN LET a=700 
 258 IF a$="A" THEN LET a=800
 270 GO TO a
 400 PRINT #1;" ": PRINT #1;"  Bodova = ";p
 410 PRINT #1;"  Jos jednom? (D/N)       "
 420 IF INKEY$="D" THEN GO TO 200
 430 IF INKEY$="N" THEN STOP 
 440 GO TO 420
 450 STOP 
 500 LET d(h,v)=1: PRINT AT v-1,h-1;CHR$ 144
 510 LET v=v-1: IF v<1 THEN GO TO 400
 520 GO SUB 1000: IF c=1 THEN GO TO 400
 530 PRINT AT v-1,h-1;CHR$ 147
 540 GO TO 250
 600 LET d(h,v)=1: PRINT AT v-1,h-1;CHR$ 144
 610 LET h=h+1: IF h>32 THEN GO TO 400
 620 GO SUB 1000 : IF c=1 THEN GO TO 400
 630 PRINT AT v-1,h-1;CHR$ 145
 640 GO TO 250
 700 LET d(h,v)=1: PRINT AT v-1,h-1;CHR$ 144 
 710 LET h=h-1: IF h<1 THEN GO TO 400
 720 GO SUB 1000 : IF c=1 THEN GO TO 400
 730 PRINT AT v-1,h-1;CHR$ 148
 740 GO TO 250
 800 LET d(h,v)=1: PRINT AT v-1,h-1;CHR$ 144
 810 LET v=v+1: IF v>22 THEN GO TO 400
 820 GO SUB 1000: IF c=1 THEN GO TO 400
 830 PRINT AT v-1,h-1;CHR$ 146
 840 GO TO 250                        
1000 LET c=d(h,v)
1005 IF c=1 THEN GO TO 1190            
1020 IF c=2 THEN LET p=p+10          
1030 IF c=3 THEN LET p=p+20          
1040 IF c=4 THEN LET p=p+40          
1070 LET n=n+1
1100 LET x=INT (RND *26)+1
1110 LET y=INT (RND *18)+1
1120 IF n<3 THEN LET d(x,y)=2: PRINT INK 3;AT y-1,x-1;CHR$ 144 
1130 IF b1<0 THEN GO TO 1150
1140 LET r=INT (RND *20)+n: LET b1=-b1 
1150 IF r=n THEN LET d(x,y)=3: PRINT INK 2;AT y-1,x-1;CHR$ 144: LET b1=-b1: GO TO 1190
1160 IF b2<0 THEN GO TO 1180
1170 LET rr=INT (RND *40)+n: LET b2=-b2 
1180 IF rr=n THEN LET d(x,y)=4: PRINT INK 4;AT y-1,x-1;CHR$ 144: LET b2=-b2: GO TO 1190
1190 RETURN 
3000 RESTORE 3030: FOR i=USR "A" TO USR "F"-1 
3010 READ s: POKE i,s
3020 NEXT i
3030 DATA 60,126,255,255,255,255,126,60 
3040 DATA 60,126,240,192,192,240,126,60
3050 DATA 60,126,231,231,195,195,66,0 
3060 DATA 0,66,195,195,231,231,126,60 
3070 DATA 60,126,15,3,3,15,126,60
3090 RETURN