I've taken the liberty to go through some of the programs I attached earlier and put some screenshots with them, in the process I uncovered a couple of programs I'd forgotten about.
The 1st is perhaps of less significance and when I compiled it, nothing was happening. After adding a Graphics Pen, Mode & Ink Procedures, I ended up in a Square moving out from the Centre of the screen, it was a bit flickery, so added a couple of MC FRAME FLYBACK (#BD19) to help smooth out the process, but it is what it is. Have a feel I've converted this from a BASIC example somewhere, but don't know where, looks like I might of made this around the time I was rotating squares.
10 PROGRAM sqgrow2;
20
30 VAR a,b : real;
40 loop : integer;
50
60 PROCEDURE mode(no : integer);
70 BEGIN
80 ra:=chr(no);
90 user(#bc0e)
100 END;
110
120 PROCEDURE move(x,y : integer);
130 BEGIN
140 rde:=x; rhl:=y;
150 user(#bbc0)
160 END;
170
180 PROCEDURE draw(x,y : integer);
190 BEGIN
200 rde:=x; rhl:=y;
210 user(#bbf6)
220 END;
230
240 PROCEDURE ink(no,col : integer);
250 BEGIN
260 ra:=chr(no);
270 rb:=chr(col);
280 rc:=chr(col);
290 user(#bc32)
300 END;
310
320 PROCEDURE grapen(col : integer);
330 BEGIN
340 ra:=chr(col);
350 user(#bbde)
360 END;
370
380 PROCEDURE scrreset;
390 BEGIN
400 user(#bc02)
410 END;
420
430 BEGIN
440 mode(2);
450 scrreset;
460 ink(1,26);
470 a:=1.0;
480 b:=1.1;
490 FOR loop:=1 TO 50 DO
500 BEGIN
510 a:=a*b;
520 user(#bd19);
530 page;
540 grapen(1);
550 move(round(320-a),round(200-a));
560 draw(round(320+a),round(200-a));
570 draw(round(320+a),round(200+a));
580 draw(round(320-a),round(200+a));
590 draw(round(320-a),round(200-a));
600 user(#bd19)
610 END
620 END.
[attachimg=2]
Saving the best til last, I found this following Pattern Generator program in a Fortran-77 book, the original program printed out (to printer), a series of text characters to create a Vortex like ASCII arty effect, unfortunately the effect was too big for the Text Screen, so what I've done with it, is convert to Graphical pixels, the Colours now represent the values the original program throws at it, I've selected down to earth like colours which gives it that Landscape look, but if you ask me the effect could pass as some Fireball with the White & Reds coming together, also because it's all being illustrated in pixels, the size of the area being draw is much larger than the original Text based program, which focused primarily on the centre circle with Island in the middle.
10 PROGRAM RDLANDSCAPE;
20 {$C-}
30
40 CONST xdelt=0.13;
50 ydelt=0.25;
60
70 VAR r1, r2, z : real;
80 ypos, xpos : real;
90 yaxis, xaxis : integer;
100
110 PROCEDURE mode(num : char);
120 BEGIN
130 ra:=num;
140 user(#bc0e);
150 END;
160
170 PROCEDURE border(col1 : char);
180 BEGIN
190 rb:=col1;
200 rc:=col1;
210 user(#bc38);
220 END;
230
240 PROCEDURE ink(ink,col1 : char);
250 BEGIN
260 ra:=ink;
270 rb:=col1;
280 rc:=col1;
290 user(#bc32);
300 END;
310
320 PROCEDURE plot(x,y, col : integer);
330 BEGIN
340 ra:=chr(col);
350 user(#bbde);
360 rde:=x;
370 rhl:=y;
380 user(#bbea);
390 END;
400
410 PROCEDURE setup;
420 BEGIN
430 mode(chr(0));
440 border(chr(2));
450 ink(chr(0),chr(2));
460 ink(chr(1),chr(9));
470 ink(chr(2),chr(3));
480 ink(chr(3),chr(6));
490 ink(chr(4),chr(26));
500 END;
510
520 BEGIN
530 setup;
540 ypos:=25;
550 yaxis:=398;
560 WHILE (yaxis>0) DO BEGIN
570 xpos:=-11;
580 xaxis:=0;
590 WHILE (xaxis<640) DO BEGIN
600 r1:=sqrt(sqr(xpos-1)+sqr(ypos-1));
610 r2:=sqrt(sqr(xpos+1)+sqr(ypos+1));
620 z:=cos(r1)+cos(r2);
630 IF (z>0.0) AND (z<0.5) THEN plot(xaxis,yaxis,1);
640 IF (z>0.5) AND (z<1.0) THEN plot(xaxis,yaxis,2);
650 IF (z>1.0) AND (z<1.5) THEN plot(xaxis,yaxis,3);
660 IF (z>1.5) AND (z<2.0) THEN plot(xaxis,yaxis,4);
670 xpos:=xpos+xdelt;
680 xaxis:=xaxis+4;
690 END;
700 ypos:=ypos-ydelt;
710 yaxis:=yaxis-2;
720 END;
730 user(#bb18);
740 END.
[attachimg=4]
