Quikpas will be
given to you on a disk. It can be run off the disk or copied to your hard
drive. 
These steps will show you how to type in a Pascal program and run it using the Public Domain version of Pascal.
This version "looks like" the Borland Turbo Pascal version 3.
1. Doubleclick
on folder quikpas
2. Doubleclick
on file Quikpas.com
3. A
title appears after a short wait
_______________________________________
QUICK
Pascal Compiler Beta Rel 1.00
Public
Domain Release SYSTECH Inc.
_______________________________________
Color
graphics mode
Load
the error package (Y/N)?
4. Type in Y for Yes as you will need all
the help you can get! A menu appears after a short wait
Logged
drive: A
Active
directory: \PASCAL\QUIKPAS
Work
file:
Main
file:
Edit Compile
Run Save
Dir Quit
eXecute Options
Text: 0 bytes
Free:
62024 bytes
5. Press
E for edit and at
Edit File name:
type firstprg ENTER
You
will see
Loading
A:\PASCAL\QUICKPAS\FIRSTPRG.PAS
New File
then the heading
Line 1 Col 1 Insert
Indent A:FIRSTPRG.PAS
6. When
you have finished typing in the program (OPERATOR PROGRAM listed below)
press
CTRL and Kat the same time,
release these keys, then press D
Press the SPACEBAR
and the menu will appear.
7. Press
the R to run the program. It will
either run or more likely will come up with an error message.
Error....................Press<ESC>
8. When
you press ESC you will be returned to
the program so that you can fix up the error.
9. When
you think you have fixed the error press CTRL
and K
at the same time, release these keys, then press D to return to the menu.
10. Press
Q to
leave PASCAL and return to DOS.
OPERATOR PROGRAM
Type in the program exactly as you see it .
|
VAR |
|
a,b,c:integer; |
|
x,y,z:real; |
|
BEGIN |
|
Write('a and b are integers. Enter the
value of a = '); |
|
Readln(a); |
|
Write(' Enter the value of b = '); |
|
Readln(b); |
|
c:=a+b; |
|
Writeln(' a + b = ',c); |
|
c:=a-b; |
|
Writeln(' a - b = ',c); |
|
c:=a*b; |
|
Writeln(' a * b = ',c); |
|
c:=a DIV b; |
|
Writeln(' a DIV b = ',c); |
|
c:=a MOD b; |
|
Writeln(' a MOD b = ',c); |
|
Writeln; |
|
Write('x and y are real. Enter the value of x = '); |
|
Readln(x); |
|
Write(' Enter the value of y = '); |
|
Readln(y); |
|
z:=x+y; |
|
Writeln(' x + y = ',z:2:2); |
|
z:=x-y; |
|
Writeln(' x - y = ',z:2:2); |
|
z:=x*y; |
|
Writeln(' x * y = ',z:2:2); |
|
z:=x/y; |
|
Writeln(' x / y = ',z:2:2); |
|
END. |