|
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: 1504 (0x5e0)
Notes: Mikados_1
Names: »A4«
└─⟦8b7ba91bd⟧ Bits:30003596 MIK/MIKADOS diskette DDE COMAL-80 version 2.2, Pascal kildetekster
└─⟦this⟧ »A4«
0x000…020 (0,) 20 20 20 20 20 20 50 32 52 31 4d 20 50 32 50 31 1f 04 fb 02 b3 0f 10 00 61 04 61 04 61 04 50 31 ┆ P2R1M P2P1 a a a P1┆
0x020…040 00 40 00 40 79 43 20 20 20 01 00 00 08 0d 00 00 76 76 76 13 76 76 76 76 76 76 76 76 76 76 76 76 ┆ @ @yC vvv vvvvvvvvvvvv┆
0x040…060 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x060…080 76 76 76 76 76 76 76 76 76 76 41 34 20 20 20 20 20 20 31 41 00 06 00 00 00 00 00 00 00 7c 01 19 ┆vvvvvvvvvvA4 1A ø ┆
0x080…0a0 02 02 83 7c 01 19 01 00 20 00 34 03 e0 00 7c 01 1f 00 00 be 7c 01 19 76 76 76 41 34 20 20 20 20 ┆ ø 4 ø ø vvvA4 ┆
0x0a0…0c0 20 20 31 41 00 06 00 00 00 00 00 00 00 7c 01 1f 41 7c 01 01 00 00 00 00 00 00 20 20 20 20 20 20 ┆ 1A ø Aø ┆
0x0c0…0e0 50 32 52 31 4d 20 50 32 50 31 1f 04 fb 02 b3 0f 10 00 61 04 61 04 61 04 50 31 00 40 00 40 79 43 ┆P2R1M P2P1 a a a P1 @ @yC┆
0x0e0…100 cd fb 42 cd 62 43 2a 2e 43 23 23 5e 23 56 eb 22 f7 42 21 43 04 22 f9 42 3a 52 01 a7 ca 2b 40 0e ┆ B bC*.C##^#V " B!C " B:R +@ ┆
0x100…120 00 0c 1f d2 21 40 79 07 07 07 07 f6 01 32 f1 42 21 01 00 e5 21 20 20 e5 21 e1 42 e5 cd 94 00 a7 ┆ !@y 2 B! ! ! B ┆
0x120…140 ca 6b 40 21 f4 01 cd 8e 00 cd 62 43 d2 30 40 3e 02 01 60 40 11 0b 00 2a 34 43 cd 91 00 cd a6 00 ┆ k@! bC 0@> `@ *4C ┆
0x140…160 41 34 20 61 62 6f 72 74 65 64 2e 11 e9 42 21 3a 43 06 09 7e fe 3a ca 94 40 fe 2c ca b1 40 fe 20 ┆A4 aborted. B!:C ü : @ , @ ┆
0x160…180 ca bf 40 fe 61 da 8a 40 e6 5f 12 05 ca 5d 41 23 13 c3 73 40 23 7e fe 70 ca a0 40 fe 50 c2 66 41 ┆ @ a @ _ ÅA# s@#ü p @ P fA┆
0x180…1a0 23 7e 32 f2 42 23 7e fe 20 ca bf 40 fe 2c c2 54 41 23 22 f3 42 11 61 43 cd 6d 00 19 22 f5 42 06 ┆#ü2 B#ü @ , TA#" B aC m " B ┆
0x1a0…1c0 05 11 e9 42 cd a0 00 a7 c2 6f 41 c5 eb 22 8c 01 cd 5e 00 d5 eb 2a 2e 43 eb 73 23 72 23 eb 2a f3 ┆ B oA " ^ *.C s#r# * ┆
0x1c0…1e0 42 44 4d 2a f5 42 eb 7b b2 ca 07 41 e5 eb c5 cd 9a 00 7b b2 ca 7e 41 7b a2 3c ca 87 41 45 e3 eb ┆BDM* B æ A æ üAæ < AE ┆
0x1e0…200 e5 cd 73 00 c1 d1 e1 71 23 70 23 73 23 72 23 eb 2a 34 43 eb 73 23 72 23 eb 2a f9 42 eb 73 23 72 ┆ s q#p#s#r# *4C s#r# * B s#r┆
0x200…220 23 eb 2a f9 42 eb 73 23 72 23 e1 c1 cd ac 00 01 a6 41 11 02 00 3e 02 2a 34 43 cd 91 00 2a 50 01 ┆# * B s#r# A > *4C *P ┆
0x220…240 11 04 00 19 36 02 3e 29 01 01 04 cd a3 00 01 e3 03 cd b2 00 01 a8 41 11 18 00 c3 90 41 01 c0 41 ┆ 6 >) A A A┆
0x240…260 11 15 00 c3 90 41 01 d5 41 11 1b 00 c3 90 41 21 fd 41 cd 40 00 01 f0 41 11 24 00 c3 90 41 01 14 ┆ A A A! A @ A $ A ┆
0x260…280 42 11 64 00 c3 90 41 01 78 42 11 69 00 c3 90 41 3e 02 2a 34 43 cd 91 00 21 20 20 e5 21 e1 42 e5 ┆B d A xB i A> *4C ! ! B ┆
0x280…2a0 cd 97 00 cd a6 00 4f 4b 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 ┆ OKIllegal parameter string┆
0x2a0…2c0 50 72 6f 67 72 61 6d 20 6e 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 49 6c 6c 65 67 61 6c 20 64 69 73 ┆Program name too longIllegal dis┆
0x2c0…2e0 6b 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 45 72 72 6f 72 20 6e 75 6d 62 65 72 20 76 76 20 ┆k identificationError number vv ┆
0x2e0…300 64 75 72 69 6e 67 20 70 72 6f 67 72 61 6d 20 73 74 61 72 74 4e 6f 20 61 72 65 61 20 66 6f 72 20 ┆during program startNo area for ┆
0x300…320 70 61 72 61 6d 65 74 65 72 20 73 74 72 69 6e 67 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 4d 49 4b ┆parameter string available. MIK┆
0x320…340 41 44 4f 53 20 73 79 73 74 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e 20 63 6f 72 72 75 70 ┆ADOS system may have been corrup┆
0x340…360 74 65 64 3b 0d 0a 72 65 73 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 2e 45 72 72 6f 72 20 64 75 ┆ted; restart advisable.Error du┆
0x360…380 72 69 6e 67 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 65 20 66 6f 72 20 70 61 72 61 6d 65 74 ┆ring memory allocate for paramet┆
0x380…3a0 65 72 73 2e 0d 0a 4d 49 4b 41 44 4f 53 20 73 79 73 74 65 6d 20 6d 61 79 20 68 61 76 65 20 62 65 ┆ers. MIKADOS system may have be┆
0x3a0…3c0 65 6e 20 63 6f 72 72 75 70 74 65 64 3b 0d 0a 72 65 73 74 61 72 74 20 61 64 76 69 73 61 62 6c 65 ┆en corrupted; restart advisable┆
0x3c0…3e0 2e 50 52 49 4e 54 45 52 34 20 20 20 20 20 20 20 20 76 31 00 00 00 00 76 76 76 76 21 2c 43 cd 70 ┆.PRINTER4 v1 vvvv!,C p┆
0x3e0…400 00 3e 28 21 3a 43 cd 55 00 2a 30 43 7c b5 c8 eb 3a 32 43 fe 28 da 1a 43 3e 28 47 21 3a 43 cd 73 ┆ >(!:C U *0Cø :2C ( C>(G!:C s┆
0x400…420 00 2a 30 43 eb 2a 32 43 cd 9d 00 c9 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆ *0C *2C vvvvvvvvvvvvvvvvvvvv┆
0x420…440 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x440…460 76 76 d5 e5 2a 2e 43 5e 23 56 21 06 00 19 f3 7e 36 00 fb e1 d1 a7 c8 37 c9 20 20 20 20 20 20 20 ┆vv *.C^#V! ü6 7 ┆
0x460…480 55 4e 54 49 4c 20 4f 4b 3b 20 17 01 20 01 13 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 ┆UNTIL OK; REPE┆
0x480…4a0 41 54 13 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 38 29 3b ┆AT GOTOXY(1,18);┆
0x4a0…4c0 1c 1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 49 4d 45 3a 20 27 29 ┆ WRITE('TIME: ')┆
0x4c0…4e0 3b 1f 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 44 49 54 28 54 49 4d 45 3a 31 29 3b 1c ┆; EDIT(TIME:1); ┆
0x4e0…500 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 4c 54 45 53 54 28 54 49 4d 45 2c 31 2c 31 ┆( TALTEST(TIME,1,1┆
0x500…520 2c 30 2c 39 2c 4f 4b 29 3b 28 16 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 4b ┆,0,9,OK);( UNTIL OK┆
0x520…540 3b 16 01 20 01 13 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 13 1c 20 20 20 20 20 ┆; REPEAT ┆
0x540…560 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 39 29 3b 1c 23 20 20 20 20 20 20 20 ┆ GOTOXY(1,19); # ┆
0x560…580 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 4d 49 4e 55 54 54 45 52 3a 20 27 29 3b 23 1d 20 20 ┆ WRITE('MINUTTER: ');# ┆
0x580…5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 45 44 49 54 28 4d 49 4e 55 54 3a 32 29 3b 1d 2a 20 20 20 ┆ EDIT(MINUT:2); * ┆
0x5a0…5c0 20 20 20 20 20 20 20 20 20 20 20 20 54 41 4c 54 45 53 54 28 4d 49 4e 55 54 2c 31 2c 32 2c 30 2c ┆ TALTEST(MINUT,1,2,0,┆
0x5c0…5e0 35 39 2c 4f 4b 29 3b 2a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 4b 3b 63 ┆59,OK);*# UNTIL OK;c┆