TITLE 'EXEMPEL'
;
; V[NTA P] L\SENORDET ABC80
;
        ORG     65408
        LD      HL,UT_TEX
        LD      BC,7
        CALL    0BH ;SKRIV
L[SL\S: CALL    2   ;L[S
        CP      'A'
        JR      NZ,L[SL\S
        CALL    2   ;L[S
        CP      'B'
        JR      NZ,L[SL\S
        CALL    2
        CP      'C'
        JR      NZ,L[SL\S
        CALL    2
        CP      '8'
        JR      NZ,L[SL\S
        CALL    2
        CP      '0'
        JR      NZ,L[SL\S
        RET
UT_TEX: DEFB    12 ;RADERA SK[RMEN
        DEFM    'L\SEN?'
        END