alias xcopy copy [] clone

alias endshell endcli

alias pro execute s:spat protect[]

alias sdate execute s:spat setdate []

alias ren execute s.dpat rename []

alias clear echo "*E[0;0H*E[J"

alias reverse echo "*E[0;0H*E[41;30m*E[J"

alias normal echo "*E[0;0H*E[40;30m*E[J"

.key dummy
.bra {
.ket }

cd sources         ; direction mon répertoire préféré
avail              ; une bonne habitude à prendre pour éviter
status             ; quelques plantages très désagréables...
stack 10000        ; un peu de marge pour mes utilitaires
changetaskpri 5    ; dans le cas d'une utilisation intensive
                   ; en multitâche, j'alloue toujours une forte priorité aux
                   ; processus CLI-Shell à partir desquels je travaille. Par
                   ; contre les CLI-Shell d'exécution des programmes en cours de
                   ; tests sont remis à un niveau normal de priorité (par un
                   ; CHANGETASKPRI 0). Ainsi, lorsque le programme testé boucle 
                   ; sans fin, il ne gêne absolument pas le déroulement de mon
                   ; travail.

newshell newcon:10/10/200/100/Test from S:Shell-Startup-R

execute S:Shell-Startup-R

protect S:Shell-Startup-R +s
Shell-Startup-R

; Fichier Gremlette
if exists Gremlin
   Execute Gremlin
else
   if exists s:Gremlin
      Execute s:Gremlin
   end if
endif

; Fichier Gremlin
.key dummy
.bra [
.ket ]
;
Failat 30
;
Lab prom
Assign >NIL: sg{$$}: exists
If NOT Warn
Assign sg{$$}:
Else
Assign sg{$$}: Sys:
Endif

; astuce de programmation établissant une bascule :
; si le répertoire sg(numéro du cli) avait un sens, il est
; est détruit; s'il n'existe pas, il est créé.
Echo "{$$}è.RAM DISK:) " NOLINE
; affiche une chaîne de caractères qui ressemble étrangement à
; une invite de commande
Skip >NIL: ?
; la commande Skip, qui permet de sauter à une adresse dans le
; fichier script, attend de l'utilisateur cette adresse, mais
; sans lui afficher de renseignements gràce à la redirection
; vers NIL:
Lab Alias
Echo "On m'appelle le Shell du Guru"
Skip prom BACK
;
Lab Assign
Echo "Le soleil brille"
Echo "Les arbres sont verdoyants"
Echo "Les oiseaux chantent"
Echo "Avez-vous écouté pousser votre barbe aujourd'hui ?"
Skip prom BACK
;
Lab Avail
Echo "Je suis prêt à tout"
Skip prom BACK
;
Lab Cd
Echo "Vous êtes perdu *N(moi aussi)*N(où sont les secours)"
Skip prom BACK
;
Lab Date
Echo "Vendredi 1-Apr-88 00:00:00"
Skip prom BACK
;
Lab Dir
Echo "Juste quelques fichiers sans importance"
Skip prom BACK
;
Lab Endcli
Lab Endshell
Echo "Non merci. je pense rester encore un peu"
Skip prom BACK
;
Lab Failat
Echo "Je n'échoue jamais !"
Skip prom BACK
;
Echo "C'est VOTRE faute !"
Skip prom BACK
;
Lab Help
Echo "Il n'y a plus d abonné au numéro que vous avez demandé"
Skip prom BACK
;
Lab Info
Echo "Rien d'intéressant"
Skip prom BACK
;
Lab Ls
Lab List
Echo "Lait*N Oeufs*N Papier Toilette"
Skip prom BACK
;
Lab Newcli
Lab Newshell
If exists Gremlette
NewShell from Gremlette
Else
If exists s:gremlette
 NewShell from s.gremlette
Endif
Else
Echo "Non. On reste là."
Endif 
Skip prom BACK
; c'est ici que le fichier s:gremlette prend tout son sens
;
Lab Path
Echo "Je sais pas, je ne suis pas du quartier"
Skip prom BACK
;
Lab Quit
Echo "J'y suis, j'y reste"
Skip prom BACK
;
Lab Status
Echo "Moi ? Ça va bien, merci"
Skip prom BACK
;
Lab Why
Echo "Parce que"
Skip prom BACK
;
Endskip
Lab Default
Assign >NIL: sg{$$}: exists
If Warn
Echo "Pas ce soir, chéri, j'ai la migraine"
Else
Echo "Arrête, ou j'efface quelque chose"
Endif
Skip prom BACK
; voici un endroit où le balancement sur le nom sg(numéro de CLI)
; permet de fournir alternativement deux réponses différentes.