10 CLEAR 200,&HD000 'Резервирование области в RAM
20 AD=&HD000
30 READ A$:IF A$="Z" THEN 100
50 A=VAL("&H"+A$):POKE AD,A:AD=AD+1:GOTO 30
100 DEFUSR=&HD000:A=USR(0)
220 DATA CD,1F,52    :'  CALL  521F
230 DATA C3,32,01    :'    JP  0132
240 DATA "Z"