programme pour C64 en 6 lignes

[sidchip_fr]

Un petit programme de "réveil matin" pour C64 en 6 lignes (marche aussi avec les émulateurs VICE ou CCS64)
10 TI$="230000"
20 PRINTCHR$(147);:PRINTTI$;
30 IF TI$="230100"THEN50
40 GOTO20
50 POKE54296,15:POKE54278,240:POKE54276,17
60 FORI=0TO255STEP3:POKE54273,I:NEXTI:GOTO60

Notice : précisez l'heure actuelle en ligne 10 (heure,minutes,secondes).Là j'ai mis 23 heures 00 minute et 00 seconde.Et enfin précisez l'heure de réveil en ligne 30 sur le même principe.Là j'ai mis 23 heures 01 minute et 00 seconde.Lancer le programme par RUN.Le réveil sonnera donc au bout d'une minute,mais rien ne vous empêche de mettre une heure de réveil plus matinale.
Concernant la sonnerie,ça ne ressemble pas à un réveil mais plus à une alarme ;-)
A+

[Xorion]

Un petit programme de "réveil matin" pour C64 en 6 lignes (marche aussi avec les émulateurs VICE ou CCS64)
10 TI$="230000"
20 PRINTCHR$(147);:PRINTTI$;
30 IF TI$="230100"THEN50
40 GOTO20
50 POKE54296,15:POKE54278,240:POKE54276,17
60 FORI=0TO255STEP3:POKE54273,I:NEXTI:GOTO60

Notice : précisez l'heure actuelle en ligne 10 (heure,minutes,secondes).Là j'ai mis 23 heures 00 minute et 00 seconde.Et enfin précisez l'heure de réveil en ligne 30 sur le même principe.Là j'ai mis 23 heures 01 minute et 00 seconde.Lancer le programme par RUN.Le réveil sonnera donc au bout d'une minute,mais rien ne vous empêche de mettre une heure de réveil plus matinale.
Concernant la sonnerie,ça ne ressemble pas à un réveil mais plus à une alarme ;-)
A+

Excellent je m'en vais tester ça ! ça pourrait tenir en 1 lignes ou 2 !

[Anarwax]

t'as pas un ptit render ? histoire d"écouter la sonnerie ?

[sidchip_fr]

t'as pas un ptit render ? histoire d"écouter la sonnerie ?

Je ne suis pas doué pour faire des enregistrements audio 
Mais si tu veux juste l'effet sonore,tu tapes les deux dernières lignes (50 et 60) et ça marchera 

La forme d'onde choisie est la 17 (triangle) mais on peut en mettre une autre par exemple en modifiant le poke 54276,33 (dent de scie)

A+