'ProgramMode:RUN
'FOPQRTUVZ
'TEMP A~E
'GENERATE WORLD
'SETTINGS
'CHUNK SIZE
21->W
7->H
'WORLD SIZE
7->K
21->L
'PLAYER POS
11->X
4->Y
'MAX ITEM ID
26->I
'INVENTORY
I->Dim List1
'NUMBER OF ITEMS PER CELL
7->J
{KWH/J,L->Dim Mat A
" #%$!%&):?[]_{|}~_#E590__#E591__#E592__#E593__#E599__#E59A__#E59B__#E59C__#E59D_"->Str 9
'BUILD BORDERS
KL->S
1->M~N
1
Prog "~SF"
Prog "~SS"
K->M
3
Prog "~SF"
Prog "~SS"
L->N
5
Prog "~SF"
Prog "~SS"
1->M
7
Prog "~SF"
Prog "~SS"
For 1->N To L Step L-1
6
N=1=>2
Prog "~SF"
For 2->M To K-1
Prog "~SS"
Next
Next
For 1->M To K Step K-1
4
M=1=>8
Prog "~SF"
For 2->N To L-1
Prog "~SS"
Next
Next
1->M~N
Prog "~SM"