AGENDA

PHONE

COPERNIC

SEARCH

VIEW

WORDS

TELECHARGER

INTRODUCTION

A few people always ask me how can they do for programing their Ti92 in is native language (Tibasic).It's very simple.
It's apprears that some of them don't speak english very well,so for giving a best apprentissage to them I'll explain them in my native language"French".
So if you're not a francophone it the good time for learning french otherwhise find another site on theses motorsites altavista or on hotbot
Ma conception de la programmation sur Ti92 est si simple quelle ne demande pas de préparer des algorithmes avant de passer a l'ecriture du programme sur la machine.Cepandant s'il vous ai difficile de creer des programmes sans passer a la phase papier qui consiste a decrire des votre language(ici le français) les instructions et les ordres que doivent realiser votre programme
Il faut remarquer qu'en se qui concerne le Tibasic chaque appelle ou requette est assigner a une variable qui contiendra le resultat de ma requette
( ..request"nom",nom).La variable nom est sont que l'on appelle un string,en d'autres termes un mot
Comme dit mon grand -père ,c'est suffit pour l'intro car on dirait que je m'etale.
NOVICE PASSEZ VOTRE CHEMIN 

AGENDA()
Prgm
Local days,a,hours,i,b,c,e,d,var,act,j,day,q,lun,mar,mer,jeu,ven,sam,dima
{"Lun","Mar","Mer","Jeu","Ven","Sam","Dima"}»days
{"6.00","7.00","8.00","9.00","10.00","11.00","12.00","13.00","14.00",
"15.00","16.00","17.00","18.00","19.00","20.00","21.00","22.00","23.00"}»hours
For j,1,7
days[j]»day
agend[j]»#day:EndFor
For q,1,dim(days):days[q]»var
If getType(#var)¹"LIST" Then
{"1","","","","","","","","","","","","","","","","",""}»#var
Else:EndIf:EndFor
Lbl top
ToolBar:Title "fichier"
Item "C onsulting day",wtch
Item "E dit days",chg
Item "E xit program",end
Title "AGENDA v9.2ü by Lord.ACK ¨2001",top
EndTBar
Lbl chg
Dialog:Title "Edit days"
DropDown "Days",days,a
EndDlog
days[a]»var:If getType(#var)¹"LIST" Then:days[a]»var:{}»#var:Goto again
Else:Goto again:EndIf
Lbl again
Dialog:Title "Edit "&days[a]:DropDown "Hour",hours,b:Request "Activity",act
EndDlog
" "&hours[b]&" »"&act»#var[b]
Dialog:Title "exit edit"
DropDown "exit",{"No","Yes"},c:EndDlog
If c=1 Then:Goto again:Else
Goto top:EndIf
Goto top
Lbl wtch
Dialog:Title "Select day"
DropDown "Day",days,d
EndDlog
PopUp expr(days[d]),e
Goto top
Lbl end
DelVar agend
NewData agend,lun,mar,mer,jeu,ven,sam,dima
setMode("Split 1 App","Y= Editor")
setMode("Split 1 App","Home")
EndPrgm

TELECHARGER

PHONE()
Prgm:Local a,n_1,n_2,n_3:hog()
If acc="OK" Then:Goto main
Else
Goto end:EndIf
Lbl main
If getType(nm1)Ø"NONE" Then:Unlock nm1,nm2,nom:EndIf
DelVar acc
ToolBar
Title "LOOK",con:Title "ADD INFO",add:Title "CLEAR",ers:Title "EXIT",end
EndTBar
Lbl ers
hog()
If acc="OK" Then
DelVar nom,nm1,nm2,acc:Goto main
Else
Goto end:EndIf
Lbl add
Try
Dialog:Title "ADD INFORMATION IN"
Request "Nom",n_1:Request "Prenom",n_2:Request "Téléphone",n_3:EndDlog
{n_1}»n_1:{n_2}»n_2:{n_3}»n_3
If getType(nom)="NONE" Then:{}»nom
{}»nm1:{}»nm2
Goto ft:Else:EndIf:Goto ft
Lbl ft
augment(nom,n_1)»nom:augment(nm1,n_2)»nm1:augment(nm2,n_3)»nm2
Goto main
Else:EndTry:Goto main
Lbl con
Try
Dialog:Title char(7)
DropDown "",nom,a
EndDlog:Dialog:Title char(7)
Text "Nom "&nom[a]:Text "Prånom "&nm1[a]:Text "Tålåphone "&nm2[a]
EndDlog
Else:EndTry
Goto main
Lbl end:DelVar acc,ex
If getType(nm1)¹"NONE" Then:Lock nm1,nm2,nom:EndIf
setMode("Split 1 App","Y= Editor")
setMode("Split 1 App","Home"):EndPrgm

TELECHARGER

SEARCH()
Prgm
Local k,var,a,n
If getType(cook_0)¹"LIST" Then:{}»cook_0:EndIf
Try
Lbl top
ClrDraw:""»var:getKey()»k
RplcPic tool,0,5
0»n
While k¹264:n+1»n:getKey()»k
If k=13 Then:Goto suit
ElseIf k=4360 Then:Goto end:
ElseIf k=340 Then:PopUp cook_0,a
expr(cook_0[a]&"()"):Goto top
ElseIf n×20 Then:Pause :0»n:EndIf
PxlText var,17,75
var&char(k)»var:EndWhile
Lbl suit
If getType(#var)="NONE" Then:var»n:words():ElseIf getType(#var)="LIST" Then
var»nm:If getType(cook_1)="NONE" Then:{}»cook_1:EndIf
Unlock cook_1:augment(cook_1,{var})»cook_1
Lock cook_1:view():Else
Unlock cook_0:augment(cook_0,{var})»cook_0:Lock cook_0
expr(var&"()"):EndIf:Goto top:Else:EndTry
Lbl end:ClrDraw:ClrIO
ClrHome
setMode("Split 1 App","Y= Editor")
setMode("Split 1 App","Home"):EndPrgm

TELECHARGER

COPERNIC()
Prgm
setGraph("AXES","OFF")
Local a,aut,var,k,b,d,nom,no,tt
{"L.Delbe","ProgSystem","02.08.99"}»aut
Lbl m
mov()
If rand(2)=1 Then:"tips"»tt
Else:"internet"»tt:EndIf
Dialog:Title "TIPS OF THE DAY"
Text ""
Text " ?New Tips:"
Text "ü "&#tt[rand(dim(#tt))]
EndDlog
PxlText "PGS",45,100
PxlText "PROGSYSTEM",54,80
0»no
Loop
no+1»no:getKey()»k:If k=99 or k=67 Then:Goto l
ElseIf k=112 or k=80 Then
Try:PopUp cook_0,a:expr(cook_0[a]&"()")
Else:EndTry
Goto m
ElseIf k=87 or k=119 Then
Try:PopUp cook_1,a
cook_1[a]»nm
view():Else:EndTry:Goto m
ElseIf no=30 Then:If rand(2)=1 Then:"tips"»tt:Else:"internet"»tt:EndIf
Dialog:Title "Welcome to COPERNIC OFFICE":Text " C O P E R N I C O F F I C E":Text "":Text "":Text ""
Text "":Text ""
Text "INFO UTILE"
Text "ü "&#tt[rand(dim(#tt))]
Text ""
Text "DELBE Lionel PGS as ProGSystem":EndDlog:0»no
ElseIf k=78 or k=110 Then:search():Goto m¨[n]
ElseIf k=116 or k=84 Then:Goto t
ElseIf k=113 or k=81 Then:Goto q
ElseIf k=97 or k=65 Then:Goto au
ElseIf k=115 or k=83 Then:Goto end
EndIf:EndLoop
Lbl l:Try:{"BIOCHI","WORDS","VIEW","PHONE"}»var
PopUp var,a:expr(var[a]&"()"):Goto m:Else:EndTry:Goto m
Lbl t:If getType(prog)="NONE" Then:{}»prog:Goto prg:EndIf
PopUp {"Programme","Ajout","Clear","Replace"},b
If b=1 Then:Goto prg
ElseIf b=2 Then:Goto add
ElseIf b=3 Then:hog():If acc="YES" Then:DelVar prog
Goto m:Else:Goto m:EndIf:Goto m:ElseIf b=4 Then:Goto rep
EndIf:Goto m:Lbl rep:Try:Dialog:Request "Name",nomm
Request "Place",pl:EndDlog:Unlock prog:nomm»prog[expr(pl)]:DelVar nomm,pl:Lock prog
Goto m:Else:EndTry:Goto m:Lbl prg:Try:PopUp prog,d
expr(prog[d]&"()"):Goto m:Else:Goto m:EndTry:Goto m:Lbl add
Try:Dialog:Title "Ajout Prog":Request "Nom",nom:EndDlog
{nom}»nom:Unlock prog:augment(prog,nom)»prog:Lock prog:Else:EndTry
exit1()
If ex="NO" Then:Goto add
Else:Goto m
EndIf
Lbl q:Dialog:Title "Turn of Engine":Text "Press ? + [on]":EndDlog:Goto m
Lbl au:Dialog:Title "COPERNIC 2000":Text "[Q] for turn of engine":Text "[P] for Program access"
Text "[W] for Text access":Text "[N] for Netsearch":Text "":Text "E.mail: Pgs.lio@Caramail.com"
Text "Copyright? "&aut[2]&" 1998-2000":EndDlog:Goto m
Lbl end:DelVar acc,ex:ClrDraw0»seed1:0»seed2
setMode("Split 1 App","Home"):EndPrgm

TELECHARGER

MOVE()
Prgm
Local n,q,i,v,word
ClrDraw:getKey()»q:0»n
While q=0:getKey()»q:ClrDraw
" "&internet[rand(dim(internet))]&" "»word
If q=264 Then:ClrDraw:Goto end
EndIf
If n=0 Then:{200-dim(word)*5,60,1}»v
Goto mv:ElseIf n=1 Then:{40,120,1}»v
Goto mv:EndIf
Lbl mv:For i,v[1],v[2],v[3]:PxlText word,95,i:EndFor
If n=1 Then:0»n:Else:n+1»n:EndIf:EndWhile
Lbl end:setMode("Split 1 App","Y= Editor")
setMode("Split 1 App","Home"):EndPrgm

VIEW()
Prgm
Local nom,tail,i,p,n,rep,key,vv1,nome,nu,l1,l2,l3,ni,k,md1,md,md2,ny,a,b,chos,a
Lbl top:ClrIO
ToolBar
Title "VIEW"
Item "TeXt ?T",v:Item "OtHeR ?O",ot:Title "OPTIONS":Item "CoREcT¬ ?C",cr:Item "FuSiOn ?F",fs
Item "AdD ?A",add:Item "Open ?O",open:Item "WoRdS ?W",go:Title "EXIT",end:EndTBar
Lbl open
PopUp cook_1,a
cook_1[a]»nm
Goto top
Lbl go:words():Goto top
Lbl add:Try:Dialog:Title "CREATE-OPEN FILE":Request "Name",nm:EndDlog
If getType(#nm)="NONE" Then:{}»#nm:EndIf:Else:EndTry
Lbl add1:Try:Unlock #nm:Dialog:Title " ?-INPUT DATA-?"
Request "Data",dat:EndDlog:If dim(dat)×31 Then:Text "Enlevez "&string(dim(dat)-30)&" ASCII"
Goto add1:EndIf:augment(#nm,{dat})»#nm:DelVar dat:Lock #nm:Else:EndTry
exit1():If ex="NO" Then:Goto add:Else:Goto top:EndIf:Goto top
Lbl ot:nm»ny:Try:Request "VarName",ny:PopUp #ny,a:Else:EndTry
Goto top
Lbl fs:Try:Dialog:Title "?» FUSION ??":Request "ADD TO",l1
Request "VAR ",l2:Request "RENAME IT",l3:EndDlog
Unlock #l1,#l2:augment(#l1,#l2)»#l3:Else:If errornum=830 or errornum=670 Then
Goto top:EndIf:EndTry
Lock #l1,#l2,#l3:DelVar l1,l2,l3:Goto top:Lbl cr
Try:Lbl co2:Dialog:Title "FileName":Request "FILENAME",nome
Request "N¬ of Line",nu:EndDlog:Unlock #nome:#nome[expr(nu)]»vv1
Lbl co1:Request "",vv1:If dim(vv1)×37 Then:Text "out:"&string(dim(file)-36)
Goto co1:Else:Dialog:DropDown "Invert",{"yes","no"},a:EndDlog
If a=1 Then:vv1»files:ss():nfile»vv1:EndIf
vv1»#nome[expr(nu)]
EndIf:exit1()
If ex="NO" Then:Goto co2
Else:DelVar nfile,files:Goto top:EndIf
Else:EndTry:Goto top
Lbl v:nm»nom:Dialog:Title " VIEWER PRO v5.01ü":Request "OPEN FILE",nom
Request "DIRECTORY",rep
DropDown "Mode:",{"Auto","Manual"},md:EndDlog:Text string(dim(#nom))&" LINES"
If md=1 Then:Goto md1
Else:Goto md2:EndIf
Lbl md1
Try:dim(#nom)»tail:tail»n:n-(n-1)»p:ClrIO:1»ni
While pon:getKey()»k:Disp string(p)&":"&#nom[p]:p+1»p
If k=264 Then:ClrIO:Goto top:EndIf:If p=ni*9 Then:Pause
ClrIO:ni+1»ni:EndIf:EndWhile:Pause :ClrIO
Text "END ":Goto top:Else:EndTry:Goto top
Lbl md2:Try:rep&"\"&nom»nom:Else:DelVar noms
EndTry:Try:dim(#nom)»tail:tail»n:n-(n-1)»p:ClrIO:1»ni
While pon
getKey()»k:If k=344 Then
Disp string(p)&":"&#nom[p]:p+1»p:ElseIf k=338 Then:ClrIO:p-1»p
Disp string(p)&":"&#nom[p]:ElseIf k=264 Then:ClrIO::Goto top:EndIf:EndWhile:Pause :ClrIO
Goto top:Else:EndTry:Goto top:Lbl end:DelVar nm:ClrIO
DelVar ex,acc,l1,l2,l3,files,nfile
setMode("Split 1 App","Y= Editor")
setMode("Split 1 App","Home"):EndPrgm

TELECHARGER

WORDS()
Prgm
Local lin,r,file,k,i,nom,ex
Try:Lbl menu:Dialog:Title " WORDS 1.00Ç Linux":Request "New File Name",n
DropDown "Exit",{"No","Yes"},r
EndDlog
If dim(n)>8 Then:Goto menu:EndIf
If r=1 Then:Goto s:Else:Goto end:EndIf
Lbl s:1»lin:getKey()»k:{}»#n:While k¹264:getKey()»k
Lbl bac:Dialog:Title "Line n¬"&string(lin):Request "",file
EndDlog:If dim(file)×37 Then:Text "out:"&string(dim(file)-36):Goto bac:EndIf
{file}»file:augment(#n,file)»#n:lin+1»lin:getKey()»k:EndWhile:Else:EndTry:Lbl end
DelVar ex,acc,n:setMode("Split 1 App","Y= Editor"):setMode("Split 1 App","Home"):EndPrgm

TELECHARGER