Goto B
Lbl 9
List 6[1]ÞH
List 6[2]ÞM
List 6[3]ÞS
List 6[4]ÞG
List 6[5]ÞY
List 6[6]ÞR
List 6[7]ÞU
List 6[8]ÞT
List 6[9]ÞK
Prog "~CAMELOT"
Lbl X
ClrText
Stop
Lbl S
ClrText
Locate 2,1,"YOU ARE KING ARTHUR,"
Locate 3,2,"KING OF CAMELOT."
Locate 2,3,"YOUR LAND IS UNDER"
Locate 1,4,"ATTACK BY THE MINIONS"
Locate 4,5,"UNDER THE BLACK"
Locate 1,6,"KNIGHT.  SLAY HIM AND"
Locate 4,7,"RESTORE PEACE."
Goto T
Lbl T
Getkey=31ãProg "~CAMELOT"
Goto T
Lbl C
Getkey=69ãGoto 9
Getkey=79ãGoto S
Getkey=47ãGoto X
Goto C
Lbl B
ClrText
1ÞA
1ÞB
Goto Í
Lbl Í
Locate 6,A,"A R T H U R"
A‰1ÞA
A=5ãGoto Î
Locate 6,A™1,"           "
Goto Í
Lbl Î
Locate 8,B,"K I N G"
B‰1ÞB
B=4ãGoto A
Locate 8,B™1,"        "
Goto Î
Lbl A
Locate 1,7,"N"
Locate 1,7,"EN"
Locate 1,7,"REN"
Locate 1,7,"RREN"
Locate 1,7,"ARREN"
Locate 1,7,"WARREN"
Locate 1,7," WARREN"
Locate 1,7,"N WARREN"
Locate 1,7,"AN WARREN"
1ÞA
Locate 1,7,"EAN WARREN
Locate 1,7,"SEAN WARREN"
Locate 1,7," SEAN WARREN"
Locate 1,7,"Y SEAN WARREN"
Locate 1,7,"BY SEAN WARREN"
Locate 1,6,"[F1] NEW    [F2] LOAD"
100ÞG
5ÞS
25ÞH
25ÞM
0ÞY
0ÞR
0ÞT
0ÞU
0ÞK
Goto C