10 CLEAR 300,&HD000
20 AD=&HD000:DEFUSR=&HD00B
30 READ A$
40 IF A$="RET" THEN A=USR(0):END
50 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
80  DATA 1E,00    :'D000   LD   E,0       ;
90  DATA 3D       :'D002   DEC  A         ;
100 DATA 1C       :'D003   INC  E         ;
110 DATA BB       :'D004   CP   E         ;
120 DATA C2,02,D0 :'D005   JP   NZ,D002h  ;
130 DATA C9       :'D008   RET            ;
140 DATA 00,00    :'D009   NOP            ;
150 DATA CD,6F,00 :'D00B   CALL 006Fh     ;Установка режима SCREEN 1
160 DATA 16,00    :'D00E   LD   D,0       ;
170 DATA 06,FF    :'D010   LD   B,FFh     ;255 символов 
180 DATA 21,00,00 :'D012   LD   HL,0      ;
190 DATA 3E,08    :'D015   LD   A,8       ;
200 DATA 32,3F,D0 :'D017   LD   (D03Fh),A ;
210 DATA CD,4A,00 :'D01A   CALL 004Ah     ;Читаем видеопамять
220 DATA BA       :'D01D   CP   D         ;
230 DATA CA,2C,D0 :'D01E   JP   Z,D02Ch   ;
240 DATA CB,87    :'D021   RES  0,A       ;
250 DATA 4F       :'D023   LD   C,A       ;
260 DATA CD,00,D0 :'D024   CALL D000h     ;
270 DATA 79       :'D027   LD   A,C       ;
280 DATA B3       :'D028   OR   E         ;
290 DATA CD,4D,00 :'D029   CALL 004Dh     ;Запись в видеопамять
300 DATA 23       :'D02C   INC  HL        ;
310 DATA 3A,3F,D0 :'D02D   LD   A,(D03Fh) ;
320 DATA 5F       :'D030   LD   E,A       ;
330 DATA 3E,00    :'D031   LD   A,0       ;
340 DATA 1D       :'D033   DEC  E         ;
350 DATA BB       :'D034   CP   E         ;
360 DATA 7B       :'D035   LD   A,E       ;
370 DATA 32,3F,D0 :'D036   LD   (D03Fh),A ;
380 DATA C2,1A,D0 :'D039   JP   NZ,D01Ah  ;
390 DATA 10,D7    :'D03C   DJNZ $-27h     ;Переход по адресу D015h
400 DATA C9       :'D03E   RET
410 DATA RET