Extensions Alice oui...mais le software ;-)

[Carl]

Avec toutes ces nouvelles interfaces développées par la team Fred & Phil et Cie, il faudrait se mettre à développer quelques logiciels
J'ai tenté un petit logiciel qui utilise le Multiport Alice avec la carte RTC, la carte Vocale et la cartouche Paroles....
L'ordinateur Alice va vous donner l'heure toutes les minutes...

IMG_0134.jpg (73.04 Kio) Consulté 515 fois

Code : Tout sélectionner

10 REM HORLOGE PARLANTE - CARL SEP.2024
15 CLS
20 PRINT "HORLOGE PARLANTE SUR ALICE :-)"
100 POKE 49000,4: H=PEEK(49001): MN=1
120 ON H GOSUB 200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430
130 POKE 4096,7 : POKE 255,16:EXEC 4096
140 POKE 49000,2: M=PEEK(49001)
144 PRINT "IL EST ";H;":";M;"
145 POKE 49000,2: M=PEEK(49001):M1=M
146 IF M <10 THEN GOSUB 156:GOTO 152
147 IF M <20 THEN M=M-9:GOSUB 157:GOTO 152
148 IF M <30 THEN M=M-19:GOSUB 158:GOTO 152
149 IF M <40 THEN M=M-29:GOSUB 159:GOTO 152
150 IF M <50 THEN M=M-39:GOSUB 160:GOTO 152
151 IF M <60 THEN M=M-49:GOSUB 161:GOTO 152
152 POKE 49000,2: MN=PEEK(49001):IF MN > M1 OR MN<M1 THEN GOTO 100
153 GOTO 152
156 ON M GOSUB 2000,2010,2020,2030,2040,2050,2060,2070,2080,2081:RETURN
157 ON M GOSUB 2090,2100,2120,2130,2140,2150,2160,2170,2180,2190:RETURN
158 ON M GOSUB 2200,2210,2220,2230,2240,2250,2260,2270,2280,2290:RETURN
159 ON M GOSUB 3200,3210,3220,3230,3240,3250,3260,3270,3280,3290:RETURN
160 ON M GOSUB 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290:RETURN
161 ON M GOSUB 5200,5210,5220,5230,5240,5250,5260,5270,5280,5290:RETURN
190 REM HEURE
200 POKE 4096,7 : POKE 255,39:EXEC 4096:RETURN
210 POKE 4096,6 : POKE 255,2:EXEC 4096:RETURN
220 POKE 4096,6 : POKE 255,3:EXEC 4096:RETURN
230 POKE 4096,6 : POKE 255,4:EXEC 4096:RETURN
240 POKE 4096,6 : POKE 255,5:EXEC 4096:RETURN
250 POKE 4096,6 : POKE 255,7:EXEC 4096:RETURN
260 POKE 4096,6 : POKE 255,9:EXEC 4096:RETURN
270 POKE 4096,6 : POKE 255,10:EXEC 4096:RETURN
280 POKE 4096,6 : POKE 255,12:EXEC 4096:RETURN
290 POKE 4096,6 : POKE 255,3:EXEC 4096:RETURN
300 POKE 4096,6 : POKE 255,15:EXEC 4096:RETURN
310 POKE 4096,6 : POKE 255,16:EXEC 4096:RETURN
320 POKE 4096,6 : POKE 255,17:EXEC 4096:RETURN
330 POKE 4096,6 : POKE 255,18:EXEC 4096:RETURN
340 POKE 4096,6 : POKE 255,19:EXEC 4096:RETURN
350 POKE 4096,6 : POKE 255,20:EXEC 4096:RETURN
360 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
370 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
380 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,12:EXEC 4096:RETURN
390 POKE 4096,6 : POKE 255,25:EXEC 4096:RETURN
400 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,36:EXEC 4096:POKE 4096,7:POKE 255,39:EXEC 4096:RETURN
410 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,2:EXEC 4096:RETURN
420 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,3:EXEC 4096:RETURN
430 POKE 4096,6 : POKE 255,0:EXEC 4096:RETURN
1900 REM MINUTE 0-9
2000 POKE 4096,6 : POKE 255,0:EXEC 4096:RETURN
2010 POKE 4096,7 : POKE 255,39:EXEC 4096:RETURN
2020 POKE 4096,6 : POKE 255,2:EXEC 4096:RETURN
2030 POKE 4096,6 : POKE 255,3:EXEC 4096:RETURN
2040 POKE 4096,6 : POKE 255,4:EXEC 4096:RETURN
2050 POKE 4096,6 : POKE 255,5:EXEC 4096:RETURN
2060 POKE 4096,6 : POKE 255,7:EXEC 4096:RETURN
2070 POKE 4096,6 : POKE 255,9:EXEC 4096:RETURN
2080 POKE 4096,6 : POKE 255,10:EXEC 4096:RETURN
2081 POKE 4096,6 : POKE 255,12:EXEC 4096:RETURN
2085 REM MINUTE 10-19
2090 POKE 4096,6 : POKE 255,12:EXEC 4096:RETURN
2100 POKE 4096,6 : POKE 255,13:EXEC 4096:RETURN
2110 POKE 4096,6 : POKE 255,15:EXEC 4096:RETURN
2120 POKE 4096,6 : POKE 255,16:EXEC 4096:RETURN
2130 POKE 4096,6 : POKE 255,17:EXEC 4096:RETURN
2140 POKE 4096,6 : POKE 255,18:EXEC 4096:RETURN
2150 POKE 4096,6 : POKE 255,19:EXEC 4096:RETURN
2160 POKE 4096,6 : POKE 255,20:EXEC 4096:RETURN
2170 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
2180 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
2190 POKE 4096,6 : POKE 255,13:EXEC 4096:POKE 255,12:EXEC 4096:RETURN
2195 REM 20 MINUTES
2200 POKE 4096,6 : POKE 255,25:EXEC 4096:RETURN
2210 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 4096,7:POKE 255,39:EXEC 4096:RETURN
2220 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,2:EXEC 4096:RETURN
2230 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,3:EXEC 4096:RETURN
2240 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,4:EXEC 4096:RETURN
2250 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,5:EXEC 4096:RETURN
2260 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,7:EXEC 4096:RETURN
2270 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
2280 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
2290 POKE 4096,6 : POKE 255,25:EXEC 4096:POKE 255,12:EXEC 4096:RETURN
3195 REM 30 MINUTES
3200 POKE 4096,6 : POKE 255,27:EXEC 4096:RETURN
3210 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 4096,7:POKE 255,39:EXEC 4096:RETURN
3220 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,2:EXEC 4096:RETURN
3230 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,3:EXEC 4096:RETURN
3240 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,4:EXEC 4096:RETURN
3250 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,5:EXEC 4096:RETURN
3260 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,7:EXEC 4096:RETURN
3270 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
3280 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
3290 POKE 4096,6 : POKE 255,27:EXEC 4096:POKE 255,12:EXEC 4096:RETURN
4195 REM 40 MINUTES
4200 POKE 4096,6 : POKE 255,28:EXEC 4096:RETURN
4210 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 4096,7:POKE 255,39:EXEC 4096:RETURN
4220 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,2:EXEC 4096:RETURN
4230 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,3:EXEC 4096:RETURN
4240 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,4:EXEC 4096:RETURN
4250 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,5:EXEC 4096:RETURN
4260 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,7:EXEC 4096:RETURN
4270 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
4280 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
4290 POKE 4096,6 : POKE 255,28:EXEC 4096:POKE 255,12:EXEC 4096:RETURN
5195 REM 50 MINUTES
5200 POKE 4096,6 : POKE 255,29:EXEC 4096:RETURN
5210 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 4096,7:POKE 255,39:EXEC 4096:RETURN
5220 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,2:EXEC 4096:RETURN
5230 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,3:EXEC 4096:RETURN
5240 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,4:EXEC 4096:RETURN
5250 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,5:EXEC 4096:RETURN
5260 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,7:EXEC 4096:RETURN
5270 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,9:EXEC 4096:RETURN
5280 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,10:EXEC 4096:RETURN
5290 POKE 4096,6 : POKE 255,29:EXEC 4096:POKE 255,12:EXEC 4096:RETURN

