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 - metrics - download

⟦8d983b41d⟧

    Length: 266 (0x10a)
    Notes: Mikados TextFile, Mikados_K
    Names: »OPTEAMS«

Derivation

└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
    └─⟦this⟧ »OPTEAMS«

Text

0100 DIM NAVN$(20),FIL$(10)
0110 FIL$="DDE:TEAMS"
0115 I=1
0120 OPEN FIL$,W
0130 REPEAT 
0140 INPUT "NAVN ",NAVN$
0150 IF NAVN$<>"STOP" THEN 
0160 PUT FIL$,I:NAVN$,10,1,0,0,0
0175 I=I+1
0177 ENDIF 
0180 UNTIL NAVN$="STOP"
0185 PUT FIL$,I:"PIP",1,1,1,1,1
0190 CLOSE FIL$
0200 END