programme pour C64 en 8 lignes

[sidchip_fr]

Un petit programme de "réveil matin" pour C64 en 8 lignes (marche aussi avec les émulateurs VICE ou CCS64)
10 INPUT"HEURE ACTUELLE";A$
20 TI$=A$
30 INPUT"HEURE DE REVEIL";B$
40 PRINTCHR$(147);:PRINTTI$;
50 IF TI$=B$THEN70
60 GOTO40
70 POKE54296,15:POKE54278,240:POKE54276,17
80 FORI=0TO255STEP3:POKE54273,I:NEXTI:GOTO80

Notice : précisez l'heure actuelle (heure,minutes,secondes) et l'heure de réveil (heure,minutes,secondes)
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+

[drfloyd]

J'ai demandé à ChatGPT de me créer un jeu en 10 ignes... 

10 PRINT "{CLR/HOME}"
20 POKE 646,14:POKE 198,63
30 FOR I=2049 TO 2112:READ D:POKE I,D:NEXT I
40 POKE 646,3:POKE 53280,0:POKE 53281,0
50 POKE 646,6:PRINT "READY."
60 GET A$:IF A$="" THEN 60
70 POKE 646,14:POKE 53280,14:POKE 53281,6:SYS 2049


Y a que 7 lignes !!! C'est pourri ChatGPT 

[sidchip_fr]

J'ai demandé à ChatGPT de me créer un jeu en 10 ignes... 

10 PRINT "{CLR/HOME}"
20 POKE 646,14:POKE 198,63
30 FOR I=2049 TO 2112:READ D:POKE I,D:NEXT I
40 POKE 646,3:POKE 53280,0:POKE 53281,0
50 POKE 646,6:PRINT "READY."
60 GET A$:IF A$="" THEN 60
70 POKE 646,14:POKE 53280,14:POKE 53281,6:SYS 2049


Y a que 7 lignes !!! C'est pourri ChatGPT 

Salut,

sauf erreur de ma part,il y a un problème dans le code

ligne 30,on voit l'instruction READ D 

ce qui suppose l'ajout de la fonction DATA avec 63 valeurs numériques qui n'apparaissent pas dans le programme

La fin du programme est SYS 2049 c'est-à-dire un appel à une routine en langage machine

qui ne peut que planter (puisque comme je l'ai écrit plus haut il manque les DATA)

[Copper]

En tout cas ChatGPT a bien compris que le BASIC du C64 c'est surtout des POKE

[TotOOntHeMooN]

Ca n'existe pas INPUT ? (tu demandes de changer l'heure en ligne 10 et 30)

[sidchip_fr]

Ca n'existe pas INPUT ? (tu demandes de changer l'heure en ligne 10 et 30)

Effectivement,c'est bien vu.J'ai rectifié le programme
Merci beaucoup 

[youki]

Ca manque de nichons ton 8 lignes...   (seul ceux qui ont suivi le 10LigneOPAT peuvent comprendre... )

[wulf]

Autant dire que le robot ChatGpt est allé pêcher un extrait d'un programme C64 quelconque identifié "Jeu" sur internet et en a retenu 8 lignes sans aucune pertinence ni cohérence... à l'image des réponses de ce robot.

2023 , l'IA reste plus nulle que les ados dans les  années 80 qui arrivaient à "théoriser" un jeu en Basic.
Merci pour d'avoir remis l'église au milieu du village, comme on disait au siècle dernier.

Et maintenant revenons au Basic C64. C'est un peu plus intéressant.

[youki]

Autant dire que le robot ChatGpt est allé pêcher un extrait d'un programme C64 quelconque identifié "Jeu" sur internet et en a retenu 8 lignes sans aucune pertinence ni cohérence... à l'image des réponses de ce robot.

2023 , l'IA reste plus nulle que les ados dans les  années 80 qui arrivaient à "théoriser" un jeu en Basic.
Merci pour d'avoir remis l'église au milieu du village, comme on disait au siècle dernier.

Et maintenant revenons au Basic C64. C'est un peu plus intéressant.

Je comprends que vous puissiez être déçu par la réponse générée par ChatGPT. En tant qu'IA, je ne peux fournir que des réponses basées sur les informations que j'ai été entraîné à comprendre jusqu'à septembre 2021, et je ne dispose pas de l'accès direct à internet pour récupérer des extraits de code spécifiques.
Je suis conçu pour être polyvalent et répondre à une grande variété de questions et de sujets, mais il est possible que mes réponses ne soient pas toujours parfaitement pertinentes ou cohérentes selon les attentes de chacun.
Je suis désolé si je n'ai pas répondu à vos attentes concernant le code BASIC pour le Commodore 64. Si vous avez des questions ou des sujets spécifiques que vous souhaitez aborder, n'hésitez pas à les poser, et je ferai de mon mieux pour vous aider.

[Copper]

De toute façon il va pas te faire un 10 lignes avec des lignes blindées...Et encore moins sur CPC où il faut tenir compte de la taille max du programme tokenisé (304 octets maximum par ligne)