|
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: 2880 (0xb40)
Types: TextFile
Notes: Mikados_K
Names: »UR.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »UR.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »UR.K«
PROCEDURE UR;
VAR C,CH:CHAR;
BEGIN
SETUP(DBUF,LNGTH);
C:=' ';
IF TÆNDT THEN
BEGIN
GOTOXY(62,1);WRITE('Alarm');
IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;
GOTOXY(62,2);WRITE('Time');
END;
SV:=-1;
REPEAT
IF C<>CLOCK^.TIME(8) THEN
BEGIN
IF TÆNDT THEN
BEGIN
GOTOXY(67,2);
WRITE(CLOCK^.TIME);
END;
C:=CLOCK^.TIME(8);
OFFSET:=TIME;
IF STIMER>0 THEN STIMER:=STIMER-1
END;
IF TÆNDT THEN
BEGIN
GOTOXY(76,2);
WRITE((TIME-OFFSET) MOD 100:4);
END;
IF STOPWATCH THEN
BEGIN
IF (TIME<0) AND (TT>0) THEN
SEC100:=SEC100+(32767-TT)+(32767+TIME+2)
ELSE
SEC100:=SEC100+TIME-TT;
TT:=TIME;
SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;
MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;
IF TÆNDT THEN
BEGIN
GOTOXY(60,3);
WRITE(MIN:4,SEC:3,SEC100:3);
END;
END;
IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;
IF TÆNDT THEN
IF HOWL THEN WRITE(CHR(7));
IF AVAIL THEN
BEGIN
CH:=NEXT;
IF CH IN (.'a'..'å'.) THEN CH:=CHR(ORD(CH)-32);
IF TÆNDT OR (CH='T') OR (CH IN (.'0'..'9'.)) THEN
CASE CH OF
'S':BEGIN
STOPWATCH:=NOT(STOPWATCH);
IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;
END;
'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;
'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;
'T':TÆNDT:=NOT TÆNDT;
'0','1','2','3','4','5','6','7','8','9':BEGIN SV:=ORD(CH)-48;
IF SV=1 THEN DELAY(20);
IF AVAIL THEN
BEGIN
CH:=NEXT;
IF CH IN (.'0'..'9'.) THEN
SV:=10*SV+ORD(CH)-48
END;
WRITELN(SV) END;
'M':BEGIN
GOTOXY(70,3);
IF STOPWATCH THEN
WRITE(MIN:4,SEC:3,SEC100:3);
END;
'A':BEGIN
HOWL:=FALSE;
ALARM:=NOT(ALARM);
CLOCK^.DATE(9):='0';
IF ALARM THEN
BEGIN
CLOCK^.DATE(9):='1';
GOTOXY(72,1);
FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;
ALARMTIME(I):=CLOCK^.DATE(I)
END;
GOTOXY(72,1);WRITE(ALARMTIME)
END;
END;
END;
END;
UNTIL SV>-1;
FINIS
END;
0x000…00f Line {l1=0x0d, l2=»PROCEDURE UR;«, l3=0x0d}
0x00f…01f Line {l1=0x0e, l2=»VAR C,CH:CHAR;«, l3=0x0e}
0x01f…026 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x026…03c Line {l1=0x14, l2=» SETUP(DBUF,LNGTH);«, l3=0x14}
0x03c…047 Line {l1=0x09, l2=» C:=' ';«, l3=0x09}
0x047…058 Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x058…061 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x061…081 Line {l1=0x1e, l2=» GOTOXY(62,1);WRITE('Alarm');«, l3=0x1e}
0x081…0bb Line {l1=0x38, l2=» IF ALARM THEN BEGIN GOTOXY(72,1);WRITE(ALARMTIME) END;«, l3=0x38}
0x0bb…0da Line {l1=0x1d, l2=» GOTOXY(62,2);WRITE('Time');«, l3=0x1d}
0x0da…0e2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e2…0ed Line {l1=0x09, l2=» SV:=-1;«, l3=0x09}
0x0ed…0f7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0f7…114 Line {l1=0x1b, l2=» IF C<>CLOCK^.TIME(8) THEN«, l3=0x1b}
0x114…11d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x11d…12f Line {l1=0x10, l2=» IF TÆNDT THEN«, l3=0x10}
0x12f…139 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x139…14c Line {l1=0x11, l2=» GOTOXY(67,2);«, l3=0x11}
0x14c…165 Line {l1=0x17, l2=» WRITE(CLOCK^.TIME);«, l3=0x17}
0x165…16e Line {l1=0x07, l2=» END;«, l3=0x07}
0x16e…186 Line {l1=0x16, l2=» C:=CLOCK^.TIME(8);«, l3=0x16}
0x186…199 Line {l1=0x11, l2=» OFFSET:=TIME;«, l3=0x11}
0x199…1c0 Line {l1=0x25, l2=» IF STIMER>0 THEN STIMER:=STIMER-1«, l3=0x25}
0x1c0…1c8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1c8…1d9 Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x1d9…1e2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1e2…1f3 Line {l1=0x0f, l2=» GOTOXY(76,2);«, l3=0x0f}
0x1f3…216 Line {l1=0x21, l2=» WRITE((TIME-OFFSET) MOD 100:4);«, l3=0x21}
0x216…21e Line {l1=0x06, l2=» END;«, l3=0x06}
0x21e…233 Line {l1=0x13, l2=» IF STOPWATCH THEN«, l3=0x13}
0x233…23c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23c…25d Line {l1=0x1f, l2=» IF (TIME<0) AND (TT>0) THEN«, l3=0x1f}
0x25d…28d Line {l1=0x2e, l2=» SEC100:=SEC100+(32767-TT)+(32767+TIME+2)«, l3=0x2e}
0x28d…297 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x297…2b6 Line {l1=0x1d, l2=» SEC100:=SEC100+TIME-TT;«, l3=0x1d}
0x2b6…2c5 Line {l1=0x0d, l2=» TT:=TIME;«, l3=0x0d}
0x2c5…2fa Line {l1=0x33, l2=» SEC:=SEC+SEC100 DIV 100;SEC100:=SEC100 MOD 100;«, l3=0x33}
0x2fa…328 Line {l1=0x2c, l2=» MIN:=MIN+SEC DIV 60; SEC:=SEC MOD 60;«, l3=0x2c}
0x328…33b Line {l1=0x11, l2=» IF TÆNDT THEN«, l3=0x11}
0x33b…346 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x346…359 Line {l1=0x11, l2=» GOTOXY(60,3);«, l3=0x11}
0x359…37b Line {l1=0x20, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x20}
0x37b…385 Line {l1=0x08, l2=» END;«, l3=0x08}
0x385…38d Line {l1=0x06, l2=» END;«, l3=0x06}
0x38d…3c9 Line {l1=0x3a, l2=» IF ALARM THEN IF ALARMTIME<=CLOCK^.TIME THEN HOWL:=TRUE;«, l3=0x3a}
0x3c9…3da Line {l1=0x0f, l2=» IF TÆNDT THEN«, l3=0x0f}
0x3da…3f9 Line {l1=0x1d, l2=» IF HOWL THEN WRITE(CHR(7));«, l3=0x1d}
0x3f9…40a Line {l1=0x0f, l2=» IF AVAIL THEN«, l3=0x0f}
0x40a…413 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x413…422 Line {l1=0x0d, l2=» CH:=NEXT;«, l3=0x0d}
0x422…457 Line {l1=0x33, l2=» IF CH IN (.'a'..'å'.) THEN CH:=CHR(ORD(CH)-32);«, l3=0x33}
0x457…48e Line {l1=0x35, l2=» IF TÆNDT OR (CH='T') OR (CH IN (.'0'..'9'.)) THEN«, l3=0x35}
0x48e…49e Line {l1=0x0e, l2=» CASE CH OF«, l3=0x0e}
0x49e…4ad Line {l1=0x0d, l2=» 'S':BEGIN«, l3=0x0d}
0x4ad…4d3 Line {l1=0x24, l2=» STOPWATCH:=NOT(STOPWATCH);«, l3=0x24}
0x4d3…51c Line {l1=0x47, l2=» IF STOPWATCH THEN BEGIN MIN:=0;SEC:=0;SEC100:=0;TT:=TIME END;«, l3=0x47}
0x51c…52a Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x52a…571 Line {l1=0x45, l2=» 'U':BEGIN GOTOXY(67,2);FOR I:=1 TO 8 DO CLOCK^.TIME(I):=NEXT END;«, l3=0x45}
0x571…59e Line {l1=0x2b, l2=» 'C':BEGIN STOPWATCH:=TRUE;TT:=TIME END;«, l3=0x2b}
0x59e…5b9 Line {l1=0x19, l2=» 'T':TÆNDT:=NOT TÆNDT;«, l3=0x19}
0x5b9…5f8 Line {l1=0x3d, l2=»'0','1','2','3','4','5','6','7','8','9':BEGIN SV:=ORD(CH)-48;«, l3=0x3d}
0x5f8…63f Line {l1=0x45, l2=» IF SV=1 THEN DELAY(20);«, l3=0x45}
0x63f…67c Line {l1=0x3b, l2=» IF AVAIL THEN«, l3=0x3b}
0x67c…6b1 Line {l1=0x33, l2=» BEGIN«, l3=0x33}
0x6b1…6ec Line {l1=0x39, l2=» CH:=NEXT;«, l3=0x39}
0x6ec…738 Line {l1=0x4a, l2=» IF CH IN (.'0'..'9'.) THEN«, l3=0x4a}
0x738…781 Line {l1=0x47, l2=» SV:=10*SV+ORD(CH)-48 «, l3=0x47}
0x781…7b5 Line {l1=0x32, l2=» END;«, l3=0x32}
0x7b5…7ef Line {l1=0x38, l2=» WRITELN(SV) END;«, l3=0x38}
0x7ef…7fe Line {l1=0x0d, l2=» 'M':BEGIN«, l3=0x0d}
0x7fe…817 Line {l1=0x17, l2=» GOTOXY(70,3);«, l3=0x17}
0x817…834 Line {l1=0x1b, l2=» IF STOPWATCH THEN«, l3=0x1b}
0x834…85f Line {l1=0x29, l2=» WRITE(MIN:4,SEC:3,SEC100:3);«, l3=0x29}
0x85f…86d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x86d…87c Line {l1=0x0d, l2=» 'A':BEGIN«, l3=0x0d}
0x87c…894 Line {l1=0x16, l2=» HOWL:=FALSE;«, l3=0x16}
0x894…8b2 Line {l1=0x1c, l2=» ALARM:=NOT(ALARM);«, l3=0x1c}
0x8b2…8d2 Line {l1=0x1e, l2=» CLOCK^.DATE(9):='0';«, l3=0x1e}
0x8d2…8eb Line {l1=0x17, l2=» IF ALARM THEN«, l3=0x17}
0x8eb…8fc Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x8fc…91e Line {l1=0x20, l2=» CLOCK^.DATE(9):='1';«, l3=0x20}
0x91e…939 Line {l1=0x19, l2=» GOTOXY(72,1);«, l3=0x19}
0x939…973 Line {l1=0x38, l2=» FOR I:=1 TO 8 DO BEGIN CLOCK^.DATE(I):=NEXT;«, l3=0x38}
0x973…9b4 Line {l1=0x3f, l2=» ALARMTIME(I):=CLOCK^.DATE(I)«, l3=0x3f}
0x9b4…9d7 Line {l1=0x21, l2=» END;«, l3=0x21}
0x9d7…a02 Line {l1=0x29, l2=» GOTOXY(72,1);WRITE(ALARMTIME)«, l3=0x29}
0xa02…a12 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa12…a20 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xa20…a2a Line {l1=0x08, l2=» END;«, l3=0x08}
0xa2a…a32 Line {l1=0x06, l2=» END;«, l3=0x06}
0xa32…a42 Line {l1=0x0e, l2=» UNTIL SV>-1;«, l3=0x0e}
0xa42…a4b Line {l1=0x07, l2=» FINIS«, l3=0x07}
0xa4b…a51 Line {l1=0x04, l2=»END;«, l3=0x04}
0xa51…a60 00 00 83 ee e8 d2 15 9e 00 d5 83 ee e8 c6 01 ┆ ┆
0xa60…a80 d2 0c 9e 00 d5 83 ef d8 00 c5 d8 a7 28 c8 84 a1 f0 d5 83 f0 d5 83 f1 a5 09 d8 01 95 a4 01 cf 13 ┆ ( ┆
0xa80…aa0 d5 83 f2 a5 09 d8 01 95 a4 01 f8 cc 04 d5 83 f3 c6 02 4a aa 01 d5 83 f4 db f8 9f cb c6 02 4a af ┆ J J ┆
0xaa0…ac0 10 84 a1 f2 d5 83 f5 d5 83 f6 01 17 d2 1d d5 83 f7 e9 a6 13 4e 7b 73 74 65 20 76 61 6c 69 64 69 ┆ Næste validi┆
0xac0…ae0 74 65 74 20 4a 2f 4e 00 d2 13 9e 00 e9 20 3a d2 11 9e 00 e9 d2 16 9e 00 d5 83 f8 15 17 d2 1d d5 ┆tet J/N : ┆
0xae0…b00 83 f9 c6 02 01 00 d2 1c d5 83 fa c6 02 4a af 10 a1 68 d5 83 fb d5 83 fc db f8 cc 04 d5 83 fd c6 ┆ J h ┆
0xb00…b20 04 cf 0f d5 83 fe 01 17 d2 1d d5 83 ff e9 a6 0a 5b 6e 64 72 65 73 20 4a 2f 4e 00 d2 13 9e 00 e9 ┆ Ændres J/N ┆
0xb20…b40 20 44 d2 11 9e 00 e9 d2 16 9e 00 d5 84 00 0c 17 d2 1d d5 84 01 c6 02 01 00 d2 1c d5 84 02 c6 63 ┆ D c┆