Add new attachment

Only authorized users are allowed to upload new attachments.

List of attachments

Kind Attachment Name Size Version Date Modified Author Change note
pdf
Draper Pascal 2.1.pdf 71.8 kB 1 17-Mar-2014 00:45 Roland B. Wassenberg Draper Pascal 2.1.pdf
pdf
Draper_Pascal_Manual.pdf 579.0 kB 1 18-Apr-2018 02:40 Roland B. Wassenberg Draper_Pascal_Manual.pdf
doc
PASCAL.DOC 73.1 kB 1 17-Mar-2014 00:46 Roland B. Wassenberg PASCAL.DOC
atr
Pascal Documentation.atr 92.2 kB 1 17-Mar-2014 00:45 Roland B. Wassenberg Pascal Documentation.atr
atr
drpascal.atr 143.4 kB 1 03-Apr-2010 09:27 Carsten Strotmann
atr
drpascb.atr 143.4 kB 1 03-Apr-2010 09:27 Carsten Strotmann

This page (revision-10) was last changed on 18-Apr-2018 02:52 by Roland B. Wassenberg  

This page was created on 03-Apr-2010 09:07 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version and

At line 169 added 212 lines
{{{
1:PROGRAM KALEIDOSCOPE;
2:VAR I,J,K,W,X:INTEGER;
3:BEGIN
4: MAXGRAPH(19);
5: GRAPHICS(19);
6: X:=0;
7: REPEAT
8: FOR W:=3 TO 50 DO
9: BEGIN
10: FOR I:=1 TO 10 DO
11: BEGIN
12: FOR J:=0 TO 10 DO
13: BEGIN
14: K:=I+J;
15: COLOR(J*3/(I+3)+I*W/12);
16: PLOT(I+8,K);
17: PLOT(K+8,I);
18: PLOT(32-I,24-K);
19: PLOT(32-K,24-I);
20: PLOT(K+8,24-I);
21: PLOT(32-I,K);
22: PLOT(I+8,24-K);
23: PLOT(32-K,I)
24: END
25: END
26: END
27: UNTIL X=99 (* UNENDING LOOP *)
28:END.
A,C,D,E,F,I,L,M,P,Q,S,X,?->I Let's insert a comment
- before line 15.
Line -> 15
--
15: (* MY FIRST EDIT *) Enter the data to be
------------------- inserted when prompted for
16: line 15. Just press RETURN
- when prompted for line 16.
This will terminate insert
mode.
A,C,D,E,F,I,L,M,P,Q,S,X,?->L List again to verify that
- the change was made
correctly.
Line from ->
-
Line to ->
-
1:PROGRAM KALEIDOSCOPE;
2:VAR I,J,K,W,X:INTEGER;
3:BEGIN
4: MAXGRAPH(19);
5: GRAPHICS(19);
6: X:=0;
7: REPEAT
8: FOR W:=3 TO 50 DO
9: BEGIN
10: FOR I:=1 TO 10 DO
11: BEGIN
12: FOR J:=0 TO 10 DO
13: BEGIN
14: K:=I+J;
15: (* MY FIRST EDIT *)
16: COLOR(J*3/(I+3)+I*W/12);
17: PLOT(I+8,K);
18: PLOT(K+8,I);
19: PLOT(32-I,24-K);
20: PLOT(32-K,24-I);
21: PLOT(K+8,24-I);
22: PLOT(32-I,K);
23: PLOT(I+8,24-K);
24: PLOT(32-K,I)
25: END
26: END
27: END
28: UNTIL X=99 (* UNENDING LOOP *)
29:END.
A,C,D,E,F,I,L,M,P,Q,S,X,?->F Let's save the program
- back to disk drive 1
under the same name.
A - Append file
D - Directory list
L - Load file
S - Save file
S
-
Enter filename -> SAMPLE1
-------
A,C,D,E,F,I,L,M,P,Q,S,X,?->X Now let's exit directly to
- the Compiler.
Draper Software
Pascal Compiler
Version 2.1
Copyright 1989
by Norm Draper
Enter Filename:
SAMPLE1 Enter name of program to
------- be compiled. The name of
the last program edited,
compiled, or run will be
filled in by the
Compiler.
Enter List Output Filespec
Default is E: Just press RETURN at this
- point to have the compile
list directed to the
screen.
0000 PROGRAM KALEIDOSCOPE;
0000 VAR I,J,K,W,X:INTEGER;
0003 BEGIN
0003 MAXGRAPH(19);
0017 GRAPHICS(19);
001B X:=0;
001E REPEAT
0022 FOR W:=3 TO 50 DO
002A BEGIN
0035 FOR I:=1 TO 10 DO
003D BEGIN
0048 FOR J:=0 TO 10 DO
004F BEGIN
005A K:=I+J;
0062 COLOR(J*3/(I+3)+I*W/12);
008A PLOT(I+8,K);
0098 PLOT(K+8,I);
00A6 PLOT(32-I,24-K);
00B8 PLOT(32-K,24-I);
00CA PLOT(K+8,24-I);
00DC PLOT(32-I,K);
00EA PLOT(I+8,24-K);
00FC PLOT(32-K,I)
010A END
010A END
010C END
011C UNTIL X=99 (* UNENDING LOOP *)
0142 END.
0147
ADDR NAME
---- --------
0003 I
0004 J
0005 K
0006 W
0007 X
5 Compiler table entries used
*** Program Execution Completed *** Press the SELECT key at
Highest Stack Address Used = $AFF8 this point to take us to
<START>Repeat,<SELECT>Menu,<ESC>Exit the main menu.
DRAPER PASCAL
VERSION 2.1
1 - Run Program
2 - Disk Directory
3 - Compile Program
4 - Edit a Program
5 - Exit to DOS
6 - List a file
7 - Trace on
Copyright 1989
by Norm Draper
1 Select '1' to run the
- program that was just
compiled.
Enter name of program to be run
SAMPLE1 The name of the last
------- program edited, compiled,
or run will be filled in
by the main menu program.
Overtype the name if you
want to run a different
program.
}}}
At this point you should have a nice kaleidoscope pattern being displayed on your television screen. To stop it, press the BREAK key. To repeat execution, press the START key. To return to the main menu, press the SELECT key. To exit to DOS, press the ESC key.
Another program, SAMPLE2, is also provided for you to practice with. It will display Roman numerals for powers of two between 1 and 4096. Compile it, turn on the trace via the main menu, and run it. After it is finished, press CTRL-T to display the trace table, and CTRL-S to display the stack contents. When prompted for 'Where? Filespec', enter 'E:'. For a description of the stack display line, refer to the 'DUMPSTK' command in the 'Pascal Definitions' section of the manual provided to registered users.
Version Date Modified Size Author Changes ... Change note
10 18-Apr-2018 02:52 67.847 kB Roland B. Wassenberg to previous
9 13-Aug-2017 22:39 67.357 kB Roland B. Wassenberg to previous | to last
8 17-Mar-2014 01:03 67.363 kB Roland B. Wassenberg to previous | to last
7 03-Apr-2010 09:28 67.073 kB Carsten Strotmann to previous | to last
6 03-Apr-2010 09:27 67.008 kB Carsten Strotmann to previous | to last
5 03-Apr-2010 09:21 18.958 kB Carsten Strotmann to previous | to last
4 03-Apr-2010 09:18 17.381 kB Carsten Strotmann to previous | to last
3 03-Apr-2010 09:13 10.209 kB Carsten Strotmann to previous | to last
2 03-Apr-2010 09:07 4.312 kB Carsten Strotmann to previous | to last
1 03-Apr-2010 09:07 4.29 kB Carsten Strotmann to last
« This page (revision-10) was last changed on 18-Apr-2018 02:52 by Roland B. Wassenberg  
G’day (anonymous guest) My Prefs
© 2010-2017 AtariWiki
All content in the Wiki is licensed under Creative Commons Share Alike License, unless otherwise noted.
JSPWiki v2.8.3