Langage de programmation - Turbo Pascal - Jeux & Stratégies

Le jeu Peg Leap est un jeu fort simple et ressemblant au dames. Le but de jeu est d'enlever le plus de jetons possible du jeu en sautant par dessus chaque jeton avec un autre. Vous ne pouvez sauter diagonalement. Le jeton sauté sera enlevé du jeu. D'abord, vous devez placer le curseur sur le jeton sautant et enfoncé la touche ENTER. Ensuite, placer le curseur dans l'espace libre et presser encore ENTER.

Le jeu est très facile à écrire ou voir à reproduire dans n'importe quel langage de programmation. On commence par afficher un simple écran de texte et on affiche les instructions à l'aide de la procédure Instruction. Ensuite, on affiche le jeu le tableau du jeu. Pour des raisons évidente, il est inutile de chercher à écrire une procédure complexe pour afficher la grille, et il est plus simple d'effectuer un affichage bête et simple du texte avec les jetons dedans. Toutefois, afin de pouvoir jouer plus tard, on conservera l'emplacement des 33 jetons dans un tableau nommé Data.

Le jeu a été développé à l'origine en GWBASIC, et c'est la raison pour laquelle, on retrouve de nombreux GOTO à travers les instructions proposé. Ensuite, de nombreux problèmes pour adapter les délais, indiqués par une boucle FOR/NEXT vide du GWBASIC par une procédure WaitRetrace correspondant au rafraîchissement de la vidéo. Mais par la suite, cette même instruction a été encore une fois remplacé par l'instruction DELAY par souci de compatibilité avec les compilateurs de Pascal plus récent.

Le moteur du jeu c'est la procédure ChoicePiece, laquelle permettra de déplacer les pièces en utilisant le curseur. On attend que le joueur enfonce une touche et on tentera de lui associer un déplacement. Lors de sa première sélection, on déterminera s'il existe vraiment une pièce et sa deuxième sélection, on déterminera s'il est possible de déplacer la pièce à l'endroit indiqué à l'aide de la fonction IsOK, sinon, on lui fait choisir à nouveau la deuxième sélection.

L'exemple de jeu Peg Leap suivant est développé en Turbo Pascal 7 et fonctionne également sous Free Pascal. Voici le code source en Turbo Pascal du jeu :





Program PegLeap;

 
Uses Crt;

 
Label 40,360,410,690,_Continue1,_Continue2;

 
Const

 {Code de touche clavier renvoyée par ReadKey}

 kbNoKey=0;{Pas de touche}

 kbEsc=$001B;{Escape}

 kbUp=$4800;{Up}

 kbLeft=$4B00;{Flèche de gauche (Left)}

 kbRight=$4D00;{Flèche de droite (Right)}

 kbDn=$5000;{Flèche du bas (Down)}

 kbHome=$4700;{Home}

 kbTab=$0F09;{Tabulation}

 kbEnd=$4F00;{End}

 kbEnter=$000D;{Enter}

 kbF10=$4400;{F10}

 
Function MultChr(Chr:Char;Len:Byte):String;

Var

 I:Byte;

 S:String;

Begin

 S:='';

 For I:=1 to Len do S:=S+Chr;

 MultChr:=S;

End;

 
Procedure WaitRetrace;Begin

 Delay(10);

End;

 
Procedure Instruction;

Label Break;

Var

 J:Byte;

 K:Word;

 CK:Char Absolute K;

