K{ll kod till 'RESETFIX.BAS'
By B.Bruzelius

        ORG 00         ;relativ
FIXRST  EQU $
        CALL 3897      ;get BOFA
        PUSH HL        ;spara adress
        LD E,00        ;nollst{ll r{k.
        LD A,13        ;ld ack 0DH
FIND13  INC E          ;coTnter~s
        CPI            ;{r det 0DH?
        JR NZ,FIND13   ;nej
        POP HL         ;get adress
        LD (HL),E      ;radl{ngden
OLDEOF  PUSH HL        ;HL till
        POP BC         ;BC
GEOFA   LD A,13        ;ld ack 0DH
        CPIR           ;{r det 0DH
        LD A,01        ;samt EOFA'S
        CP (HL)        ;1
        JR NZ,GEOFA    ;nej
EOFA    LD (65054),HL  ;ja,skrivEOF~
       RET
   < Ins{nt av 1717 >
