|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »UDSKRIV.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »UDSKRIV.K«
0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5) 0105 BL$=" " 0130 INPUT "HVILKEN FIL SKAL UDSKRIVES ",FIL$ 0160 FIL$=FIL$+" " 0190 OPEN FIL$,R 0220 EXEC FEJL(FIL$) 0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$ 0280 OUTPUT P 0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>" 0315 PRINT "<hhhhhhhhhhhhhhhhHHHHHHHHHHHH>" 0320 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>" 0321 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>" 0340 GET FIL$:LINE$ 0370 WHILE STATUS(FIL$)=0 0372 IF LINE$(1)="%" THEN 0374 LINE1$=LINE$ 0376 GET FIL$:LINE$ 0378 EXEC FEJL(FIL$) 0380 FOR I=2 TO LEN(LINE1$) 0382 IF LINE1$(I)="_" THEN 0384 LINE$(I)=CHR(ORD(LINE$(I))+128) 0386 ENDIF 0388 NEXT I 0390 IF LINE1$(2)="_" THEN 0392 LINE$(1)=CHR(ORD(LINE$(1))+128) 0394 ENDIF 0396 ENDIF 0400 I=LEN(LINE$) 0401 IF I<72 THEN GO TO 0408 0402 WHILE LINE$(I)=" " 0404 I=I-1 0406 ENDWHILE 0408 GAP=77-I 0410 IF GAP>5 OR GAP=0 THEN 0412 PRINT LINE$ 0414 ELSE 0416 PRINT "<SH>";LINE$(1,12*GAP) 0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77) 0420 ENDIF 0430 GET FIL$:LINE$ 0460 ENDWHILE 0490 PRINT CHR(12) 0520 OUTPUT T 0550 IF STATUS(FIL$)<>19 THEN 0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$) 0610 ELSE 0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT" 0670 ENDIF 0700 STOP 0730 PROC FEJL(FILE) 0760 IF STATUS(FILE$) THEN 0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$) 0820 PRINT "PAA FIL ";FILE$ 0850 STOP 0880 ENDIF 0910 ENDPROC
0x000…036 Line {l1=0x34, l2=»0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5)«, l3=0x34}
0x036…048 Line {l1=0x10, l2=»0105 BL$=" "«, l3=0x10}
0x048…077 Line {l1=0x2d, l2=»0130 INPUT "HVILKEN FIL SKAL UDSKRIVES ",FIL$«, l3=0x2d}
0x077…08b Line {l1=0x12, l2=»0160 FIL$=FIL$+" "«, l3=0x12}
0x08b…09d Line {l1=0x10, l2=»0190 OPEN FIL$,R«, l3=0x10}
0x09d…0b3 Line {l1=0x14, l2=»0220 EXEC FEJL(FIL$)«, l3=0x14}
0x0b3…0e8 Line {l1=0x33, l2=»0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$«, l3=0x33}
0x0e8…0f7 Line {l1=0x0d, l2=»0280 OUTPUT P«, l3=0x0d}
0x0f7…13f Line {l1=0x46, l2=»0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"«, l3=0x46}
0x13f…16c Line {l1=0x2b, l2=»0315 PRINT "<hhhhhhhhhhhhhhhhHHHHHHHHHHHH>"«, l3=0x2b}
0x16c…1b8 Line {l1=0x4a, l2=»0320 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"«, l3=0x4a}
0x1b8…1e3 Line {l1=0x29, l2=»0321 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"«, l3=0x29}
0x1e3…1f8 Line {l1=0x13, l2=»0340 GET FIL$:LINE$«, l3=0x13}
0x1f8…213 Line {l1=0x19, l2=»0370 WHILE STATUS(FIL$)=0«, l3=0x19}
0x213…22f Line {l1=0x1a, l2=»0372 IF LINE$(1)="%" THEN «, l3=0x1a}
0x22f…242 Line {l1=0x11, l2=»0374 LINE1$=LINE$«, l3=0x11}
0x242…257 Line {l1=0x13, l2=»0376 GET FIL$:LINE$«, l3=0x13}
0x257…26d Line {l1=0x14, l2=»0378 EXEC FEJL(FIL$)«, l3=0x14}
0x26d…28a Line {l1=0x1b, l2=»0380 FOR I=2 TO LEN(LINE1$)«, l3=0x1b}
0x28a…2a7 Line {l1=0x1b, l2=»0382 IF LINE1$(I)="_" THEN «, l3=0x1b}
0x2a7…2cd Line {l1=0x24, l2=»0384 LINE$(I)=CHR(ORD(LINE$(I))+128)«, l3=0x24}
0x2cd…2da Line {l1=0x0b, l2=»0386 ENDIF «, l3=0x0b}
0x2da…2e7 Line {l1=0x0b, l2=»0388 NEXT I«, l3=0x0b}
0x2e7…304 Line {l1=0x1b, l2=»0390 IF LINE1$(2)="_" THEN «, l3=0x1b}
0x304…32a Line {l1=0x24, l2=»0392 LINE$(1)=CHR(ORD(LINE$(1))+128)«, l3=0x24}
0x32a…337 Line {l1=0x0b, l2=»0394 ENDIF «, l3=0x0b}
0x337…344 Line {l1=0x0b, l2=»0396 ENDIF «, l3=0x0b}
0x344…357 Line {l1=0x11, l2=»0400 I=LEN(LINE$)«, l3=0x11}
0x357…375 Line {l1=0x1c, l2=»0401 IF I<72 THEN GO TO 0408«, l3=0x1c}
0x375…38e Line {l1=0x17, l2=»0402 WHILE LINE$(I)=" "«, l3=0x17}
0x38e…39a Line {l1=0x0a, l2=»0404 I=I-1«, l3=0x0a}
0x39a…3aa Line {l1=0x0e, l2=»0406 ENDWHILE «, l3=0x0e}
0x3aa…3b9 Line {l1=0x0d, l2=»0408 GAP=77-I«, l3=0x0d}
0x3b9…3d7 Line {l1=0x1c, l2=»0410 IF GAP>5 OR GAP=0 THEN «, l3=0x1c}
0x3d7…3e9 Line {l1=0x10, l2=»0412 PRINT LINE$«, l3=0x10}
0x3e9…3f5 Line {l1=0x0a, l2=»0414 ELSE «, l3=0x0a}
0x3f5…418 Line {l1=0x21, l2=»0416 PRINT "<SH>";LINE$(1,12*GAP)«, l3=0x21}
0x418…448 Line {l1=0x2e, l2=»0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77)«, l3=0x2e}
0x448…455 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x455…46a Line {l1=0x13, l2=»0430 GET FIL$:LINE$«, l3=0x13}
0x46a…47a Line {l1=0x0e, l2=»0460 ENDWHILE «, l3=0x0e}
0x47a…48e Line {l1=0x12, l2=»0490 PRINT CHR(12)«, l3=0x12}
0x48e…49d Line {l1=0x0d, l2=»0520 OUTPUT T«, l3=0x0d}
0x49d…4bd Line {l1=0x1e, l2=»0550 IF STATUS(FIL$)<>19 THEN «, l3=0x1e}
0x4bd…4ff Line {l1=0x40, l2=»0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)«, l3=0x40}
0x4ff…50b Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x50b…536 Line {l1=0x29, l2=»0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"«, l3=0x29}
0x536…543 Line {l1=0x0b, l2=»0670 ENDIF «, l3=0x0b}
0x543…54f Line {l1=0x0a, l2=»0700 STOP «, l3=0x0a}
0x54f…565 Line {l1=0x14, l2=»0730 PROC FEJL(FILE)«, l3=0x14}
0x565…582 Line {l1=0x1b, l2=»0760 IF STATUS(FILE$) THEN «, l3=0x1b}
0x582…5ba Line {l1=0x36, l2=»0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)«, l3=0x36}
0x5ba…5d7 Line {l1=0x1b, l2=»0820 PRINT "PAA FIL ";FILE$«, l3=0x1b}
0x5d7…5e3 Line {l1=0x0a, l2=»0850 STOP «, l3=0x0a}
0x5e3…5f0 Line {l1=0x0b, l2=»0880 ENDIF «, l3=0x0b}
0x5f0…5ff Line {l1=0x0d, l2=»0910 ENDPROC «, l3=0x0d}
0x5ff…600 00 ┆ ┆
0x600…620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1d…]