|
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: »ALLSKRIV.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ALLSKRIV.K«
0100 DIM FIL$(20),N$(10),LINE$(77),LINE1$(77),BL$(5) 0105 BL$=" " 0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$ 0260 INPUT "SIDENR ",SNR 0280 OUTPUT P 0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>" 0311 PRINT "<hhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>" 0312 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>" 0313 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>" 0314 EXEC SIDENR 0315 READ NROF 0316 FOR FI=1 TO NROF 0318 READ FIL$ 0320 FIL$="ODIN3:"+FIL$+" " 0322 OPEN FIL$,R 0324 EXEC FEJL(FIL$) 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 0397 IF LINE$(1)="@" THEN 0398 EXEC SIDENR 0399 ELSE 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 0425 ENDIF 0430 GET FIL$:LINE$ 0460 ENDWHILE 0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$) 0480 NEXT FI 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 0920 PROC SIDENR 0925 FOR L=1 TO 6 0930 PRINT 0935 NEXT L 0940 PRINT "." 0945 FOR L=1 TO 3 0950 PRINT 0955 NEXT L 0960 PRINT TAB(35);"-";SNR;"-" 0965 FOR L=1 TO 3 0970 PRINT 0975 NEXT L 0980 SNR=SNR+1 0985 ENDPROC 1020 DATA 6,"NKAP44" 1022 DATA "KAP5" 1025 DATA "NAPX11","NAPX12","NAPX13" 1030 DATA "APX21" 1035 END
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…07d Line {l1=0x33, l2=»0250 INPUT "TRYK RETURN NAAR PAPIR ER MONTERET ",N$«, l3=0x33}
0x07d…097 Line {l1=0x18, l2=»0260 INPUT "SIDENR ",SNR«, l3=0x18}
0x097…0a6 Line {l1=0x0d, l2=»0280 OUTPUT P«, l3=0x0d}
0x0a6…0e0 Line {l1=0x38, l2=»0310 PRINT "<mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm>"«, l3=0x38}
0x0e0…111 Line {l1=0x2f, l2=»0311 PRINT "<hhhhhhhhhhhhhhhhhhhhHHHHHHHHHHHH>"«, l3=0x2f}
0x111…151 Line {l1=0x3e, l2=»0312 PRINT "<vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv>"«, l3=0x3e}
0x151…17c Line {l1=0x29, l2=»0313 PRINT "<VVVVVVVVVVVVVVVVVVVVVVVVVV>"«, l3=0x29}
0x17c…18e Line {l1=0x10, l2=»0314 EXEC SIDENR«, l3=0x10}
0x18e…19e Line {l1=0x0e, l2=»0315 READ NROF«, l3=0x0e}
0x19e…1b5 Line {l1=0x15, l2=»0316 FOR FI=1 TO NROF«, l3=0x15}
0x1b5…1c5 Line {l1=0x0e, l2=»0318 READ FIL$«, l3=0x0e}
0x1c5…1e2 Line {l1=0x1b, l2=»0320 FIL$="ODIN3:"+FIL$+" "«, l3=0x1b}
0x1e2…1f4 Line {l1=0x10, l2=»0322 OPEN FIL$,R«, l3=0x10}
0x1f4…20a Line {l1=0x14, l2=»0324 EXEC FEJL(FIL$)«, l3=0x14}
0x20a…21f Line {l1=0x13, l2=»0340 GET FIL$:LINE$«, l3=0x13}
0x21f…23a Line {l1=0x19, l2=»0370 WHILE STATUS(FIL$)=0«, l3=0x19}
0x23a…256 Line {l1=0x1a, l2=»0372 IF LINE$(1)="%" THEN «, l3=0x1a}
0x256…269 Line {l1=0x11, l2=»0374 LINE1$=LINE$«, l3=0x11}
0x269…27e Line {l1=0x13, l2=»0376 GET FIL$:LINE$«, l3=0x13}
0x27e…294 Line {l1=0x14, l2=»0378 EXEC FEJL(FIL$)«, l3=0x14}
0x294…2b1 Line {l1=0x1b, l2=»0380 FOR I=2 TO LEN(LINE1$)«, l3=0x1b}
0x2b1…2ce Line {l1=0x1b, l2=»0382 IF LINE1$(I)="_" THEN «, l3=0x1b}
0x2ce…2f4 Line {l1=0x24, l2=»0384 LINE$(I)=CHR(ORD(LINE$(I))+128)«, l3=0x24}
0x2f4…301 Line {l1=0x0b, l2=»0386 ENDIF «, l3=0x0b}
0x301…30e Line {l1=0x0b, l2=»0388 NEXT I«, l3=0x0b}
0x30e…32b Line {l1=0x1b, l2=»0390 IF LINE1$(2)="_" THEN «, l3=0x1b}
0x32b…351 Line {l1=0x24, l2=»0392 LINE$(1)=CHR(ORD(LINE$(1))+128)«, l3=0x24}
0x351…35e Line {l1=0x0b, l2=»0394 ENDIF «, l3=0x0b}
0x35e…36b Line {l1=0x0b, l2=»0396 ENDIF «, l3=0x0b}
0x36b…387 Line {l1=0x1a, l2=»0397 IF LINE$(1)="@" THEN «, l3=0x1a}
0x387…399 Line {l1=0x10, l2=»0398 EXEC SIDENR«, l3=0x10}
0x399…3a5 Line {l1=0x0a, l2=»0399 ELSE «, l3=0x0a}
0x3a5…3b8 Line {l1=0x11, l2=»0400 I=LEN(LINE$)«, l3=0x11}
0x3b8…3d6 Line {l1=0x1c, l2=»0401 IF I<72 THEN GO TO 0408«, l3=0x1c}
0x3d6…3ef Line {l1=0x17, l2=»0402 WHILE LINE$(I)=" "«, l3=0x17}
0x3ef…3fb Line {l1=0x0a, l2=»0404 I=I-1«, l3=0x0a}
0x3fb…40b Line {l1=0x0e, l2=»0406 ENDWHILE «, l3=0x0e}
0x40b…41a Line {l1=0x0d, l2=»0408 GAP=77-I«, l3=0x0d}
0x41a…438 Line {l1=0x1c, l2=»0410 IF GAP>5 OR GAP=0 THEN «, l3=0x1c}
0x438…44a Line {l1=0x10, l2=»0412 PRINT LINE$«, l3=0x10}
0x44a…456 Line {l1=0x0a, l2=»0414 ELSE «, l3=0x0a}
0x456…479 Line {l1=0x21, l2=»0416 PRINT "<SH>";LINE$(1,12*GAP)«, l3=0x21}
0x479…4a9 Line {l1=0x2e, l2=»0418 PRINT "<h>";BL$(1,GAP);LINE$(12*GAP+1,77)«, l3=0x2e}
0x4a9…4b6 Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x4b6…4c3 Line {l1=0x0b, l2=»0425 ENDIF «, l3=0x0b}
0x4c3…4d8 Line {l1=0x13, l2=»0430 GET FIL$:LINE$«, l3=0x13}
0x4d8…4e8 Line {l1=0x0e, l2=»0460 ENDWHILE «, l3=0x0e}
0x4e8…517 Line {l1=0x2d, l2=»0470 IF STATUS(FIL$)<>19 THEN EXEC FEJL(FIL$)«, l3=0x2d}
0x517…525 Line {l1=0x0c, l2=»0480 NEXT FI«, l3=0x0c}
0x525…539 Line {l1=0x12, l2=»0490 PRINT CHR(12)«, l3=0x12}
0x539…548 Line {l1=0x0d, l2=»0520 OUTPUT T«, l3=0x0d}
0x548…568 Line {l1=0x1e, l2=»0550 IF STATUS(FIL$)<>19 THEN «, l3=0x1e}
0x568…5aa Line {l1=0x40, l2=»0580 PRINT "UDSKRIFTEN AFSLUTTET UNORMALT, STATUS ",STATUS(FIL$)«, l3=0x40}
0x5aa…5b6 Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x5b6…5e1 Line {l1=0x29, l2=»0640 PRINT "UDSKRIFTEN AFSLUTTET NORMALT"«, l3=0x29}
0x5e1…5ee Line {l1=0x0b, l2=»0670 ENDIF «, l3=0x0b}
0x5ee…5fa Line {l1=0x0a, l2=»0700 STOP «, l3=0x0a}
0x5fa…610 Line {l1=0x14, l2=»0730 PROC FEJL(FILE)«, l3=0x14}
0x610…62d Line {l1=0x1b, l2=»0760 IF STATUS(FILE$) THEN «, l3=0x1b}
0x62d…665 Line {l1=0x36, l2=»0790 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(FILE$)«, l3=0x36}
0x665…682 Line {l1=0x1b, l2=»0820 PRINT "PAA FIL ";FILE$«, l3=0x1b}
0x682…68e Line {l1=0x0a, l2=»0850 STOP «, l3=0x0a}
0x68e…69b Line {l1=0x0b, l2=»0880 ENDIF «, l3=0x0b}
0x69b…6aa Line {l1=0x0d, l2=»0910 ENDPROC «, l3=0x0d}
0x6aa…6bc Line {l1=0x10, l2=»0920 PROC SIDENR«, l3=0x10}
0x6bc…6cf Line {l1=0x11, l2=»0925 FOR L=1 TO 6«, l3=0x11}
0x6cf…6dc Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x6dc…6e9 Line {l1=0x0b, l2=»0935 NEXT L«, l3=0x0b}
0x6e9…6f9 Line {l1=0x0e, l2=»0940 PRINT "."«, l3=0x0e}
0x6f9…70c Line {l1=0x11, l2=»0945 FOR L=1 TO 3«, l3=0x11}
0x70c…719 Line {l1=0x0b, l2=»0950 PRINT «, l3=0x0b}
0x719…726 Line {l1=0x0b, l2=»0955 NEXT L«, l3=0x0b}
0x726…746 Line {l1=0x1e, l2=»0960 PRINT TAB(35);"-";SNR;"-"«, l3=0x1e}
0x746…759 Line {l1=0x11, l2=»0965 FOR L=1 TO 3«, l3=0x11}
0x759…766 Line {l1=0x0b, l2=»0970 PRINT «, l3=0x0b}
0x766…773 Line {l1=0x0b, l2=»0975 NEXT L«, l3=0x0b}
0x773…783 Line {l1=0x0e, l2=»0980 SNR=SNR+1«, l3=0x0e}
0x783…792 Line {l1=0x0d, l2=»0985 ENDPROC «, l3=0x0d}
0x792…7a8 Line {l1=0x14, l2=»1020 DATA 6,"NKAP44"«, l3=0x14}
0x7a8…7ba Line {l1=0x10, l2=»1022 DATA "KAP5"«, l3=0x10}
0x7ba…7e0 Line {l1=0x24, l2=»1025 DATA "NAPX11","NAPX12","NAPX13"«, l3=0x24}
0x7e0…7f3 Line {l1=0x11, l2=»1030 DATA "APX21"«, l3=0x11}
0x7f3…7fe Line {l1=0x09, l2=»1035 END «, l3=0x09}
0x7fe…800 00 00 ┆ ┆
0x800…820 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 ┆ ┆
[…0xd…]