6C30:F5 3B CAL 15 3B	; LIDP indicateur ecran
6C32:D4 EF ANID EF		; Supprime [RUN]
6C34:F2 04 CAL 12 04	; GET
6C36:F5 3B CAL 15 3B	; LIDP indicateur ecran
6C38:D5 10 ORID 10		; Affiche le [RUN]
6C3A:03 6C LIB 6C
6C3C:02 A8 LIA A8
6C3E:E2 B5 CAL 02 B5	; Y <- &6CA8 (adresse de K)
6C40:02 F5 LIA F5
6C42:26 IYS
6C43:10 6F 57 LIDP&6F57
6C46:57 LDD
6C47:26 IYS
6C48:23 CLA
6C49:26 IYS
6C4A:37 RTN				; K$=caractere tappe
6C4B:04 IX				; Routine [PEEK]
6C4C:EA B8 CAL 0A B8	; Lecture de l'argument
6C4E:FD 84 CAL 1D 84	; Call Rtn @dr <- X
6C50:F6 3A CAL 16 3A	; BCD -> BIN
6C52:13 18 LIQ 18
6C54:82 LP02			; {a,b} <- @dr a lire 
6C55:0A MVB
6C56:00 00 LII 00
6C58:82 LP02
6C59:35 DATA
6C5A:10 6C AF LIDP&6CAF
6C5D:52 STD
6C5E:37 RTN
6C5F:04 IX				; routine [Recherche]
6C60:EA B8 CAL 0A B8	; Lecture de l'argument
6C62:FD 84 CAL 1D 84	; Call Rtn @dr <- X
6C64:F6 3A CAL 16 3A	; BCD -> BIN
6C66:13 18 LIQ 18
6C68:86 LP06
6C69:0A MVB
6C6A:07 DY
6C6B:06 IY
6C6C:13 06 LIQ 06
6C6E:82 LP02
6C6F:0A MVB
6C70:00 00 LII 00
6C72:82 LP02
6C73:35 DATA
6C74:67 00 CPIA 00
6C76:29 0C JRNZM 6C6B
6C78:10 6C B0 LIDP&6CB0
6C7B:86 LP06
6C7C:1B EXBD
6C7D:37 RTN
