Wie kann man bitte Programmzeilenl entfernen von den Programmen?
Ich habe mehrere solcher Programme.
Code: Alles auswählen
10 PROGRAM grafik;
20 {$C-}
30 {$L-}
40 VAR mnloop, loop : integer;
50 x, xa, y, ya : real;
60 xx, yy, c : real;
70 a, b : integer;
80 ch : char;
90
100 PROCEDURE mode(no : integer);
110 BEGIN
120 ra:=chr(no);
130 user(#bc0e);
140 END;
150
160 PROCEDURE ink(ink, col1 : integer);
170 BEGIN
180 ra:=chr(ink);
190 rb:=chr(col1);
200 rc:=chr(col1);
210 user(#bc32);
220 END;
230
240 PROCEDURE border(col : integer);
250 BEGIN
260 rb:=chr(col);
270 rc:=chr(col);
280 user(#bc38);
290 END;
300
310 PROCEDURE plot(x,y : integer);
320 BEGIN
330 rde:=x;
340 rhl:=y;
350 user(#bbea);
360 END;
370
380 PROCEDURE grapen(col : integer);
390 BEGIN
400 ra:=chr(col);
410 user(#bbde);
420 END;
430
440 PROCEDURE move(x,y : integer);
450 BEGIN
460 rde:=x;
470 rhl:=y;
480 user(#bbc0);
490 END;
500
510 PROCEDURE draw(x,y : integer);
520 BEGIN
530 rde:=x;
540 rhl:=y;
550 user(#bbf6);
560 END;
570
580 FUNCTION rdkey : char;
590 BEGIN
600 user(#bb1b);
610 rdkey:=ra;
620 END;
630
640 BEGIN
650 mode(0);
660 border(0);
670 ink(0,0);
680 FOR loop:=1 TO 15 DO
690 ink(loop,loop+11);
700 grapen(1);
710 c:=1;
720 a:=160;
730 b:=100;
740 x:=1;
750 y:=1;
760 xx:=0;
770 yy:=0;
780 move(round(x),round(y));
790 REPEAT
800 xa:=x; ya:=y;
810 IF x<a THEN xx:=xx+0.025
820 ELSE IF x>a THEN xx:=xx-0.025;
830 IF y<b THEN yy:=yy+0.025
840 ELSE IF y>b THEN yy:=yy-0.025;
850 x:=x+xx; y:=y+yy;
860 grapen(round(c));
870 plot(round(xa),1);
880 draw(round(x),round(y));
890 plot(640-round(xa),1);
900 draw(640-round(x),round(y));
910 plot(round(xa),400);
920 draw(round(x),400-round(y));
930 plot(640-round(xa),400);
940 draw(640-round(x),400-round(y));
950 c:=c+0.0625;
960 IF c=15.5 THEN c:=1;
970 ch:=rdkey;
980 mnloop:=ord(ch);
990 UNTIL mnloop=252;
1000 ink(1,26);
1010 mode(2);
1020 END.
Gruss