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_K
    Names: »OPTEAMS.K«

Derivation

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

Mikados K File

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

Mikados K File

0x000…01d Line {l1=0x1b, l2=»0100 DIM NAVN$(20),FIL$(10)«, l3=0x1b}
0x01d…034 Line {l1=0x15, l2=»0110 FIL$="DDE:TEAMS"«, l3=0x15}
0x034…03e Line {l1=0x08, l2=»0115 I=1«, l3=0x08}
0x03e…050 Line {l1=0x10, l2=»0120 OPEN FIL$,W«, l3=0x10}
0x050…05e Line {l1=0x0c, l2=»0130 REPEAT «, l3=0x0c}
0x05e…078 Line {l1=0x18, l2=»0140 INPUT "NAVN ",NAVN$«, l3=0x18}
0x078…095 Line {l1=0x1b, l2=»0150 IF NAVN$<>"STOP" THEN «, l3=0x1b}
0x095…0b7 Line {l1=0x20, l2=»0160 PUT FIL$,I:NAVN$,10,1,0,0,0«, l3=0x20}
0x0b7…0c3 Line {l1=0x0a, l2=»0175 I=I+1«, l3=0x0a}
0x0c3…0d0 Line {l1=0x0b, l2=»0177 ENDIF «, l3=0x0b}
0x0d0…0e9 Line {l1=0x17, l2=»0180 UNTIL NAVN$="STOP"«, l3=0x17}
0x0e9…10a Line {l1=0x1f, l2=»0185 PUT FIL$,I:"PIP",1,1,1,1,1«, l3=0x1f}
0x10a…11b Line {l1=0x0f, l2=»0190 CLOSE FIL$«, l3=0x0f}
0x11b…126 Line {l1=0x09, l2=»0200 END «, l3=0x09}
0x126…140 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                     ┆  cccccccccccccccccccccccc┆
0x140…160 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x4…]

TextFile

▶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

Reduced view