diff options
Diffstat (limited to 'system/shard-z80-ruc-64180/1.5/src/IINST.PAS')
-rw-r--r-- | system/shard-z80-ruc-64180/1.5/src/IINST.PAS | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/system/shard-z80-ruc-64180/1.5/src/IINST.PAS b/system/shard-z80-ruc-64180/1.5/src/IINST.PAS new file mode 100644 index 0000000..708a10b --- /dev/null +++ b/system/shard-z80-ruc-64180/1.5/src/IINST.PAS @@ -0,0 +1,21 @@ +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.
\ No newline at end of file |