10 POKE56,144:CLR:POKE53281,0
12 PRINT"[147][159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
13 FORI=0TO22:PRINT"[221]--------------------------------------[159][221]";:NEXT
14 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
16 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
18 GETA$:IFA$=""THEN18
20 GOSUB1000
30 PRINT"[147]"
40 GETA$:IFA$=""THEN40
50 GOSUB2000
60 GETA$:IFA$=""THEN60
70 GOTO20
997 :
998 :REM STORE SCREEN
999 :
1000 POKE88,0:POKE89,156
1010 POKE90,0:POKE91,8
1020 POKE781,5:POKE782,0
1030 SYS41964
1040 POKE88,0:POKE89,148
1050 POKE90,0:POKE91,220
1060 POKE781,5:POKE782,0
1070 SYS41964
1080 RETURN
1997 :
1998 :REM RESTORE SCREEN
1999 :
2000 POKE88,0:POKE89,8
2010 POKE90,0:POKE91,156
2020 POKE781,5:POKE782,0
2030 SYS41964
2040 POKE88,0:POKE89,220
2050 POKE90,0:POKE91,148
2060 POKE781,5:POKE782,0
2070 SYS41964
2080 RETURN
10000 D=PEEK(186):N$="0:B.MEM-COPY":OPEN1,D,15,"S"+N$:CLOSE15:SAVEN$,D:END