|
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 - metrics - download
Length: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »UR«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UR«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »UR«
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