1 REM Ins{nd av Bosse Gidmark <455>    1985-08-02 13.56.33
10 REM ====================================
20 REM SKAPAR ITH
30 REM Standar format till t ex prom br{nnare"
40 REM Kent Berggren
50 REM 850731
60 DIM H$(16)
70 REM ====================================
80 ; "Start adress "; : INPUT A
90 ; "Stopp adress "; : INPUT E
100 FOR P=0 TO 15
110 H$="0123456789ABCDEF"
120 H$(P)=MID$(H$,P+1,1)
130 NEXT P
140 H$(16)="10"
150 A$=""
160 C=0
170 A1%=A/4096
180 A2%=(A-A1%*4096)/256
190 A3%=(A-A1%*4096-A2%*256)/16
200 A4%=(A-A1%*4096-A2%*256-A3%*16)
210 A$=A$+H$(A1%)+H$(A2%)+H$(A3%)+H$(A4%)
220 C=C+A1%*16+A2%+A3%*16+A4%
230 A$=A$+"00"
240 FOR P=0 TO 15
250 A1%=PEEK(A)/16
260 A2%=PEEK(A)-A1%*16
270 A$=A$+H$(A1%)+H$(A2%)
280 C=C+PEEK(A)
290 A=A+1
300 IF A>E THEN 320
310 NEXT P
320 W=(LEN(A$)-6)/2
330 C=C+W
340 A$=H$(W)+A$
350 IF W<16 THEN A$=":0"+A$ ELSE A$=":"+A$
360 B=0
370 B=B+256
380 IF B<C THEN 370
390 C=B-C
400 A1%=C/16
410 A2%=C-A1%*16
420 A$=A$+H$(A1%)+H$(A2%)
430 ; A$
440 A$=""
450 IF A>E THEN END 
460 GOTO 150