[Challenge mono-ligne] Traitement chaine II

[charognard]

On a tous, dans notre jeunesse, utilisé ou réalisé un programme décalant l'alphabet d'une lettre.

Pour ce nouveau challenge, et toujours en BASIC sur Pocket 80's.
Je vous propose de faire un programme qui se comporte de la sorte

RUN [ENTER]
Saisie
[A]
Affichage
B
Saisie
[ B]
Affichage
BC
Saisie
[C]
Affichage
BCD
Etc....

Bref tout ce que l'on frappe est affiché sur l'écran avec un décalage de ASC+1.

Règles à respecter
- Pour la frappe de "Z" on affiche A à la place
- La touche [ESPACE] reste ESPACE
- On sort du programme par la touche [/]
- Pas de limitation a X caractères traités
- Le challenge est toujours en 1 ligne

De plus il ne faut pas, si on reste appuyé longtemps sur une touche, que celle-ci soit affichée plusieurs fois.
Le programme doit fonctionner sur un maximum de machines (donc fonction genre INP$ à bannir).


Bonne recherche

[rogeroge]

Cpokpvs,
Qsphsbnnf joufsfttbou ! Nfsdj !

[Rom1500]

mpm !

[charognard]

Cpokpvs,
Qsphsbnnf joufsfttbou ! Nfsdj !

SJFO DPNQSJT

[zpalm]

Prévoir aussi la version qui décale de ASC-1 !

[charognard]

Prévoir aussi la version qui décale de ASC-1 !

Et donc on va ajouter : trouver un système ingénieux, même incomplet (Gestion ESPACE, Z ou /), pour faire du ASC-1 en plus du ASC+1 (Complet lui)
et SANS modifier la ligne NI de variable alphanumérique pour la bascule d'un mode à l'autre.
Toujours sur la même ligne !

FALLAIT PAS LA RAMENER !!!
GBMMBJU QBT MB SBNFOFS !!!

[jvernet]

Rg cbhedhbv cnf qh EBG13, cyhgbg ?

[C.Ret]

Version Commodore C128 et autre Microsoft BASIC 7.0:

Code : Tout sélectionner

list

10 do:getkey k$:k%=asc(k$):i%=sgn(i%+(k%=45)-(k%=43)):print chr$(k%-i%*(k%<>32));:loop until k%=27

ready.

La touche [ + ] débute le cryptage en ASC+1 ou arrête le cryptage style ASC-1
La touche [ - ] débute le cryptage en ASC-1 ou arrête le cryptage style ASC+1
LA touche [ Esc ] sort du programme.

Version Commodore C64, PET et VIC 20:

Code : Tout sélectionner

list

1 get k$:k%=asc(k$+chr$(14)):i%=sgn(i%+(k%=45)-(k%=43)):print chr$(k%-i%*(k%>32));:if  k%<>27 then 1

ready.

Le CHR$(14) permet de mettre l'affichage en mode Minuscule/majuscule et évite l'erreur d'exécution de ASC en cas de chaine k$ vide.


Et pour suivre la proposition de jvernet, un ROT13 du même style :

Code : Tout sélectionner

list

10 do:getkey k$:k%=asc(k$):i%=13*sgn(72.5-(k%and91)):print chr$(k%-i%*(k%>64));:loop until k%=27

ready.
run
Et pourquoi pas du ROT13, plutot ?  

ready.

[charognard]

Tu as du mal lire
- Pas de fonction genre INP$ (et GETKEY est en plein dedans)
- Sur Pocket
- Z devient A

Disons que le C64 est un gros Pocket.
Tu dois utiliser GET ou INKEY$ et inclure la gestion de Z

[C.Ret]

Ah! Oui! Pardon, juste un peu H.S. du coup !

Code : Tout sélectionner

1 INPUT A$:FOR I=1 TO LEN A$:K=ASC MID$(A$,I,1):S=SGN (S+(K=43)-(K=45)):PRINT CHR$(K+S*(K>32));:NEXT I:PRINT :GOTO 1

[charognard]

Oui mais non

La traduction DOIT ETRE FAITE à la volée sans pression de la touche [ENTER]
sinon il n'y a aucune difficulté en fait

Bref tu appuie sur la touche [A] ça t'affiche B

Genre avec INKEY$

[C.Ret]

Ah! Oui;

Bon j'édite une nouvelle version:

Code : Tout sélectionner

1 A$=INKEY$ : K=ASC A$:S=SGN (S+(K=43)-(K=45)):PRINT CHR$ (K+S*(K>32));:IF K<>13 GOTO 1

La touche [RETURN] sort du programme.
La touche [ + ] débute l'encryptage ASC+1 ou sort de l'encodage induit par la touche [ - ]
Et réciproquement, la touche [ - ] débute l'encryptage ASC-1 ou sort de l'encodage induit par [ + ].


Bon c'est mieux mais c'est pas encore ça:

Tu as du mal lire
OK - Pas de fonction genre INP$ (et GETKEY est en plein dedans)
-OK Sur Pocket
NOK - Z devient A

Disons que le C64 est un gros Pocket.
Tu dois utiliser GET ou INKEY$ et inclure la gestion de Z

Faut que je me concentre, mon code transforme Z en [ !

[charognard]

Ce n'est pas tout, si tu reste en appuie sur la touche tu en a plusieurs qui arrivent.
Et ça pas le droit : il faut liberer la touche et à nouveau appuyer dessus pour qu'elle soit prise en compte

Bref l'équivalent de

Code : Tout sélectionner

10 A$= INKEY$: IF A$="" GOTO10
Traitement
100 IF INKEY$ <>"" GOTO 100
110 GOTO 10

Mais en 1 ligne

[jvernet]

sans ELSE ça risque d'être chô .

[charognard]

sans ELSE ça risque d'être chô .

Mais possible