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

⟦95b673554⟧ TextFile

    Length: 2016 (0x7e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »IRISUD.K«

Derivation

└─⟦510f10af2⟧ Bits:30009011 Apn
    └─⟦this⟧ »IRISUD.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
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 1
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$)
0593 REST=0
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 "IRISSYS"

Full view