10 CONSOLE 0,25,0,1:WIDTH 80,25:LOCATE 0,0,1:COLOR=(0,0):COLOR=(7,7) 20 PRINT CHR($(12):DIM TILE$(3) 30 REM LOCATE 10,12:INPUT "PICTURE NO.";P:CLS 1 35 P=6 40 REM LOCATE 3,12:INPUT "WINDOW (X,Y)-(x,y)";A,B,C,D:CLS 1 50 REM LOCATE 6,12:INPUT "ソトワク (X,Y)-(x,y)",L,M,N,O:CLS 1 60 SCREEN 0,0 70 COLOR 7,0,0,7:CLS 3 80 REM WINDOW(A,B)-(C,D) 85 WINDOW(0,0)-(220,150) 90 REM LINE(L,M)-(N,O),7,B 95 LINE(0,0)-(220,150),7,B 100 TILE$(1)=CHR$(&H55;)+CHR$(&HFF;)+CHR$(&HAA;) 110 TILE$(2)=CHR$(&H0;)+CHR$(&H0;)+CHR$(&H55;) 120 TILE$(3)=CHR$(&H55;)+CHR$(&H0;)+CHR$(&H0;) 130 Z=P 140 ON P GOSUB 540,550,560,570,580,590 150 ON ERROR GOTO *ERRORSUB 160 GOSUB *LINESUB 170 GOSUB *CIRCLESUB 180 GOSUB *PAINTSUB 190 GOSUB *PAINTSUB2 200 IF Z=3 THEN GOSUB *LINESUB
481 : 468[sage] : 03/04/06 01:09
210 IF Z=6 OR Z=1 OR Z=2 THEN COLOR=(0,7):COLOR=(7,0) 220 CONSOLE 24,1,0,1:LOCATE 0,24,0 230 END 240 *LINESUB 250 READ A,Y0,X0,Y,X 260 LINE(X0,Y0)-(X,Y),A 270 READ Y,X 280 IF X<0 AND Y<0 THEN GOTO 250 290 IF X>500 AND Y>500 THEN GOTO 320 300 LINE -(X,Y),A 310 GOTO 270 320 RETURN 330 *ERRORSUB 340 RESUME NEXT 350 RETURN 360 *PAINTSUB 370 READ X,Y,B,BC 380 IF X>0 THEN RETURN 390 PAINT(X,Y),C,BC 400 GOTO 370