120 POKE56334,0
130 POKE1,PEEK(1) AND 251
140 FOR T=0 TO 2048
150 : POKE 12288+T,PEEK(53248+T)
160 NEXT
170 POKE1,PEEK(1) OR 4
180 POKE56334,1
210 POKE 53280,0:POKE 53281,0:POKE646,7
220 PRINT CHR$(147)
260 CHAR=12288
320 PRINT"[176][195][195][195][195][195][195][195][195][174]"
330 FOR T=1 TO 8
340 : PRINT"[221]--------[221]"
350 NEXT
360 PRINT"[173][195][195][195][195][195][195][195][195][189]"
400 POKE 53248+24,28
450 A=A*8
460 FOR Y=0 TO 7
470 : FOR X=0 TO 7
480 :  IF (PEEK(CHAR+A+Y)AND2^(7-X))>0THEN POKE 1105+Y*40+X,42:GOTO500
490 :  POKE 1105+Y*40+X,45
500 : NEXT
520 NEXT
530 X=0:Y=0
531 P=1105+Y*40+X
532 POKEP,PEEK(P)+128:POKEP,PEEK(P)-128
533 POKE1324,A/8
540 GETA$
550 IFA$=""THENIFY<7THENY=Y+1:GOTO531
560 IFA$="[145]"THENIFY>0THENY=Y-1:GOTO531
570 IFA$=""THENIFX<7THENX=X+1:GOTO531
580 IFA$="[157]"THENIFX>0THENX=X-1:GOTO531
590 IFA$=" "THENGOSUB800
600 IFA$="+"THENIFA<2042THENA=A+8:GOTO460
610 IFA$="-"THENIFA>7THENA=A-8:GOTO460
620 IFA$="S"THENGOTO900
700 GOTO532
800 B=2^(7-X)
805 PZ=PEEK(CHAR+A+Y)
810 IF(PZANDB)>0THENPOKE(CHAR+A+Y),PZ-B:POKEP,45:GOTO830
820 POKE(CHAR+A+Y),PZ+B:POKEP,42
830 RETURN
900 OPEN1,8,2,"ZSATZ,P,W"
910 PRINT#1,CHR$(01);CHR$(08)
920 FORA=12288TO14335
930 :  PRINT#1,CHR$(PEEK(A));
940 NEXTA
950 CLOSE1
960 END