%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:7071
File Name:SnArF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl S
3\->\theta
0\->N
0\->J
\ClrText
" "
" "
" "
" "
" "
" "
" "
\Locate 11,7,"a"
\For 1\->I \To 8
\Locate I,7," sN"
\Locate 20-I,7,"Rf "
\Getkey=31\=>\GotoA
\Next 
\For 1\->I \To 3
\For 1\->O \To 30
\Next 
" "
\Next 
\For 1\->I \To 100
\Next 
\Locate 9,4,"\(-)\(-)\(-)\(-)\(-)"
\Locate 9,4,"====="
\Locate 4,4,"An    Production"
\For 1\->I \To 4
\Locate 7,I,"A"
\Locate 8,8-I,"T"
\Getkey=31\=>\GotoA
I\<>1\=>\Locate 7,I-1," "
I\<>1\=>\Locate 8,9-I," "
\Next 
\For 1\->I \To 200
\Next 
\For 4\->I \To 11
\Locate I,4," "
\Locate 23-I,4," "
\Next 
\For 1\->A \To 3
\For 21\->I \To 1 \Step -2
A=1\=>\Locate I,5,"        Levels  "
A=2\=>\Locate I,6,"   Andreas Tindlund  "
A=3\=>\Locate I,6,"    Gjert Vallevik  "
\Next 
\For 1\->X \To 30
\Next 
" "
\Next 
\For 1\->X \To 80
\Next 
" "
" "
" "
" "
\For 1\->A \To 6
\For 19\->I \To 1 \Step -6
A=1\=>\Locate I,7,"  \For new games \and     "
A=2\=>\Locate I,7,"    updates visit      "
A=3\=>\Locate I,7,"  the AT Casio page      "
A=4\=>\Locate I,7,"                "
A=5\=>\Locate I,7,"http \slash\slashcome.to\slashcasio\slash   "
\Getkey=31\=>\GotoA
A=6\=>\Locate I,7,"     [PRESS [EXE]    "
\Next 
\For 1\->X \To 30
\Next 
A\<>6\=>" "
A=5\=>\Orange " "
\Next 
\Do
\LpWhile \Getkey\<>31
\ClrText
" "
" "
" "
" "
" "
" "
" "
\Lbl A
\If O=1
\Then 0\->O
\Cls
\Green \Text 20,30,"Level   Completed"
\Green \Text 20,54,N
M+J+1000*N\->J
0\->M
\Text 30,66,J
\Text 30,40,"Sc\ore:"
\Text 1,1," "
\For 1\->I \To 300
\Next 
\IfEnd
N+1\->N
\Cls
\ViewWindow 1,127,0,1,63,0
\F-Line 1,57,127,57
\F-Line 1,1,1,63
\F-Line 1,1,127,1
\F-Line 127,1,127,63
\Green \Text 1,3,"SNARF .9\Rb LIVES:     LEVEL:"
\Orange \Text 1,115,N
\Orange \Text 1,70,\theta
0\->M
\If N=1
\Then \F-Line 50,40,48,40
\F-Line 48,40,48,36
\F-Line 48,36,54,36
\F-Line 54,36,54,40
\F-Line 54,40,53,40
\F-Line 53,40,53,46
\F-Line 53,46,48,50
\F-Line 50,40,50,44
\F-Line 48,50,42,50
\F-Line 42,50,42,38
\F-Line 42,38,38,38
\F-Line 38,38,38,28
\F-Line 44,28,20,28
\F-Line 20,28,20,20
\PlotOn 34,27
\PlotOn 24,25
\F-Line 20,20,28,20
\F-Line 28,20,34,14
\F-Line 34,14,60,14
\F-Line 60,14,60,20
\F-Line 60,20,76,20
\F-Line 76,20,76,40
\F-Line 76,40,62,40
\PlotOn 62,39
\F-Line 48,40,48,24
\F-Line 48,34,42,34
\F-Line 24,24,72,24
\F-Line 72,24,72,36
\F-Line 72,36,54,36
\F-Line 32,24,40,18
\F-Line 40,18,52,18
\Orange \F-Line 62,38,54,38
\Orange \F-Line 62,36,54,36
\Green \PlotOn 55,37
\PlotOn 54,37
\Text 32,53,"A.T."
55\->S
37\->T
8\->D
51\->V
37\->P
\IfEnd
\If N=2
\Then 2\->D
56\->P
64\->V
\F-Line 62,57,63,50
\F-Line 66,57,65,42
\F-Line 65,42,58,47
\F-Line 58,47,55,53
\F-Line 50,57,49,53
\F-Line 49,53,47,23
\F-Line 47,23,57,28
\F-Line 55,53,52,31
\F-Line 52,31,64,33
\F-Line 64,33,63,22
\F-Line 63,22,42,15
\F-Line 42,15,38,42
\F-Line 47,45,30,48
\F-Line 30,48,37,9
\F-Line 37,9,68,7
\F-Line 68,7,68,20
\F-Line 43,15,66,20
\Orange \F-Line 68,20,68,25
\Orange \F-Line 66,20,66,25
\Green \PlotOn 67,25
67\->S
25\->T
\IfEnd
\If N=3
\Then 6\->D
38\->P
10\->V
46\->S
4\->T
\Text 35,2,"~"
\Text 10,50,"BY A.T."
\F-Line 1,41,85,41
\F-Line 1,35,40,35
\F-Line 85,41,85,30
\Text 26,40,"SHORTCUT"
\F-Line 85,30,8,32
\F-Line 8,32,5,7
\F-Line 9,1,12,25
\F-Line 18,31,15,5
\F-Line 15,5,40,5
\PlotOn 39,2
\Orange \F-Line 39,5,46,5
\Orange \F-Line 39,3,46,3
\Green \PlotOn 46,4
\IfEnd
\If N=4
\Then \F-Line 43,31,38,31
\F-Line 38,31,38,42
\F-Line 38,42,34,42
\F-Line 34,42,34,28
\F-Line 34,28,46,28
\F-Line 46,28,46,39
\F-Line 46,39,56,44
\PlotOn 44,36
\PlotOn 44,38
\PlotOn 44,40
\PlotOn 45,38
\F-Line 38,40,48,50
\F-Line 48,50,24,50
\F-Line 24,50,24,44
\F-Line 24,44,20,44
\F-Line 52,48,54,52
\F-Line 54,52,48,54
\F-Line 48,54,24,54
\F-Line 24,54,16,48
\F-Line 16,48,16,32
\F-Line 16,32,28,32
\F-Line 28,32,28,16
\F-Line 28,16,36,16
\F-Line 36,16,36,6
\F-Line 36,6,40,6
\Orange \F-Line 40,6,40,2
\F-Line 42,6,42,16
\F-Line 42,16,50,16
\F-Line 50,16,50,26
\F-Line 50,26,62,32
\F-Line 62,32,56,38
\F-Line 56,38,74,38
\F-Line 74,38,74,48
\F-Line 74,48,52,48
\F-Line 56,44,66,45
\F-Line 16,40,28,40
\F-Line 32,36,20,36
\Orange \F-Line 42,2,42,6
\F-Line 24,44,32,44
\F-Line 32,44,32,20
\F-Line 32,20,46,20
\F-Line 46,20,46,28
\F-Line 46,28,52,34
\F-Line 52,34,46,38
\PlotOn 50,40
\PlotOn 52,40
\PlotOn 54,40
\PlotOn 58,40
\PlotOn 62,40
\PlotOn 50,38
\PlotOn 52,38
\PlotOn 62,42
\PlotOn 64,42
\PlotOn 68,42
\PlotOn 70,42
\PlotOn 63,41
\PlotOn 69,43
\PlotOn 71,43
\F-Line 36,50,36,52
\F-Line 26,52,26,54
\F-Line 18,50,21,47
40\->P
36\->V
2\->D
41\->S
2\->T
\Green \PlotOn 41,2
\IfEnd
\If N=5
\Then \Text 24,20,"XXXX"
\F-Line 20,1,20,48
\F-Line 20,48,102,48
\F-Line 102,48,102,38
\F-Line 102,38,86,38
\F-Line 86,38,86,1
\F-Line 76,1,76,38
\F-Line 76,38,60,38
\F-Line 60,38,60,1
\F-Line 45,1,45,24
\F-Line 45,24,35,24
\F-Line 35,24,35,1
\F-Line 35,38,45,38
\F-Line 45,38,45,30
\F-Line 45,30,35,30
\F-Line 35,30,35,38
\F-Line 65,1,65,6
\F-Line 65,6,71,6
\F-Line 71,6,71,1
\F-Line 91,1,91,6
\F-Line 91,6,97,6
\F-Line 97,6,97,1
\F-Line 26,1,26,10
\F-Line 20,14,26,14
\F-Line 26,14,30,12
\F-Line 30,4,30,20
\F-Line 30,20,32,20
\F-Line 32,14,35,14
\F-Line 35,24,26,24
\F-Line 26,24,26,18
\F-Line 26,18,24,18
\F-Line 24,18,24,24
\F-Line 20,28,28,28
\F-Line 28,28,28,30
\F-Line 30,24,30,30
\F-Line 30,30,35,30
\F-Line 35,38,35,42
\F-Line 35,44,35,48
\F-Line 40,48,40,41
\F-Line 44,38,44,44
\F-Line 48,48,48,38
\F-Line 48,38,54,38
\F-Line 54,38,54,30
\F-Line 54,30,49,30
\F-Line 49,30,49,18
\F-Line 49,18,58,18
\F-Line 58,18,58,8
\F-Line 58,8,48,8
\F-Line 45,35,50,35
\F-Line 49,27,35,27
\F-Line 60,22,52,22
\F-Line 54,30,58,26
\F-Line 60,38,60,42
\F-Line 60,44,60,48
\F-Line 66,48,69,40
\F-Line 76,38,78,38
\F-Line 78,38,74,44
\F-Line 78,40,88,40
\F-Line 88,40,88,44
\F-Line 88,44,98,44
\F-Line 81,32,81,14
\F-Line 81,14,79,10
\F-Line 81,14,83,10
\F-Line 78,28,84,24
\F-Line 76,22,79,18
\F-Line 86,20,83,20
\F-Line 76,4,80,4
\F-Line 82,4,86,4
\Orange \F-Line 80,4,80,1
\Orange \F-Line 82,4,82,1
\Green \PlotOn 81,1
81\->S
1\->T
8\->D
23\->V
2\->P
\F-Line 45,12,54,12
\IfEnd
\If N=6
\Then 10\->P
118\->Q
20\->R
\F-Line P,P,Q,P
\F-Line Q,P,Q,52
\F-Line Q,52,P,52
\F-Line P,52,P,P
\F-Line P,R,50,R
\F-Line 50,R,50,30
\F-Line 55,P,55,33
\F-Line 55,33,46,33
\F-Line 46,33,46,27
\F-Line 46,33,30,40
\F-Line 45,R,30,36
\F-Line 30,40,30,46
\F-Line 30,46,16,46
\F-Line 16,46,16,23
\F-Line 30,36,19,32
\PlotOn 24,42
\PlotOn 23,38
\PlotOn 21,39
\PlotOn R,36
\PlotOn 19,43
\F-Line 16,23,31,27
\F-Line 13,28,16,28
\F-Line P,32,13,32
\F-Line 13,38,14,46
\F-Line 19,49,19,52
\F-Line 23,46,23,48
\F-Line 45,52,61,34
\F-Line 61,34,61,13
\PlotOn 59,15
\PlotOn 58,21
\PlotOn 59,25
\PlotOn 57,31
\F-Line 52,38,35,47
\F-Line 40,38,44,47
\F-Line 66,P,66,30
\F-Line 61,34,71,34
\F-Line 71,34,71,13
\F-Line 76,P,76,35
\F-Line 76,35,54,49
\F-Line 62,37,64,39
\F-Line 54,49,115,49
\PlotOn 94,50
\PlotOn 64,51
112\->R
\F-Line 115,49,R,40
\F-Line R,40,R,16
\F-Line 108,P,108,46
\F-Line R,32,115,32
\F-Line 115,29,118,29
\F-Line 115,26,R,26
\PlotOn 111,24
\PlotOn 110,32
\PlotOn 111,45
\F-Line 103,49,80,13
\F-Line 98,40,105,35
\F-Line 108,30,96,30
\F-Line 87,24,105,13
\F-Line 89,27,105,27
\F-Line 108,21,99,21
\F-Line 93,21,96,24
\F-Line 90,P,90,17
\F-Line 80,13,78,47
\F-Line 78,42,65,47
\F-Line 78,47,89,37
\Orange \F-Line 82,30,82,17
\Orange \F-Line 84,18,84,30
15\->P
15\->V
83\->S
20\->T
6\->D
\IfEnd
\If N=7
\Then \F-Line 18,56,22,56
\F-Line 22,56,22,46
\F-Line 22,52,30,52
\F-Line 30,52,38,44
\F-Line 38,44,38,36
\F-Line 18,56,18,42
\F-Line 18,42,25,42
\F-Line 25,49,25,32
\F-Line 25,49,34,40
\F-Line 29,40,29,36
\F-Line 29,36,40,36
\F-Line 40,36,46,44
\F-Line 46,44,54,50
\F-Line 25,32,40,32
\F-Line 40,32,46,24
\F-Line 46,24,54,24
\F-Line 54,24,54,26
\F-Line 54,26,60,26
\F-Line 56,28,58,28
\F-Line 60,27,60,24
\F-Line 60,24,68,24
\F-Line 68,24,76,32
\F-Line 76,32,76,34
\F-Line 76,34,78,32
\F-Line 50,42,44,34
\F-Line 44,34,50,26
\F-Line 50,26,50,30
\F-Line 50,30,62,30
\F-Line 62,30,62,28
\F-Line 62,28,66,28
\F-Line 66,28,72,34
\F-Line 72,34,44,34
\F-Line 54,50,54,38
\F-Line 54,38,50,38
\F-Line 54,44,56,44
\F-Line 54,49,62,49
\F-Line 62,49,62,38
\F-Line 62,38,78,38
\F-Line 58,34,58,46
\F-Line 62,34,62,35
\F-Line 66,38,66,36
\F-Line 74,28,82,36
\F-Line 82,36,82,42
\F-Line 85,42,76,42
\F-Line 76,42,76,44
\F-Line 76,44,68,44
\F-Line 62,44,66,48
\F-Line 66,48,78,48
\F-Line 78,48,78,46
\F-Line 78,46,88,46
\F-Line 88,46,88,38
\F-Line 88,38,85,38
\F-Line 88,42,96,42
\F-Line 96,42,96,38
\F-Line 96,38,102,32
\F-Line 102,32,102,24
\F-Line 102,24,98,24
\F-Line 96,26,98,26
\F-Line 98,26,98,6
\F-Line 98,6,79,6
\F-Line 79,6,79,14
\F-Line 79,14,76,14
\F-Line 76,14,76,18
\F-Line 76,18,64,18
\F-Line 95,11,83,11
\F-Line 83,11,83,17
\F-Line 83,17,79,17
\F-Line 79,17,79,22
\F-Line 79,22,64,22
\F-Line 74,28,74,22
\F-Line 78,26,82,30
\F-Line 82,30,82,20
\F-Line 82,20,86,20
\F-Line 86,21,86,14
\F-Line 86,14,98,14
\F-Line 80,34,88,34
\F-Line 92,38,86,32
\F-Line 86,32,86,24
\F-Line 86,24,86,90
\F-Line 92,26,90,26
\F-Line 90,26,90,18
\F-Line 90,18,92,18
\F-Line 93,22,95,22
\F-Line 96,18,98,18
\F-Line 90,30,94,34
\F-Line 94,34,98,30
\F-Line 86,24,90,24
\Orange \F-Line 64,21,54,21
\Orange \F-Line 64,19,54,19
\Green \PlotOn 54,20
20\->T
54\->S
2\->D
55\->P
20\->V
\F-Line 68,44,68,42
\IfEnd
\If N=8
\Then \ClrText
" "
" "
" "
" "
" "
" "
" "
\For 1\->A \To 13
\For 21\->I \To 1 \Step -1
A=1\=>\Locate I,7,"   CongratulationS "
A=2\=>\Locate I,7,"     You made it "
A=3\=>\Locate I,7,"    You achieved "
A=4\ And I\<=16\=>\Locate I+5,7,J+5000\theta
A=4\ And I\<=11\=>\Locate I+10,7," "
A=5\ And I\<=10\=>\Locate I+10,7," Points "
A=6\=>\Locate I,2,"[    Please visit   ]"
A=7\=>\Locate I,3,"[ The AT Casio Page ]"
A=8\=>\Locate I,6,"http \slash\slashcome.to\slashcasio\slash"
A=9\=>\Locate I,7,"<------------------->"
A=10\=>\Locate I,2,"    \(-)\(-)\(-)\(-)Write\(-)\(-)\(-)\(-) "
A=11\=>\Locate I,3,"    \(-)\(-)\(-)The URL\(-)\(-)\(-) "
A=12\=>\Locate I,4,"    \(-)\(-)\(-)\(-)\Down\(-)\(-)\(-)\(-)\(-) "
A=13\=>\Locate I,5,"    \(-)\(-)\(-)\(-)N\(-)O-W\(-)\(-)\(-)\(-) "
\Next 
A\<>4\=>\For 1\->I \To 10
\Next 
A\<=3\=>" "
\If A=5
\Then \For 1\->I \To 200
\Next 
" "
" "
" "
" "
" "
" "
" "
\IfEnd
\Next 
\IfEnd
\For 1\->I \To 200
\Next 
\While 1
\PxlTest 64-P,V
\Ans=1\=>\GotoE
\Green \PlotOn V,P
\Isz M
\Getkey\->I
\If I\<>0
\Then I=27\ And D\<>4\=>6\->D
I=37\ And D\<>8\=>2\->D
I=38\ And D\<>6\=>4\->D
I=28\ And D\<>2\=>8\->D
\If I=78
\Then \Do
\LpWhile \Getkey\<>77
\IfEnd
\IfEnd
D=6\=>V+1\->V
D=2\=>P-1\->P
D=4\=>V-1\->V
D=8\=>P+1\->P
\WhileEnd
\Lbl E
V=S\ And P=T\=>1\->O
O=1\=>\GotoA
\theta-1\->\theta
N-1\->N
J+M\->J
0\->M
\theta>0\=>\GotoA
\Cls
\Orange \F-Line 38,45,38,20
\Orange \F-Line 38,45,89,45
\Orange \F-Line 89,45,89,20
\Orange \F-Line 89,20,38,20
\Green \Text 26,44,"Game Over"
\Text 33,54,J
0\->O
\Text 1,1," "
\Do
\LpWhile \Getkey\<>31
\GotoS

%End