Turbo Pascal 3 Source Code

[AMSDOS]

In Future this will be my announcements thread for any new Turbo Pascal programs I add to my website! 

Announcing - Bouncy2.PAS is an update of my original Bouncy Ball Demo which was plotted to screen. This updated version incorporates proper sprite routine to display and move a ball inside the square. Nothing fancy, though the routine is fast and demonstrates techniques used in MCARRAY.PAS & the advantages of having Poking 16bit values into a Pascal Procedure. Thanks to everyone & arnoldemu for making the sprite routine possible! 

[funkheld]

hello, good day. I'm from germany.
I program with the CPC6128 and cpcfloppy-emu-sd and cpcfloppy-emu-usb.
where you can download the Turbo Pascal for CPC6128?

gruss

[MiguelSky]

At CP/M User site http://turpas3.angelfire.com/, the README.TXT file gives you the information for download and use , but you can dowload directly from ftp://ftp.nvg.unit.no/pub/cpc/utils/cpc/turbopas.zip

[funkheld]

hello, thanks you.

where there is a help file for turbo-pascal 3.0 or a book-pdf or a helpchm-file for windows ?

gruss

[AMSDOS]

Yes the README.TXT file on my site will give you a brief run down into using the CPC version Turbo Pascal. Unfortunately it dribbles on a bit, but it explains how to run the program once you've inserted the Disk Image or Disc on a CPC.

But your in luck cause the entire Turbo Pascal 3 manual is on the Internet you can find it here. Better grab it before the powers which made it all possible decide to take it off. 

[funkheld]

jup, thanks(danke) for the help.

gruss

[AMSDOS]

Two new files added to my website:

Firmware.lib - Includes a set of popular routines found in Locomotive BASIC and some other useful Firmware routines which can be incorporated into Turbo Pascal when using CP/M 2.2. Routines such as MODE, DRAW, PLOT, MOVE, INK, BORDER, PEN, PAPER, etc, are now possible.

Starscrl.pas - demonstrates the use of Firmware.lib by incorporating some of the popular routines from that Library. This program was originally published in BASIC as a 10-Liner in ACU by Chris Wootton which features a Space ship moving backwards and fowards across a Starfield. Features UDG and a Scrolling Starfield all thanks to some TP & Inline M/C!    Some small differences from the original program means any key it will exit back to CP/M, it doesn't even come to you in 10 Lines of Pascal, though it seems to run a little bit faster!     

[AMSDOS]

I've been extremely keen on giving this "port" statement a go for ages. What better way than to try it on one of these video examples written in BASIC! 

This is what I came up with which works (just as well  ):

Code Select Expand

Program Wobble_Screen;

(* Demonstration of the use of Port in Turbo Pascal 3 using the Hardware
   from an Amstrad CPC Computer.
   WARNING: Do not attempt to run this on any other computer otherwise
   damage may result. *)
(* Turbo Pascal Example from TP3 Manual - Port[56]:=10; *)

Begin
Repeat
  Port[$BC00]:=2;
  Port[$BD00]:=40+trunc(random*12);
  Port[$BC00]:=7;
  Port[$BD00]:=28+trunc(random*4);
Until Keypressed;
Port[$BC00]:=7;
Port[$BD00]:=30;
Port[$BC00]:=2;
Port[$BD00]:=46;
End.

Eventually it'll go on the website. As you can see Very Straightfoward this is what the original BASIC program looked like which comes from Conrad Bessant series "Naked Video" which was an on and off series between AA51-AA59:

Code Select Expand

10 WHILE INKEY$=""
20 OUT &BC00,2
30 OUT &BD00,40+INT(RND*12)
40 OUT &BC00,7
50 OUT &BD00,28+INT(RND*4)
60 WEND
70 OUT &BC00,7:OUT &BD00,30
80 OUT &BC00,2:OUT &BD00,46

David Hall has an interesting example written in BASIC too from AA50, so I'll give that a go! 

[AMSDOS]

Well I've finally done something about producing a Disk Image with all my English Turbo Pascal 3 programs. Some of the programs can be executed through the Turbo Pascal Run feature, though some will need to be compiled first (otherwise the Compiler will crash). Simply put this Disc image into Drive B and have Turbo Pascal 3 in Drive A. Run Turbo Pascal 3, following the prompts and at the main menu Select Drive B, the directory command [D] will allow you to view those files and I usually load a pascal file with Work File Name [W] though I believe you can load it as a Main File [M] as well. I've got instructions in my readme.txt file, though it seriously needs updating!