system/shard-z80-ruc-64180/1.5/src/IINST.PAS

Raw file
Back to index

PROGRAM installationsnummer_setzen ;
 { M. Staubermann, 8.2.87 }

VAR f : FILE ;
    buffer : ARRAY[0..63] OF INTEGER ;
BEGIN
 assign (f, 'EUMEL.COM') ;
 reset (f) ;
 blockread (f, buffer, 1) ;
 writeln ;
 write ('Lizenznummer (GMD) : ', buffer[$23], #13) ;
 write ('Lizenznummer (GMD) : ') ;
 readln (buffer[$23]) ;
 buffer[$24] := succ (buffer[$24]) ;
 write ('Installationsnummer: ', buffer[$24], #13) ;
 write ('Installationsnummer: ') ;
 readln (buffer[$24]) ;
 seek (f, 0) ;
 blockwrite (f, buffer, 1) ;
 close (f) ;
END.