home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112dos / beispiel.pas < prev    next >
Pascal/Delphi Source File  |  1991-08-25  |  2KB  |  57 lines
  1. program Beispielprogramm_zur_Unit_C64;
  2.  
  3. { Dieses Programm demonstriert alle Funktionen der Unit C64
  4.   Mit Hilfe dieser Unit kann man Grafiken des C64 auf dem PC darstellen.
  5.   Es können Multicolor, Hires sowie Bilder Im Starpainterformat auf dem
  6.   Bildschirm dargestellt werden.
  7.   Wenn die Bilder ersteinmal auf dem Bildschirm sind,ist es nicht mehr schwer,
  8.   Sich selbst ein Programm zu schreiben, welches diese Bilder im Pc format
  9.   abspeichert und somit das erneute Einladen (viel) schneller geht.
  10.   Es wird vorausgesetzt, daß der Benutzer dieses Programms einen C128 oder
  11.   einen C64 besitzt und Grafiken mit Hilfe des Programms >>> BDOS <<< (aus
  12.   der Zeitschrift 64'er (6/89)) von seinem C64/128 auf MSDos-Format kopieren
  13.   kann. }
  14.  
  15.  
  16. uses C64,crt,graph;
  17.  
  18. var wahl:char;
  19.     a,b:integer;
  20. begin
  21.  clrscr;
  22.  gotoxy(30,2);writeln('>>> C64 - Graf <<<');
  23.  gotoxy(30,4);writeln(' Ein Programm von');
  24.  gotoxy(30,6);writeln('  Lars Zimmermann');
  25.  gotoxy(30,7);writeln(' Am Berler Kamp 140');
  26.  gotoxy(30,8);writeln('  4400 MS-Wolbeck');
  27.  gotoxy(30,9);writeln(' Tel. : 02506/2785');
  28.  gotoxy(1,12);writeln('Dieses Programm ermöglicht es Grafiken,welche von einem C64 stammen und mit');
  29.  gotoxy(1,13);writeln('Hilfe von BDOS (aus der Zeitschrift 64`er 6/89) oder einem anderen Programm');
  30.  gotoxy(1,14);writeln('auf das MSDos-Format kopiert wurden auf dem Bildschirm eines Pc darzustellen');
  31.  gotoxy(1,15);writeln('Hires-Grafiken können mit jeder Karte ausgegeben werden. Farbgrafiken nur auf');
  32.  gotoxy(1,16);writeln('Karten, welche auch Farben darstellen können');
  33.  gotoxy(1,17);writeln('Dieses Programm wird zuerst 4 Hires-Grafiken ,danach ein Bild im Starpainter-');
  34.  gotoxy(1,18);writeln('format und dann zwei Farbgrafiken ausgeben.');
  35.  
  36.  wahl:=readkey;
  37.  detectgraph(a,b);
  38.  initgraph(a,b,'');
  39.  
  40.  c64_hires(4,'hires1.pic','hires2.pic','hires3.pic','hires4.pic','h');
  41.  wahl:=readkey;
  42.  cleardevice;
  43.  
  44.  c64_hires(1,'Star.pic','','','','s');
  45.  wahl:=readkey;
  46.  cleardevice;
  47.  
  48.  C64_farbe('farbe1.pic');
  49.  Bild_strecken;
  50.  wahl:=readkey;
  51.  cleardevice;
  52.  
  53.  C64_farbe('farbe2.pic');
  54.  Bild_strecken;
  55.  wahl:=readkey;
  56.  closegraph;
  57. end.