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

⟦abf8b5b2b⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »OPTEAMS«

Derivation

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

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 

▶1b◀0100 DIM NAVN$(20),FIL$(10)▶1b◀▶15◀0110 FIL$="DDE:TEAMS"▶15◀▶08◀0115 I=1▶08◀▶10◀0120 OPEN FIL$,W▶10◀\f

0130 REPEAT \f

▶18◀0140 INPUT "NAVN ",NAVN$▶18◀▶1b◀0150 IF NAVN$<>"STOP" THEN ▶1b◀ 0160 PUT FIL$,I:NAVN$,10,1,0,0,0 
0175 I=I+1
▶0b◀0177 ENDIF ▶0b◀▶17◀0180 UNTIL NAVN$="STOP"▶17◀▶1f◀0185 PUT FIL$,I:"PIP",1,1,1,1,1▶1f◀▶0f◀0190 CLOSE FIL$▶0f◀	0200 END 	▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc