1 REM *************************** 2 REM * HEXADR.BAC * 3 REM * VER 1.0 / 1982-09-08 * 4 REM * Gjort o. ins{nt av 2415 * 5 REM * Stig Rosenlund * 6 REM * V{stmannagatan 93 * 7 REM * 113 43 Stockholm * 8 REM * Tel. 08/331736 * 9 REM *************************** 10 ; "Ange en decimal adress, s} f|ljer l}ga och sedan h|ga delen av hexadressen." : A$="0123456789ABCDEF" 20 INPUT X : Y%=X/256% : Z%=X-256*Y% : H%(2%)=Z%/16% : H%(1%)=Z%-16%*H%(2%) : H%(4%)=Y%/16% : H%(3%)=Y%-16%*H%(4%) 30 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 20