DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »BUDOUT.K«

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »BUDOUT.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 17
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 "INDHINDU","ARBEINDU","AFSLINDU"
0690 DATA "FEJLINDU","FORKINDU"
0700 DATA "INDTINDU"
0710 DATA "KARTINDU","LØNLINDU"
0720 DATA "OPSTINDU","ORDRINDU"
0730 DATA "PAPIINDU","PRODINDU"
0740 DATA "PROGINDU","REGIINDU"
0750 DATA "SIKKINDU"
0760 DATA "ÆNDRINDU"
0770 DATA "DOKUINDU"