1 REM Ins{nt av 455
10 REM 
11 REM SKAPART DATA FILE
12 REM I ITH's FORMAT
13 REM O B S ! EJ '.ITH'
14 REM av Kent Berggren
15 REM ins{nt av nr 455
16 REM liknande program finns 
17 REM som spar minnet i samma 
18 REM format som emblitorn
19 REM 
20 DIM B$=120%
21 H$='0123456789ABCDEF'
22 C%=10%
23 ; "VAD SKALL FILEN HETA"; : INPUT D$
24 ; "START ADRESS:"; : INPUT D%
25 ; "SLUT  ADRESS:"; : INPUT D1%
26 PREPARE D$ ASFILE 1%
27 B$="1 A%="+NUM$(D%)+"% : N%="+RIGHT$(NUM$(D1%-D%),2%)+"% : H$='0123456789ABCDEF'"
28 ; #1,B$ : ; B$
29 B$="2 ONERRORGOTO 5 : READ T$ : FOR I%=1% TO 28% STEP 2%"
30 ; #1,B$ : ; B$
31 B$="3 POKE A%,16%*(INSTR(1%,H$,MID$(T$,I%,1%))-1%)+INSTR(1%,H$,MID$(T$,I%+1%,1%))-1%"
32 ; #1,B$ : ; B$
33 B$="4 A%=A%+1% : N%=N%-1% : IF N%>0% NEXT I%"
34 ; #1,B$ : ; B$
35 B$="5 IF N%>0% THEN 2 ELSE END"
36 ; #1,B$ : ; B$
37 B$=""
38 FOR B%=D% TO D1% STEP 14%
39 GOSUB 46
40 ; #1,B$
41 NEXT B%
42 IF B%>=D1% THEN 44
43 GOSUB 46
44 CLOSE 1%
45 END 
46 B$=""
47 ONERRORGOTO 53
48 FOR I%=0 TO 13
49 IF B%+I%>D1% THEN 53
50 B$=B$+MID$(H$,PEEK(I%+B%)/16%+1%,1%)
51 B$=B$+MID$(H$,(PEEK(B%+I%) AND 15%)+1%,1%)
52 NEXT I%
53 B$=NUM$(C%)+" DATA "+B$
54 C%=C%+10%
55 B$=RIGHT$(B$,2%)
56 ; B$
57 RETURN