Change old cods from turbo pascal into free pascal

[Nokiarody]

ALSO PHOTO

[Nokiarody]

ALSO

[Nokiarody]

also

[RAW]

Try this:
1.) Download LAZARUS IDE and install it...
2.) Open every Unit (*.pas) and add {$MODE TP} after every UnitName.
3.) Choose Compiler options and compile...

EXAMPLE: TurboPascal 7 BreakOut Example:

Code: Pascal  [Select][+][-]

1. {************************************************}
2. {                                                }
3. {   Breakout Demo Program                        }
4. {   Copyright (c) 1992 by Borland International  }
5. {                                                }
6. {************************************************}
7.  
8. program Breakout;
9. {$MODE TP}
10. {
11.  
12.   This is a version of the classic arcade game, Breakout.
13.  
14.     SCREEN.PAS
15.     COUNT.PAS
16.     BRICKS.PAS
17.     BOUNDS.PAS
18.     WALLS.PAS
19.     BREAKOUT.PAS
20.  
21.   To build an executable file, compile from the command line with:
22.  
23.     tpc /m breakout
24.  
25.   or load BREAKOUT.PAS into the integrated development
26.   environment and press F9.
27.  
28.   When testing the program, you may want to force the paddle to
29.   follow the ball, so you'll never miss. The program contains
30.   conditional compilation directives to produce this version, and
31.   you can build it from the command line with:
32.  
33.     tpc /DTest breakout
34.  
35.   or load BREAKOUT.PAS into the integrated development
36.   environment, select Alt-O/C/Alt-C, type 'Test' (without the quotes,
37.   of course) followed by the Enter key, then select Alt-C/B to
38.   rebuild the executable file.
39. }
40.  
41. uses Screen, Count, Bricks, Bounds, Walls, Crt, Dos;
42.  
43. var
44.   ss        : SaveScreen;
45.   w         : Wall;
46.   b         : Ball;
47.   p         : Paddle;
48.   Speed     : LimitCounter;
49.   Left      : LeftBound;
50.   Top       : UpperBound;
51.   Right     : RightBound;
52.   Bottom    : LowerBound;
53.   Obstacles : ObstacleList;
54.   PaddleMsg,
55.   SpeedMsg,
56.   StartMsg,
57.   QuitMsg,
58.   PauseMsg1,
59.   PauseMsg2,
60.   TypeMsg   : TextString;
61.   Score     : Counter;
62.   Highest   : Counter;
63.   Balls     : DownCounter;
64.   X         : Integer;
65.   Finished  : Boolean;
66.   FirstGame : Boolean;
67.   TypeInc,
68.   ch        : Char;
69.  

It compiles fine, but I don't like to install DOSBox, because everytime when I start DOSBox my monitor does a weird sound...

[Nitorami]

RAW
At Nokiarody's level of understanding, I would not confuse him with Lazarus, it is far too complicated  . Let him go on with the text mode IDE.

Nokiarody
I really do not know what you are doing. You say you installed Lazarus but your pictures show the text mode IDE, not Lazarus. You can work with the text mode IDE of course, it is very similar to Turbo Pascal, but this is not Lazarus.

Where did you get program Project1 from ? This is a Lazarus example, not your old code. And you are trying to run the example in the text mode IDE.

Do not call programs "24,5", give them a proper name with a .pas ending.

And yes, as RAW said, the {$mode} switch sets the compatibility, and you should set it to {$mode tp} for turbo pascal compatibility in all of your units.

[Nokiarody]

THANK you  Raw and Nitorami
that is my mistake
i could not the  the photo upload
i will try again
and show maybe tomorrow
 

[Nokiarody]

hi every one
here the photos from lazarus

[Nokiarody]

anther photo

[Nitorami]

You created an empty console application. To execute some code, put it into TApplication.Run !

[Nokiarody]

 I have added parts of the code
But the black box comes out
1-Do I have to add all the parts together or not
2-The way to arrange operations (Procedures and functions) leave it as it is or should I do something to connect one to others
3-some of Procedures reacts on other way will add the  photo
Project my application has raised Exception Class External SIGSEGV
4-that is right I choosed console application
Or  I have to choose another option
Easy program
Application

[Nokiarody]

the Photo

[Nokiarody]

photo

[Nokiarody]

I am sorry for the qualitet of the photo
here they allow just 250 kb
Allowed file types: bmp, doc, gif, jpg, mpg, pdf, png, txt, zip, rar, tar, gz, tgz, 7z, patch, diff, ico
 Restrictions: 4 per post, maximum total size 250KB, maximum individual size 250KB