%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:495
File Name:SNAKE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl V
\Locate 8,1,"SNAKE"
\Locate 1,7,"PRESS EXE TO CONTINUE"
\Locate 9,3,"BY"
\Locate 3,4,"THE MADWEB TEAM"
\Locate 2,5,"WWW.MADWEB.4T.COM"
\Do
\LpWhile \Getkey\<>31
5\->L
0\->P
\Lbl F
\Cls
37\->C
60\->B
30\->A
\ViewWindow 0,100,1,0,100,1
\Vertical 0
\Vertical 100
\Horizontal 84
\Horizontal 0
\Horizontal 100
\Text 5,3,"SNAKE LIVES    POINTS  "
\Text 5,52,L
\GotoC
\Lbl A
\Getkey\->D
D=0\=>\GotoS
D=37\ And C\<>28\=>37\->C
D=38\ And C\<>27\=>38\->C
D=27\ And C\<>38\=>27\->C
D=28\ And C\<>37\=>28\->C
\Lbl S
C=37\=>\Isz A
C=27\=>\Isz B
C=28\=>\Dsz A
C=38\=>\Dsz B
\PxlTest A,B
\Ans=1\=>\GotoB
\PxlOn A,B
\GotoA
\Lbl C
\Do
\Int ((118*\Ran#)+2)\->H
\Int ((48*\Ran#)+12)\->G
\PxlTest G,H
\LpWhile \Ans=1
\Green \PxlOn G,H
\Text 5,94,P
\GotoA
\Lbl B
A=G\ And B=H\=>\Isz P
A=G\ And B=H\=>\GotoC
\Dsz L
L>0\=>\Text 5,52,L
L>0\=>\GotoF
\GotoV
\Cls

%End