:FnOff 
:AxesOff
:GridOff
:0üXmin
:0üYmin
:62üYmax
:94üXmax
:
:0üK:ClrHome:Output(1,1,"G              G":Output(2,1,"int            int ":Output(2,2,"  ":Output(3,1,"ln             ln ":Output(3,2," ":Output(4,1,"ln             ln ":Output(4,2," ":Output(5,1,"e              e":Output(6,1,"sin            sin ":Output(6,2,"  ":Output(7,1,"  ":For(X,5,12:Output(2,X,"-":Output(4,X,"-":End:Output(2,4,"]":Output(3,4,"]":Output(4,4,"]":Output(2,13,"[":Output(3,13,"[":Output(4,13,"[":Output(8,2,"*VERSION:1.00*":30üA:1üB:While Kø105:If B=1:A-5üA:If A=0:0üB:If B=0:A+5üA:If A=30:1üB:Output(3,5,"V":Output(3,8," ":For(X,1,A):End:Output(3,6,"A":Output(3,9," ":For(X,1,A:End:Output(3,7,"R":Output(3,10," ":For(X,1,A):End:Output(3,8,"S":Output(3,11," ":For(X,1,A):End:Output(3,9,"A":Output(3,12," ":For(X,1,A):End:Output(3,10,"B":Output(3,5," ":For(X,1,A:End:Output(3,11,"A":Output(3,6," ":For(X,1,A:End:Output(3,12,"M":Output(3,7," ":getKeyüK:End
:
:Lbl D
:ClrHome
:ClrDraw
:Menu("ĞVARSABAMĞ","JOUER",1,"INFOS...",I,"QUITTER",2)
:Lbl I
:Text(0,15,"--- VARSABAM ---
:Text(10,0,"CREE  PAR  GILLES  BEDEL
:Text(16,0,"EN  2004  POUR  TI-82
:Text(23,5,"GILLOU.RAY      FREE.FR
:Line(46,34,43,34:Line(42,35,42,38:Line(43,39,45,39:Pt-On(45,38:Line(46,38,46,36:Pt-On(45,36:Pt-On(44,36:Pt-On(44,37
:Text(30,0,"PRUDENCE, C'EST  UN  TRES
:Text(36,0,"GROS  JEU.
:Text(42,0,"TOUTE  ERREUR  DU  TYPE
:Text(48,0,"'MEMORY'  EST  DUE  A  UN
:Text(54,0,"MANQUE  D'ESPACE LIBRE...
:Pause :ClrDraw
:Text(0,0,"EN  EFFET, VARSABAM  EST
:Text(6,0,"FAIT  EN  7  PROGRAMMES, IL
:Text(12,0,"PREND  16200  OCTETS,  ET
:Text(18,0,"UTILISE  Pic1  A  3, L�  A  L…,
:Text(24,0,"SOIT  4300  OCTETS  DE
:Text(30,0,"MEMOIRE.
:Text(38,0,"AUTRE  CHOSE: POUR  PASSER
:Text(44,0,"L'INTRO  DU  DEBUT  APPUIEZ
:Text(50,0,"SUR  0  LORS  DU  CHARGEMENT.
:Pause :ClrDraw
:Text(0,0,"TOUTES  LES  SUGGESTIONS,
:Text(6,0,"AVIS  DE  BUGS,  IMPRESSIONS,
:Text(12,0,"ETC...  SONT  LES  BIENVENUES
:Text(18,0,"MAILEZ-MOI !
:Pause 
:Goto D
:Lbl 2
:ClrList L�,L‚,Lƒ,L„,L…
:Output(1,1,"")
:Stop
:Lbl 1
:Output(4,2,"CHARGEMENT..."
:0üP
:int (3rand+3)üA:Lbl 4:int (3rand+3)üB:If B=A:Goto 4:Lbl 5:int (3rand+3)üC:If C=A or C=B:Goto 5:int (4rand+6)üD:Lbl 6:int (4rand+6)üE:If E=D:Goto 6:Lbl 7:int (4rand+6)üF:If F=D or F=E:Goto 7:Lbl 8:int (4rand+6)üG:If G=D or G=E or G=F:Goto 8
:ClrList L…:26üdim L…
:{0,0,0,0,0,1101.1,1.1,0,0,1,0,0,0,0,0.2,111.101,1.1026+C/100}üL‚
:{100.1,1101.1025,101.1,101.1011,1101.4,1101.403,1.1,0,0,1,1100.2,111.105,101.1,1101.1+A/100,111.104,1111.1,1.1,0,0,0,1110.1012,1101.1,1101.102,1011.1,1100.1,111.1013+B/100,1.1,0,0,0,110.1,11.1,110.2,111.1,111.1014,1101.1,1.1,0,0,0,100.1,101.1015,101.11,101.1,101.12,111.1016,1.1}üLƒ
:{100.1,1101.108,1101.1,1101.1+D/100,1101.1017,101.1,1.1,0,0,1,1100.1023,110.1,1111.1018,111.2,1111.1,1101.1019,1001.1021,0,0,0,110.1+E/100,1101.107,111.109,1101.1+F/100,1011.2,110.1,1011.1,0,0,0,100.1,1111.1022,1101.1,1011.4,1010.1,1100.1+G/100,11.1,0,0,0,100.1,11.1,110.106,111.4,11.1024,110.1,1.1}üL„
:4üA:0üB:0üC:15üV:0üI:0üH
:
:If getKey=102
:Goto S
:prgmVARINTRO
:Lbl S
:If P=1
:Goto D
:
:Lbl Á
:If C=ú1
:L‚üL�
:If C=0
:LƒüL�
:If C=1
:L„üL�
:0üL�(10)
:prgmVARSDISP
:11AüS
:11BüT
:
:Lbl R
:L�(A+10B)üE
:A+10BüJ
:11(A-1)üX
:11BüY
:If (iPart ((fPart E)10)ø0) and (iPart ((fPart E)10)ø2)
:Then
:If iPart ((fPart E)10)ù3
:Then
:If (C=0 and ((A=5 and K=24) or (A=6 and K=26))) or (C=1 and ((B=3 and K=34) or (B=4 and K=25)))
:Then
:1üI:Goto W
:End
:If iPart ((fPart E)10)=3
:Goto W
:End
:
:Line(X,Y,X+11,Y:Line(X,Y,X,Y+11:Line(X+11,Y,X+11,Y+11:Line(X,Y+11,X+11,Y+11
:E/1000üE
:If (iPart E)=1
:Then
:Line(X+4,Y+12,X+4,Y+10
:Line(X+7,Y+12,X+7,Y+10
:End
:10(fPart E)üE
:If (iPart E)=1
:Then
:Line(X+10,Y+4,X+12,Y+4
:Line(X+10,Y+7,X+12,Y+7
:End
:10(fPart E)üE
:If (iPart E)=1
:Then
:Line(X+4,Y+1,X+4,Y-1
:Line(X+7,Y+1,X+7,Y-1
:End
:10(fPart E)üE
:If (iPart E)=1
:Then
:Line(X+1,Y+4,X-1,Y+4
:Line(X+1,Y+7,X-1,Y+7
:End
:prgmVARNEWEV
:(L�(J)-.1)üL�(J)
:Lbl W
:End
:L�(J)üE
:If fPart (E10)ù.1 and iPart ((fPart E)10)ø2
:prgmVARMSTRS
:A+10BüJ
:Pt-Off(S+4,T+5
:Pt-Off(S+5,T+4
:Pt-Off(S+6,T+4
:Pt-Off(S+7,T+5
:Pt-Off(S+5,T+7
:Pt-Off(S+6,T+7
:If H=1:2üH
:prgmVARALLEV
:A+10BüJ
:L�(J)üE
:If H=1:Goto Á
:If L�(8)=2:Goto D
:Pt-On(X+4,Y+5
:Pt-On(X+5,Y+4
:Pt-On(X+6,Y+4
:Pt-On(X+7,Y+5
:Pt-On(X+5,Y+7
:Pt-On(X+6,Y+7
:
:XüS
:YüT
:If V÷0
:Goto M
:
:Text(22,87,"        ":Text(22,87,V
:
:Lbl 3
:0üK
:If H=2:Then
:If B=4:26üK
:If B=0:24üK
:0üH
:End
:
:While K=0
:getKeyüK
:End
:If K=25 and pxl-Test(62-(Y+10),X+4)=1
:Goto A
:If K=26 and pxl-Test(62-(Y+4),X+10)=1
:Goto B
:If K=34 and pxl-Test(62-(Y+1),X+4)=1
:Goto C
:If K=24 and pxl-Test(62-(Y+4),X+1)=1
:Goto E
:If K=21
:prgmVARACTIO
:If V=0
:Goto M
:Goto 3
:
:Lbl A
:B+1üB
:A-1üA
:Lbl B
:A+1üA
:B+1üB
:Lbl C
:B-1üB
:A+1üA
:Lbl E
:A-1üA
:Goto R
:
:Lbl M
:Output(1,1,"OH COMME C'EST  DOMMAGE, VOUS   VOILA MORT. VOUSN'AVEZ PAS SAUVELEON, IL EST    MORT."
:Pause 
:ClrHome
:Output(1,1,"MAIS PEUT-ETRE  RETENTERIEZ-VOUSVOTRE CHANCE    DANS UNE AUTRE  PARTIE ?"
:Pause 
:ClrHome
:Goto D