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

⟦879cf2173⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »KALK.K«

Derivation

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

Mikados K File

0010 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12)
0015 TAH$="0+"
0020 PROC CALC(AR3,B1,B2,ES)
0025 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)
0030 CALL "DDE:REGN"
0035 IF AR3<6 THEN 
0040 IF FLAG THEN STOP 
0045 ENDIF 
0050 ES$=RES$
0055 ENDPROC

Full view