10 CLEAR 200,&HD000          ' Резервирование области в RAM
20 AD=&HD000                 ' Запись текста программы
30 READ A$                   ' в машинных кодах в эту область
40 IF A$="Z" THEN 100        ' посредством "любимых" нами
50 A=VAL("&H"+A$):POKE AD,A  ' операторов
70 AD=AD+1:GOTO 30           ' POKE
100 DEFUSR=&HD000:A=USR(0)   ' Запуск программы
220 DATA 3E,00              :'  LD  A,0
230 DATA C3,32,01           :'  JP  0132
240 DATA "Z"