|
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 - metrics - download
Length: 639 (0x27f)
Notes: Mikados TextFile, Mikados_K
Names: »KAPUT«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »KAPUT«
0130 DIM SYM$(77) 0135 DIM UDFIL$(20) 0200 INPUT "FILNAVN ",UDFIL$ 0201 INPUT "ANTAL KOPIER ",ANTAL 0205 REPEAT 0210 EXEC WRITE 0211 ANTAL=ANTAL-1 0219 UNTIL ANTAL=0 0220 STOP 8000 PROC WRITE 8005 OUTPUT P 8010 OPEN UDFIL$,R 8015 GET UDFIL$:SYM$ 8020 LINES=0 8030 WHILE STATUS(UDFIL$)=0 8040 LINES=LINES+2 8041 IF SYM$="%P" THEN 8042 WHILE LINES<63 8043 PRINT " " 8044 LINES=LINES+1 8045 ENDWHILE 8047 GET UDFIL$:SYM$ 8048 ENDIF 8050 IF LINES=>53 THEN 8060 FOR LINES=1 TO 11 8070 PRINT " " 8080 NEXT LINES 8090 LINES=2 8100 ENDIF 8110 PRINT TAB(3);SYM$ 8115 PRINT " " 8120 GET UDFIL$:SYM$ 8130 ENDWHILE 8135 CLOSE UDFIL$ 8136 PRINT CHR(12) 8137 OUTPUT T 8140 ENDPROC