DataMuseum.dk

top - download

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »CALC.K«

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

Mikados K File

7780 PROC SKRIV
7785 CLEAR 
7790 FOR X=1 TO 22
7795 CURSOR 1,X
7800 PRINT USING "####":LINENR+X;
7805 IF X>LAST THEN 
7810 PRINT " "
7815 ELSE 
7820 CASE SIDE$(X,65,66) OF 
7825 PRINT "       ";SIDE$(X)
7830 WHEN "##"
7835 IF ST$(12)="+" THEN ST$(12)=" "
7840 PRINT TAB(61);ST$;"Kr"
7845 ST$=TAH$
7850 WHEN "@@"
7855 IF GT$(12)="+" THEN GT$(12)=" "
7860 PRINT TAB(61);GT$;"Kr"
7865 GT$=TAH$
7870 WHEN "%%"
7875 HJ$=SIDE$(X,51,61)
7880 IF HJ$(11)=" " THEN HJ$(11)="+"
7885 EXEC CALC(0,HJ$,ST$,ST$)
7890 EXEC CALC(0,HJ$,GT$,GT$)
7895 PRINT "       ";SIDE$(X,1,64);"  "
7900 ENDCASE 
7905 ENDIF 
7910 NEXT X
7915 ENDPROC 
7920 PROC CHECK
7925 OKAY=FALSE
7930 CURSOR 22,23
7935 CASE SV$ OF 
7940 WHEN "T","t"
7945 OKAY=TRUE
7950 PRINT "Tilføjelse"
7955 WHEN "TL","tl","Tl","tL"
7960 OKAY=TRUE
7965 PRINT "Tilføj linie"
7970 WHEN "s","S"
7975 OKAY=TRUE
7980 PRINT "Sletning"
7985 WHEN "SL","sl","Sl","sL"
7990 OKAY=TRUE
7995 PRINT "Slet linie"
8000 WHEN "R","r"
8005 OKAY=TRUE
8010 PRINT "Retning"
8015 WHEN "e","E"
8020 OKAY=TRUE
8025 PRINT "Editering"
8030 WHEN "C","c"
8035 OKAY=TRUE
8040 PRINT "Centrer linie"
8045 WHEN "BL","Bl","bL","bl"
8050 SV$="BL"
8055 OKAY=TRUE
8060 PRINT "Indsæt beregningslinie"
8065 WHEN "ST","St","sT","st"
8070 SV$="ST"
8075 OKAY=TRUE
8080 PRINT "Subtotallinie indsættes"
8085 WHEN "GT","Gt","gT","gt"
8090 SV$="GT"
8095 OKAY=TRUE
8100 PRINT "Grandtotallinie indsættes"
8105 ENDCASE 
8110 ENDPROC