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

⟦feab792ce⟧ TextFile

    Length: 22752 (0x58e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »BREVE.K«

Derivation

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

Mikados K File

0100 DIM OVER$(3,27)
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$(57),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(36);"-";SIDE;"-"
0320 SIDE=SIDE+1
0330 PRINT " "
0340 PRINT " "
0350 PRINT " "
0360 FOR II=1 TO 18
0370 READ KAP$
0380 UDFIL$="DDE:"+KAP$
0390 EXEC WRITE
0392 PRINT " "
0393 PRINT " "
0394 PRINT " "
0395 LINES=LINES+3
0396 WHILE LINES>40 AND LINES<45
0397 PRINT " "
0398 LINES=LINES+1
0399 ENDWHILE 
0400 NEXT II
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(36);"-";SIDE;"-"
0530 SIDE=SIDE+1
0540 PRINT " "
0550 PRINT " "
0560 PRINT " "
0570 LINES=1
0580 IF SYM$="%P" THEN GET UDFIL$:SYM$
0590 ENDIF 
0595 IF STATUS(UDFIL$)=0 THEN 
0600 PRINT TAB(10);SYM$
0610 GET UDFIL$:SYM$
0615 ENDIF 
0620 ENDWHILE 
0625 IF LINES>1 THEN 
0630 PRINT " "
0640 PRINT " "
0650 PRINT " "
0660 LINES=LINES+3
0665 ENDIF 
0670 CLOSE UDFIL$
0680 ENDPROC 
0690 DATA "LØNDOK"
0700 DATA "LØNOPRET","LØNOVER"
0710 DATA "LØNINDH","LØNOPST","LØNARBG","LØNENTRE","LØNFEJL"
0720 DATA "LØNAFREG","LØNARTS","LØNBEREG","LØNLØNMO"
0730 DATA "LØNPAPIR","LØNVALG","LØNSIKK","LØNTÆLLE"
0740 DATA "LØNVIRK","LØNÅRSAF"

Full view