10 'Автор программы: Высотков Д. (II курс КГПИ, 21.10.90)
20 A=&HD000:DEFUSR=&HD000
30 READ A$
40 IF A$="z" THEN A=USR(0):END
50 POKE A,(VAL("&h"+A$))
60 A=A+1:GOTO 30
70  DATA 0E,B4:'       LD   C,&hB4
80  DATA 3E,0D:'       LD   A,&H0D
90  DATA ED,79:'       OUT  (C),A
100 DATA 0C   :'       INC  C
110 DATA ED,78:'       IN   A,(C)
120 DATA E6,0C:'       AND  1100B
130 DATA F6,02:'       OR   02
140 DATA ED,79:'       OUT  (C),A
150 DATA 0D   :'       DEC  C
160 DATA 3E,0A:'       LD   A,&h0A
170 DATA ED,79:'       OUT  (C),A
180 DATA 0C   :'       INC  C
190 DATA 3E,02:'       LD   A,02
200 DATA ED,79:'       OUT  (C),A
210 DATA c9   :'       RET
220 DATA z