CODE |
ec1 1->B:9->C:1->A:1->L:->M While 1 Output(1,1,sub(Str1,A,128 Output(B,C,"X Repeat K fetkey->K 16B+C-16+(A-1)->D If K=31:Then prgmRECHK:1->A End 16B+C-16+(A-1)->D If K=34 or (K>=24 and K<=26) Output(B,C," B+(K=34 and sub(Str1,D+16(D<145),1)=" ")-(K=25 and sub(Str1,D-16(D>16),1)=" "->B C+(K=26 and sub(Str1,D+1,1)=" ")-(K=24 and sub(Str1,D-1,1)=" "->C If B=7 and A!=S:Then A+16->A:B-1->B End If B=2 and A!=T:Then A-16->A:B+1->B End If C=16:Then 2-C L+1->L prgmRECHG End If C=1 and L>1:Then 15->C L-1->L prgmRECHG End End c2 |
CODE |
ec1 If L=1:Then 33->S:1->T "9x16 MAP"->Str1 End If L=2:Then 33->S:1->T "9x16 MAP"->Str1 End c2 |
CODE |
ec1 If L=1:Then If D=1:Then 33->S:1->T "map 1"Str1 If D>51 and D<54:Then 1->S:1->T:101->M "8x16 dungeon"->Str1 End If D=123:Then 1->S:1->T:101->M "8x16 dungeon"->Str1 End c2 |