1 REM Ins{nt av: Anders Franz`n <5258>    1985-05-26 22.14.51
100 REM FILTOHEX
110 REM Konvertera valfri fil
120 REM till en hexfil. En
130 REM checksumma l{ggs sist.
140 REM 
150 REM orginal ABSTOTEX av
160 REM L-O Larson <5499> 1985-01-25
170 REM Ny version BINTOHEX av
180 REM B Kullmar <1789> 1985-04-28
190 REM [ndrad till ABC80 av
200 REM A Franz`n <5258> 1985-05-03
210 REM 
220 H$="0123456789ABCDEF"
230 ; CHR$(12%)"FILTOHEX" : ; : ; 
231 ; 'Programmmet konverterar en 8-bitarsfil, t ex BAC eller ABS fil till'
232 ; 'en textfil. Denna textfil kan sedan skickas eller h{mtas till monitorn.' : ; 
233 ; 'I textfilen skrivs f|rst in filnamnet, vilket g|r att n{r man konverterar'
234 ; 'tillbaka s} f}r man r{tt filnamn automatiskt. Anger man en enhet s} f}r'
235 ; 'utfilen samma enhet.' : ; 
236 ; 'Man konverterar tillbaka till oringalet med HEXTOFIL.' : ; 
237 ; 'Programmet kan ocks} anv{ndas f|r att {ndra i 8-bitars filer med en'
238 ; 'vanlig editor.' : ; 
240 ; 'Infil '; : INPUT F1$
250 OPEN F1$ ASFILE 1%
260 F2$=F1$ : I%=INSTR(1%,F2$,".")
270 IF I%>0% LET F2$=LEFT$(F2$,I%-1%)
280 F2$=F2$+".HEX" : ONERRORGOTO 310
290 OPEN F2$ ASFILE 2% : CLOSE 2%
300 ; "Fil "F2$" finns redan !" : END 
310 ONERRORGOTO 500
320 PREPARE F2$ ASFILE 2%
330 I%=INSTR(1%,F1$,":")
340 IF I%>0% LET F1$=RIGHT$(F1$,I%+1%)
350 ; 'Utfil: 'F2$ : ; #2%,F1$
360 ONERRORGOTO 500 : B%=0% : S%=0%
370 Z%=CALL(28666%,1%)+CALL(28668%,B%)
380 FOR J%=0% TO 9%
390 IF J%<9% THEN M%=26% ELSE M%=19%
400 FOR I%=1% TO M%
410 X=ASC(MID$(Q0$,26%*J%+I%,1%))
420 S%=S%+X : X=X/16% : H1%=INT(X)+1%
430 H2%=(X-H1%+1%)*16%+1%
440 ; #2%,MID$(H$,H1%,1%);
450 ; #2%,MID$(H$,H2%,1%);
460 NEXT I% : ; #2%
470 NEXT J% : B%=B%+1%
480 ; B%" konverterade block"CHR$(13%);
490 GOTO 370
500 IF ERRCODE=38% GOTO 530
510 ; : ; "FELKOD ";ERRCODE;CHR$(7%)
520 GOTO 540
530 ; #2%,S%
540 CLOSE 1% : CLOSE 2% : END