Bonjour.OPL

PROC bonjour:
	PRINT "bonjour"
	GET
ENDP

CestQui.OPL

PROC quiEstCe:
	LOCAL lettres$(50)
	
	PRINT "qui êtes-vous ?"
	INPUT lettres$
	PRINT "bonjour ", lettres$
	
	GET
	
ENDP

PROC devine:
	LOCAL lettres$(50)
	
	PRINT "allume la ..."
	INPUT lettres$
	
	IF lettres$ = "lumiere"
		PRINT "bonne rponse"
	ENDIF
	
	GET
ENDP

PROC musique:
	PRINT "pret pour la musique ?"
	GET
	
	BEEP 5,400
	BEEP 5,600
	BEEP 5,800
	BEEP 5,900
	BEEP 5,500
	
ENDP

PROC FoxTrot:
	LOCAL a%
	
	a% = 4
	DO
		BEEP 3,400
		BEEP 5,800
	a%=a%-1
	UNTIL a% = 0
	
ENDP

PROC Graph:
	
	GAT 10,10
	GLINETO 430,150
	
	GET
ENDP