%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:691
File Name:NFS 2000
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->T \To 11:" ":T\>=7\=>\Locate 8,5,"# . #":\Next :\Locate 1,6,"\(-)(   )\(-)#\(-)\(-)\(-)#\(-)[F1\slashF6]\(-)":8\->A~C:10\->M:\(-)2\->S:\For 1\->T \To 3:\Locate M,T,"\Deg>":\Next :\For 3\->T \To 1 \Step \(-)1:\Locate 4,6,T:\For 0\->D \To 99:\Next :\Next :\Locate 3,6,"GO!":\Lbl 1:\Locate M,4,"\Deg>":\Isz S:A+\Int (3\Ran#)-1\->A:A=0\=>\Isz A:A=18\=>\Dsz A:\Locate A,7,"# . #":\Getkey=29\=>\Isz M:\Getkey=79\=>\Dsz M:C\->D:B\->C:A\->B:\Abs (M-D-2)>1\=>\Goto2:"":\Goto1:\Lbl 2:\Locate M,5,"*":\Locate 1,7,"\(-)Sc\ore:\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)[E*E]\(-)":\For 1\->T \To S \Step 4:\Locate 9,7,T:\Next :\Locate 9,7,S:\Do:\LpWhile \Getkey\<>31:\For 1\->T \To 7:" ":\Next :\Locate 1,1,"\(-)\(-)\(-)\(-)\(-)Highsc\ores:\(-)\(-)\(-)\(-)\(-)":\Locate 1,7,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)[E*E\slashMENU]\(-)":\Mat N[1,1]\->A:\Mat N[2,1]\->B:\Mat N[3,1]\->C:\If \In (A+1)\ab/c(BC+1)\<>\Mat N[4,1]:\Then 0\->A~C:\Locate 2,7,"!E\Cor\Cor\or!":\IfEnd:S>C\ And S\<=B\=>S\->C:\If S\>=B\ And S\<=A:\Then B\->C:S\->B:\IfEnd:\If S>A:\Then B\->C:A\->B:S\->A:\IfEnd:A\->\Mat N[1,1]:B\->\Mat N[2,1]:C\->\Mat N[3,1]:\In (A+1)\ab/c(BC+1)\->\Mat N[4,1]:\For 3\->T \To 5:\Locate 10,T,"\=>":\Mat N[T-2,1]\->B:S=B\=>\Locate 7,T,"( )":\Locate 8,T,T-2:\Locate 12,T,B:\Next 
%End
%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:4
Columns:1
Variable Name:Mat N
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 2 1 0
Value : 3 1 0
Value : 4 1 0
%End