TESTGNB

[ Table of Contents ] [ List of Example Programs ] [ TESTGNB Disk Image ]

The TESTGNB example program comes from MT MicroSYSTEMS Atari Pascal Documentation  v0.0. This program reads a disk-based text file (D2:ERRORS.TXT) byte by byte and displays it on screen.

The file ERRORS.TXT must be copied from the Atari Pascal Language System disk #1 to the TESTGNB program disk before running.

The program was created and edited using AtariWriter80.

The program was compiled from the Atari Pascal Monitor Menu using the C)ompile option.

The program was linked from the Atari Pascal Monitor Menu using the L)ink option with the following:

LINKER V1.0
*D2:TESTGNB.ERL,PASLIB/S

The .ERL extension is optional, but the drive D2: is not.

The program was run from the Atari Pascal Monitor Menu using the R)un option with the following:
D2:TESTGNB.COM

TESTGET

[ Table of Contents ] [ List of Example Programs ] [ TESTGET Disk Image ]

After a bit of tweaking, I was able to get the Atari Pascal TESTGET program from MT MicroSYSTEMS Atari Pascal Documentation  v0.0 working. This program reads a disk-based text file (D2:ERRORS.TXT) char by char and displays it on screen.

The files ERRORS.TXT must be copies from the Atari Pascal Language System disk #1 to the disk that the TESTGET program resides.

The program was linked as follows:

LINKER V1.0
*D2:TESTGET.ERL,PASLIB/S

The program was run by selecting (R)un from the Atari Pascal Monitor and entering:
D2:TESTGET.COM

TESTROL

[ Table of Contents ] [ List of Example Programs ] [ TESTROL Disk Image ]

The TESTROL program is from MT MicroSYSTEMS Atari Pascal Documentation v0.0. It reads a text file (D2:ERRORS.TXT) from disk line by line and displays it on screen. As expected, this reads the file much faster than the char by char program.

The ERRORS.TXT file must be copied from the Atari Pascal Language System disk #1 to the disk that contains the TESTROL program.

The TESTROL program required some tweaks to getting working with the released version of the Atari Pascal Language System.

All work done on Altirra 3.10. The source code was created and edited with AtariWriter8. I compiled, linked, and ran the TESTROL program from the APLS Monitor.

I left this program in all upper case. Atari Pascal programs are case insensitive.

I added a WRITE(CHR(125)) at the beginning of the program to clear the screen. I also added a READLN(S) toward the end to keep to program from ending and return to the Atari DOS 2.0S menu.

The program was linked as follows:

LINKER V1.0
*D2:TESTROL.ERL,PASLIB/S

The program was run by selecting (R)un from the Atari Pascal Monitor and entering:
D2:TESTROL.COM

PRIMES

[ Table of Contents ] [ List of Example Programs ] [ PRIMES Disk Image ]

PRIMES is an example program from the Atari Pascal Documentation Version 0.0. This program is used for benchmark testing. It allows you to test execution speed (using a stopwatch) on various versions of Pascal, such as Atari Pascal, and Apple II UCSD Pascal.



In this program, these READLN statements simply cause program execution to wait until the user presses the ENTER/RETURN to continue.

The program was linked with the following:
*D2:PRIMES.ERL,PASLIB/S

Atari Pascal programs are RUN from the Atari Pascal Monitor menu. When run, programs do not clear the screen by default. I've added a "clear screen" (ATASCII 125) character, WRITE(CHR(125)), near the beginning of the program to clear the screen. Likewise, when an Atari Pascal program gets to the end, it DOES clear the screen and displays the Atari DOS 2.0S Disk Utility Package menu. I've added a READLN toward the end of the program to cause the program to wait for the user to press ENTER/RETURN before ending.

The output from running the program from the Atari Pascal Language System Monitor menu.

All work was done using Altirra 3.10. The program source was created and edited using AtariWriter80. The program was compiled, linked, and run from the Atari Pascal Language System Monitor Menu.