CLS
NEW
' ------- 23 PCG Tool 16x16
10 CLS:CLV:C=46
20 GOSUB 400:A=8:B=0:F=8:GOSUB 400:A=0:B=8:F=16:GOSUB 400:A=8:F=24:GOSUB 400
30 LC 18,0:?CHR$(#E0,#E1):LC 18,1:?CHR$(#E2,#E3)
40 Z=Z+1:LC X,Y
50 IF Z%63<32 THEN ?CHR$(C); ELSE ?CHR$(1);
60 K=INKEY():IF K=0 THEN GOTO 40
70 LC X,Y:?CHR$(C);
80 IF K<>32 THEN GOTO 300
90 IF SCR(X,Y)=46 THEN LC X,Y:?CHR$(233); ELSE LC X,Y:?CHR$(46);
100 C=SCR(X,Y)
110 LC 0,16:?"POKE #700";:A=0:B=0:F=0:GOSUB 500
120 LC 0,18:?"POKE #708";:A=8:B=0:F=8:GOSUB 500
130 LC 0,20:?"POKE #710";:A=0:B=8:F=16:GOSUB 500
140 LC 0,22:?"POKE #718";:A=8:B=8:F=24:GOSUB 500
200 GOTO 40
300 X=X-(K=28 AND X>0)+(K=29 AND X<15)
310 Y=Y-(K=30 AND Y>0)+(K=31 AND Y<15)
320 C=SCR(X,Y)
330 GOTO 40
400 FOR J=0 TO 7
410 D=PEEK(#700+J+F)
420 FOR I=0 TO 7
430 LC A+I,B+J
440 IF D&128 THEN ?CHR$(233); ELSE ?CHR$(46);
450 D=D<<1
460 NEXT
470 NEXT
480 RETURN
500 FOR J=0 TO 7:D=0
510 FOR I=0 TO 7
520 D=D<<1|(SCR(A+I,B+J)=233)
530 NEXT
540 POKE #700+J+F,D
550 ?",";D;
560 NEXT
570 ?"    ";
580 RETURN