10 CLS:KEYOFF:PRINT"Найду факториал заданного Вами целого числа"
20 INPUT"Введите целое число, меньшее 6";F
30 POKE &HC000,F
40 IF F=0 OR F=1 THEN POKE &HC003,1:GOTO 90
50 CLEAR 200,&HD000:DEFUSR=&HD000:I=&HD000
60 READ A$:IF A$="z" THEN 80 
70 POKE I,VAL("&h"+A$):I=I+1:GOTO 60
80 A=USR(0)
90 PRINT "Факториал "PEEK(&HC000)"=" PEEK(&HC003):END 
100 DATA 3A,00,C0      :'LD   A,(C000h) 
110 DATA FE,02         :'CP   2h
120 DATA 28,0A         :'JR   Z,$+12 
W
W
W
W
W
W
W
W
W
W
W
Y      
130 DATA 47            :'LD   B,A               
V
140 DATA 05            :'DEC  B                 
V
150 DATA 05            :'DEC  B                 
V
160 DATA 48            :'LD   C,B ░
W
W
W
W
W
W
W
Y     
V
170 DATA 57            :'LD   D,A         
V     
V
180 DATA 82            :'ADD  A,D ░
W
W
W
W
Y  
V     
V
190 DATA 10,FD         :'DJNZ $-1h 
W
W
W
W
[  
V     
V    
200 DATA 41            :'LD   B,C         
V     
V    
210 DATA 10,F8         :'DJNZ $-6h 
W
W
W
W
W
W
W
[     
V    
220 DATA 32,03,C0      :'LD   (C003h),A ░
W
W
W
W
W
W
W
[  
230 DATA C9,"z"        :'RET