DataMuseum.dk

top - download

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

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

Mikados K File

0100 DIM OVER$(3,27)
0110 OVER$(1)="                           "
0120 OVER$(2)="                           "
0130 OVER$(3)="                           "
0140 CLEAR 
0150 INPUT "Antal eksemplarer :",AE
0160 REPEAT 
0170 CLEAR 
0180 PRINT "Overskrift"
0190 EDIT OVER$(1)
0200 EDIT OVER$(2)
0210 EDIT OVER$(3)
0220 I=0
0230 EDIT "Tilfreds 0 ",I
0240 UNTIL I=0
0250 DIM SYM$(57),KAP$(8)
0260 DIM UDFIL$(20)
0270 OUTPUT P
0290 FOR I=1 TO 9
0300 PRINT " "
0310 NEXT I
0315 FOR FIT=1 TO AE
0320 PRINT TAB(7);OVER$(1)
0330 PRINT " "
0340 PRINT TAB(7);OVER$(2)
0350 PRINT 
0360 PRINT TAB(7);OVER$(3)
0370 FOR I=1 TO 3
0380 PRINT " "
0390 NEXT I
0400 LINES=0
0410 SIDE=1
0420 PRINT TAB(36);"-";SIDE;"-"
0430 SIDE=SIDE+1
0440 PRINT " "
0450 PRINT " "
0460 PRINT " "
0470 FOR II=1 TO 1
0480 READ KAP$
0490 UDFIL$="DDE:"+KAP$
0500 EXEC WRITE
0510 NEXT II
0520 REPEAT 
0530 PRINT " "
0540 LINES=LINES+1
0550 UNTIL LINES>60
0560 RESTORE 
0570 NEXT FIT
0580 STOP 
0590 PROC WRITE
0600 OPEN UDFIL$,R
0610 GET UDFIL$:SYM$
0620 WHILE STATUS(UDFIL$)=0
0630 LINES=LINES+1
0640 IF SYM$="%P" OR LINES>45 THEN 
0650 REPEAT 
0660 PRINT " "
0670 LINES=LINES+1
0680 UNTIL LINES>60
0690 PRINT TAB(7);OVER$(1)
0700 PRINT " "
0710 PRINT TAB(7);OVER$(2)
0720 PRINT 
0730 PRINT TAB(7);OVER$(3)
0740 FOR I=1 TO 3
0750 PRINT " "
0760 NEXT I
0770 PRINT TAB(36);"-";SIDE;"-"
0780 SIDE=SIDE+1
0790 PRINT " "
0800 PRINT " "
0810 PRINT " "
0820 LINES=1
0830 IF SYM$="%P" THEN GET UDFIL$:SYM$
0840 ENDIF 
0850 PRINT TAB(10);SYM$
0860 GET UDFIL$:SYM$
0870 ENDWHILE 
0880 PRINT " "
0890 PRINT " "
0900 PRINT " "
0910 LINES=LINES+3
0920 CLOSE UDFIL$
0930 ENDPROC 
0940 DATA "TILBUHL","HARD"
0950 DATA "BUDINDH","BUDOPST","BUDBUD","BUDPRIS"
0960 DATA "BUDREG","BUDRUTE"