INPUTING is a program that appears on page 40 of the book Pascal Primer by David Fox and Mitchell Waite. It demonstrates the use of READLN, COMMENTS, and clearing the text screen. The program has been ported from UCSD Pascal for the Apple II to the Atari Pascal Language System for the Atari 8-bit computers.
I'm using the Altirra 3.10 Atari 8-bit emulator. I'm editing the code using AtariWriter 80 (AtariWriter80_b_XE-working.ATR). Note that if you use AtariWriter to edited your source code, you will need to use CONTROL+S to save your file in straight ASCII rather than the SAVE Menu option which includes some AtariWriter header info. I'm compiling, linking, running the program using the Atari Pascal Language System.
To port it, the CHR code 12 was changed to CHR code 125. Also, the Atari Graphics and Sound package was referenced so that the POSITION statement could be used.
The link command looks like:
LINKER V1.0
*D2:INPUTING,GRSND,PASLIB/S
When you run the program, it looks like:
No comments:
Post a Comment