markdown code extract

====== Bonjour.OPL ======
<code>
PROC bonjour:
	PRINT "bonjour"
	GET
ENDP
</code>

====== CestQui.OPL ======
<code>
PROC quiEstCe:
	LOCAL lettres$(50)
	
	PRINT "qui êtes-vous ?"
	INPUT lettres$
	PRINT "bonjour ", lettres$
	
	GET
	
ENDP
</code>

====== Devine.OPL ======
<code>
PROC devine:
	LOCAL lettres$(50)
	
	PRINT "allume la ..."
	INPUT lettres$
	
	IF lettres$ = "lumiere"
		PRINT "bonne r‚ponse"
	ENDIF
	
	GET
ENDP
</code>

====== Ecoute.OPL ======
<code>
PROC musique:
	PRINT "pret pour la musique ?"
	GET
	
	BEEP 5,400
	BEEP 5,600
	BEEP 5,800
	BEEP 5,900
	BEEP 5,500
	
ENDP
</code>

====== Foxtrot.OPL ======
<code>
PROC FoxTrot:
	LOCAL a%
	
	a% = 4
	DO
		BEEP 3,400
		BEEP 5,800
	a%=a%-1
	UNTIL a% = 0
	
ENDP
</code>

====== Graph.OPL ======
<code>
PROC Graph:
	
	GAT 10,10
	GLINETO 430,150
	
	GET
ENDP
</code>