Cls
ViewWindow 1,127,0,63,1,0
Green Text 3,45,"Worm 2000"
Green Text 9,27,"==================="
Text 16,27,"F1‡Play"
Text 22,27,"F2‡See Highscores"
Text 34,27,"F5‡Reset Highscores"
Text 40,27,"F6‡Quit"
Green Text 46,27,"==================="
Orange Text 51,20,"Remember Mat W 2©140"
Text 46,30," "
Lbl E
Do
0ŢJ
Getkey=79ăProg "W1"
Getkey=69ăProg "W2"
Getkey=39ăGoto A
LpWhile Getkeyá29
ClrText
Stop
Lbl A
ClrText
Locate 7,1,"WARNING!"
Locate 4,2,"This will clear"
Locate 5,3,"all values in"
Locate 5,4,"File4 List 1"
Locate 7,6,"F1 Ţ OK"
Locate 7,7,"F6 Ţ Cancel"
Lbl B
Getkey=29ăGoto D
Getkey=79ăGoto C
Goto B
Lbl C
File4
{0,0,0,0,0,0}ŢList 1
Lbl D
PlotOn 45,3
Goto E