DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »PSTYR607.PAS«

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

TextFile

PROGRAM PSTYR607;

  VAR
    ANTAL,VALG,I:INTEGER;
    TB: STRING(.2.);  
    NM: 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(114);
      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 NORMAL;
    BEGIN
      NM:=CHR(27)+CHR(63)+CHR(31);
      WRITE(LST,NM);
    END;      
  
  PROCEDURE MENU;
    BEGIN
      WRITE(CLRHOM);
      GOTOXY(20,5);WRITE('STYRING AF PRINTER RC607.');
      GOTOXY(20,6);WRITE('*************************');
      GOTOXY(20,9);WRITE('1.  KØR FREM TIL NY SIDE');
      GOTOXY(20,11);WRITE('2.  KØR ANTAL LINIER FREM'); 
      GOTOXY(20,13);WRITE('3.  KØR ANTAL LINIER TILBAGE');
      GOTOXY(20,15);WRITE('4.  FJERN EVENTUELLE KODER');
      GOTOXY(20,18);WRITE('INDTAST DET ØNSKEDE NUMMER.');
      READLN(VALG);
      CASE VALG OF
        1: FREM1;
        2: FREM2;
        3: TILBAGE;
        4: NORMAL;
      OTHERWISE
      END;
    END;
       
    BEGIN
      REPEAT
        MENU;
      UNTIL FALSE    
    END.                  «eof»