DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦f8c8fd9a5⟧ TextFile

    Length: 3520 (0xdc0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SOROUT.K«

Derivation

└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
    └─⟦this⟧ »SOROUT.K«

Mikados K File

0100 DIM OVER$(3,27),BL$(10)
0109 BL$="          "
0110 OVER$(1)="                           "
0120 OVER$(2)="                           "
0130 OVER$(3)="                           "
0140 REPEAT 
0150 CLEAR 
0160 PRINT "Overskrift"
0170 EDIT OVER$(1)
0180 EDIT OVER$(2)
0190 EDIT OVER$(3)
0200 I=0
0210 EDIT "Tilfreds 0 ",I
0220 UNTIL I=0
0230 DIM SYM$(69),KAP$(8)
0240 DIM UDFIL$(20)
0250 OUTPUT P
0255 PRINT "<S>";CHR(27);"Æ2w"
0260 FOR I=1 TO 9
0270 PRINT " "
0280 NEXT I
0281 PRINT TAB(7);OVER$(1)
0282 PRINT " "
0283 PRINT TAB(7);OVER$(2)
0284 PRINT 
0285 PRINT TAB(7);OVER$(3)
0286 FOR I=1 TO 3
0287 PRINT " "
0288 NEXT I
0290 LINES=0
0300 SIDE=1
0310 PRINT TAB(39);"-";SIDE;"-"
0320 SIDE=SIDE+1
0330 PRINT " "
0340 PRINT " "
0350 PRINT " "
0360 FOR FUT=1 TO 10
0370 READ KAP$
0380 UDFIL$="DDE:"+KAP$
0390 EXEC WRITE
0400 NEXT FUT
0410 STOP 
0420 PROC WRITE
0430 OPEN UDFIL$,R
0440 GET UDFIL$:SYM$
0450 WHILE STATUS(UDFIL$)=0
0460 LINES=LINES+1
0470 IF SYM$="%P" OR LINES>45 THEN 
0480 REPEAT 
0490 PRINT " "
0500 LINES=LINES+1
0510 UNTIL LINES>60
0511 PRINT TAB(7);OVER$(1)
0512 PRINT " "
0513 PRINT TAB(7);OVER$(2)
0514 PRINT 
0515 PRINT TAB(7);OVER$(3)
0516 FOR I=1 TO 3
0517 PRINT " "
0518 NEXT I
0520 PRINT TAB(39);"-";SIDE;"-"
0530 SIDE=SIDE+1
0540 PRINT " "
0550 PRINT " "
0560 PRINT " "
0570 LINES=1
0580 IF SYM$="%P" THEN GET UDFIL$:SYM$
0590 ENDIF 
0592 REST=69-LEN(SYM$)
0594 IF REST>9 THEN REST=0
0596 IF REST>0 THEN 
0598 PRINT "<S>";CHR(27);"Æ1w"
0600 PRINT "<S>";"     ";SYM$(1,5*REST);CHR(13);
0602 PRINT CHR(27);"Æ2w"
0603 Q=6*REST
0604 BL$=CHR((Q MOD 10)+48)+"a"
0605 IF Q>9 THEN BL$=CHR((Q DIV 10)+48)+BL$
0606 BL$="Æ"+BL$
0607 PRINT "<S>";CHR(27);BL$
0608 ENDIF 
0609 PRINT "      ";SYM$(1+5*REST,69)
0610 GET UDFIL$:SYM$
0620 ENDWHILE 
0630 PRINT " "
0640 PRINT " "
0650 PRINT " "
0660 LINES=LINES+3
0670 CLOSE UDFIL$
0680 ENDPROC 
0682 DATA "SOINDH","SOOPST","SOFEJL","SOMEDL","SOPAPIR","SOVALG","SOREG"
0684 DATA "SOSIKK","SOSYS","SOUDSK"

Mikados K File

0x000…01e Line {l1=0x1c, l2=»0100 DIM OVER$(3,27),BL$(10)«, l3=0x1c}
0x01e…035 Line {l1=0x15, l2=»0109 BL$="          "«, l3=0x15}
0x035…062 Line {l1=0x2b, l2=»0110 OVER$(1)="                           "«, l3=0x2b}
0x062…08f Line {l1=0x2b, l2=»0120 OVER$(2)="                           "«, l3=0x2b}
0x08f…0bc Line {l1=0x2b, l2=»0130 OVER$(3)="                           "«, l3=0x2b}
0x0bc…0ca Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x0ca…0d7 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x0d7…0f0 Line {l1=0x17, l2=»0160 PRINT "Overskrift"«, l3=0x17}
0x0f0…104 Line {l1=0x12, l2=»0170 EDIT OVER$(1)«, l3=0x12}
0x104…118 Line {l1=0x12, l2=»0180 EDIT OVER$(2)«, l3=0x12}
0x118…12c Line {l1=0x12, l2=»0190 EDIT OVER$(3)«, l3=0x12}
0x12c…136 Line {l1=0x08, l2=»0200 I=0«, l3=0x08}
0x136…151 Line {l1=0x19, l2=»0210 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x151…161 Line {l1=0x0e, l2=»0220 UNTIL I=0«, l3=0x0e}
0x161…17c Line {l1=0x19, l2=»0230 DIM SYM$(69),KAP$(8)«, l3=0x19}
0x17c…191 Line {l1=0x13, l2=»0240 DIM UDFIL$(20)«, l3=0x13}
0x191…1a0 Line {l1=0x0d, l2=»0250 OUTPUT P«, l3=0x0d}
0x1a0…1c0 Line {l1=0x1e, l2=»0255 PRINT "<S>";CHR(27);"Æ2w"«, l3=0x1e}
0x1c0…1d3 Line {l1=0x11, l2=»0260 FOR I=1 TO 9«, l3=0x11}
0x1d3…1e3 Line {l1=0x0e, l2=»0270 PRINT " "«, l3=0x0e}
0x1e3…1f0 Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x1f0…20c Line {l1=0x1a, l2=»0281 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x20c…21c Line {l1=0x0e, l2=»0282 PRINT " "«, l3=0x0e}
0x21c…238 Line {l1=0x1a, l2=»0283 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x238…245 Line {l1=0x0b, l2=»0284 PRINT «, l3=0x0b}
0x245…261 Line {l1=0x1a, l2=»0285 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x261…274 Line {l1=0x11, l2=»0286 FOR I=1 TO 3«, l3=0x11}
0x274…284 Line {l1=0x0e, l2=»0287 PRINT " "«, l3=0x0e}
0x284…291 Line {l1=0x0b, l2=»0288 NEXT I«, l3=0x0b}
0x291…29f Line {l1=0x0c, l2=»0290 LINES=0«, l3=0x0c}
0x29f…2ac Line {l1=0x0b, l2=»0300 SIDE=1«, l3=0x0b}
0x2ac…2cd Line {l1=0x1f, l2=»0310 PRINT TAB(39);"-";SIDE;"-"«, l3=0x1f}
0x2cd…2df Line {l1=0x10, l2=»0320 SIDE=SIDE+1«, l3=0x10}
0x2df…2ef Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x2ef…2ff Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2ff…30f Line {l1=0x0e, l2=»0350 PRINT " "«, l3=0x0e}
0x30f…325 Line {l1=0x14, l2=»0360 FOR FUT=1 TO 10«, l3=0x14}
0x325…335 Line {l1=0x0e, l2=»0370 READ KAP$«, l3=0x0e}
0x335…34e Line {l1=0x17, l2=»0380 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x34e…35f Line {l1=0x0f, l2=»0390 EXEC WRITE«, l3=0x0f}
0x35f…36e Line {l1=0x0d, l2=»0400 NEXT FUT«, l3=0x0d}
0x36e…37a Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x37a…38b Line {l1=0x0f, l2=»0420 PROC WRITE«, l3=0x0f}
0x38b…39f Line {l1=0x12, l2=»0430 OPEN UDFIL$,R«, l3=0x12}
0x39f…3b5 Line {l1=0x14, l2=»0440 GET UDFIL$:SYM$«, l3=0x14}
0x3b5…3d2 Line {l1=0x1b, l2=»0450 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x3d2…3e6 Line {l1=0x12, l2=»0460 LINES=LINES+1«, l3=0x12}
0x3e6…40b Line {l1=0x23, l2=»0470 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x40b…419 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x419…429 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x429…43d Line {l1=0x12, l2=»0500 LINES=LINES+1«, l3=0x12}
0x43d…452 Line {l1=0x13, l2=»0510 UNTIL LINES>60«, l3=0x13}
0x452…46e Line {l1=0x1a, l2=»0511 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x46e…47e Line {l1=0x0e, l2=»0512 PRINT " "«, l3=0x0e}
0x47e…49a Line {l1=0x1a, l2=»0513 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x49a…4a7 Line {l1=0x0b, l2=»0514 PRINT «, l3=0x0b}
0x4a7…4c3 Line {l1=0x1a, l2=»0515 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x4c3…4d6 Line {l1=0x11, l2=»0516 FOR I=1 TO 3«, l3=0x11}
0x4d6…4e6 Line {l1=0x0e, l2=»0517 PRINT " "«, l3=0x0e}
0x4e6…4f3 Line {l1=0x0b, l2=»0518 NEXT I«, l3=0x0b}
0x4f3…514 Line {l1=0x1f, l2=»0520 PRINT TAB(39);"-";SIDE;"-"«, l3=0x1f}
0x514…526 Line {l1=0x10, l2=»0530 SIDE=SIDE+1«, l3=0x10}
0x526…536 Line {l1=0x0e, l2=»0540 PRINT " "«, l3=0x0e}
0x536…546 Line {l1=0x0e, l2=»0550 PRINT " "«, l3=0x0e}
0x546…556 Line {l1=0x0e, l2=»0560 PRINT " "«, l3=0x0e}
0x556…564 Line {l1=0x0c, l2=»0570 LINES=1«, l3=0x0c}
0x564…58c Line {l1=0x26, l2=»0580 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x58c…599 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x599…5b1 Line {l1=0x16, l2=»0592 REST=69-LEN(SYM$)«, l3=0x16}
0x5b1…5cd Line {l1=0x1a, l2=»0594 IF REST>9 THEN REST=0«, l3=0x1a}
0x5cd…5e3 Line {l1=0x14, l2=»0596 IF REST>0 THEN «, l3=0x14}
0x5e3…603 Line {l1=0x1e, l2=»0598 PRINT "<S>";CHR(27);"Æ1w"«, l3=0x1e}
0x603…635 Line {l1=0x30, l2=»0600 PRINT "<S>";"     ";SYM$(1,5*REST);CHR(13);«, l3=0x30}
0x635…64f Line {l1=0x18, l2=»0602 PRINT CHR(27);"Æ2w"«, l3=0x18}
0x64f…65e Line {l1=0x0d, l2=»0603 Q=6*REST«, l3=0x0d}
0x65e…67f Line {l1=0x1f, l2=»0604 BL$=CHR((Q MOD 10)+48)+"a"«, l3=0x1f}
0x67f…6ac Line {l1=0x2b, l2=»0605 IF Q>9 THEN BL$=CHR((Q DIV 10)+48)+BL$«, l3=0x2b}
0x6ac…6be Line {l1=0x10, l2=»0606 BL$="Æ"+BL$«, l3=0x10}
0x6be…6dc Line {l1=0x1c, l2=»0607 PRINT "<S>";CHR(27);BL$«, l3=0x1c}
0x6dc…6e9 Line {l1=0x0b, l2=»0608 ENDIF «, l3=0x0b}
0x6e9…710 Line {l1=0x25, l2=»0609 PRINT "      ";SYM$(1+5*REST,69)«, l3=0x25}
0x710…726 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x726…736 Line {l1=0x0e, l2=»0620 ENDWHILE «, l3=0x0e}
0x736…746 Line {l1=0x0e, l2=»0630 PRINT " "«, l3=0x0e}
0x746…756 Line {l1=0x0e, l2=»0640 PRINT " "«, l3=0x0e}
0x756…766 Line {l1=0x0e, l2=»0650 PRINT " "«, l3=0x0e}
0x766…77a Line {l1=0x12, l2=»0660 LINES=LINES+3«, l3=0x12}
0x77a…78d Line {l1=0x11, l2=»0670 CLOSE UDFIL$«, l3=0x11}
0x78d…79c Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x79c…7e6 Line {l1=0x48, l2=»0682 DATA "SOINDH","SOOPST","SOFEJL","SOMEDL","SOPAPIR","SOVALG","SOREG"«, l3=0x48}
0x7e6…80b Line {l1=0x23, l2=»0684 DATA "SOSIKK","SOSYS","SOUDSK"«, l3=0x23}
0x80b…820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                    ┆                     ┆
0x820…840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
          […0x2c…]

Reduced view