_________________________________________________________________________

           Title: Worm
         Version: 1.0
          Author: Magnus Lonn
     Description: The cool game with maximum speed.
                  How to play: 
                  To start; press (1). Then you press 8,6,4 or 2.
                  The worm starts running. To stop him; press AC/on, EXE and 
                  then the direction you want the worm to get (8=up, 2=down,
                  4=left, 6=right). Your mission is to catch the three spots.
                  Two of them are not "real"!
                 
_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)

2rt()           Root (2rt(7) is the square root of 7)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
_________________________________________________________________________

 Program :

Store in program 1:
___________________________________________________________________________

'WORM EXE'
Goto 6
Lbl 1
Plot X,Y
Isz Y
Y/=H=>Goto 1
X/=G=>Goto 1
Goto 5
Lbl 2
Plot X,Y
Isz X
X/=G=>Goto 2
Y/=H=>Goto 2
Goto 5
Lbl 3
Plot X,Y
Dsz Y
Y/=H=>Goto 3
X/=G=>Goto 3
Goto 5
Lbl 4
Plot X.Y
Dsz X
X/=G=>Goto 4
Y/=H=>Goto 4
Lbl 5
1->A
V+20->V
Plot G,H
Plot 10sin (V)+G,10cos (V)+H
Line
V<65=>Goto 5
Line_
"TURNES"
T-1_
Lbl 6
A=1=>Prog 2
T=0=>"START"
?->D
Isz T
D=8=>Goto 1
D=6=>Goto 2
D=2=>Goto 3
D=4=>Goto 4
Prog 2
Goto 6

___________________________________________________________________________
Store in program 2:
___________________________________________________________________________

'RESET'
Range 0,94,99,0,62,99
0->A
0->C
0->G
0->H
0->T
-90->V
Plot 0,62
Plot 94,62
Line
Plot 94,0
Line
Lbl 1
Isz C
Int 92Ran#+1->E
Int 60Ran#+1->F
Plot E,F
Int 3Ran#+1->I
I=1=>Goto 2
C>2=>Goto 3
Goto 1
Lbl 2
E->G
F->H
C<3=>Goto 1
Lbl 3
G=0=>Goto 2
Int 90Ran#+2->X
Int 58Ran#+2->Y


_________________________________________________________________________