Le script de Scooter, qui définit toute l’arborescence :
.------------------------------------------------------------------------.
. [ ONYX 7.1 ] Arborescence du serveur SCOOTER .
. Version 1.4 du 21/09/95 .
. (c) Christophe Perrin .
.------------------------------------------------------------------------.
Path VID
Début: Title Acc,Accueil
Gstat 0
Term EMU,ScoLogo
Term COM,ScoLogo
Term FAK,Fakes
Reject
. Nos chers pantins en chair et en octets...
Fakes: Cred/H 0
Cnx/H 0
SetTax 00
SetDep 676
Boot
Goto Contact
.------------------------------------------------------------------------.
. Menu des Services Hébergés .
.------------------------------------------------------------------------.
ScoLogo: Key ô
Gstat 0
Gosub Header
Wait
. Transparence protocole pour M2 retournés
Tpass M2R,@1
Text #:iE
. Wait
Goto @2
@1: Text #:f$04#:iE
@2: Wait
@3: Tpass 9600,@4
Tpass LOCAL,@6
SetTax 83
SetDep 676
Disp LABAJC.VDT
Wait
Disp SCOLOGO.VDT
Goto @5
@4: SetTax 83
SetDep 676
Disp SCO9600.VDT
Goto @5
@6: Disp SCOLOCAL.VDT
@5: Wait
Get
Case T_Sui,MenServ
Case T_Env,MenServ
Kwrd Rer
Gstat 0
MenServ: Text $0C
Wait
Disp 0_MENSRV.VDT
Wait
GetServ: Text $14$1FWQ $08$08$0E#H#T,$1FWQ$11
Get
Case 1,AccAjc
Case 2,AccP2
Case 3,AccDJ
Case T_Sui,AccAjc
Case T_Gui,InfLeg
SendTop T'as vu ça où ?
Goto MenServ
AccAjc: SetServ AJC
Goto Arrivée
AccP2: SetServ PU2
Goto Arrivée
AccDJ: SetServ DJE
Goto Arrivée
InfLeg: Title Leg,Inf.Lég.
Lstat 10
Disp 0_MENINF.VDT
GetInf: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetInf
Case T_Som,MenServ
Case T_Rep,InfLeg
Case 1,InfAjc
Case 2,InfSky
Case 3,InfPu2
Case 4,InfDje
Case 5,InfTar
Case 6,Zel
Case 7,ScoTech
SendTop T'as vu ça où ?
Goto GetInf
InfAjc: Lstat 11
Disp 0_ILAJC.VDT
Wait
Get
Case T_Som,InfLeg
Goto InfAjc
InfSky: Lstat 12
Disp 0_ILSKY.VDT
Wait
Get
Case T_Som,InfLeg
Goto InfSky
InfPu2: Lstat 13
Disp 0_ILPU2.VDT
Wait
Get
Case T_Som,InfLeg
Goto InfPu2
InfDje: Lstat 14
Disp 0_ILDJ.VDT
Wait
Get
Case T_Som,InfLeg
Goto InfDje
InfTar: Lstat 16
Disp 0_TARIF2.VDT
Wait
Get
Case T_Som,InfLeg
Case T_Sui,InfTar2
Goto InfTar
InfTar2: Disp 0_TARIF1.VDT
Wait
Get
Case T_Som,InfLeg
Case T_Ret,InfTar
Goto InfTar2
Zel: Lstat 17
Disp 0_ZEL.VDT
Wait
Get
Case T_Som,InfLeg
Goto Zel
ScoTech: Lstat 19
Disp 0_SCOTEC.VDT
Wait
Get
Case T_Som,InfLeg
Goto ScoTech
. Accés sur COM(4)
Arrivée: Cred/H 60
Cnx/H 60
Keep ON
. if Certif,ArrAJC
IfServ AJC,ServAJC
IfServ PU2,ServPU2
IfServ DJE,ServDJ
Goto MenServ
. ------------------------------------------------------------------------.
. SERVICE AJC .
. ------------------------------------------------------------------------.
. Demande de pseudo, après affichage de la page d'accueil
ServAJC: Text $0C$1F@A$18#]$19.$0F: (c) AJC/CP 1995$0A
Wait
Gstat 20
. Tpass 00,Pseudo
If Certif,ArrAJC
Kwrd Pse
Pseudo: Disp 1_PSEUDO.VDT
Wait
Text $1FWG$1B$54$20$1B$47$14Aujourd'hui,$20
DateTime 1,10
Get0: Text $1FJD#]$11
Pseudo $14$1FLB#]Et quelle est ta clef ? .$12G $1FLZ#]$11$0E
Case T_Env,ArrAJC
Text $14$1FLB#].$12_$1FLB$11
Goto Get0
. Arrivée du pseudo, juste avant le menu.
ArrAJC: Key *
if Certif,Arr2
SendTop Pense à ouvrir ta Boitôlettres
Alter
Goto MenAjc
Arr2: Gosub News
Gosub Courrier
Boot
Goto MenAjc
.-----------------------------------------------------------------------------.
. L E S N E W S .
.-----------------------------------------------------------------------------.
. Les News de Scooter (Mailing en direct)
Kwrd IncNews
NPriv D,MenAjc
Inc G7
Text $1F00#]Scooter news (G7) en cours:#\
Aff G7,-4
Set G9=0
Get
Goto MenAjc
News: If W3>=G7,NoNew
Inc G9
AddMsg NEWS
Alter
Inc G9
Set W3=G7
NoNew: Return
Kwrd News
NPriv D,MenAjc
Text $1F00#]Scooter news dist.:$0F$18
Aff G9,-4
Text $0A
Get
Goto MenAjc
.-----------------------------------------------------------------------------.
. MENU PRINCIPAL AJC .
.-----------------------------------------------------------------------------.
Kwrd Menu,Som
MenAjc: Title Men,Menu [S]
Wait
Lstat 21
Disp 1_MENGEN.VDT
Get4: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,Get4
Case T_Rep,MenAjc
Case T_Gui,Loc
Case 10,Bpn
Case 11,Jeux
Case 12,CluSco
Case 13,9600
Case 14,MenServ
Case 1,Edito
Case 2,Rezo
Case 3,Connex
Case 4,Xbals
Case 5,PubBox
Case 6,BlocNote
Case 7,Telech
Case 8,Rdv
Case 9,Skyrock
Case M,Serveurs
SendTop T'as vu ça où ?
Goto Get4
.-------------------------------------------------------------------------.
. INFOS SUR LA VOIE 9600 .
.-------------------------------------------------------------------------.
Kwrd Rap
9600: Title Rap,9600 !
Lstat 120
Disp 1_9600A.VDT
Text $14$1FWM $08$08$0E#H#T,$1FWM$11
G9600: Get
Case T_Rep,9600
Case T_Sui,9600b
Case T_Som,MenAjc
SendTop T'as vu ça où ?
Goto G9600
9600b: Disp 1_9600B.VDT
Text $14$1FWM $08$08$0E#H#T,$1FWM$11
G9600b: Get
Case T_Rep,9600b
Case T_Ret,9600
Case T_Som,MenAjc
SendTop T'as vu ça où ?
Goto G9600b
.---------------------------------------------------------------------------.
. REZO .
.---------------------------------------------------------------------------.
Kwrd Rezo,Rez
Rezo: Title Rez,Rezo
Lstat 22
Disp 1_MENREZ.VDT
GetRez: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetRez
Case T_Som,MenAjc
Case T_Rep,Rezo
Case 10,PA
Case 1,Contact
Case 2,Bals
Case 3,Liste
Case 4,Forums
Case 5,Affiche
Case 6,PubBox
Case 7,Mur
Case 8,EcrSco
Case 9,Musée
SendTop T'as vu ça où ?
Goto GetRez
.---------------------------------------------------------------------------.
. P E T I T E S A N N O N C E S .
.---------------------------------------------------------------------------.
Kwrd Pa
PA: Title PA,P.A.
Lstat 130
Disp 1_MENPA.VDT
GetPa0: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Rep,PA
Case T_Som,Rezo
Case 1,Pa1
Case 2,Pa2
Case 3,Pa3
Case 4,Pa4
Case 5,Pa5
Case 6,Pa6
SendTop T'as vu ça où ?
Goto GetPa0
. Rubrique (1) des Annonces
Kwrd Pm
Pa1: Title PA,P.A.
Lstat 130
Disp 1_MENPAM.VDT
Gosub GetPa,PA1,PA,LirPa1,EcrPa1
Kwrd Pml
LirPa1: Title PA,P.A.
Lstat 130
XbalL MATOS
Error 5,NoAnn
Goto PA
Kwrd Pme
EcrPa1: If Certif,EcrPa1b
Goto PaNoBal
EcrPa1b: Title PA,P.A.
Lstat 130
XbalE MATOS
Goto Pa
. Rubrique (2) des Annonces
Kwrd Pj
Pa2: Title PA,P.A.
Lstat 130
Disp 1_MENPAJ.VDT
Gosub GetPa,PA2,PA,LirPa2,EcrPa2
Kwrd Pjl
LirPa2: Title PA,P.A.
Lstat 130
XbalL SOFTS
Error 5,NoAnn
Goto PA
Kwrd Pje
EcrPa2: If Certif,EcrPa2b
Goto PaNoBal
EcrPa2b: Title PA,P.A.
Lstat 130
XbalE SOFTS
Goto Pa
. Rubrique (3) des Annonces
Kwrd Ph
Pa3: Title PA,P.A.
Lstat 130
Disp 1_MENPAH.VDT
Gosub GetPa,PA3,PA,LirPa3,EcrPa3
Kwrd Phl
LirPa3: Title PA,P.A.
Lstat 130
XbalL HIFI
Error 5,NoAnn
Goto PA
Kwrd Phe
EcrPa3: If Certif,EcrPa3b
Goto PaNoBal
EcrPa3b: Title PA,P.A.
Lstat 130
XbalE HIFI
Goto Pa
. Rubrique (4) des Annonces
Kwrd Pc
Pa4: Title PA,P.A.
Lstat 130
Disp 1_MENPAC.VDT
Gosub GetPa,PA4,PA,LirPa4,EcrPa4
Kwrd Pcl
LirPa4: Title PA,P.A.
Lstat 130
XbalL COLLECTIONS
Error 5,NoAnn
Goto PA
Kwrd Pce
EcrPa4: If Certif,EcrPa4b
Goto PaNoBal
EcrPa4b: Title PA,P.A.
Lstat 130
XbalE COLLECTIONS
Goto Pa
. Rubrique (5) des Annonces
Kwrd Pv
Pa5: Title PA,P.A.
Lstat 130
Disp 1_MENPAV.VDT
Gosub GetPa,PA5,PA,LirPa5,EcrPa5
Kwrd Pvl
LirPa5: Title PA,P.A.
Lstat 130
XbalL VRAC
Error 5,NoAnn
Goto PA
Kwrd Pve
EcrPa5: If Certif,EcrPa5b
Goto PaNoBal
EcrPa5b: Title PA,P.A.
Lstat 130
XbalE VRAC
Goto Pa
. Rubrique (6) des Annonces
Kwrd Pr
Pa6: Title PA,P.A.
Lstat 130
Disp 1_MENPAR.VDT
Gosub GetPa,PA6,PA,LirPa6,EcrPa6
Kwrd Prl
LirPa6: Title PA,P.A.
Lstat 130
XbalL RENCONTRES
Error 5,NoAnn
Goto PA
Kwrd Pre
EcrPa6: If Certif,EcrPa6b
Goto PaNoBal
EcrPa6b: Title PA,P.A.
Lstat 130
XbalE RENCONTRES
Goto Pa
. Module de 'GET' des choix des Annonces
GetPa: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Rep,%1
Case T_Som,%2
Case 1,%3
Case 2,%4
SendTop T'as vu ça où ?
Goto GetPa
PaNoBal: SendTop Il te faut une Bal ! (*Bo)
Wait
Goto PA
NoAnn: Alter
Disp TPAN.VID
Get
Case T_Som,Pa
Goto Pa
.---------------------------------------------------------------------------.
. L E M U R E N D I R E C T .
.---------------------------------------------------------------------------.
Mur: Kwrd Mur
Title Mur,Mur
Lstat 37
Mur
Goto Rezo
.---------------------------------------------------------------------------.
. RENDEZ-VOUS / SORTIES .
.---------------------------------------------------------------------------.
Kwrd Rdv
RDV: Title RDV,Sorties
Lstat 24
Disp 1_MENRDV.VDT
GetRdv: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetRdv
Case T_Som,MenAjc
Case T_Rep,RDV
Case 1,Sorties
Case 2,Disco
Case 3,Cinéma
Case 4,Bpn
SendTop T'as vu ça où ?
Goto GetRdv
.---------------------------------------------------------------------------.
. SORTIES / DISCOTHEQUES / BONS PLANS DE LA NUIT .
.---------------------------------------------------------------------------.
Kwrd Dis,Disco
Disco: Title Dis,Boîtes
Lstat 90
Disp AIRPLAY.VDT
Get
Case T_Sui,Disco1
Case T_Som,Rdv
Disco1: Lstat 90
Disp 1_MENDIS.VDT
GetDis: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetDis
Case T_Som,Rdv
Case T_Rep,Disco1
Case 1,Exo
Case 2,Traxx
Case 3,Kiosque
Case 4,EspBleu
Case 5,Bpn
SendTop T'as vu ça où ?
Goto GetDis
. Renvoi dans le Module d'EDITO pour les routines générales
EspBleu: Kwrd Esp,Espace
Lstat 96
Title Dis,EspBleu
Gosub PubDis,ESPBLEU.VDT
Select Dis_Ebl
Cset D
Disp 1_DISCO.VDT
Text $1FDB#N#]Espace Bleu#L$1FDc#]*Db
Goto Edt4
Exo: Kwrd Exo,Exo7
Lstat 93
Title Dis,Exo 7
Gosub PubDis,EXO.VDT
Select Dis_Exo
Cset D
Disp 1_DISCO.VDT
Text $1FDB#N#]Exo 7#L$1FDc#]*Dx
Goto Edt4
Traxx: Kwrd Tra,Traxx
Lstat 94
Title Dis,Traxx
Gosub PubDis,TRAXX.VDT
Select Dis_Tra
Cset D
Disp 1_DISCO.VDT
Text $1FDB#N#]Le Traxx#L$1FDc#]*Dt
Goto Edt4
Kiosque: Kwrd Kio,Kiosque
Lstat 95
Title Dis,Kiosque
Gosub PubDis,KIOSQUE.VDT
Select Dis_Kio
Cset D
Disp 1_DISCO.VDT
Text $1FDB#N#]Le Kiosque#L$1FDc#]*Dk
Goto Edt4
Bpn: Kwrd BPN
Lstat 91
Title BPN,Bons Plans
Gosub PubDis,BPN.VDT
Select Dis_Bpn
Cset D
Disp 1_DISCO.VDT
Text $1FDB#N#]Bons Plans#L$1FDc#]*Bpn
Goto Edt4
PubDis: Disp %1
Wait
Get
Case T_Sui,PubDis2
PubDis2: Return
. Ajout d'une page dans les Discothèques (Utilise le sous-programme Edito)
Kwrd Esp*
Title Dis,EspBleu [E]
Lstat 96
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Espace Bleu#L$1FDc#]*Db*
Select Dis_Ebl
ClearMask
Gosub EditoGet,EspBleu
Kwrd Exo*
Title Dis,Exo 7 [E]
Lstat 93
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Exo 7#L$1FDc#]*Dx*
Select Dis_Exo
ClearMask
Gosub EditoGet,Exo
Kwrd Tra*
Title Dis,Traxx [E]
Lstat 94
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Le Traxx#L$1FDc#]*Dt*
Select Dis_Tra
ClearMask
Gosub EditoGet,Traxx
Kwrd Kio*
Title Dis,Kiosque [E]
Lstat 95
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Le Kiosque#L$1FDc#]*Dk*
Select Dis_Kio
ClearMask
Gosub EditoGet,Kiosque
Kwrd BPN*
Title BPN,Bons Plans
Lstat 91
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Bons Plans#L$1FDc#]*Bpn*
Select Dis_Bpn
ClearMask
Gosub EditoGet,Bpn
Sorties: Kwrd Sor
Lstat 36
Title Sor,Sorties
Select Sorties
Cset S
Disp 1_DISCO.VDT
Text $1FDB#N#]Les Sorties#L$1FDc#]*Sor
Goto Edt4
Kwrd Sor*
Title Sor,Sorties
Lstat 36
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Les Sorties#L$1FDc#]*Sor*
Select Sorties
ClearMask
Gosub EditoGet,Sorties
.---------------------------------------------------------------------------.
. CINEMAS .
.---------------------------------------------------------------------------.
Kwrd Cine,Cin
Cinéma: Lstat 23
Title Cin,Cinémas
Disp 1_CINE0.VDT
Get
Case T_Sui,Cinéma1
Case T_Som,Rdv
Cinéma1: Disp 1_MENCIN.VDT
Select DatCin
FirstRec
IfNotOk GetCin
GetRec
DispMask 0
GetCin: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetCin
Case T_Som,Rdv
Case T_Rep,Cinéma1
Case 1,Gaumont
Case 2,Sever
Case 3,UGC
SendTop T'as vu ça où ?
Goto GetCin
. Modification du masque des dates (Cinés)
Kwrd DatCin
Lstat 23
NPriv F,Interdit
Select DatCin
ClearMask
FirstRec
IfnotOk GetDC
GetRec
GetDC: GetMask 1
Case T_Rep,GetDC
Case T_Gui,AnnDC2
FirstRec
IfNotOk AddDC
PutRec
Goto Cinéma
AddDC: AddRec
Goto Cinéma
AnnDC2: FirstRec
IfNotOk Cinéma
DelRec
Goto Cinéma
. Renvoi dans le Module d'EDITO pour les routines générales
Gaumont: Kwrd Gau
Lstat 23
Title Cin,Gaumont
Gosub PubCin,GAUMONT.VDT
Select Cin_Gau
Cset C
Disp 1_CINE.VDT
Text $1FDB#N#]7 Gaumont#L$1FDc#]*Gau
Goto Edt4
UGC: Kwrd UGC
Lstat 23
Title Cin,U.G.C.
Gosub PubCin,UGC.VDT
Select Cin_UGC
Cset C
Disp 1_CINE.VDT
Text $1FDB#N#]Clubs UGC#L$1FDc#]*UGC
Goto Edt4
Sever: Kwrd Sev
Lstat 23
Title Cin,St.Sever
Gosub PubCin,SEVER.VDT
Select Cin_Sev
Cset C
Disp 1_CINE.VDT
Text $1FDB#N#]St. Sever#L$1FDc#]*Sev
Goto Edt4
PubCin: Disp %1
Wait
Get
Case T_Sui,PubCin2
PubCin2: Return
. Ajout d'une page dans les Cinémas (Utilise le sous-programme Edito)
Kwrd GAU*
Title Cin,Ciné [G]
Lstat 23
Npriv F,PalDroit
Disp 1_CINE.VDT
Text $1FDB#N#]7 Gaumont#L$1FDc#]*Gau*
Select Cin_Gau
ClearMask
Gosub EditoGet,Gaumont
Kwrd SEV*
Title Cin,Ciné [S]
Lstat 23
Npriv F,PalDroit
Disp 1_CINE.VDT
Text $1FDB#N#]St. Sever#L$1FDc#]*Sev*
Select Cin_Sev
ClearMask
Gosub EditoGet,Sever
Kwrd UGC*
Title Cin,Ciné [U]
Lstat 23
Npriv F,PalDroit
Disp 1_CINE.VDT
Text $1FDB#N#]Clubs UGC#L$1FDc#]*Ugc*
Select Cin_UGC
ClearMask
Gosub EditoGet,UGC
.---------------------------------------------------------------------------.
. B L O C N O T E S A D R E S S E S U T I L E S .
.---------------------------------------------------------------------------.
Kwrd Utile,Uti,Bloc
BlocNote: Lstat 140
Title Uti,BlocNote
Disp 1_MENUTI.VDT
GetBlo: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case 1,UtiAdr
Case 2,UtiBus
Case 3,UtiCom
Case 4,UtiKid
Case 5,UtiSoc
Case 6,UtiSid
Case 7,UtiMeD
Case 8,UtiZik
Case T_Ann,GetBlo
Case T_Som,MenAjc
Case T_Rep,BlocNote
SendTop T'as vu ça où ?
Goto GetBlo
. Adresses Utiles
UtiAdr: Kwrd Adr
Lstat 140
Title Adr,BlocNote
Select UtiAdr
Cset A
Disp 1_UTIADR.VDT
Goto Uti4
. Derniers Bus et Métros
UtiBus: Kwrd Bus,Metro
Lstat 140
Title Bus,BlocNote
Select UtiBus
Cset B
Disp 1_UTIBUS.VDT
Goto Uti4
. Commerces ouvert la nuit et/ou le dimanche
UtiCom: Kwrd Com
Lstat 140
Title Com,BlocNote
Select UtiCom
Cset C
Disp 1_UTICOM.VDT
Goto Uti4
. Pour les Jeunes
UtiKid: Kwrd Kid,Jeunes
Lstat 140
Title Kid,BlocNote
Select UtiKid
Cset D
Disp 1_UTIKID.VDT
Goto Uti4
. Social, santé
UtiSoc: Kwrd Social,Soc,Sante
Lstat 140
Title Soc,BlocNote
Select UtiSoc
Cset E
Disp 1_UTISOC.VDT
Goto Uti4
. SIDA: Dépistage et prévention
UtiSid: Kwrd Sida,Sid
Lstat 140
Title Sid,BlocNote
Select UtiSid
Cset F
Disp 1_UTISID.VDT
Goto Uti4
. FM, TV, Câble, Médias...
UtiMed: Kwrd Med,TV,FM,Radio
Lstat 140
Title Med,BlocNote
Select UtiMed
Cset G
Disp 1_UTIMED.VDT
Goto Uti4
. Musique, Studios
UtiZik: Kwrd Musik,Zik
Lstat 140
Title Zik,BlocNote
Select UtiZik
Cset H
Disp 1_UTIZIK.VDT
Goto Uti4
. Routines générales du Module Bloc-Notes
Uti4: LastRec
IfNotOk UtiNo
Uti3: Text $14$1F@A$18$0A
GetRec
DispMask 0
Uti0: Text $1FWO$11
Get
Case T_Rep,Uti3
Npriv F,UtiX
Gosub MaskMove
UtiX: Case T_Som,BlocNote
Case T_Sui,UtiP
Case T_Ann,UtiA
Case T_Ret,UtiS
Case T_Env,UtiE
Goto Uti0
UtiS: NextRec
IfOk Uti2
Text $1F@A$18#Q C'est la dernière page !
Goto Uti0
UtiP: PrevRec
IfOk Uti2
Text $1F@A$18#Q C'est la première page !
Goto Uti0
Uti2: Disp 1_UTIEFF.VDT
Goto Uti3
UtiA: NPriv F,Uti0
Case *,UtiDel
Goto Uti0
UtiDel: DelRec
IfNotOk UtiNo
Goto Uti2
UtiE: Npriv F,Uti0
Case *,UtiMod
Goto Uti0
UtiMod: Posfield 1
GetMask 1
PutRec
Goto Uti2
UtiNo: Alter
Text $14$0C$1FLA#Q #M$18Padinfos en ce moment ! #L#]Sommaire$0F $11
Gosub WaitSom,BlocNote
. Retour sur le bon sommaire selon la rubrique
RetBloc: Ctst A,UtiAdr
Ctst B,UtiBus
Ctst C,UtiCom
Ctst D,UtiKid
Ctst E,UtiSoc
Ctst F,UtiSid
Ctst G,UtiMed
Ctst H,UtiZik
. Ajout d'une page dans une des Rubriques du Bloc-Notes
Kwrd Adr*
Title Adr,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTIADR.VDT
Select UTIADR
ClearMask
Gosub EditoGet,UtiAdr
Kwrd Bus*
Title Bus,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTIBUS.VDT
Select UTIBUS
ClearMask
Gosub EditoGet,UtiBus
Kwrd Com*
Title Com,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTICOM.VDT
Select UTICOM
ClearMask
Gosub EditoGet,UtiCom
Kwrd Kid*
Title Kid,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTIKID.VDT
Select UTIKID
ClearMask
Gosub EditoGet,UtiKid
Kwrd Soc*
Title Soc,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTISOC.VDT
Select UTISOC
ClearMask
Gosub EditoGet,UtiSoc
Kwrd Sid*
Title Sid,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTISID.VDT
Select UTISID
ClearMask
Gosub EditoGet,UtiSid
Kwrd Med*
Title Med,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTIMED.VDT
Select UTIMED
ClearMask
Gosub EditoGet,UtiMed
Kwrd Zik*
Title Zik,BlocNote
Lstat 140
Npriv F,PalDroit
Disp 1_UTIZIK.VDT
Select UTIZIK
ClearMask
Gosub EditoGet,UtiZik
.---------------------------------------------------------------------------.
. L E C L U B S C O O T E R .
.---------------------------------------------------------------------------.
CluSco: SendTop En cours de réalisation
Wait
Goto Get4
.---------------------------------------------------------------------------.
. FORUMS INTERNES AJC .
.---------------------------------------------------------------------------.
Kwrd Fajc,Int
FAjc: Can 3,OkAjc
Goto MenAjc
OkAjc: Lstat 39
Title AJC,Ajc [I]
Disp 1_RUBINT.VDT
GetAjc: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Som,MenAjc
Case T_Rep,OkAjc
Case 10,AjcTecE
Case 1,AjcPreL
Case 2,AjcPreE
Case 3,AjcSecL
Case 4,AjcSecE
Case 5,AjcTreL
Case 6,AjcTreE
Case 7,AjcAdhL
Case 8,AjcAdhE
Case 9,AjcTecL
SendTop T'as vu ça où ?
Goto GetAjc
AjcPreL: XbalL AJCPRE
Error 4,CodAjc
Goto OkAjc
AjcPreE: XbalE AJCPRE
Goto OkAjc
AjcSecL: XbalL AJCSEC
Error 4,CodAjc
Goto OkAjc
AjcSecE: XbalE AJCSEC
Goto OkAjc
AjcTreL: XbalL AJCTRE
Error 4,CodAjc
Goto OkAjc
AjcTreE: XbalE AJCTRE
Goto OkAjc
AjcAdhL: XbalL AJCADH
Error 4,CodAjc
Goto OkAjc
AjcAdhE: XbalE AJCADH
Goto OkAjc
AjcTecL: XbalL AJCTEC
Error 4,CodAjc
Goto OkAjc
AjcTecE: XbalE AJCTEC
Goto OkAjc
CodAjc: Text $14$1FWA#T Quelle en est la clef ?_$12$47$18$1FWZ$11
XbalLC
Case T_Som,Fajc
Case T_Ret,Fajc
Case T_Env,FajcL
Goto CodAjc
FajcL: Error 5,NoFajc
Goto Fajc
NoFajc: Alter
Disp TPAD.VID
Get
Case T_Som,Fajc
Goto Fajc
.-----------------------------------------------------------------------------.
. CONNEXIONS .
.-----------------------------------------------------------------------------.
Kwrd Cnx
Connex: Title Cnx,Connex
Lstat 31
Disp 1_CONNEX.VDT
CnxGet: Gosub Soumenu,MenAjc,Connex
Case 1,Recents
Case 2,BestOf
Case 3,Last20
Goto CnxGet
BestOf: Kwrd CB
Title Cnx,Cnx [B]
Lstat 31
Top 0
Goto Connex
Last20: Kwrd CL
Title Cnx,Cnx [L]
Lstat 31
Top 4
Goto Connex
Kwrd CD
Recents: Title Cnx,Cnx [D]
Lstat 31
Recents
Goto Connex
.-----------------------------------------------------------------------------.
. LA LISTE .
.-----------------------------------------------------------------------------.
Kwrd *,Lis,Liste,Lst,l
Liste: Title Lst,Liste
Lstat 29
Liste
Goto Rezo
.-----------------------------------------------------------------------------.
. TELECHARGEMENT .
.-----------------------------------------------------------------------------.
Telech: Kwrd Tch,T
Title Tel,Telech
Lstat 70
Disp 1_MENTCH.VDT
GetTch: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetTch
Case T_Som,MenAjc
Case T_Rep,Telech
Case 1,TchFree
Case 2,TchAbo
Case 3,TchRom
Case 4,KitTch
Case 5,DerTch
Case 6,ForTelL
Case 7,ForTelE
Case 8,MaiWar
Case 9,TchAdu
SendTop T'as vu ça où ?
Goto GetTch
KitTch: SendTop En cours de réalisation !
Wait
Goto GetTch
MaiWar: Kwrd War
Title War,Telech
Lstat 77
Disp 1_MAIWAR.VDT
MaiWar2: Get
Case T_Rep,MaiWar
Case T_Som,Telech
SendTop T'as vu ça où ?
Goto MaiWar2
. Base de Téléchargement Free (N/Abonnés)
Kwrd Tfr
TchFree: Title Tel,Telech [F]
Lstat 71
Telech d:\free
Goto Telech
. Base de Téléchargement Abonnés
Kwrd Tab
TchAbo: Can 2,TchAbo2
SendTop Il faut être abonné !
Wait
Goto Telech
TchAbo2: Title Tel,Telech [A]
Lstat 72
Telech d:\abon
Goto Telech
. Base de Téléchargement "CD-Rom du Mois"
Kwrd Tcd
TchRom: Title Tel,Telech CD
Disp 1_FORROM.VDT
Select ForRom
FirstRec
IfNotOk TchRom1
GetRec
DispMask 0
GetFRom: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Sui,TchRom1
Case T_Som,Telech
SendTop T'as vu ça où ?
Goto GetFRom
TchRom1: Can 2,TchRom2
SendTop Il faut être abonné !
Wait
Goto Telech
TchRom2: Title Tel,Telech CD
Lstat 73
Telech e:\wads
Goto Telech
. Modification du masque d'infos sur le CD-Rom du mois
Kwrd ForRom
Npriv F,Interdit
Disp 1_FORROM.VDT
Select ForRom
FirstRec
IfNotOk GetEnc
GetRec
GetEnc: GetMask 1
Case T_Rep,GetEnc
Case T_Gui,Annul2
FirstRec
IfNotOk AddInf
PutRec
Goto Telech
AddInf: AddRec
Goto Telech
Annul2: FirstRec
IfNotOk Telech
DelRec
Goto Telech
. Base de Téléchargement ADULTES
Kwrd Tad
TchAdu: Can 4,TchAdu2
SendTop Il faut être abonné !
Wait
Goto Telech
TchAdu2: Title Tel,Telech [A]
Lstat 78
Telech d:\adultes
Goto Telech
. Boîtes à Fichiers
Kwrd Baf
Baf: Can 3,Baf2
SendTop Tu n'as pas le droit !
Wait
Goto Telech
Baf2: Title Baf,Bafs
Lstat 74
Bafs
GoSub RoulOff
Goto Telech
Kwrd Tdd
DerTch: Title Tel,Telech [D]
Lstat 75
Disp DerDown.vid
Wait
ListDn
Goto Telech
ForTelL: Kwrd Tfl
Lstat 76
XbalL FORUM DOWNLOAD
Goto Telech
ForTelE: Kwrd Tfe
Lstat 76
XbalE FORUM DOWNLOAD
Goto Telech
TchClose: Kwrd TchOff
Npriv F,Interdit
Lock
SendTop Base Download Fermée !
Wait
Goto MenAjc
TchOpen: Kwrd TchOn
Npriv F,Interdit
Unlock
SendTop Base Download Ouverte !
Wait
Goto MenAjc
. Mise à jour des descriptions des fichiers disponibles en téléchargement.
Kwrd Fwr
Npriv F,Interdit
Call 25,0
Goto MenAjc
.---------------------------------------------------------------------------.
. L A B O U T I Q U E S C O O T E R .
.---------------------------------------------------------------------------.
Kwrd Matos
Matos: SendTop En cours de réalisation
Wait
Goto Telech
.-----------------------------------------------------------------------------.
. LES FORUMS .
.-----------------------------------------------------------------------------.
Forums: Kwrd For,Sal,F
Fo2: Title For,Forum
Lstat 27
Forums
GoSub RoulOff
Goto Rezo
. Modification des Quizz des Forums
ForQuiz: Kwrd Quizmod
Title For,Forum
Npriv F,Forums
QuizMod
Goto Forums
.-----------------------------------------------------------------------------.
. LE DIALOGUE .
.-----------------------------------------------------------------------------.
Contact: Kwrd Ctc,Mes,Dia,D
Title Dia,Dialogue
Lstat 28
Contact
Goto Rezo
.-----------------------------------------------------------------------------.
. LA PUB-BOX .
.-----------------------------------------------------------------------------.
PubBox: Kwrd Pub,Box
IfNot Certif,PubL
Title Pub,PubBox
Lstat 26
Disp PUBBOX.VDT
GetPu1: Gosub Soumenu,MenAjc,PubBox
Case 1,PubL
Case 2,PubE
Goto GetPu1
PubL: Kwrd PL
Title Pub,Pub [L]
Lstat 26
PubL
IfOk PubGo
Alter
Text $14$0C$1FLA#Q #M$18La Pub'Box est vide !$0F #]Sommaire$0F $11
Gosub WaitSom,PubGo
PubGo: If Certif,PubBox
Goto MenAjc
PubE: Kwrd PE
. Can 9,Interdit
Lstat 26
Title Pub,Pub [E]
if Certif,Pubt2
Alter
Disp TCER.VID
Gosub WaitSom,PubGo
PubT2: Cumul> 240,PubAok
PubAden: Title Pub,TooYoung
Alter
Disp TJEU.VID
Gosub WaitSom,PubBox
PubAOk: PubE
Error 1,DéjaTrop
Error 4,MessVide
Goto PubBox
DéjaTrop: Title Pub,TooMuch
Disp DEJATROP.VDT
Get
Goto PubBox
MessVide: Disp TCOUR.VID
Gosub WaitSom,PubBox
.-----------------------------------------------------------------------------.
. LES BOITES AUX LETTRES .
.-----------------------------------------------------------------------------.
Bals: Kwrd Bal,B
Title Bal,Bals
Lstat 50
If Certif,balsC
. Menu des Bals pour les non certifiés
Disp 1_NOUVO.VDT
Balg2: Gosub Soumenu,MenAjc,Bals
Case 1,BalO
Case 2,BalA
Goto Balg2
. Menu des Bals pour les certifiés
. On fait clignoter le "*BL" sur l'écran s'il y a du courrier non lu.
BalsC: Disp 1_MENBAL.VDT
Mail?
IfOk BalG1
Text $1FFG#@#HLire mon courrier
BalG1: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,BalG1
Case T_Som,RetBal
Case T_Ret,RetBal
Case T_Rep,BalsC
Case 10,Macros
Case 1,BalL
Case 2,BalE
Case 4,Rep
Case 7,BalC
Case 3,BalA
Case 6,BalR
Case 5,BalD
Case 8,Setup
Case 9,BalH
Goto BalG1
. Messages archivés
BalH: Kwrd Bh
Title Bal,Bal [H]
Lstat 59
BalH
Error 5,HPadM
Error 3,HPudM
Goto Bals
HPudM: Disp TPUD.VID
Gosub WaitSom,Bals
HPadM: Disp TPAD.VID
Gosub WaitSom,Bals
. Créer sa Bal
BalO: Kwrd BO
Priv E,BalO1
IfNot Certif,BalO1
Disp TDEJ.VID
Gosub WaitSom,RetBal2
BalO1: Lstat 60
Title Bal,Bal [O]
Disp 1_BALCRE.VDT
BalO2: Text $14$1FOO#].$12$4F$18$1FOO#]$11
BalOP
Case T_Rep,BalO
Case T_Som,RetBal2
Case T_Ret,RetBal2
Case T_Env,BalO3
Case T_Sui,BalO3
Goto BalO2
BalO3: Error 2,BalO2
Error 4,PasDeux
Error 6,Exists
BalO4: Text $14$1FQK#].$12$47$18$1FQK#]$11
BalOC
Case T_Ret,BalO2
Case T_Rep,BalO
Case T_Som,RetBal2
Case T_Env,BalO5
Case T_Sui,BalO5
Goto BalO4
BalO5: IfOk SetGive
DISP TPAS.VID
Goto BalO4
Exists: Text $14$1F@ACette bal existe déjà !
Text #G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G$0D$18$0A
Goto balO2
PasDeux: DISP TDEJ.VID
Gosub WaitSom,RetBal2
SetGive: Priv A,Patouche
SetPriv 9
Patouche: AddMsg BIENV
Goto RetBal2
. Changer sa Clef
BalC: Kwrd BC
IfNot Certif,RetBal2
Title Bal,Bal [C]
Lstat 57
Disp CHCLEF.VDT
BalC2: Text $14$1FPQ_$12$47$18$1FPQ$11
BalC
Case T_Som,RetBal2
Case T_Ret,RetBal2
Case T_Rep,BalC
Case T_Env,OkChng
Case T_Sui,OkChng
Goto BalC2
OkChng: IfNotOk BalC3
DISP TCLEF.VID
Gosub WaitSom,RetBal2
BalC3: IfOk RetBal
DISP TMET.VID
Goto BalC2
. Regarder dans l'annuaire
BalA: Kwrd BA
Title Bal,Annuaire
Lstat 53
Disp ANNUAIRE.VDT
BalF2: Text $14$1FPM_$12$4F$18$1FPM$11
BalA
Case T_Som,RetBal2
Case T_Ret,RetBal2
Case T_Rep,BalA
Error 5,Padanu
Goto BalF2
Padanu: Alter
Text $14$0C$1FLA#Q $18#ML'annuaire est vide ! $0F#]Sommaire$0F $11
Gosub WaitSom,RetBal2
. Ecrire à quelqu'un
BalE: Kwrd BE
IfNot Certif,RetBal2
Title Bal,Bal [E]
Lstat 52
If PARM,BalE3
Disp ECRIRE.VDT
BalE2: Text $14$1FPM_$12$4F$18$1FPM$11
BalE3: BalE
Case T_Rep,BalE
Case T_Som,RetBal2
Case T_Ret,RetBal2
Case T_Ann,BalE2
Case T_Cor,BalE2
Case T_Gui,RetBal2
Error 1,Konépa
Error 2,BalE2
Error 4,Patience
Goto RetBal2
. Pseudo inconnu
Konépa: Disp TKICE.VID
Gosub WaitSom,RetBal2
. Le système refuse un nouveau *BE: protection anti-bourrage de bals.
Patience: Disp TCHOF.VID
Gosub WaitSom,RetBal2
. Lire sa Bal
BalL: Kwrd BL
IfNot Certif,RetBal2
Title Bal,Bal [L]
Lstat 51
BalL
Error 5,PadM
Error 3,PudM
Goto RetBal2
PudM: Disp TPUD.VID
Gosub WaitSom,RetBal2
PadM: Disp TPAD.VID
Gosub WaitSom,RetBal2
. Définir son répondeur (carte de visite)
BalR: Kwrd BR
IfNot Certif,RetBal2
Title Bal,Bal [R]
Lstat 56
BalR
Case T_Som,RetBal2
Error 3,BalR2
Disp TPRE.VID
Gosub WaitSom,RetBal2
BalR2: Disp TANN.VID
Gosub WaitSom,RetBal2
. Rediriger son courrier
BalD: Kwrd BD
Can 2,OkBalD
SendTop Il faut être abonné !
Wait
Goto RetBal2
OkBalD: IfNot Certif,RetBal2
Title Bal,Bal [D]
Lstat 55
Disp REDIR.VDT
BalD2: Text $14$1FPM_$12$4F$18$1FPM$11
BalD
Case T_Som,RetBal2
Case T_Ret,RetBal2
Case T_Rep,BalD
Case T_Env,OkTst
Case T_Sui,OkTst
Goto BalD2
OkTst: Error 1,Konépa
Error 2,BalD2
Error 3,Paredir
Disp TANN.VID
Gosub WaitSom,RetBal2
Paredir: Disp TRED.VID
Gosub WaitSom,RetBal2
. Dernières écritures en bal
Kwrd BZ
Npriv E,Bals
Title Bal,Bal [M]
Lstat 4
BalM
Goto Bals
. Dernières créations de bals
Kwrd BK
Npriv E,Bals
Title Bal,Bal [K]
Lstat 4
BalK
Goto Bals
. Multi-Diffusion (Réservée aux SysAnims) (Npriv à modifier)
Kwrd Bx
Can 3,BalXOk
Goto RetBal2
BalXOk: Title Bal,Bal [X]
Lstat 61
Disp BALX.VDT
BalX
Case T_Som,RetBal2
Error 4,BalXP
Goto RetBal2
BalXP: Disp TCHOF.VID
Gosub WaitSom,RetBal2
. Le Répertoire personnel
Rep: Kwrd Rep,BT
Lstat 54
Title Rep,Répert'
OkRep: Rep
Case T_Som,RetBal2
Case T_Gui,RepGuide
Goto OkRep
RepGuide: Disp REPGUIDE.VID
Get
Case T_Gui,OkRep
Goto OkRep
. Le *Setup personnel
Setup: Kwrd Setup,BS
Lstat 58
Title Set,Setup
Setup
Goto RetBal2
. Ecrire à Scooter
EcrSco: Kwrd Msg
IfNot Certif,ScoNoBal
Title Bal,Bal [E]
Lstat 52
EcrSco2: BalE SCOOTER
Case T_Rep,EcrSco
Case T_Som,Rezo
Case T_Ret,Rezo
Case T_Ann,EcrSco2
Case T_Cor,EcrSco2
Error 2,EcrSco2
Error 4,ScoWait
Goto Rezo
ScoWait: Disp TCHOF.VID
Gosub WaitSom,Rezo
ScoNoBal: SendTop Il te faut une Bal !
Wait
Goto GetRez
. Retour des Bals dans le bon service
RetBal: IfServ AJC,Rezo
IfServ PU2,MenP2
RetBal2: IfServ AJC,Bals
IfServ PU2,P2Mes
.--------------------------------------------------------------------------.
. L E S M A C R O S .
.--------------------------------------------------------------------------.
Macros: Kwrd Mac
Title Mac,Macros
Can 2,OkMac
SendTop Il faut être abonné !
Wait
Goto Bals
OkMac: Macros
Goto Bals
Kwrd 0
Macro 0
Goto MenAjc
Kwrd 1
Macro 1
Goto MenAjc
Kwrd 2
Macro 2
Goto MenAjc
Kwrd 3
Macro 3
Goto MenAjc
Kwrd 4
Macro 4
Goto MenAjc
Kwrd 5
Macro 5
Goto MenAjc
Kwrd 6
Macro 6
Goto MenAjc
Kwrd 7
Macro 7
Goto MenAjc
Kwrd 8
Macro 8
Goto MenAjc
Kwrd 9
Macro 9
Goto MenAjc
.-----------------------------------------------------------------------------.
. LES X-BALS .
.-----------------------------------------------------------------------------.
XBals: Kwrd X,Xbl,Xbal,Xbals
Title Xbl,X-Bals
Lstat 80
Disp 1_XBALS.VDT
XBalG1: Gosub Soumenu,MenAjc,Xbals
Case 1,XbalA
Case 7,XbalC
Case 6,XbalD
Case 4,XBalE
Case 3,XBalL
Case 2,XbalM
Case 5,XbalR
Case 8,XbalO
Case 9,Prefs
SendTop T'as vu ça où ?
Goto XBalG1
. Créer une X-tra Bal
XbalO: Kwrd XO
XOkCrée: Title Xbl,XBal [O]
Lstat 88
Npriv D,XboRens
Disp XCRE.VDT
XBalO2: Text $14$1FTL_$12$4F$18$1FTL$11
XbalOP
Case T_Rep,XOkCrée
Case T_Som,Xbals
Case T_Ret,Xbals
Case T_Env,XBalO3
Case T_Sui,XBalO3
Goto XBalO2
XBalO3: Error 2,XbalO2
Error 4,Padroit
Error 6,Xexists
XBalO4: Text $14$1FXP_$12$47$18$1FXP$11
XbalOC
Case T_Ret,XBalO2
Case T_Rep,XOkCrée
Case T_Cor,XbalO4
Case T_Ann,XbalO4
Goto Xbals
XExists: Text $14$1F@ACette Xbal existe déjà !
Text #G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G#G$0D$18$0A
Goto XBalO2
. Renseignements sur la création d'une Xbal
XboRens: Disp XBALO.VDT
Gosub WaitSom,Xbals
. Changer la Clef d'une X-tra Bal
XbalC: Kwrd XC
Title Xbl,Xbal [C]
Lstat 87
Disp XCHG.VDT
XBalC2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalCP
Case T_Rep,XbalC
Case T_Som,Xbals
Case T_Ret,Xbals
Case T_Env,XOkChng
Case T_Sui,XOkChng
Goto XBalC2
XOkChng: Error 1,XKonépa
Error 2,XbalC2
Error 4,Xpazatoi
XOkChg2: Disp CHCLEF.VDT
XOkchg1: Text $14$1FPQ_$12G$18$1FPQ$11
XbalCC
Case T_Som,Xbals
Case T_Rep,XOkChg2
Case T_Ret,XBalC2
Case T_Env,XOkChg3
Case T_Sui,XOkChg3
Goto XOkchg1
XOkChg3: Alter
Error 3,Xfree
Text $14$0C$1FLA#Q $18#MCette XBal est donc privée
Goto GetX
Xfree: Text $14$0C$1FLA#Q $18#MCette XBal est donc publique
Goto GetX
. Regarder l'annuaire des Xtra-Bals
XBalA: Kwrd XA
Title Xbl,Xbal [A]
Lstat 81
Disp XANN.VDT
XBalA2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalA
Error 5,Xempty
Case T_Som,Xbals
Case T_Ret,Xbals
Case T_Rep,XBalA
Goto XBalA2
. Les derniers mouvements dans les Xbals:
XbalM: Kwrd XM
Can 3,OkBalM
SendTop Tu n'as pas le droit !
Goto XbalG1
OkBalM: Title Xbl,XBal [M]
Lstat 82
XBalM
Goto XBals
. Ecrire dans une Xtra-Bal
XBalE: Kwrd XE
IfNot Certif,Xpadroa
Title Xbl,Xbal [E]
Lstat 84
if Parm,XbalE1
Disp XECR.VDT
XBalE2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalE1: XbalE
Case T_Ret,Xbals
Case T_Som,Xbals
Case T_Rep,XbalE
Case T_Ann,XbalE2
Case T_Cor,XbalE2
Case T_Gui,Xbals
Error 1,XKonépa
Error 4,Xpatien
Error 5,Xpadroa
Goto Xbals
Xpatien: Alter
Text $14$0C$1FLA#Q $18#MPatience, je surchauffe !$0F #]Sommaire$0F $11
Gosub WaitSom,XBals
Xpadroa: Sendtop écriture non-autorisée !
Goto Xbals
. Lire une Xtra-Bal
XBalL: Kwrd XL,BI
Title Xbl,Xbal [L]
Lstat 83
If Parm,XbalL1
Disp XLIR.VDT
XBalL2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalL1: XbalL
Case T_Rep,XBalL
Case T_Ret,Xbals
Case T_Som,Xbals
Case T_Env,XBalL3
Case T_Sui,XbalL3
Goto XBalL2
XbalL3: Error 1,Xkonépa
Error 3,XpudM
Error 4,XLclef
Error 5,XpadM
Goto Xbals
XlClef: Text $14$1FWA#$54 Quelle en est la clef ? .$12$47$18$1FWZ$11
XbalLC
Case T_Rep,XBalL3
Case T_Som,Xbals
Case T_Ret,XBalL
Case T_Env,XbalL4
Case T_Sui,XbalL4
Goto XlClef
XbalL4: Error 3,XPudM
Error 4,Padroit
Error 5,XPadM
Goto Xbals
XPudM: Alter
Disp TPUD.VID
Gosub Waitsom,Xbals
XPadM: Alter
Disp TPAD.VID
Gosub Waitsom,Xbals
. Donner une X-Bal à quelqu'un
XbalD: Kwrd XD
Title Xbl,Xbal [D]
Lstat 86
Disp XDON.VDT
XBalD2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalDP
Case T_Rep,XbalD
Case T_Som,Xbals
Case T_Ret,Xbals
Case T_Env,XOkDon
Case T_Sui,XOkDon
Goto XBalD2
XOkDon: Error 1,XKonépa
Error 2,XbalD2
Error 4,Xpazatoi
XOkDon2: Disp XAKI.VDT
XOkDon1: Text $14$1FPM_$12$4F$18$1FPM$11
XbalDC
Case T_Som,Xbals
Case T_Rep,XOkDon2
Case T_Ret,XBalD2
Case T_Env,XOkDon3
Case T_Sui,XOkDon3
Goto XOkdon1
XOkDon3: Error 3,Xkill
Error 1,Xinconnu
Text $14$0C$1FLA#Q $18#MOkay, transfert effectué !
Goto GetX
Xkill: Text $14$0C$1FLA#Q $18#MOkay, Xtra bal détruite !
Goto GetX
. Faire le répondeur d'une Xtra-Bal
XbalR: Kwrd XR
Title Xbl,Xbal [R]
Lstat 85
Disp XREP.VDT
XBalR2: Text $14$1FPM_$12$4F$18$1FPM$11
XbalR
Case T_Rep,XBalR
Case T_Ret,Xbals
Case T_Som,Xbals
Case T_Env,XBalR3
Case T_Sui,XbalR3
Goto XBalR2
XbalR3: Error 1,XKonépa
Error 4,Xpazatoi
Error 3,XbalR4
Alter
Text $14$0C$1FLA#Q $18#MCe répondeur est fin prêt !
Goto GetX
XBalR4: Alter
Text $14$0C$1FLA#Q $18#MCe répondeur est éteint...
Goto GetX
Xempty: Alter
Text $14$0C$1FLA#Q $18#MPas d'X-tra bal à ce jour !
Goto GetX
Padroit: Alter
Text $14$0C$1FLA#Q $18#MIl faut un laissez-passer !
Goto GetX
Xpazatoi: Alter
Text $14$0C$1FLA#Q $18#MCette X-bal n'est pazatoi !
Goto GetX
Xinconnu: Disp TDEST.VID
Gosub WaitSom,Xbals
XKonépa: Alter
Text $14$0C$1FLA#Q $18#MJ'ai pas d'X-Bal à ce nom !
GetX: Text $20#L #]Sommaire#\ $11
Gosub WaitSom,Xbals
. Editeur de Préférences des X-Bals
Prefs: Kwrd Xp
Lstat 89
Title Xbp,Prefs
Prefs
Goto Xbals
Kwrd L0
XbalL %0
Goto Xbals
Kwrd E0
XbalE %0
Goto Xbals
Kwrd L1
XbalL %1
Goto Xbals
Kwrd E1
XbalE %1
Goto Xbals
Kwrd L2
XbalL %2
Goto Xbals
Kwrd E2
XbalE %2
Goto Xbals
Kwrd L3
XbalL %3
Goto Xbals
Kwrd E3
XbalE %3
Goto Xbals
Kwrd L4
XbalL %4
Goto Xbals
Kwrd E4
XbalE %4
Goto Xbals
Kwrd L5
XbalL %5
Goto Xbals
Kwrd E5
XbalE %5
Goto Xbals
Kwrd L6
XbalL %6
Goto Xbals
Kwrd E6
XbalE %6
Goto Xbals
Kwrd L7
XbalL %7
Goto Xbals
Kwrd E7
XbalE %7
Goto Xbals
Kwrd L8
XbalL %8
Goto Xbals
Kwrd E8
XbalE %8
Goto Xbals
Kwrd L9
XbalL %9
Goto Xbals
Kwrd E9
XbalE %9
Goto Xbals
.--------------------------------------------------------------------------.
. L'Affiche - Mur de Graffitis .
.--------------------------------------------------------------------------.
Affiche: Kwrd Aff,a
Title Aff,Affiche
Lstat 32
If Certif,MenuOk
Goto AffL
MenuOk: Disp 1_AFFIC1.VDT
GetAf1: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ret,Rezo
Case T_Som,Rezo
Case T_Rep,Affiche
Case 1,AffL
Case 2,AffE
SendTop T'as vu ça où ?
Goto GetAf1
AffL: Kwrd Al
Title Aff,Affiche [L]
Lstat 32
AffL
If Certif,MenuOk
Goto Rezo
AffE: Kwrd Ae
Title Aff,Affiche [E]
Lstat 32
Disp 1_AFFIC2.VDT
AffE
Goto AffL
.---------------------------------------------------------------------------.
. L'Editorial .
. Module de Base pour tout type de Rubriques .
.---------------------------------------------------------------------------.
Edito: Kwrd Edi
Title Gui,Edito
Lstat 30
Select Edito
Cset E
Edt4: LastRec
IfNotOk EdtNo
Ctst E,Edt1
Goto Edt3
Edt1: Alter
Disp 1_EDITO.VDT
Edt3: Text $14$1F@A$18$0A
GetRec
DispMask 0
Edt0: Text $1FWO$11
Get
. Case T_Rep,Edt1
Npriv F,EdtX
Gosub MaskMove
EdtX: Case T_Som,RetRub
Case T_Sui,EdtP
Case T_Ann,EdtA
Case T_Ret,EdtS
Case T_Env,EdtE
Goto Edt0
EdtS: NextRec
IfOk Edt2
Text $1F@A$18#Q C'est la dernière page !
Goto Edt0
EdtP: PrevRec
IfOk Edt2
Text $1F@A$18#Q C'est la première page !
Goto Edt0
. Teste les variables pour afficher la bonne page d'effacement
. (E) = Edito / (D) = Disco & Bons Plans / (C) = Cinémas / (K) Sky. Party
Edt2: Ctst E,Edt2E
Ctst D,Edt2D
Ctst C,Edt2C
Ctst K,Edt2D
Ctst S,Edt2D
Edt2E: Disp EDIFACE.VID
Goto Edt3
Edt2D: Disp 1_DISEFF.VDT
Goto Edt3
Edt2C: Disp 1_CINEFF.VDT
Goto Edt3
EdtA: NPriv F,Edt0
Case *,EdtDel
Goto Edt0
EdtDel: DelRec
IfNotOk EdtNo
Goto Edt2
EdtE: Npriv F,Edt0
Case *,EdtMod
Goto Edt0
EdtMod: Posfield 1
GetMask 1
PutRec
Goto Edt2
EdtNo: Alter
Text $14$0C$1FLA#Q #M$18Padinfos en ce moment ! #L#]Sommaire$0F $11
Gosub WaitSom,MenAjc
. Retour sur le bon sommaire selon la rubrique
RetRub: Ctst D,Disco1
Ctst E,MenAjc
Ctst C,Cinema1
Ctst S,Rdv
Ctst K,SkyRock2
. Ajout d'une page dans l'éditorial
Kwrd Edi*
Title Gui,Edito
Lstat 30
Npriv F,PalDroit
Alter
Disp 1_EDITO.VDT
Select Edito
ClearMask
Gosub EditoGet,Edito
.--------------------------------------------------------------------------.
. L E M U S E E .
.--------------------------------------------------------------------------.
Musée: Kwrd Mus,M
Title Mus,Musée
Lstat 35
Disp 1_MENMUS.VDT
GetMus: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,GetMus
Case T_Som,Rezo
Case T_Ret,Rezo
Case T_Rep,Musée
Case 1,Mus1
Case 2,Mus2
Case 3,Mus3
Case 4,Mus4
Case 5,Mus5
Case 6,Mus6
Case 7,Mus7
Case 8,Mus8
Case 9,MusE
SendTop T'as vu ça où ?
Goto GetMus
Mus1: Kwrd Mt
Title Mus,Musée T
Lstat 35
MusRead 1
Goto MusV
Mus2: Kwrd Mb
Title Mus,Musée B
Lstat 35
MusRead 2
Goto MusV
Mus3: Kwrd Mv
Title Mus,Musée V
Lstat 35
MusRead 3
Goto MusV
Mus4: Kwrd Mp
Title Mus,Musée P
Lstat 35
MusRead 4
Goto MusV
Mus5: Kwrd Mm
Title Mus,Musée M
Lstat 35
MusRead 5
Goto MusV
Mus6: Kwrd Md
Title Mus,Musée D
Lstat 35
MusRead 6
Goto MusV
Mus7: Kwrd Ml
Title Mus,Musée L
Lstat 35
MusRead 7
Goto MusV
Mus8: Kwrd Mn
Title Mus,Musée N
Lstat 35
MusRead 8
Goto MusV
MusV: IfOk Musée
Alter
Text $0C$1FLA#M#Q En travaux...$18#L#]Sommaire$0F$11
Get
Goto Musée
MusE: If Certif,MusT2
Alter
Text $0C$1FLA#M#Q Tu n'es pas certifié(e) !$18#L#]Sommaire$0F$11
Get
Goto Musée
MusT2: Cumul< 500,MusAok
Can 2,MusAok
Alter
Text $0C$1FLA#M#Q Tu n'as pas assez d'ancienneté !$18#L#]Sommaire$0F$11
Get
Goto Musée
MusAok: Kwrd Me
Title Mus,Musée E
Lstat 35
Alter
Text $0C$1FAA$19/Entre une oeuvre. Tape #]Guide#\ à la fin.$1FBA
GetMus
. IfOk Musée
MusWrite 8
Text $0C$1FLA#M#Q Okay, c'est enregistré !$18#L#]Sommaire$0F$11
Get
Goto Musée
. Les micro-Serveurs
Serveurs: Kwrd TM,MIC
Title Ser,Serveurs
Lstat 34
Disp SERVEURS.VDT
Serv2: Gosub Soumenu,MenAjc,Serveurs
Case 1,ServL
Case 2,ServE
Case 3,ServL2
Case 4,ServE2
Goto Serv2
ServE: Kwrd TMP,MIP
Title Ser,Serveurs
Lstat 34
Disp MIC1.VID
Select Micro
ClearMask
MicRep: GetMask 1
Text $1F@A$18
Case T_Som,Serveurs
Case T_Rep,MicRep
Error 1,Badfield
Error 2,MisField
AddRec
Goto Serveurs
BadField: Text $1F@A$18#Q Champ illégal, retape S.T.P.
Goto MicRep
MisField: Text $1F@A$18#Q Champ obligatoire, retape S.T.P.
Goto MicRep
ServL: Kwrd TMM,MIM
Title Ser,Serveurs
Lstat 34
Select Micro
LastRec
IfNotOk NoMic
Mic1: Disp MIC1.VID
Mic4: Text $1F@A$18$0A
GetRec
DispMask 0
Mic0: Get
Cannot 7,MicX
Gosub MaskMove
MicX: Case T_Rep,Mic1
Case T_Som,Serveurs
Case T_Sui,MicP
Case T_Ann,MicA
Case T_Ret,MicS
Case T_Env,MicE
Goto Mic0
Mic2: Disp MIC2.VID
Goto Mic4
MicS: NextRec
IfOk Mic2
Text $1F@A$18#Q C'est le dernier micro-serveur...
Goto Mic0
MicP: PrevRec
IfOk Mic2
Text $1F@A$18#Q C'est le premier micro-serveur...
Goto Mic0
MicA: Cannot 7,Mic2
Case *,MicDel
Goto Mic2
MicDel: DelRec
IfNotOk NoMic
Goto Mic2
MicE: Cannot 7,Mic0
Case *,MicMod
Goto Mic2
MicMod: PosField 1
GetMask 1
PutRec
Goto Mic2
NoMic: Text $14$0C$1FLA#Q #M$18Aucun micro-serveur à ce jour !...$11
Gosub WaitSom,Serveurs
ServE2: Kwrd MIE
Title Ser,Serveurs
Lstat 34
XbalE RTC SYSOPS
Goto Serveurs
ServL2: Kwrd MIL
Title Ser,Serveurs
Lstat 34
XbalL RTC SYSOPS
Goto Serveurs
.-----------------------------------------------------------------------------.
. LES JEUX .
.-----------------------------------------------------------------------------.
Jeux: Kwrd Jeu,Gam
Lstat 40
Title Jeu,Jeux
Disp 1_MENJEU.VDT
Jeux0: Gosub Soumenu,MenAjc,Jeux
Case 1,Othello
Case 2,P4
Case 3,Echecs
Case 4,Tetryx
Case 5,Priso
Case 6,Yam
Case 7,Quiz
Case 8,WeekDay
Case 9,YiKing
SendTop T'as vu ça où ?
Goto Jeux0
. Les Quizzs
Quiz: Kwrd Qui
Lstat 49
Title Qiz,Quizz
SendTop En cours de réalisation !
Wait
Gosub Jeux0
Disp TEMP.VDT
Quizz0: Gosub Soumenu,Jeux,Quiz
Case 1,Quiz1
Case 2,Quiz2
SendTop T'as vu ça où ?
Goto Quizz0
Quiz1: Kwrd Q1
Lstat 49
Title Qiz,Quizz
QizPlay 1
QizScore 1
Goto Quiz
QIZE1: Kwrd QIZE1
Npriv F,Interdit
QizEdit 1
Goto Quiz
Quiz2: Kwrd Q2
Lstat 49
Title Qiz,Quizz
QizPlay 2
QizScore 2
Goto Quiz
QIZE2: Kwrd QIZE2
Npriv F,Interdit
QizEdit 2
Goto Quiz
. Le jeu d'Othello...
Othello: Kwrd Jo,Oth
Title Jeu,Othello
Lstat 41
Othello
Goto Jeux
. Le jeu de Maze...
Maze: Kwrd Jm,Maz
Title Jeu,Maze
Lstat 41
Maze
Goto Jeux
. Le jeu de puissance 4
P4: Kwrd P4,JP
Lstat 42
Title P4,Puiss IV
Puiss4
Goto Jeux
. "Yi-King"
YiKing: Kwrd Yk,Vy
Title Y-K,Yi-King
Lstat 44
Disp YIKING.VDT
Get
Case T_Som,Jeux
Case T_Ret,Jeux
Yiking
Goto Jeux
. Echecs
Echecs: Kwrd Chess,JE
Lstat 45
Title Ech,Echecs
Echecs
Goto Jeux
. WeekDay
WeekDay: Kwrd Wd,Vw
Title W-D,WeekDay
Lstat 46
V1: Alter
Text $14$1FTA$18$0A$18$0A$18$0B#Q $18Quand es-tu né(e) [JJ-MM-AA] ? $18#M$11
WeekDay
V1G: Get
Case T_Som,Jeux
Case T_Ret,Jeux
Case T_Rep,V1
Case T_Ann,V1
Goto V1G
. LE JEU DE YAM
Yam: Kwrd Jy,Ya
Title Yam,Yam's
Lstat 43
Disp YAM.VDT
Yam2: Gosub Soumenu,Jeux,Yam
Case 1,YamJ
Case 2,YamS
Case 3,YamL
Goto Yam2
. Jouer au Yam
YamJ: Kwrd JyJ,Y,Jyy
Title Yam,Yam [J]
Lstat 43
Yam
Goto Yam
. Les meilleurs scores
YamS: Kwrd JYS,YS
Title Yam,Yam [S]
Lstat 43
YamScore 0
Goto Yam
. Last 20 des meilleurs scores
YamL: Kwrd JYL,YL
Title Yam,Yam [L]
Lstat 43
YamScore 4
Goto Yam
. LE JEU DE TETRYX
Tetryx: Kwrd JT,Tetryx
Title Tyx,Tetryx
Lstat 47
Disp TETRYX.VDT
Tet2: Gosub Soumenu,Jeux,Tetryx
Case 1,TetJ
Case 2,TetS
Case 3,TetL
Goto Tet2
. Jouer au Tetryx
TetJ: Kwrd Tyx,JTT
Title Tyx,Tyx [J]
Lstat 47
Tetris
Goto Tetryx
. Les meilleurs scores
TetS: Kwrd JTS
Title Tyx,Tyx [S]
Lstat 47
TetScore 0
Goto Tetryx
. Last 20 des meilleurs scores
TetL: Kwrd JTL
Title Tyx,Tyx [L]
Lstat 47
TetScore 4
Goto Tetryx
. LE PRISONNIER
Priso: Kwrd JR
Title Pri,Pri [M]
Lstat 48
Disp PRISSCO.VDT
GetPri: Gosub Soumenu,Jeux,Priso
Case 1,PrisJ
Case 2,PrisS
Case 3,PrisL
SendTop T'as vu ça où ?
Goto GetPri
. La partie
Kwrd JRJ
PrisJ: Lstat 48
Prisoner
Goto Priso
. Les meilleurs scores
Kwrd JRS
PrisS: Lstat 48
Priscore 0
Goto Priso
. Les 20 derniers scores
Kwrd JRD
PrisL: Lstat 48
Priscore 4
Goto Priso
.-------------------------------------------------------------------------.
. S K Y R O C K N O R M A N D Y .
.-------------------------------------------------------------------------.
Kwrd Sky
SkyRock: Title Sky,Skyrock
Lstat 150
Disp 9_SKYONE.VDT
Alter
Get
Case T_Sui,SkyRock2
Case T_Som,MenAjc
Goto SkyRock
SkyRock2: Disp 9_MENSKY.VDT
Text $14$1FWM $08$08$0E#H#T,$1FWM$11
SkyGet: Get
Case 1,SkyFre
Case 2,SkyGri
Case 3,SkyEcr
Case 4,SkyPar
Case 5,BPN
Case T_Som,MenAjc
Case T_Rep,SkyRock2
SendTop T'as vu ça où ?
Goto SkyGet
Kwrd Skf
SkyFre: Title Sky,Skyrock
Lstat 150
Disp 9_SKYFRE.VDT
Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Som,Skyrock2
SendTop T'as vu ça où ?
Goto SkyFre
Kwrd Ske
SkyEcr: Title Sky,Skyrock
Lstat 150
BalE SKYROCK
Goto SkyRock2
Kwrd Skp
SkyPar: Lstat 150
Title Sky,Skyrock
Select SkyPar
Cset K
Disp 1_DISCO.VDT
Text $1FDB#N#]Skyrock Party#L$1FDc#]*Skp
Goto Edt4
Kwrd Skp*
Title Sky,Skyrock
Lstat 150
Npriv F,PalDroit
Disp 1_DISCO.VDT
Text $1FDB#N#]Skyrock Party#L$1FDc#]*Skp*
Select SkyPar
ClearMask
Gosub EditoGet,SkyPar
.--------------------------------------------------------------------------.
. G R I L L E S D E S P R O G R A M M E S S K Y R O C K .
.--------------------------------------------------------------------------.
Kwrd Skg
SkyGri: Title Sky,Skyrock
Lstat 150
Disp 9_MENGRI.VDT
Text $14$1FWM $08$08$0E#H#T,$1FWM$11
SkyGriG: Get
Case 1,SkyLun
Case 2,SkyMar
Case 3,SkyMer
Case 4,SkyJeu
Case 5,SkyVen
Case 6,SkySam
Case 7,SkyDim
Case T_Som,Skyrock2
SendTop T'as vu ça où ?
Goto SkyGriG
. Lundi
SkyLun: Disp 9_LUN1.VDT
Gosub SkySai,SkyGri,SkyLun2,SkyGri
SkyLun2: Disp 9_LUN2.VDT
Gosub SkySai,SkyGri,SkyLun3,SkyLun
SkyLun3: Disp 9_LUN3.VDT
Gosub SkySai,SkyGri,SkyMar,SkyLun2
. Mardi
SkyMar: Disp 9_MAR1.VDT
Gosub SkySai,SkyGri,SkyMar2,SkyLun
SkyMar2: Disp 9_MAR2.VDT
Gosub SkySai,SkyGri,SkyMar3,SkyMar
SkyMar3: Disp 9_MAR3.VDT
Gosub SkySai,SkyGri,SkyMer,SkyMar2
. Mercredi
SkyMer: Disp 9_MER1.VDT
Gosub SkySai,SkyGri,SkyMer2,SkyMar
SkyMer2: Disp 9_MER2.VDT
Gosub SkySai,SkyGri,SkyMer3,SkyMer
SkyMer3: Disp 9_MER3.VDT
Gosub SkySai,SkyGri,SkyJeu,SkyMer2
. Jeudi
SkyJeu: Disp 9_JEU1.VDT
Gosub SkySai,SkyGri,SkyJeu2,SkyMer
SkyJeu2: Disp 9_JEU2.VDT
Gosub SkySai,SkyGri,SkyJeu3,SkyJeu
SkyJeu3: Disp 9_JEU3.VDT
Gosub SkySai,SkyGri,SkyVen,SkyJeu2
. Vendredi
SkyVen: Disp 9_VEN1.VDT
Gosub SkySai,SkyGri,SkyVen2,SkyJeu
SkyVen2: Disp 9_VEN2.VDT
Gosub SkySai,SkyGri,SkyVen3,SkyVen
SkyVen3: Disp 9_VEN3.VDT
Gosub SkySai,SkyGri,SkySam,SkyVen2
. Samedi
SkySam: Disp 9_SAM1.VDT
Gosub SkySai,SkyGri,SkySam2,SkyVen
SkySam2: Disp 9_SAM2.VDT
Gosub SkySai,SkyGri,SkyDim,SkySam
. Dimanche
SkyDim: Disp 9_DIM1.VDT
Gosub SkySai,SkyGri,SkyDim2,SkySam
SkyDim2: Disp 9_DIM2.VDT
Gosub SkySai,SkyGri,SkyLun,SkyDim
. Sous-programme d'attente de saisie dans la grille des programmes
SkySai: Text $14$1FWA $08$08$0E#H$1FWA$11
Get
Case LUNDI,SkyLun
Case MARDI,SkyMar
Case MERCREDI,SkyMer
Case JEUDI,SkyJeu
Case VENDREDI,SkyVen
Case SAMEDI,SkySam
Case DIMANCHE,SkyDim
Case T_Som,%1
Case T_Sui,%2
Case T_Ret,%3
Case T_Ann,WaitSky
Goto SkySai
WaitSky: Text $14$1FWA $08$08$0E#H$1FWA$11
Goto SkySai
. ------------------------------------------------------------------------.
. SERVICE PUISSANCE 2 .
. ------------------------------------------------------------------------.
ServPU2: Gstat 200
Tpass 00,Pseudo
If Certif,ArrP2
Disp 2_LOGOP2.VDT
Get
Case T_Sui,PseP2
Goto ServPU2
PseP2: Disp 2_ACCP2.VDT
Wait
GetPsP2: Text $1FGL#P#A#] $11
Pseudo $14$1FJD#P#A#]Mot de passe : .$12G $1FJaEnvoi$1FJR#P#A#] $11$0E
Case T_Env,ArrP2
Text $14$1FLB#].$12_$1FLB$11
Goto GetPsP2
ArrP2: Key ô
if Certif,ArrP2b
SendTop Pense à ouvrir ta Boitôlettres
Alter
Goto MenP2
ArrP2b: Gosub Courrier
Boot
Goto MenP2
.--------------------------------------------------------------------------.
. MENU PRINCIPAL PUISSANCE 2 .
.--------------------------------------------------------------------------.
Kwrd Sp2
MenP2: Title Pu2,Pu2 [M]
Lstat 201
Disp 2_SOMP2.VDT
GetSoP2: Text $14$1FVM $08$08$0E#H#T,$1FVM$11
Get
Case T_Ann,GetSoP2
. Case T_Som,PseP2
Case T_Rep,MenP2
Case MAJAGE,P2AgeE
Case MAJPAR,P2ParE
Case 1,P2Act
Case 2,P2Adr
Case 3,P2Age
Case 4,P2Par
Case 5,P2Mes
Case 6,MenServ
SendTop T'as vu ça où ?
Goto GetSoP2
P2Adr: Disp 2_CONTAC.VDT
Get
Case T_Som,MenP2
Case T_Rep,P2Adr
SendTop T'as vu ça où ?
Goto MenP2
.--------------------------------------------------------------------------.
. A C T I V I T E S P U I S S A N C E 2 .
.--------------------------------------------------------------------------.
P2Act: Title Act,Puiss.2
Lstat 212
Disp 2_MENACT.VDT
P2ActGet: Text $14$1FU\ $08$08$0E#H#T,$1FU\$11
Get
Case 1,P2Ani
Case 2,P2Loc
Case 3,P2Ven
Case 4,P2Vid
Case 5,P2Kar
Case T_Rep,P2Act
Case T_Som,MenP2
SendTop T'as vu ça où ?
Goto P2ActGet
. Animation
P2Ani: Disp 2_FACT.VDT
Alter
P2Ani1: Disp 2_ANI1.VDT
P2AniG1: Get
Case T_Som,P2Act
Case T_Sui,P2Ani2
Goto P2AniG1
P2Ani2: Disp 2_ANI2.VDT
P2AniG2: Get
Case T_Ret,P2Ani1
Case T_Sui,P2Ani3
Case T_Som,P2Act
Goto P2AniG2
P2Ani3: Disp 2_ANI3.VDT
P2AniG3: Get
Case T_Ret,P2Ani2
Case T_Som,P2Act
Goto P2AniG3
. Location
P2Loc: Disp 2_FACT.VDT
Alter
P2Loc1: Disp 2_LOC1.VDT
P2LocG1: Get
Case T_Som,P2Act
Case T_Sui,P2Loc2
Goto P2LocG1
P2Loc2: Disp 2_LOC2.VDT
P2LocG2: Get
Case T_Ret,P2Loc1
Case T_Som,P2Act
Goto P2LocG2
. Vente
P2Ven: SendTop En cours de réalisation
Wait
Goto P2ActGet
. Vidéo
P2Vid: Disp 2_FACT.VDT
Alter
P2Vid1: Disp 2_VID1.VDT
P2VidG1: Get
Case T_Som,P2Act
Case T_Sui,P2Vid2
Goto P2VidG1
P2Vid2: Disp 2_VID2.VDT
P2VidG2: Get
Case T_Ret,P2Vid1
Case T_Som,P2Act
Goto P2VidG2
. Karaoké
P2Kar: SendTop En cours de réalisation
Wait
Goto P2ActGet
.P2Kar: Disp 2_FACT.VDT
. Alter
.P2Kar1: Disp 2_KAR1.VDT
.P2KarG1: Get
. Case T_Som,P2Act
. Case T_Sui,P2Kar2
. Goto P2KarG1
.P2Kar2: Disp 2_KAR2.VDT
.P2KarG2: Get
. Case T_Ret,P2Kar1
. Case T_Sui,P2Kar3
. Case T_Som,P2Act
. Goto P2KarG2
.P2Kar3: Disp 2_KAR3.VDT
.P2KarG3: Get
. Case T_Ret,P2Kar2
. Case T_Sui,P2Kar4
. Case T_Som,P2Act
. Goto P2KarG3
.P2Kar4: Disp 2_KAR4.VDT
.P2KarG4: Get
. Case T_Ret,P2Kar3
. Case T_Sui,P2Kar5
. Case T_Som,P2Act
. Goto P2KarG4
.P2Kar5: Disp 2_KAR5.VDT
.P2KarG5: Get
. Case T_Ret,P2Kar4
. Case T_Som,P2Act
. Goto P2KarG5
.--------------------------------------------------------------------------.
. Boîtes aux lettres Puissance 2 .
.--------------------------------------------------------------------------.
P2Mes: Title Bal,Bals
Lstat 206
If Certif,P2Mes3
Disp 2_NOUVO.VDT
P2Mes2: Gosub Soumenu,MenP2,P2Mes
Case 1,BalO
Case 2,BalA
Goto P2Mes2
P2Mes3: Title Bal,Bals
Lstat 206
Disp 2_MENBAL.VDT
GetMeP2: Text $14$1FVM $08$08$0E#H#T,$1FVM$11
Get
Case T_Ann,GetMeP2
Case T_Som,MenP2
Case T_Rep,P2Mes
Case 1,BalL
Case 2,BalE
Case 3,BalA
Case 4,Rep
Case 5,BalD
Case 6,BalR
Case 7,BalC
Case 8,Setup
Case 9,P2Equ
SendTop T'as vu ça où ?
Goto GetMeP2
P2Equ: Title Bal,Bals
Lstat 206
If Certif,P2Equ2
SendTop Il faut une Bal ! (*Bo)
Wait
Goto P2Mes
P2Equ2: Disp 2_MENEQU.VDT
GetEqP2: Text $14$1FVM $08$08$0E#H#T,$1FVM$11
Get
Case T_Som,P2Mes
Case T_Rep,P2Equ2
Case 1,EcrPui
Case 2,EcrVin
Case 3,EcrOli
Case 4,EcrPie
Case 5,EcrJem
Case 6,EcrChr
SendTop T'as vu ça où ?
Goto GetEqP2
EcrPui: BalE PUISSANCE 2
Goto P2Equ2
EcrVin: BalE VINCENT
Goto P2Equ2
EcrOli: BalE OLIVIER
Goto P2Equ2
EcrPie: BalE PIERRICK
Goto P2Equ2
EcrJem: BalE JEAN MARC
Goto P2Equ2
EcrChr: BalE GAEL
Goto P2Equ2
.--------------------------------------------------------------------------.
. A G E N D A D E S A N I M A T I O N S P 2 .
.--------------------------------------------------------------------------.
P2Age: Title PU2,Puiss.2
Lstat 210
Select AgendaP2
Cset A
Age4: LastRec
IfNotOk AgeNo
Ctst A,Age1
Goto Age3
Age1: Alter
Disp 2_AGEND1.VDT
Age3: Text $14$1F@A$18$0A
GetRec
DispMask 0
Age0: Text $1FWO$11
Get
. Case T_Rep,Age1
Npriv F,AgeX
Gosub MaskMove
AgeX: Case T_Som,MenP2
Case T_Sui,AgeP
Case T_Ann,AgeA
Case T_Ret,AgeS
Case T_Env,AgeE
Goto Age0
AgeS: NextRec
IfOk Age2
Text $1F@A$18#Q C'est la dernière page !
Goto Age0
AgeP: PrevRec
IfOk Age2
Text $1F@A$18#Q C'est la première page !
Goto Age0
. Teste les variables pour afficher la bonne page d'effacement
. (A) = Agenda / (P) = Partenaires
Age2: Ctst A,Age2A
Ctst P,Age2P
Age2A: Disp 2_AGEEFF.VDT
Goto Age3
Age2P: Disp 2_PAREFF.VDT
Goto Age3
AgeA: NPriv F,Age0
Case *,AgeDel
Goto Age0
AgeDel: DelRec
IfNotOk AgeNo
Goto Age2
AgeE: Npriv F,Age0
Case *,AgeMod
Goto Age0
AgeMod: Posfield 1
GetMask 1
PutRec
Goto Age2
AgeNo: Alter
Text $14$0C$1FLA#Q #M$18Padinfos en ce moment ! #L#]Sommaire$0F $11
Gosub WaitSom,MenP2
. Ajout d'une page dans l'agenda Puissance 2
P2AgeE: Title Age,Puiss.2
Lstat 210
Npriv F,PalDroit
Alter
Disp 2_AGEND2.VDT
Select AgendaP2
ClearMask
Gosub EditoGet,P2Age
.--------------------------------------------------------------------------.
. P A R T E N A I R E S P U I S S A N C E 2 .
.--------------------------------------------------------------------------.
P2Par: Lstat 211
Title Par,Puiss.2
Select PartenP2
Cset P
Disp 2_PARTE1.VDT
Goto Age4
. Ajout d'une page dans les partenaires Puissance 2
P2ParE: Title Par,Puiss.2
Lstat 211
Npriv F,PalDroit
Alter
Disp 2_PARTE2.VDT
Select PARTENP2
ClearMask
Gosub EditoGet,P2Par
. ------------------------------------------------------------------------.
. D E B A R Q U E M E N T J E U N E S .
. ------------------------------------------------------------------------.
ServDJ: SendTop Momentanèment Interrompu !
Wait
Goto GetServ
Gstat 300
Tpass 00,Pseudo
If Certif,ArrDj
Disp 3_LOGO.VDT
Get
Case T_Sui,PseDj
Goto ServDj
PseDj: Disp 3_PSEUDO.VDT
Wait
GetPsDj: Text $1FJT#U#M $11
Pseudo $14$1FPF#U#MMot de passe : .$12G $1F$50$5F#P#E#M#] #GENVOI#E $1FPT#U $11$0E
Case T_Env,ArrDj
Text $1FJT#U#M $11
Goto GetPsDj
ArrDj: Key ô
if Certif,ArrDjb
SendTop Pense à ouvrir ta Boitôlettres
Alter
Goto MenDj
ArrDjb: Gosub Courrier
Boot
Goto MenDj
.--------------------------------------------------------------------------.
. MENU PRINCIPAL DEBARQUEMENT JEUNES .
.--------------------------------------------------------------------------.
Kwrd Sdj
MenDj: Title DJ,DebJeunes
Lstat 301
Disp 3_MENGEN.VDT
GetSoDj: Text $14$1FWN $08$08$0E#H#Q,$1FWN$11
Get
Case T_Ann,GetSoDj
. Case T_Som,PseDj
Case T_Rep,MenDj
Case 1,PreDj
Case 2,TempDj
Case 3,TempDj
Case 4,TempDj
Case 5,TempDj
Case 6,MenServ
SendTop T'as vu ça où ?
Goto GetSoDj
TempDj: SendTop En cours de réalisation !
Wait
Goto GetSoDj
PreDj: Title PDJ,DebJeunes
Lstat 302
Disp 3_PRASS1.VDT
Get
Case T_Sui,PreDj2
Case T_Som,MenDj
PreDj2: Disp 3_PRASS2.VDT
Get
Case T_Ret,PreDj
Case T_Sui,PreDj3
Case T_Som,MenDj
PreDj3: Disp 3_PRASS3.VDT
Get
Case T_Ret,PreDj2
Case T_Som,MenDj
Goto PreDj3
.-----------------------------------------------------------------------------.
. PETITES FONCTIONNALITES FOURNIES, MAIS NON RACCORDEES A L'ARBO .
.-----------------------------------------------------------------------------.
. Consultation des statistiques
Stats: Kwrd stat,stats
Title Sys,Système
Lstat 18
Cannot 4,PalDroit
Alter
Text #:2}#[24;1H
Goto Stats3
Stats2: Alter
Stats3: Text $0D$0A$0ANumero de compte :$20
Lps1: StatAccnt
Case T_Som,StMenu
Case T_Ann,Stats
Lpstat: Alter
Text $0D$0AMois a visualiser :$20
StatMonth
Case T_Som,Stats2
Case T_Ann,Lpstat
Lps6: AffStat1
NotErr 5,Lps0
Text $0D$0APas de statistiques pour cette periode$0D$0A
Lps0: Text $0D$0A#[1mSuite#[0m ou #[1mSommaire#[0m ?$20
Lps3: Get
Case T_Som,Stat2Go
Case T_Ann,Lps3
Case T_Sui,Lps5Go
Case T_Rep,Lps6
Goto Lps3
Lps5Go: Text #[7mSuite#[0m
Lps5: AffStat2
NotErr 5,Lps7
Text $0D$0APas de statistiques pour cette periode$0D$0A
Lps7: Text $0D$0A#[1mRetour#[0m ou #[1mSommaire#[0m ?$20
Lps4: Get
Case T_Som,Stat2Go
Case T_Ann,Lps4
Case T_Rep,Lps5
Case T_Ret,Lps6Go
Goto Lpstat
Lps6Go: Text #[7mRetour#[0m
Goto Lps6
Stat2Go: Text #[7mSommaire#[0m
Goto Stats2
StMenu: Alter
Text #:2~#:iC#:iE
Wait
Goto MenAjc
PalDroit: Title Men,MenAjc
Lstat 4
Alter
Text $14$0C$1FLA#Q $18#MPriorité insuffisante $0F#]Sommaire$0F $11
Gosub WaitSom,MenAjc
. L'horloge
Kwrd Clock,Horloge
Lstat 33
Title Clk,Clock
Clock
Goto MenAjc
. Demande de code postal:
Kwrd CP
Lstat 4
Title Men,MenAjc
CP.Ask: Disp ASKCP.VID
CP.Get: Get
Case T_Som,MenAjc
Case T_Ann,CP.Ann
Text $14$1FSI
Call 0,44,$14$1FUO#@#]
Get
Case T_Som,MenAjc
Goto Cp.Ask
CP.Ann: Text $14$1FSI#D_$12X$1FSI$11
Goto CP.Get
. Accès au système d'exploitation
System: Kwrd System,Systeme,Dos
NPriv E,MenAjc
Lstat 3
Title Sys,Système
System
Goto MenAjc
. Reboot à distance du système .
Kwrd Shutdown
Npriv F,MenAjc
Lstat 3
Alter
Text $14$0C$1FLA#Q $18Vraiment (Mot de passe) ? $11
Get
Case LADIDON,Vraiment
Goto MenAjc
Vraiment: ShutDown
.------------------------------------------------------------------------.
. G U I D E D E S C O M M A N D E S .
.------------------------------------------------------------------------.
Kwrd Sos
Loc: Title Sos,Guide
Lstat 6
Disp G_FOND.VDT
Alter
Loc01: Disp G_ALARM.VDT
Gosub LocGet,MenAjc,LocRet,Loc02
Loc02: Pop
Disp G_ALIAS.VDT
Gosub LocGet,MenAjc,Loc01,Loc03
Loc03: Pop
Disp G_BIRTH.VDT
Gosub LocGet,MenAjc,Loc02,Loc04
Loc04: Pop
Disp G_CAL.VDT
Gosub LocGet,MenAjc,Loc03,Loc05
Loc05: Pop
Disp G_CALCUL.VDT
Gosub LocGet,MenAjc,Loc04,Loc06
Loc06: Pop
Disp G_FONT.VDT
Gosub LocGet,MenAjc,Loc05,Loc07
Loc07: Pop
Disp G_HIDE.VDT
Gosub LocGet,MenAjc,Loc06,Loc08
Loc08: Pop
Disp G_JEKYLL.VDT
Gosub LocGet,MenAjc,Loc07,Loc09
Loc09: Pop
Disp G_MAIL.VDT
Gosub LocGet,MenAjc,Loc08,Loc10
Loc10: Pop
Disp G_MAJ.VDT
Gosub LocGet,MenAjc,Loc09,Loc11
Loc11: Pop
Disp G_MIN.VDT
Gosub LocGet,MenAjc,Loc10,Loc12
Loc12: Pop
Disp G_MINUTE.VDT
Gosub LocGet,MenAjc,Loc11,Loc13
Loc13: Pop
Disp G_OQP.VDT
Gosub LocGet,MenAjc,Loc12,Loc14
Loc14: Pop
Disp G_RECALL.VDT
Gosub LocGet,MenAjc,Loc13,Loc15
Loc15: Pop
Disp G_SEND.VDT
Gosub LocGet,MenAjc,Loc14,Loc16
Loc16: Pop
Disp G_SENDSY.VDT
Gosub LocGet,MenAjc,Loc15,Loc17
Loc17: Pop
Disp G_SH.VDT
Gosub LocGet,MenAjc,Loc16,Loc18
Loc18: Pop
Disp G_SUN.VDT
Gosub LocGet,MenAjc,Loc17,Loc19
Loc19: Pop
Disp G_TIME.VDT
Gosub LocGet,MenAjc,Loc18,Loc20
Loc20: Pop
Disp G_WAIT.VDT
Gosub LocGet,MenAjc,Loc19,Loc21
Loc21: Pop
Disp G_WAITFO.VDT
Gosub LocGet,MenAjc,Loc20,Loc22
Loc22: Pop
Disp G_WARN.VDT
Gosub LocGet,MenAjc,Loc21,Loc23
Loc23: Pop
Disp G_WHEN.VDT
Gosub LocGet,MenAjc,Loc22,Loc24
Loc24: Pop
Disp G_WHERE.VDT
Gosub LocGet,MenAjc,Loc23,LocSui
LocGet: Text $1FXO
Get
Case T_Som,%1
Case T_Ret,%2
Case T_Sui,%3
Goto LocGet
LocRet: SendTop Première page !
Wait
Goto LocGet
LocSui: SendTop Dernière page !
Wait
Goto LocGet
.------------------------------------------------------------------------.
. Sous programmes d'usage général .
.------------------------------------------------------------------------.
. Désactivation du mode Rouleau sur les M2 retournés
RoulOff: Tpass M2R,@R1
Text #:jC
Wait
Return
@R1: Text #:f$04#:jC
Wait
Return
. Editeur anti-raccolage
Kwrd Racmod
Npriv F,MenAjc
RacMod
Goto MenAjc
. Sous programme de gestion du "Lecture / Ecriture dans une sous/rubrique" .
. (s'occupe d'empêcher l'écriture aux non-certifs, et d'afficher les règles) .
SouRub: Disp %1
Sub1: Text $14$1FWX. $08$08$11
Get
Reg5: Case T_Ann,Sub1
Case T_Som,%2
Case T_Ret,%2
Case T_Rep,Sourub
Case L,%3
Case E,WantE
Goto Sub1
WantE: If Certif,%4
SendTop Il faut avoir une BAL ! (*BO)
Goto Sub1
SouMenu: Text $14$1FWM $08$08$0E#H#T,$1FWM$11
Get
Case T_Ann,SouMenu
Case T_Som,%1
Case T_Ret,%1
Case T_Rep,%2
Return
. On attend la touche sommaire.
WaitSom: Get
Case T_Som,%1
Case T_Ann,WaitAnn
Goto WaitSom
WaitAnn: Text $14$1FXA#Q $18$11
Goto WaitSom
. Affiche "opération interdite", demande "sommaire", puis retourne au menu.
Interdit: Title Men,Menu
Lstat 10
Alter
Text $14$0C$1FLA#Q $18#MTu n'as pas la permission. $0F#]Sommaire$0F $11
Gosub WaitSom,MenAjc
. Petit sous-programme de test du courrier
Courrier: IfNot Certif,Coufin
Mail?
IfOk Nolett
SendTop Psst, t'as reçu du courrier !
Goto CouSuite
Nolett: SendTop Ya rien de neuf dans ta bal...
CouSuite: Wait
Coufin: Return
. Affichage du nombre de présents à l'intérieur, vu de l'extérieur...
DispCnt: Count 200
Dec G200
Text $1F@A$18#]$19.$0F:On est$20
Aff G200,0
Text $20à l'intérieur !$0A
Return
. Point d'entrée global pour toutes les saisies type Edito
EditoGet: GetMask 1
Text $1F@A$18$0A
Case T_Som,%1
Case T_Rep,EditoGet
Text $14$1FXA#Q $18#]Envoi$0F,$20
Text sinon #]Correction$0F, ou #]Sommaire$0F $11
Get
Case T_Cor,EditoGet
Case T_Som,%1
AddRec
Goto %1
. Sous programme de déplacement de fiches au sein d'un "mask".
MaskMove: Case *,OkMov
Return
OkMov: Case T_Sui,MskMov
Case T_Ret,MskMov
Case T_Gui,MskFrst
Return
MskMov: DelRec
LastRec
AddRec
Return
MskFrst: FirstRec
Return
. Header "publicitaire" d'accueil:
Header: Random B10,12
If B10=1,Head1
If B10=2,Head2
If B10=3,Head3
If B10=4,Head4
If B10=5,Head5
If B10=6,Head6
Before 05h00,HeadNui
Before 08h00,HeadPdj
Before 11h45,HeadMat
Before 13h00,HeadMid
Before 17h00,HeadApr
Before 19h00,HeadFina
Before 20h30,HeadDebs
After 23h00,HeadSoir
HeadNui: Text $14$0C$1F@A#P $12EBonne nuit sur Scooter !
Goto Suite
HeadPdj: Text $14$0C$1F@A#P $12EDe bon matin sur Scooter !
Goto Suite
HeadMat: Text $14$0C$1F@A#P $12ETiens, te voilà ce matin !
Goto Suite
HeadMid: Text $14$0C$1F@A#P $12EBon appétit sur Scooter !
Goto Suite
HeadApr: Text $14$0C$1F@A#P $12CBonne aprés-midi sur Scooter !
Goto Suite
HeadFinA: Text $14$0C$1F@A#P $12CBonne fin d'aprés-midi !
Goto Suite
HeadDebS: Text $14$0C$1F@A#P $12EBonne soirée sur Scooter !
Goto Suite
HeadSoir: Text $14$0C$1F@A#P $12GBonne fin de soirée !
Goto Suite
Head1: Text $14$0C$1F@A#P $12JTsssscchiouuuu !
Goto Suite
Head2: Text $14$0C$1F@A#P $12JZoup zoup zoup...
Goto Suite
Head3: Text $14$0C$1F@A#P $12GBienvenue sur Scooter !
Goto Suite
Head4: Text $14$0C$1F@A#P $12EBienvenue sur nos lignes !
Goto Suite
Head5: Text $14$0C$1F@A#P $12EAke Ouaaaaaaaiiiiiiiiis !
Goto Suite
Head6: Text $14$0C$1F@A#P $12KYop yop yop ... !
Suite: Text $18$0D#T $0D#Q $0D#U $0D#R $0D#V $0D#S $0D#V $0D#R $0D#U $0D
Text #Q $0D#T $0D#Q $0D#U $0D#R $0D#V $0D#R $0D#U $0D#Q $0D#T $0D
Text #Q $0D#U $0D#R $0D#U $0D#Q $0D#T $0D#Q $0D#U $0D#Q $0D#T $0D$0D$18
Return
.----------------------------------------------------------------------------.
. Fin de l'arborescence .
.----------------------------------------------------------------------------.