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

⟦114a1d0f2⟧ TextFile

    Length: 1440 (0x5a0)
    Types: TextFile
    Notes: Mikados_K
    Names: »NREGNING.K«

Derivation

└─⟦510f10af2⟧ Bits:30009011 Apn
    └─⟦this⟧ »NREGNING.K«

Mikados K File

0100 CLEAR 
0110 DIM S$(8)
0120 INPUT " TAST FØRSTE TAL    ",FT
0130 INPUT "+TAST ANDEN  TAL    ",AT
0140 RE=(FT+AT)
0150 PRINT "                   ----------------"
0160 PRINT "=RESULTATET ER     ";RE
0170 PRINT "                   ================"
0180 REPEAT 
0190 CURSOR 1,6
0200 INPUT "+SIDSTE TAL         ",ST
0210 IALT=(IALT+ST)
0220 PRINT "                   ----------------"
0230 PRINT "=RESULTATET ER     ";IALT
0240 PRINT "                   ================"
0250 CURSOR 1,20
0260 INPUT " TAST STOP FOR SLUT. OG C FOR CLEAR ",S$
0270 IF S$="c" OR S$="C" THEN IALT=(IALT-ST)
0280 CURSOR 1,6
0290 PRINT "                                                                 "
0300 PRINT "                                                                 "
0310 PRINT "                                                                 "
0320 PRINT "                                                                 "
0330 PRINT "                                                              "
0340 CURSOR 1,3
0350 PRINT "                   ----------------"
0360 PRINT "=RESULTATET ER     ";IALT
0370 PRINT "                   ================"
0380 UNTIL S$="STOP" OR S$="stop"
0390 CLEAR 
0400 END

Full view