%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1216

File Name:SNAKE

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

'##################'

'OPTIONEN:'

'LAENGE':01\->H

'PUNKTE':101\->P

'Y-KOORDINATE':036\->B

'X-KOORDINATE':063\->C

'PUNKTE^':80\->J

'SPRUNG':1\->K

\File6:{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}\->\List 1

A=4421586\=>\Prog "LIST"

\List 1\->\List 2:B\->\List 1[1]:C\->\List 2[2]:\Dim \List 1\->I:'#################'

\Lbl 0

\ClrText

\ViewWindow 1,127,1,63,1,1

\Locate 1,1,"========SNAKE========"

\Locate 1,2,"SYSTEMANFORDERUNGEN:"

\Locate 1,3,"4296 B DRAW MEMORY"

\Locate 2,4,\Dim \List 1*10*2

\Locate 6,4,"B LIST FILE (6)"

\Locate 1,5,"  80 B ALPHA MEMORY"

\Locate 1,7,"(C) KAY STROBACH"

\Do

\Getkey\->\r

\LpWhile \r\<>31

\Lbl 1

\Cls

\Horizontal 1

\Horizontal 63

\Vertical 1

\Vertical 127

\Text 3,3,"SNAKE"

\Horizontal 9

\Text 3,30,"LEVEL:"

\Text 3,57,H

\Text 3,80,"PUNKTE:"

01\->D:'LISTENZELLE'

\Lbl 2

\Do

\Int (11+50\Ran#)\->\List 1[I]

\Int (3+121\Ran#)\->\List 2[I]

\PxlTest \List 1[I],\List 2[I]

\LpWhile \Ans=1

\PxlOn \List 1[I],\List 2[I]

'STARTKEY':\Do:\Getkey\->\r:\LpWhile \r\<>27\ And \r\<>28\ And \r\<>37\ And \r\<>38

\Lbl 3

P-1\->P

\If \Frac (P/10)=0

\Then P=\10^x3-1\ Or P=\10^x2-1\ Or P=9\=>\Text 3,114,"   ":\Text 3,114,P

\IfEnd

P=0\=>\Goto4

D+1\->D

D\>=H\=>1\->D

\List 1[D]*\List 2[D]\=>\PxlOff \List 1[D],\List 2[D]

B\->\List 1[D]

C\->\List 2[D]

\r\->\theta:\Getkey\->\r:\r\<>27\=>\r\<>28\=>\r\<>37\=>\r\<>38\=>\r=0\=>\theta\->\r

\r=37\=>B+K\->B

\r=28\=>B-K\->B

\r=38\=>C-K\->C

\r=27\=>C+K\->C

\PxlTest B,C

\Ans\->F

\PxlOn B,C

F=0\=>\Goto3

B=9\=>62\->B

B=63\=>10\->B

C=1\=>126\->C

C=127\=>2\->C

B=10\ Or B=62\ Or C=2\ Or C=126\=>\Goto3

\If B=\List 1[I]\ And C=\List 2[I]

\Then H+1\->H:I=H\=>\Goto4:\Text 3,57,H

P+J\->P:\Goto2:\IfEnd

\Lbl 4

\ClrText

P\<>0\=>I\<>H\=>"SIE SIND ANGESTOSSEN"

P=0\=>"TIME OUT"

\If I=H:\Then "SIE HABEN    LEVEL":\Locate 11,1,I-1:"DURCHGESTANDEN":"UND     PUNKTE":\Locate 5,3,P:"ERSPIELT":\IfEnd

\ClrList



%End