Script se reportant à l'article :
" Palmitel, prenez le contrôle du Minitel " de la rubrique Pratique Palm OS.

P*Demo

label definir debut	Définit le label "début"
$N = :1	Affecte "1" à la variable N
$E = :0	Affecte "0" à la variable E
label definir repete	Définit le label "répéte"
$P = $N	Affecte le contenu de N à la variable P
$P += :.	Ajoute "." à la variable P
$P += $E	Ajoute le contenu de E à la variable P
page affiche $P	Affiche la page portant pour nom le contenu de la variable P, soit la première fois la page "1.0" : "1"+ "." + "0"
page capture $C	Capture la saisie du "miniteliste" dans la variable C ; la touche utilisée est stockée dans la variable T (:ENVoi, :RETour, :SUIte, :CoNneXion, ":ANNulation", ":CORrection", ":GUIde", ":REPetition" ou ":SOMmaire").
$T ? :SOM	Compare le contenu de T et "SOM" ; Le miniteliste a-t-il validé par la touche SOMMAIRE ?
label si_egal :debut	si oui retourne au "début", sinon poursuit
$T ? :CNX	La touche CONNEXION alors ?
label si_egal :debut	si oui retourne au "début", sinon poursuit
$O = $N	Mémorise N (nom de la page) dans O et F dans E (extension de la page)
$F = $E
$T ? :SUI	La touche SUITE ?
label si_egal :suite	si oui va au label "suite", sinon poursuit
$T ? :RET	La touche RETOUR ?
label si_egal :retour	si oui va au label "retour", sinon poursuit
$T ? :ENV	La touche ENVOI ?
label si_egal :envoi	si oui va au label "retour"
label aller_a :repete	sinon retourne au label "répéte" (autre touche : CORRECTION, ANNULATION et REPETITION)
label definir suite	L'utilisateur a pressé SUITE
$F += 1	Ajoute 1 à l'extension (x.0 devient x.1, ...)
$F += :	La variable F est reconvertie en chaîne, l'opération précédente (ajout de 1), l'ayant convertie en nombre
label aller_a :valide	Saut à "valide"
label definir retour	L'utilisateur a pressé RETOUR
$F -= 1	Retire 1 à l'extension (x.1 devient x.0,...)
$F += :	Conversion (voir ci-dessus)
label aller_a :valide	Saut à "valide"
label definir envoi	L'utilisateur a pressé ENVOI
$O += $C	Concaténe la saisie de l'usager au nom de la page.
$F = :0	L'extension est remise à zéro (.0)
label definir valide	Validation de la page : existe-t-elle ?
$Q = $O	Création du nouveau nom dans Q = $O (nom) + "." + F (extension)
$Q += :.
$Q += $F
page valide $Q
label su_faux :repete	La page est inconnue : retourne à "répéte"
$N = $O	La page est connue remplace l'ancienne désignation (N, E) par la nouvelle (O,F)
$E = $F
label aller_a :repete	Et on recommence...