Le Wav pour un vrai Alice...

Horloge_.zip

(27.07 Kio) Téléchargé 1 fois

ps : j'ai fais tourner l'horloge durant 1h15 sans bug mais tout est possible

Carl

[Patrice]

Merci Carl, pour la mise à disposition.

[Carl]

Patrice, je vais proposer une version corrigée ce soir car j’ai détecté une erreur….
Carl

[Brochiman]

Bravo Carl

[Carl]

Le listing est corrigé mais pas le wav, je n'ai pas eu le temps..
Carl

[Patrice]

@Carl : Le listing corrigé est-il celui qui est présent ci-dessus ?

[Carl]

Oui, Patrice, c'est bien ça, je referais le wav ce soir...

Carl

[Patrice]

Ok Carl, merci pour ton retour.

[6502man]

Merci Carl

Je pourrais mettre ton programme à dispo sur l'UHD (quand elle seras prête) ?

[jeffounet]

Bonjour a tous,

Merci Carl pour ce petit programme.
J'aime bien la photo aussi.

Bonne journée

Jean-François

[Brochiman]

Phil j'ai converti le programme de Carl pour l'UHD mais malheureusement je ne peux pas le tester avec l'UHD car le port cartouche est déjà pris par la rom de l'UHD.
@Carl si le programme Parole était sur l'UHD en .bin est-ce que t'on programme de l'horloge parlante pourrait aller le chercher?