|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »PAPIR.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »PAPIR.K«
0130 DIM SYM$(77) 0135 DIM UDFIL$(20) 0200 INPUT "FILNAVN ",UDFIL$ 0201 INPUT "ANTAL KOPIER ",ANTAL 0205 REPEAT 0210 EX34 WRITE 0211 ANTAL=ANTAL-1 0219 UNTIL ANTAL=0 8000 ITE 8005 OUTPUT P 8010 OPEN UDFIL$,R 8015 GET UDFIL$:SYM$ 8020 LINES=0 8030 WHILE STATUS(UDFIL$)=0 8040 LINES=LINES+1 8050 IF LINES=63 THEN 8060 FOR LINES=1 TO 10 8070 PRINT " " 8080 NEXT LINES 8090 LINES=1 8100 ENDIF 8110 PRINT TAB(3);SYM$ 8120 GET UDFIL$:SYM$ 8130 ENDWHILE 8135 CLOSE UDFIL$ 8136 PRINT CHR(12) 8137 OUTPUT T 8140 ENDPROC
0x000…013 Line {l1=0x11, l2=»0130 DIM SYM$(77)«, l3=0x11}
0x013…028 Line {l1=0x13, l2=»0135 DIM UDFIL$(20)«, l3=0x13}
0x028…046 Line {l1=0x1c, l2=»0200 INPUT "FILNAVN ",UDFIL$«, l3=0x1c}
0x046…068 Line {l1=0x20, l2=»0201 INPUT "ANTAL KOPIER ",ANTAL«, l3=0x20}
0x068…076 Line {l1=0x0c, l2=»0205 REPEAT «, l3=0x0c}
0x076…087 Line {l1=0x0f, l2=»0210 EX34 WRITE«, l3=0x0f}
0x087…09b Line {l1=0x12, l2=»0211 ANTAL=ANTAL-1«, l3=0x12}
0x09b…0af Line {l1=0x12, l2=»0219 UNTIL ANTAL=0«, l3=0x12}
0x0af…0ba Line {l1=0x09, l2=»8000 ITE«, l3=0x09}
0x0ba…0c9 Line {l1=0x0d, l2=»8005 OUTPUT P«, l3=0x0d}
0x0c9…0dd Line {l1=0x12, l2=»8010 OPEN UDFIL$,R«, l3=0x12}
0x0dd…0f3 Line {l1=0x14, l2=»8015 GET UDFIL$:SYM$«, l3=0x14}
0x0f3…101 Line {l1=0x0c, l2=»8020 LINES=0«, l3=0x0c}
0x101…11e Line {l1=0x1b, l2=»8030 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x11e…132 Line {l1=0x12, l2=»8040 LINES=LINES+1«, l3=0x12}
0x132…14a Line {l1=0x16, l2=»8050 IF LINES=63 THEN «, l3=0x16}
0x14a…162 Line {l1=0x16, l2=»8060 FOR LINES=1 TO 10«, l3=0x16}
0x162…172 Line {l1=0x0e, l2=»8070 PRINT " "«, l3=0x0e}
0x172…183 Line {l1=0x0f, l2=»8080 NEXT LINES«, l3=0x0f}
0x183…191 Line {l1=0x0c, l2=»8090 LINES=1«, l3=0x0c}
0x191…19e Line {l1=0x0b, l2=»8100 ENDIF «, l3=0x0b}
0x19e…1b6 Line {l1=0x16, l2=»8110 PRINT TAB(3);SYM$«, l3=0x16}
0x1b6…1cc Line {l1=0x14, l2=»8120 GET UDFIL$:SYM$«, l3=0x14}
0x1cc…1dc Line {l1=0x0e, l2=»8130 ENDWHILE «, l3=0x0e}
0x1dc…1ef Line {l1=0x11, l2=»8135 CLOSE UDFIL$«, l3=0x11}
0x1ef…203 Line {l1=0x12, l2=»8136 PRINT CHR(12)«, l3=0x12}
0x203…212 Line {l1=0x0d, l2=»8137 OUTPUT T«, l3=0x0d}
0x212…221 Line {l1=0x0d, l2=»8140 ENDPROC «, l3=0x0d}
0x221…240 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 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccc┆
0x240…260 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┆
[…0x14…]