Begin

 TextBackground(0);

 TextColor(6);

 ClrScr;

 Write(MultChr('¦',80));

 For J:=1 to 21 do Begin

  GotoXY(1,J+1);

  Write('¦');

  GotoXY(80,J+1);

  Write('¦');

 End;

 GotoXY(1,23);

 Write(MultChr('¦',80));

 GotoXY(34,3);

 TextColor(11);

 Write('P E G    L E A P');

 TextColor(15);

 GotoXY(22,8);

 Write('Voulez-vous les instructions ? <O/N>');

 TextColor(3);

 Repeat

  K:=Byte(ReadKey);

  If K=0Then K:=K or (Byte(ReadKey)shl 8);

  Case(CK)of

   'n','N':GOTO Break;

   'o','O':Begin

    GotoXY(21,7);

	Write('  Il s''agit d''un jeu fort simple qui res-');

    GotoXY(21,8);

	Write('  semble aux dames. Le but du jeu est');

    GotoXY(21,9);

	Write('  d''enlever le plus de jetons possible du');

    GotoXY(21,10);

	Write('  en sautant par dessus chaque jeton avec');

    GotoXY(21,11);

	Write('  un autre. Vous ne pouvez sauter diagonale-');

    GotoXY(21,12);

	Write('  ment. Le jeton sauté sera enlevé du jeu.');

    GotoXY(21,14);

	Write('  D''abord place le curseur sous le jeton');

    GotoXY(21,15);

	Write('  qui saute et pèse <ENTER>.');

    GotoXY(21,17);

	Write('  Ensuite place le curseur dans l''espace');

    GotoXY(21,18);

	Write('  libre où sauter et pèse encore <ENTER>.');

    GotoXY(28,25);

	TextColor(15);

	Write('Presse une touche pour continuer');

    If(ReadKey<>#0)Then;

    GOTO Break;

   End;

  End;

 Until False;

Break:

 ClrScr;

End;

 
Const Data:Array[0..32]of Byte=(13,14,15,

				22,23,24,

			  29,30,31,32,33,34,35,

			  38,39,40,41,42,43,44,

			  47,48,49,50,51,52,53,

				58,59,60,

				67,68,69);

DataPtr:Byte=0;

 
Var

 Pegs,Holes,Contents:String;

 B:Array[0..70]of LongInt;

 T,XY:Array[0..9,0..9]of LongInt;

 XLin,XPos,XSave,YSave,XCoord,YCoord,ZXSave,ZYSave,ZXCoord,ZYCoord:Integer;

 A,_B,F,P,R,C,W,X,Y,Z,_T:Integer;

 K:Word;

 CK:Char Absolute K;

 
Procedure ExitMsg;Begin

 GotoXY(25,25);

 TextColor(7);

 Write(' Presse <F10> pour abandonner ce Jeu ');

 TextColor(3);

 GotoXY(1,1);

End;

 
Procedure Restore;Begin

 DataPtr:=0;

End;

 
Function XCur:Integer;Begin

 XCur:=WhereX;

End;

 
Function YCur:Integer;Begin

 YCur:=WhereY;

End;

 
Procedure ChoicePeace;

Var

 Ok:Boolean;

Begin

{ SimpleCur;}

 Ok:=False;

 Repeat

  K:=Byte(ReadKey);

  If K=0Then K:=K or (Byte(ReadKey)shl 8);

  Case(K)of

   kbUp:If YCur>=6Then Begin

    If Not((YCur<12)and(XCur in[0..33,48..255]))Then Begin

     GotoXY(WhereX,WhereY-3);

    End;

   End;

   kbLeft:If XCur>=28Then Begin

    If Not((YCur in[0..8,16..255])and(XCur<40))Then Begin

	 GotoXY(WhereX-6,WhereY);

    End;

   End;

   kbRight:If XCur<=53Then Begin

    If Not((YCur in[0..8,16..255])and(XCur>41))Then Begin

	 GotoXY(WhereX+6,WhereY);

    End;

   End;

   kbDn:If YCur<=20Then Begin

    If Not((YCur>12)and(XCur in[0..33,48..255]))Then Begin

	 GotoXY(WhereX,WhereY+3);

    End;

   End;

   kbEnter,kbEsc,kbF10:Ok:=True;

  End;

  If CK=' 'Then Begin

   K:=kbEnter;

   Ok:=True;

  End;

 Until Ok;

 {CloseCur;}

 XSave:=XCur;XCoord:=(XSave-10)div 6;

 YSave:=YCur;YCoord:=(YSave div 3)+1;

End;

 
Function IsOK:Boolean;

Label 1140,1160;

Begin

 IsOk:=False;C:=1;

 For X:=1 to 9do For Y:=1to 9do Begin

  If(C<>Z)Then Goto 1160;

  If(C+2=P)Then Begin

   If T[X,Y+1]=0Then Exit;

   T[X,Y+2]:=5;T[X,Y+1]:=0;B[C+1]:=-3;

   Goto 1140

  End;

  If(C+18=P)Then Begin

   If T[X+1,Y]=0Then Exit;

   T[X+2,Y]:=5;T[X+1,Y]:=0;B[C+9]:=-3;

   Goto 1140

  End;

  If(C-2=P)Then Begin

   If T[X,Y-1]=0Then Exit;

   T[X,Y-2]:=5;T[X,Y-1]:=0;B[C-1]:=-3;

   Goto 1140;

  End;

  If(C-18=P)Then Begin

   If T[X-1,Y]=0Then Exit;

   T[X-2,Y]:=5;T[X-1,Y]:=0;B[C-9]:=-3;B[Z]:=-3;B[P]:=-7;

1140:B[Z]:=-3;B[P]:=-7;T[X,Y]:=0;

   IsOk:=True;

   Exit;

  End;

1160:Inc(C);

 End;

 IsOk:=True;

End;

 
Procedure UpDate;Var XOffset,YOffset:Integer;Begin

 CONTENTS:=HOLES;

 If T[ZYCOORD,ZXCOORD]=5Then Contents:=Pegs;

 GotoXY(ZXSave,ZYSave);

 Write(Contents);

 Contents:=Holes;

 If T[YCoord,XCoord]=5Then Contents:=Pegs;

 GotoXY(XSAVE,YSAVE);

 Write(Contents);

 YOFFSET:=ZYCOORD-YCOORD;

 XOFFSET:=ZXCOORD-XCOORD;

 If YOFFSET>0Then YOFFSET:=1;

 If XOFFSET>0Then XOFFSET:=1;

 If YOFFSET<0Then YOFFSET:=-1;

 If XOFFSET<0Then XOFFSET:=-1;

 CONTENTS:=HOLES;

 GotoXY(XSAVE+(XOFFSET*6),YSAVE+(YOFFSET*3));

 Write(Contents);

End;

 
Procedure _Halt;Begin

 XLIN:=WhereX;

 XPOS:=WhereY;

 GotoXY(1,25);

 Write(' ':80);

 GotoXY(21,24);

 Write('Voulez-vous abandonner ce Jeu ? <O/N>');

 Repeat

  K:=Byte(ReadKey);

  If K=0Then K:=K or (Byte(ReadKey)shl 8);

  If CK in['O','o']Then Halt;

 Until CK in['n','N'];

 ExitMsg;

End;

 
BEGIN

 TextMode(C80);

 ClrScr;

 Instruction;

 PEGS:='o';HOLES:=' ';

40:

 ClrScr;

 XLIN:=0;XPOS:=0;

 ExitMsg;

 FillChar(R,SizeOf(R),0);

 FillChar(C,SizeOf(C),0);

 FillChar(XY,SizeOf(XY),0);

 For R:=1to 9do For C:=1to 9do Begin

  If(((R-4)*(R-5)*(R-6)=0)or((C-4)*(C-5)*(C-6)=0))and Not((R-1)*(C-1)*(R-9)*(C-9)=0)Then Begin

    T[R,C]:=5;XY[R,C]:=Data[DataPtr];

	Inc(DataPtr)

  End

   Else

  T[R,C]:=-5;

 End;

 T[5,5]:=0;

 GotoXY(1,2);

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':20,'¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':20,'¦ o ¦ ¦ o ¦ ¦ o ¦ ¦   ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':20,'¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':20,'+---+ +---+ +---+ +---+ +---+ +---+ +---+');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'+---+ +---+ +---+');

 WriteLn(' ':32,'¦ o ¦ ¦ o ¦ ¦ o ¦');

 WriteLn(' ':32,'+---+ +---+ +---+');

 Restore;

 For W:=1to 33do Begin

  B[Data[DataPtr]]:=-7;

  Inc(DataPtr)

 End;

 B[41]:=-3;

360:YSave:=12;XSave:=41;

 GotoXY(1,25);

 Write(' ':24,'Place le curseur et presse <ENTER>.');

 ClrEol;

 GotoXY(32,24);

 Write('  Quelle piece ?   ');

 ClrEol;

 GotoXY(XSave,YSave);

410:ChoicePeace;

 If(K=kbEsc)or(K=kbF10)Then _Halt;

 ZYSAVE:=YSAVE;ZXSAVE:=XSAVE;ZYCOORD:=YCOORD;ZXCOORD:=XCOORD;Z:=XY[YCOORD,XCOORD];

 If B[Z]<>-7Then Begin

690:CONTENTS:=HOLES;

  If T[ZYCOORD,ZXCOORD]=5THEN CONTENTS:=PEGS;

  GotoXY(ZXSave,ZYSave);

  Write(CONTENTS);

  CONTENTS:=HOLES;

  If T[YCOORD,XCOORD]=5THEN CONTENTS:=PEGS;

  GotoXY(XSave,YSave);

  Write(CONTENTS);

  GotoXY(1,20);

  Write('Invalide...recommence.');

  WaitRetrace;WaitRetrace;WaitRetrace;WaitRetrace;WaitRetrace;

  WaitRetrace;WaitRetrace;WaitRetrace;WaitRetrace;WaitRetrace;

  GotoXY(1,20);

  Write(' ':27);

  {SetPos(XSave-1,YSave-1);

  SetCurPos(XSave-1,YSave-1);}

  Goto 360;

 End;

 GotoXY(33,23);

 Write('      Ou?       ');

 GotoXY(XSave,YSave);

 TextColor(7);

 TextBackground(8);

 Write(PEGS);

 TextBackground(0);

 GotoXY(XSave,YSave);

 ChoicePeace;

 If(K=kbEsc)or(K=kbF10)Then _Halt;

 P:=XY[YCOORD,XCOORD];

 If(B[P]=0)or(B[P]=-7)Then Goto 690;

 If(Z=P)Then Goto 360;

 If (Z+P)and 1=1Then Goto 690;

 If(ABS(Z-P)-2)*(ABS(Z-P)-18)<>0 THEN Goto 690;

 If Not(IsOK)Then Goto 690;

 UpDate;

 F:=0;

 For R:=2to 8do Begin

  For C:=2to 8do Begin

   If T[R,C]=5Then Begin

    Inc(F);

    For A:=R-1to R+1do Begin

     _T:=0;For _B:=C-1to C+1do Inc(_T,T[A,_B]);

     If _T<>10Then Goto _Continue1;

     If T[A,C]<>0Then Goto 360;

_Continue1:

    End;

    For X:=C-1to C+1do Begin

     _T:=0;For Y:=R-1to R+1do Inc(_T,T[Y,X]);

     If _T<>10Then Goto _Continue2;

     If T[R,X]<>0Then Goto 360;

_Continue2:

    End;

   End;

  End;

 End;

 GotoXY(1,22);

 Write('Il ne vous reste que ',F,' pièces.');

 GotoXY(1,24);

 Write(' ':80);

 Case(F)of

  1:Begin

   GotoXY(1,21);

   Write('BRAVO !');

   GotoXY(1,23);

   Write('Parfait !');

   If T[5,5]=5Then Begin

    GotoXY(1,23);

	Write('Dans le centre ! Vous etes un Génie !');

   End;

  End;

  2:Begin

   GotoXY(1,21);

   Write('EXECELLENT !');

   GotoXY(3,21);

   Write('Essaie encore.');

  End;

  3,4:Begin

   GotoXY(1,21);

   Write('Très bien !');

   GotoXY(1,23);

   Write('N''abandonnez pas!');

  End;

  5..7:Begin

   GotoXY(1,21);

   Write('PAS PIRE');

   GotoXY(1,23);

   Write('Essaie encore.');

  End;

 End;

 If Not(F<8)Then Begin

  If F>24Then Begin

   GotoXY(1,21);

   Write('Ce n''est pas le but du jeu');

   GotoXY(1,23);

   Write('Lisser les instructions !');

  End

   Else

  Begin

   GotoXY(1,21);

   Write('OUCH!');

   GotoXY(1,22);

   Write('Il ne reste que ',F,' pièces.');

   GotoXY(1,23);

   Write('Ce n''est pas votre journée!');

  End;

 End;

 GotoXY(1,24);

 Write('Aimeriez-vous jouer encore ? <O/N>');

 Repeat

  K:=Byte(ReadKey);

  If K=0Then K:=K or (Byte(ReadKey)shl 8);

  If(CK in['n','N'])or(K=kbEsc)Then Halt;

 Until CK in['o','O'];

 Restore;

 Goto 40;

END.

Code source

Voici le code source du jeu sur GitHub :

Lien	Langage de programmation	Projet
https://github.com/gladir/7iles/blob/main/PEGLEAP.PAS	Turbo Pascal, Free Pascal	7iles

PARTAGER CETTE PAGE SUR

Dernière mise à jour : Jeudi, le 28 juillet 2022

	ABAP/4
	Ada
	Assembleur
	Assembly & bytecode
	ASP (Active Server Pages)
	Basic
	C
	C++
	C# (C Sharp)
	Cobol
	ColdFusion
	Fortran
	HTML
	Java
	JavaScript
	LISP
	Logo
	LotusScript
	Oberon
	Pascal
	Perl
	PHP
	PL/1
	Prolog
	Python
	Rebol
	REXX
	Ruby
	SAS
	NoSQL
	SQL
	Swift
	X++ (Axapta)

	Assembleur 370
	Assembleur 1802
	Assembleur 4004
	Assembleur 6502
	Assembleur 6800
	Assembleur 68000
	Assembleur 8080 et 8085
	Assembleur 8089
	Assembleur 80x86
	Assembleur AGC4
	Assembleur ARM
	Assembleur DPS 8000
	Assembleur i860
	Assembleur Itanium
	Assembleur MIPS
	Assembleur PDP-11
	Assembleur PowerPC
	Assembleur RISC-V
	Assembleur SPARC
	Assembleur SuperH
	Assembleur UNIVAC I
	Assembleur VAX
	Assembleur Z80
	Assembleur Z8000
	Assembleur z/Architecture

	CIL
	Jasmin
	LLVM
	MSIL
	Parrot
	P-Code (PCode)
	SWEET16

	ASP 1.0
	ASP 2.0
	ASP 3.0
	ASP.NET

	ABasiC (Amiga)
	Adam SmartBASIC
	Altair BASIC
	AmigaBASIC (Amiga)
	AMOS Basic (Amiga)
	Atari Basic (Atari 400, 600 XL, 800, 800XL)
	Basic Apple II (Integer BASIC/APPLESOFT)
	Basic Commodore 64 (CBM-BASIC)
	Basic Commodore 128 (BASIC 7.0)
	Basic Commodore VIC-20 (CBM-BASIC 2.0)
	Basic Coco 1 (Color Basic)
	Basic Coco 2 (Extended Color Basic)
	Basic Coco 3 (Extended Color Basic 2.0)
	BASICA (PC DOS)
	Basic Pro
	BBC BASIC
	Blitz BASIC (Amiga)
	DarkBASIC
	Dartmouth BASIC
	GFA-Basic (Atari ST/Amiga)
	GWBASIC (MS-DOS)
	Liberty BASIC
	Locomotive BASIC (Amstrad CPC)
	MSX-Basic
	Omikron Basic (Atari ST)
	Oric Extended Basic
	Power Basic
	Quick Basic/QBasic (MS-DOS)
	Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
	ST BASIC (Atari ST)
	Turbo Basic
	Vintage BASIC
	VBScript
	Visual Basic (VB)
	Visual Basic .NET (VB .NET)
	Visual Basic pour DOS
	Yabasic

Section courante

A propos

Section administrative du site

Code source

	C Shell Unix (csh)

	C pour Amiga
	C pour Atari ST
	C pour DOS
	C pour Falcon030
	C pour GEMDOS (Atari ST)
	C pour Linux
	C pour PowerTV OS
	C pour OS/2
	C pour Unix
	C pour Windows

	Aztec C
	CoCo-C
	GNU C
	HiSoft C
	IBM C/2
	Introl-C
	Lattice C
	Microsoft C
	MinGW C
	MSX-C
	Open Watcom C
	OS-9 C Compiler
	Pure C
	Quick C
	Turbo C

	C++ pour OS/2
	C++ pour Windows

	Borland C++
	C++Builder
	IBM VisualAge C++
	Intel C++
	MinGW C++
	Open Watcom C++
	Symantec C++
	Turbo C++
	Visual C++
	Visual C++ .NET
	Watcom C++
	Zortech C++

	Apple Pascal
	Delphi/Kylix/Lazarus
	Free Pascal
	GNU Pascal
	HighSpeed Pascal
	IBM Personal Computer Pascal
	Lisa Pascal
	Maxon Pascal
	MPW Pascal
	OS-9 Pascal
	OSS Personal Pascal
	Pascal-86
	Pascal du Cray Research
	Pascal/VS
	Pascal-XT
	PURE Pascal
	QuickPascal
	RemObjets Chrome
	Sun Pascal
	THINK Pascal
	Tiny Pascal (TRS-80)
	Turbo Pascal
	UCSD Pascal
	VAX Pascal
	Virtual Pascal

	Turbo Pascal for CP/M-80
	Turbo Pascal for DOS
	Turbo Pascal for Macintosh
	Turbo Pascal for Windows

	CodeIgniter (Cadre d'application)
	Drupal (Projet)
	Joomla! (Projet)
	Phalanger (PHP .NET)
	phpBB (Projet)
	Smarty (balise)
	Twig (balise)
	Symfony (Cadre d'application)
	WordPress (Projet)
	Zend (Cadre d'application)

	Btrieve
	Cassandra
	Clipper
	CouchDB
	dBASE
	Hbase
	Hypertable
	MongoDB
	Redis

	Access
	BigQuery
	DB2
	H2
	Interbase
	MySQL
	Oracle
	PostgreSQL
	SAP HANA
	SQL Server
	Sybase
	U-SQL

	Introduction
	Les remarques
	Les opérateurs
	Les instructions conditionnelles
	Les instructions de boucles
	Type de données
	Référence des unités
	Références de mots réservés (mots clefs)
	Définition de procédure et fonction
	Référence de procédures et fonctions
	Référence des directives de compilation

	CRT
	DOS
	GRAPH
	OBJECTS
	OVERLAY
	PRINTER
	STRINGS
	SYSTEM
	TURBO3
	WINDOS

	Les premiers pas
	Les jetons
	Les constantes
	Les types
	Variables et constantes typées
	Les expressions
	Les instructions
	Blocs, localité et étendue
	Procédures et fonctions
	Programmes et unités
	Vue d'ensemble de la bibliothèque d'exécution
	Procédures et fonctions standard
	Entrée et sortie
	Utilisation du 80x87
	Interfaçage avec DOS
	Utilisation de chaînes de caractères terminées par NULL
	Utilisation de l'interface graphique Borland
	Utilisation de recouvrement
	Problèmes de mémoire
	Problèmes de contrôle
	Optimiser votre code
	L'assembleur intégré
	Liaison de code assembleur
	Programmation orientée objet (POO)

	GNAT
	SMALLAda
	VHDL

	ASSEMBLER/MONITOR 64
	Micol Assembler

	A86
	MASM (Macro Assembler)
	TASM (Turbo Assembler)

	BeckerBASIC
	SIMONS' BASIC

	Bonjour
	Affichage
	Astronomie
	Biochimie
	Chimie
	Conversion
	Électrotechnique
	Emulateur
	Fichiers
	Finance
	Géographie
	Géophysique
	Géométrie
	Histoire
	Jeux & stratégies
	Mathématique
	Matrice
	Médicale
	Météorologie
	Océanographie
	Onirologie
	Sport
	Temps
	Tri
	Trigonométrie
	Validation

	Distance en Km entre deux longitudes et latitudes
	Méridien de Paris
	Triangulation d'une position (trilateration,...)

	Aire d'un cercle
	Aire d'une surface de prisme rectangulaire
	Aire d'un triangle
	Distance entre deux points
	Treillis

	Asteroids
	Bowling
	Breakout
	Lode Runner
	Missile Command
	Pac-Man
	Patience
	Peg Leap
	Soko-Ban
	Space Invaders
	Space Jockey
	Tetris
	Tic-Tac-Toe
	Tours d'Hanois

	Ackermann
	Exp
	Factoriel
	Fibonacci
	Log
	Nombre premier
	Odd
	Random
	Sqrt
	Triangle Pascal

	Année bissextile
	Calendrier
	Date de la Pâque
	FirstDayOfMonth
	Horloge à aiguille

	AMDEKSYSTEM88LIB-TP
	APMLIB-TP
	BASICSTRLIB-TP
	BIOSLIB-TP
	COLORIMETRYLIB-TP
	CSVLIB-TP
	CYRIXLIB-TP
	DRDOSLIB-TP
	ELECTRICLIB-TP
	ERLOGLIB-TP
	FINANCIALLIB-TP
	GEOLIB-TP
	GRAPHICSSOLUTIONLIB-TP
	HDLLIB-TP
	HISTORICLIB-TP
	HTMLLIB-TP
	IALIB-TP
	INTLLIB-TP
	JSONLIB-TP
	K8042LIB-TP
	LETTRESLIB-TP
	LOTUSSCRIPTSTRLIB-TP
	METEOLIB-TP
	OCEANOGRAPHICLIB-TP
	OS2LIB-TP
	OSSPASCALLIB-TP
	POSIX-TP
	PYTHONLIB-TP
	SANE-TP
	SNOBOLLIB-TP
	SVGLIB-TP
	TPW4TPLIB-TP
	TSENGLABSET4000LIB-TP
	VGALIB-TP
	WINDOWS9XLIB-TP
	XMLLIB-TP

	AlimBase
	AMIGADOS-0
	AXTRO
	Colorix
	Corail
	COREUTILS-0
	DEV-COOLS
	EDUX
	FLEX-0
	GEO-COMMANDER
	HISTORIK
	lettrex
	LINUX-0
	MATHIX
	METEOPOLIS
	Micro Calc
	MYSTIX
	Monsterbook
	MSDOS-0
	MSXDOS-0
	OS9-0
	Renegade BBS
	Système Information
	TRSDOS-0
	Turbo Calc
	UNIX-0
	VIE

	Base de connaissances

	Table ASCII
	Table de codes ANSI et page de codes
	RAM de l'IBM PC

	Code d'erreur

	Génération du code en interne du Turbo Pascal 3
	Code source du Turbo Pascal 6
	TPU
	OBJ

	Archives de paquet
	Alternative

	Bibliographie

	Turbo Pascal à FreeDOS/FreePascal
	Turbo Pascal à Linux/FreePascal
	Turbo Pascal à FreeBSD/FreePascal
	Turbo Pascal à eComStation/FreePascal