|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »UR.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UR.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UR.K«
0100 // ----------------------- uret ------------------------------ 0110 CLEAR 0120 CURSOR 27,5 0130 PRINT "T E M P U S F U G I T" 0140 CURSOR 27,6 0150 PRINT "-------------------------" 0160 EXEC RAMME 0170 EXEC DØGN 0180 0190 PROC DØGN 0200 FOR TIME:=0 TO 23 DO 0210 FOR MINUT:=0 TO 59 DO 0220 FOR SEKUND:=0 TO 59 DO 0230 CURSOR 30,13 0240 PRINT USING "### ### ###":TIME,MINUT,SEKUND 0250 FOR A:=1 TO 110 DO 0260 NEXT A 0270 NEXT SEKUND 0280 NEXT MINUT 0290 NEXT TIME 0300 ENDPROC DØGN 0310 0320 PROC RAMME 0330 CURSOR 18,8 0340 PRINT "*-------------------------------------------*" 0350 FOR I:=9 TO 17 DO 0360 CURSOR 18,I 0370 PRINT "! !" 0380 NEXT I 0390 CURSOR 18,18 0400 PRINT "*-------------------------------------------*" 0401 CURSOR 29,10 0402 PRINT "Time: Minut: Sekund:" 0410 ENDPROC RAMME
0x000…045 Line {l1=0x43, l2=»0100 // ----------------------- uret ------------------------------«, l3=0x43}
0x045…052 Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x052…064 Line {l1=0x10, l2=»0120 CURSOR 27,5«, l3=0x10}
0x064…08a Line {l1=0x24, l2=»0130 PRINT "T E M P U S F U G I T"«, l3=0x24}
0x08a…09c Line {l1=0x10, l2=»0140 CURSOR 27,6«, l3=0x10}
0x09c…0c4 Line {l1=0x26, l2=»0150 PRINT "-------------------------"«, l3=0x26}
0x0c4…0d5 Line {l1=0x0f, l2=»0160 EXEC RAMME«, l3=0x0f}
0x0d5…0e5 Line {l1=0x0e, l2=»0170 EXEC DØGN«, l3=0x0e}
0x0e5…0ec Line {l1=0x05, l2=»0180 «, l3=0x05}
0x0ec…0fc Line {l1=0x0e, l2=»0190 PROC DØGN«, l3=0x0e}
0x0fc…118 Line {l1=0x1a, l2=»0200 FOR TIME:=0 TO 23 DO «, l3=0x1a}
0x118…135 Line {l1=0x1b, l2=»0210 FOR MINUT:=0 TO 59 DO «, l3=0x1b}
0x135…153 Line {l1=0x1c, l2=»0220 FOR SEKUND:=0 TO 59 DO «, l3=0x1c}
0x153…166 Line {l1=0x11, l2=»0230 CURSOR 30,13«, l3=0x11}
0x166…19e Line {l1=0x36, l2=»0240 PRINT USING "### ### ###":TIME,MINUT,SEKUND«, l3=0x36}
0x19e…1b8 Line {l1=0x18, l2=»0250 FOR A:=1 TO 110 DO «, l3=0x18}
0x1b8…1c5 Line {l1=0x0b, l2=»0260 NEXT A«, l3=0x0b}
0x1c5…1d7 Line {l1=0x10, l2=»0270 NEXT SEKUND«, l3=0x10}
0x1d7…1e8 Line {l1=0x0f, l2=»0280 NEXT MINUT«, l3=0x0f}
0x1e8…1f8 Line {l1=0x0e, l2=»0290 NEXT TIME«, l3=0x0e}
0x1f8…20b Line {l1=0x11, l2=»0300 ENDPROC DØGN«, l3=0x11}
0x20b…212 Line {l1=0x05, l2=»0310 «, l3=0x05}
0x212…223 Line {l1=0x0f, l2=»0320 PROC RAMME«, l3=0x0f}
0x223…235 Line {l1=0x10, l2=»0330 CURSOR 18,8«, l3=0x10}
0x235…271 Line {l1=0x3a, l2=»0340 PRINT "*-------------------------------------------*"«, l3=0x3a}
0x271…28a Line {l1=0x17, l2=»0350 FOR I:=9 TO 17 DO «, l3=0x17}
0x28a…29c Line {l1=0x10, l2=»0360 CURSOR 18,I«, l3=0x10}
0x29c…2d8 Line {l1=0x3a, l2=»0370 PRINT "! !"«, l3=0x3a}
0x2d8…2e5 Line {l1=0x0b, l2=»0380 NEXT I«, l3=0x0b}
0x2e5…2f8 Line {l1=0x11, l2=»0390 CURSOR 18,18«, l3=0x11}
0x2f8…334 Line {l1=0x3a, l2=»0400 PRINT "*-------------------------------------------*"«, l3=0x3a}
0x334…347 Line {l1=0x11, l2=»0401 CURSOR 29,10«, l3=0x11}
0x347…36e Line {l1=0x25, l2=»0402 PRINT "Time: Minut: Sekund:"«, l3=0x25}
0x36e…382 Line {l1=0x12, l2=»0410 ENDPROC RAMME«, l3=0x12}
0x382…3a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccc┆
0x3a0…3c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x31…]