Programmzeilen am Anfang entfernen ?
Verfasst: 03.09.2019 21:03
Hallo, guten Tag.
Wie kann man bitte Programmzeilenl entfernen von den Programmen?
Ich habe mehrere solcher Programme.
Danke.
Gruss
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