1->\r
ClrText
For 7->A To 1 Step (-)1
Locate 2,A,"by Jaakko Heinonen"
A<>7=>Locate 2,A+1,"                  "
Next
Locate 6,3,"X-WORM 2.0"
Getkey
Locate 6,6,"PUSH [EXE]"
Do:LpWhile Getkey<>31
Lbl 1
0->A~Z
\r->E
ViewWindow 1,127,0,1,63,0
15->C~D
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
83->V
20->W
1->A
0->theta
While theta=0
Isz E
Getkey->K
If K<>0
Then If K=64:Then 1->B:0->A:IfEnd
If K=62:Then (-)1->B:0->A:IfEnd
If K=73:Then (-)1->A:0->B:IfEnd
If K=53:Then 1->A:0->B:IfEnd
IfEnd
C+A->C
D+B->D
If C=V And D=W
Then 2->theta:IfEnd
PxlTest 64-D,C:Ans=1=>1->theta
PlotOn C,D
WhileEnd
If theta=1
Then ClrText
Green "Game Over\!"
Orange "Game Over\!"
"Game Over\!"_
ClrText
Locate 1,2,"Score:"
Int (E/2)->W
Locate 8,2,W
File6
W->List6[4]
SortD(List6)
W>=List6[3]=>Orange "  === HIGHSCORE ==="
Locate 1,4,"TOP 3:"
For 1->A To 3
Locate 2,4+A,List6[A]
Next
File1
IfEnd
If theta=2
Then ClrText
"Bonus +500"_
1000+E->\r
Goto 1
IfEnd