CLS
NEW
' ------- 23 PCG Tool
10 CLS:CLV:C=46
20 GOSUB 400
30 LC 10,0:?CHR$(#E0)
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,12:?"POKE #700";
120 FOR J=0 TO 7:D=0
130 FOR I=0 TO 7
140 D=D<<1|(SCR(I,J)=233)
150 NEXT
160 POKE #700+J,D
170 ?",";PEEK(#700+J);
180 NEXT
190 ?"    ";
200 GOTO 40
300 X=X-(K=28 AND X>0)+(K=29 AND X<7)
310 Y=Y-(K=30 AND Y>0)+(K=31 AND Y<7)
320 C=SCR(X,Y)
330 GOTO 40
400 FOR J=0 TO 7
410 D=PEEK(#700+J)
420 FOR I=0 TO 7
430 LC I,J
440 IF D&#80 THEN ?CHR$(233); ELSE ?CHR$(46);
450 D=D<<1
460 NEXT
470 NEXT
480 RETURN