1090 DIM M(20,5,5),STD(20),GOD(20),STX(20),STY(20),GOX(20),GOY(20),P(4,5)
1100 DIM PL1%(255),PL2%(255),PL3%(255),PL4%(255),PL5%(255),PL6%(255),PL7%(255),PL8%(255),PL9%(255),PL10%(255),PL11%(255),PL12%(255),PL13%(255),PL14%(255),PL15%(255),PL16%(255),PL17%(255)
2550 IF ((MOUSEX>230 AND MOUSEY>100) AND (MOUSEX<247 AND MOUSEY<117)) THEN GOSUB *変換
2560 RETURN
2570 '
2580 *左クリック
2590 MOUSEX=MOUSE (0)
2600 MOUSEY=MOUSE (1)
2610 IF ((MOUSEX>17 AND MOUSEY>17) AND (MOUSEX<102 AND MOUSEY<102)) THEN GOSUB *マップ:GOTO *ダミー
2620 IF (((MOUSEX>0 AND MOUSEY>0) AND (MOUSEX<119 AND MOUSEY<119)) XOR ((MOUSEX>17 AND MOUSEY>17) AND (MOUSEX<102 AND MOUSEY<102))) THEN GOSUB *マップ2:GOTO *ダミー
2630 IF ((MOUSEX>200 AND MOUSEY>0) AND (MOUSEX<265 AND MOUSEY<81)) THEN GOSUB *パターン:GOTO *ダミー
2640 IF ((MOUSEX>200 AND MOUSEY>100) AND (MOUSEX<217 AND MOUSEY<117)) THEN GOSUB *スタート:RETURN
2650 IF ((MOUSEX>200 AND MOUSEY>120) AND (MOUSEX<217 AND MOUSEY<137)) THEN GOSUB *ゴール:RETURN
2660 IF ((MOUSEX>200 AND MOUSEY>150) AND (MOUSEX<217 AND MOUSEY<167)) THEN GOSUB *マイナス:GOTO *ダミー
2670 IF ((MOUSEX>234 AND MOUSEY>150) AND (MOUSEX<251 AND MOUSEY<167)) THEN GOSUB *プラス:GOTO *ダミー
2680 IF ((MOUSEX>230 AND MOUSEY>100) AND (MOUSEX<247 AND MOUSEY<117)) THEN GOSUB *セーブ:GOTO *ダミー
2690 IF ((MOUSEX>230 AND MOUSEY>120) AND (MOUSEX<247 AND MOUSEY<137)) THEN GOSUB *ロード:GOTO *ダミー
2695 IF ((MOUSEX>280 AND MOUSEY>0) AND (MOUSEX<305 AND MOUSEY<17)) THEN GOSUB *終了:GOTO *ダミー
2700 *ダミー
2710 SYMBOL(201,102),"ST",1,1,7
2720 SYMBOL(201,122),"GO",1,1,7
2730 RETURN
2740 '
2750 '
2760 '
2770 '
2780 '
2790 *マップ
2800 MOX=(MOUSEX-17) \ 17
2810 MOY=(MOUSEY-17) \ 17
2820 M(MEN,MOX,MOY)=MOUSED
2830 MOXX=MOX*17+17:MOYY=MOY*17+17
2840 IF MOUSED=0 THEN *B
2850 ON MOUSED GOTO *P1,*P2,*P3,*P4,*P5,*P6,*P7,*P8,*P9,*P10,*P11,*P12,*P13,*P14,*P15,*P16,*P17
10010 IF ERR=63 THEN COLOR 2:LOCATE 5,23:PRINT"指定のファイルがありません。もう一度指定してください。":COLOR 7:RESUME *ロード
10020 IF ERR=64 THEN COLOR 2:LOCATE 5,23:INPUT"ファイル名が重複します。書換えますか(Y/N)",P$:COLOR 7:IF P$="Y" OR P$="y" THEN RESUME *キル ELSE CLOSE:IF ERL=4310 THEN RESUME *セーブ ELSE IF ERL=4510 THEN RESUME *ロード