0ÞT
0ÞZ
Lbl 3
1ÞG
5ÞC
1ÞA
1ÞP
0ÞQ
25ÞU
30ÞV
Cls
F-Line 1,1,50,1
F-Line 1,1,1,50
F-Line 50,1,50,50
F-Line 1,50,50,50
F-Line 68,8,111,8
Green F-Line 68,9,111,9
Orange F-Line 68,10,111,10
Text 2,70,"Worm 2000"
Orange Text 55,22,"(C) Tero Siironen 1998"
Green Text 18,70,"Points:"
Green Text 25,70,"Level:"
T=3ãF-Line 1,15,23,15
T=2ãF-Line 3,15,47,15
T=3ãF-Line 27,35,50,35
T=1ãF-Line 4,25,47,25
T=3ãF-Line 3,25,48,25
T=1ãPxlChg 25,25
T=2ãF-Line 4,35,48,35
T=3ãF-Line 25,3,25,48
T=2ãF-Line 1,1,1,1
Lbl 1
(Int 48Ran#‰1)ÞD
(Int 48Ran#‰1)ÞE
PxlTest E,D:Ans=1ãGoto 1
Green PxlOn E,D
Text 18,99,Z
Text 25,99,T‰1
Text 45,54,G™1
Text 45,59,"/10"
Lbl 6
Do
Getkey
If Ans
Then If Ans=27:Then 1ÞP:0ÞQ:IfEnd
If Ans=37:Then 0ÞP:1ÞQ:IfEnd
If Ans=28:Then 0ÞP:‡1ÞQ:IfEnd
If Ans=38:Then ‡1ÞP:0ÞQ:IfEnd
IfEnd
U‰P=D And V‰Q=EãGoto 5
PxlTest V‰Q,U‰P:AnsãGoto 4
U‰PÞU
V‰QÞV
Orange PxlOn V,U
UÞMat W[2,A]:VÞMat W[1,A]
A‰1ÞB
A=(C™1)ã1ÞB
Isz A
A=Cã1ÞA
Orange PxlOff Mat W[1,B],Mat W[2,B]
LpWhile Getkeyá31
Do
Text 32,70,"PAUSED"
Text 32,70,"      "
Text 32,70,"      "
LpWhile Getkeyá31
Goto 6
Lbl 5
PxlOff E,D
T>0ãC‰TGÞC:Z‰TGÞZ
T=0ãC‰GÞC:Z‰GÞZ
Isz G
G=11ãGoto 2
Goto 1
Lbl 4
Orange Text V™1,U™1,"œ"
Orange Text 32,70,"GAME OVER"
Text 32,66," "
Goto 7
Lbl 2
Text 33,59,"Level Completed"
Text 35,65," "
Isz T
T=4ãGoto 8
Do
LpWhile Getkeyá31
Goto 3
Lbl 8
Text 33,60,"CONGRULATIONS!"
Text 39,52,"YOU HAVE COMPLETED"
Text 45,72,"THE GAME"
Text 35,65," "
Goto 7
Lbl 7
Do
LpWhile Getkeyá31
1ÞJ
Prog "W2"
Stop