|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »KODENR«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─ ⟦this⟧ »KODENR«
PROGRAM KODENR;
(* BR-04.12.84 *)
VAR KODE : STRING(10);
BLANKON,BLANKOFF : STRING(2);
BEGIN
BLANKON:=' _';
BLANKOFF:=' q';
BLANKON(1):=CHR(27);
BLANKOFF(1):=CHR(27);
CLEARSCREEN;
WRITELN(CHR(27),'&');
GOTOXY(25,10);
WRITE(CHR(27),')');
WRITE(BLANKON);
GOTOXY(32,10);
WRITE(BLANKOFF);
WRITE(CHR(27),'(');
GOTOXY(7,10);
WRITE('Indlæs password : ');
KODE:=' ';
GOTOXY(25,10);
EDIT(KODE:6);
GOTOXY(7,12);
IF KODE='BR0621' THEN
WRITELN('OK')
ELSE
WRITELN('TUUUUUUUUUUUUUD : ',KODE);
WRITELN(CHR(27),CHR(39));
END.