10 ! HEXADR.800
11 NO EXTEND : INTEGER 
20 ; "Ange en decimal adress, s} f|ljer l}ga  och sedan h|ga delen av hexadressen." : A$="0123456789ABCDEF"
30 ON ERROR GOTO 110
40 INPUT X. : IF X.>65535. GOTO 90 ELSE IF X.<0. GOTO 130
50 Y=INT(X./256) : Z=X.-256.*Y
60 H(2)=INT(Z/16) : H(1)=Z-16*H(2) : H(4)=INT(Y/16) : H(3)=Y-16*H(4)
70 FOR I=1 TO 3 STEP 2 : B$=MID$(A$,H(I+1)+1,1)+MID$(A$,H(I)+1,1) : ; B$ : NEXT I : GOTO 40
80 END 
90 ; 'F|r h|gt tal (max 65535)'
100 GOTO 40
110 ; ' Ej numreriskt v{rde'
120 RESUME 30
130 ; 'F\r l}gt tal'
140 GOTO 40