10 CLEAR 200,&HF000:DEFUSR=&HF000
20 DATA 21,00,00     :'LD  HL,address(N1)  ;F000h
30 DATA CD,5C,2C     :'LD  DAC,(HL)        ;F003h
60 DATA CD,DF,2B     :'DAC:=RND(DAC)       ;F006h
70 DATA 21,00,00     :'LD  HL,address(N1)  ;F009h
80 DATA CD,67,2C     :'LD  (HL),DAC        ;F00Ch
90 DATA C9           :'RET                 ;F00Fh
100 FOR T=0 TO 15:READ Z$:POKE &HF000+T,VAL("&h"+Z$):NEXT
110 INPUT"ώΙΣΜΟ";N1
120 A$=HEX$(VARPTR(N1))
130 L1$=RIGHT$(A$,2)
140 H1$=LEFT$(A$,2)
150 POKE &HF001,VAL("&h"+L1$):POKE &HF002,VAL("&h"+H1$)
170 POKE &HF00A,VAL("&h"+L1$):POKE &HF00B,VAL("&h"+H1$)
180 H=USR(H):PRINT"RND(n1)=";N1