5 ' --- Premier programme en langage Basic ---

10 const device = 3B
15 lcdinit : cls
20 ' --- Déclaration des variables utilisées ---
30 dim N as byte
31 dim bp1 as byte
32 dim bp2 as byte
33 dim bp3 as byte
34 dim bp4 as byte
40 bp1 = keyin(1,25) : bp2 = keyin(2,25) : bp3 = keyin(3,25) : bp4 = keyin(4,25)
50 if bp1 = 1 and bp2 = 1 and bp3 = 1 and bp4 = 1 then goto 40

60 beep 16
70 delay 1000
80 beep 16
90 for N = 8 to 15
100 out N,1
110 delay 500
120 next N

130 for N = 8 to 15
140 out N,0
150 delay 500
160 next N

170 delay 1000
180 beep 16
190 locate 0,0
200 print "Platine"
210 delay 1000
220 locate 0,1
230 print "fonctionnelle !" : csroff
240 beep 16
250 delay 2000
260 cls : goto 40