|
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)
Notes: Mikados TextFile, Mikados_K
Names: »PAPIR«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─ ⟦this⟧ »PAPIR«
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