DataMuseum.dk

top - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »PSTYR610.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »PSTYR610.PAS« 

TextFile

PROGRAM PSTYR610;

  VAR
    ANTAL,VALG,I:INTEGER;
    mg,TB,HMG: STRING(.2.);  
    VM,HM: STRING(.3.);
           
  PROCEDURE FREM1;
    BEGIN
      WRITELN(LST,CHR(12));
    END;
    
  PROCEDURE FREM2;
    BEGIN
      WRITE(CLRHOM);
      GOTOXY(20,10);WRITE('HVOR MANGE LINIER FREM : ');READ(ANTAL);
      BEGIN
        FOR I:=1 TO ANTAL DO
          WRITELN(LST);
      END;
    END;        
  
  PROCEDURE TILBAGE;
    BEGIN
      TB:=CHR(27)+CHR(10);
      WRITE(CLRHOM);
      GOTOXY(20,10);WRITE('HVOR MANGE LINIER TILBAGE : ');READ(ANTAL);
      BEGIN
        FOR I:=1 TO ANTAL DO
          WRITE(LST,TB);
      END;
    END;
    
  PROCEDURE MARGIN;
    BEGIN
      MG:=CHR(27)+CHR(57);
      WRITE(CLRHOM);
      GOTOXY(20,10);WRITE('MARGIN I HVILKEN POSITION : ');READ(ANTAL);
      VM:=CHR(27)+CHR(9)+CHR(ANTAL+1);TB:=CHR(27)+CHR(10);
      WRITELN(LST,VM);WRITE(LST,MG);WRITE(LST,TB);
    END;      
   
   PROCEDURE HMARGIN;
     BEGIN
       HMG:=CHR(27)+CHR(48);TB:=CHR(27)+CHR(10);
       WRITE(CLRHOM);
       GOTOXY(20,12);WRITE('HØJRE MARGIN I HVILKEN POSITION: ');READ(ANTAL);
       HM:=CHR(27)+CHR(9)+CHR(ANTAL+1);
       WRITELN(LST,HM);WRITE(LST,HMG);WRITE(LST,TB);
     END;
     
  PROCEDURE MENU;
    BEGIN
      WRITE(CLRHOM);
      GOTOXY(20,3);WRITE('STYRING AF PRINTER RC610.');
      GOTOXY(20,5);WRITE('*************************');
      GOTOXY(20,7);WRITE('1.  KØR FREM TIL NY SIDE');
      GOTOXY(20,9);WRITE('2.  KØR ANTAL LINIER FREM'); 
      GOTOXY(20,11);WRITE('3.  KØR ANTAL LINIER TILBAGE');
      GOTOXY(20,13);WRITE('4.  INDSTILLING AF VENSTRE-MARGIN');
      GOTOXY(20,15);WRITE('5.  INDSTILLING AF HØJRE MARGIN');
      GOTOXY(20,17);WRITE('0.  SLUT');
      GOTOXY(20,19);WRITE('INDTAST DET ØNSKEDE NUMMER.');
      READLN(VALG);
      CASE VALG OF
        1: FREM1;
        2: FREM2;
        3: TILBAGE;
        4: MARGIN;
        5: HMARGIN;
      OTHERWISE
      END;
    END;
       
    BEGIN
      REPEAT
        MENU;
      UNTIL VALG=0   
    END.                 «eof»