10 REM SAVE PED.BAC
20 POKE -1536%,17%,116%,3%,58%,243%,253%,33%,0%,0%,111%,41%,25%,94%
30 POKE -1523%,1%,1%,0%,9%,86%,235%,1%,80%,0%,203%,254%,237%,161%
40 POKE -1510%,224%,24%,249%
50 POKE 63796%,56%,249%,148%,5%,245%,219%,56%,254%,131%,40%,4%,241%,195%,30%,3%,241%
60 POKE 63812%,251%,237%,77%,245%,62%,0%,237%,71%,62%,128%,50%,7%,254%,241%,201%,245%
70 POKE 63828%,62%,249%,237%,71%,241%,201%
80 ; CHR$(12%)
90 Z%=INP(4)
100 ; CUR(5%,20%)'       ';
110 ; CUR(6%,20%)'                           ';
120 ; CUR(7%,20%)'                            ';
130 ; CUR(8%,20%)'                ';
140 ; CUR(9%,20%)'                             ';
150 ; CUR(10%,20%)'                            ';
160 ; CUR(11%,20%)'              ';
170 ; CUR(14%,20%)'      SCREEN TEXT EDITOR';
180 ; CUR(16%,20%)'            ABC80';
190 ; CUR(18%,20%)'         VERSION 4.6';
200 ; CUR(20%,13%)' Copyright 1983, 1984 Bengt Larsson SOLLENTUNA'
210 FOR I%=0% TO 12% : POKE 65011,I% : B%=CALL(64000%) : NEXT I%
220 FOR I%=15% TO 23% : POKE 65011%,I% : B%=CALL(64000%) : NEXT I%
230 CHAIN "sed.XXX"
240 END