DataMuseum.dk

top - download

    Length: 3008 (0xbc0)
    Types: TextFile
    Notes: Mikados_K
    Names: »BUDINFOU.K«

└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
    └─⟦this⟧ »BUDINFOU.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 1
0370 READ KAP$
0380 UDFIL$="DDE:"+KAP$
0390 EXEC WRITE
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 
0600 PRINT TAB(10);SYM$
0610 GET UDFIL$:SYM$
0620 ENDWHILE 
0630 PRINT " "
0640 PRINT " "
0650 PRINT " "
0660 LINES=LINES+3
0670 CLOSE UDFIL$
0680 ENDPROC 
0690 DATA "BUDINF"
0700 DATA "BUDINDH","BUDOPST","BUDBUD","BUDDIST","BUDFEJL"
0705 DATA "BUDLØNBE","BUDPAPIR","BUDPRIS","BUDVALG"
0710 DATA "BUDREG","BUDRUTE"
0715 DATA "BUDSIKK","BUDVIRK"