|
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: 3520 (0xdc0)
Types: TextFile
Notes: Mikados_K
Names: »HENT1UD.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »HENT1UD.K«
0100 DIM OVER$(3,27),BL$(10) 0109 BL$=" " 0110 OVER$(1)=" " 0120 OVER$(2)=" " 0130 OVER$(3)=" " 0140 REPEAT 0150 CLEAR 0160 PRINT "Overskrift" 0170 EDIT OVER$(1) 0180 EDIT OVER$(2) 0190 EDIT OVER$(3) 0200 I=0 0210 EDIT "Tilfreds 0 ",I 0220 UNTIL I=0 0230 DIM SYM$(69),KAP$(8) 0240 DIM UDFIL$(20) 0250 OUTPUT P 0260 FOR I=1 TO 9 0270 PRINT " " 0280 NEXT I 0281 PRINT TAB(7);OVER$(1) 0282 PRINT " " 0283 PRINT TAB(7);OVER$(2) 0284 PRINT 0285 PRINT TAB(7);OVER$(3) 0286 FOR I=1 TO 3 0287 PRINT " " 0288 NEXT I 0290 LINES=0 0300 SIDE=1 0310 PRINT TAB(39);"-";SIDE;"-" 0320 SIDE=SIDE+1 0330 PRINT " " 0340 PRINT " " 0350 PRINT " " 0360 FOR FUT=1 TO 1 0370 READ KAP$ 0380 UDFIL$="DDE:"+KAP$ 0390 EXEC WRITE 0400 NEXT FUT 0410 STOP 0420 PROC WRITE 0430 OPEN UDFIL$,R 0440 GET UDFIL$:SYM$ 0450 WHILE STATUS(UDFIL$)=0 0460 LINES=LINES+1 0470 IF SYM$="%P" OR LINES>45 THEN 0480 REPEAT 0490 PRINT " " 0500 LINES=LINES+1 0510 UNTIL LINES>60 0511 PRINT TAB(7);OVER$(1) 0512 PRINT " " 0513 PRINT TAB(7);OVER$(2) 0514 PRINT 0515 PRINT TAB(7);OVER$(3) 0516 FOR I=1 TO 3 0517 PRINT " " 0518 NEXT I 0520 PRINT TAB(39);"-";SIDE;"-" 0530 SIDE=SIDE+1 0540 PRINT " " 0550 PRINT " " 0560 PRINT " " 0570 LINES=1 0580 IF SYM$="%P" THEN GET UDFIL$:SYM$ 0590 ENDIF 0592 REST=69-LEN(SYM$) 0593 REST=0 0594 IF REST>9 THEN REST=0 0596 IF REST>0 THEN 0598 PRINT "<S>";CHR(27);"Æ1w" 0600 PRINT "<S>";" ";SYM$(1,5*REST);CHR(13); 0602 PRINT CHR(27);"Æ2w" 0603 Q=6*REST 0604 BL$=CHR((Q MOD 10)+48)+"a" 0605 IF Q>9 THEN BL$=CHR((Q DIV 10)+48)+BL$ 0606 BL$="Æ"+BL$ 0607 PRINT "<S>";CHR(27);BL$ 0608 ENDIF 0609 PRINT " ";SYM$(1+5*REST,69) 0610 GET UDFIL$:SYM$ 0620 ENDWHILE 0630 PRINT " " 0640 PRINT " " 0650 PRINT " " 0660 LINES=LINES+3 0670 CLOSE UDFIL$ 0680 ENDPROC 0682 DATA "HENT1"
0x000…01e Line {l1=0x1c, l2=»0100 DIM OVER$(3,27),BL$(10)«, l3=0x1c}
0x01e…035 Line {l1=0x15, l2=»0109 BL$=" "«, l3=0x15}
0x035…062 Line {l1=0x2b, l2=»0110 OVER$(1)=" "«, l3=0x2b}
0x062…08f Line {l1=0x2b, l2=»0120 OVER$(2)=" "«, l3=0x2b}
0x08f…0bc Line {l1=0x2b, l2=»0130 OVER$(3)=" "«, l3=0x2b}
0x0bc…0ca Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x0ca…0d7 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x0d7…0f0 Line {l1=0x17, l2=»0160 PRINT "Overskrift"«, l3=0x17}
0x0f0…104 Line {l1=0x12, l2=»0170 EDIT OVER$(1)«, l3=0x12}
0x104…118 Line {l1=0x12, l2=»0180 EDIT OVER$(2)«, l3=0x12}
0x118…12c Line {l1=0x12, l2=»0190 EDIT OVER$(3)«, l3=0x12}
0x12c…136 Line {l1=0x08, l2=»0200 I=0«, l3=0x08}
0x136…151 Line {l1=0x19, l2=»0210 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x151…161 Line {l1=0x0e, l2=»0220 UNTIL I=0«, l3=0x0e}
0x161…17c Line {l1=0x19, l2=»0230 DIM SYM$(69),KAP$(8)«, l3=0x19}
0x17c…191 Line {l1=0x13, l2=»0240 DIM UDFIL$(20)«, l3=0x13}
0x191…1a0 Line {l1=0x0d, l2=»0250 OUTPUT P«, l3=0x0d}
0x1a0…1b3 Line {l1=0x11, l2=»0260 FOR I=1 TO 9«, l3=0x11}
0x1b3…1c3 Line {l1=0x0e, l2=»0270 PRINT " "«, l3=0x0e}
0x1c3…1d0 Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x1d0…1ec Line {l1=0x1a, l2=»0281 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x1ec…1fc Line {l1=0x0e, l2=»0282 PRINT " "«, l3=0x0e}
0x1fc…218 Line {l1=0x1a, l2=»0283 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x218…225 Line {l1=0x0b, l2=»0284 PRINT «, l3=0x0b}
0x225…241 Line {l1=0x1a, l2=»0285 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x241…254 Line {l1=0x11, l2=»0286 FOR I=1 TO 3«, l3=0x11}
0x254…264 Line {l1=0x0e, l2=»0287 PRINT " "«, l3=0x0e}
0x264…271 Line {l1=0x0b, l2=»0288 NEXT I«, l3=0x0b}
0x271…27f Line {l1=0x0c, l2=»0290 LINES=0«, l3=0x0c}
0x27f…28c Line {l1=0x0b, l2=»0300 SIDE=1«, l3=0x0b}
0x28c…2ad Line {l1=0x1f, l2=»0310 PRINT TAB(39);"-";SIDE;"-"«, l3=0x1f}
0x2ad…2bf Line {l1=0x10, l2=»0320 SIDE=SIDE+1«, l3=0x10}
0x2bf…2cf Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x2cf…2df Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2df…2ef Line {l1=0x0e, l2=»0350 PRINT " "«, l3=0x0e}
0x2ef…304 Line {l1=0x13, l2=»0360 FOR FUT=1 TO 1«, l3=0x13}
0x304…314 Line {l1=0x0e, l2=»0370 READ KAP$«, l3=0x0e}
0x314…32d Line {l1=0x17, l2=»0380 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x32d…33e Line {l1=0x0f, l2=»0390 EXEC WRITE«, l3=0x0f}
0x33e…34d Line {l1=0x0d, l2=»0400 NEXT FUT«, l3=0x0d}
0x34d…359 Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x359…36a Line {l1=0x0f, l2=»0420 PROC WRITE«, l3=0x0f}
0x36a…37e Line {l1=0x12, l2=»0430 OPEN UDFIL$,R«, l3=0x12}
0x37e…394 Line {l1=0x14, l2=»0440 GET UDFIL$:SYM$«, l3=0x14}
0x394…3b1 Line {l1=0x1b, l2=»0450 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x3b1…3c5 Line {l1=0x12, l2=»0460 LINES=LINES+1«, l3=0x12}
0x3c5…3ea Line {l1=0x23, l2=»0470 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x3ea…3f8 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x3f8…408 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x408…41c Line {l1=0x12, l2=»0500 LINES=LINES+1«, l3=0x12}
0x41c…431 Line {l1=0x13, l2=»0510 UNTIL LINES>60«, l3=0x13}
0x431…44d Line {l1=0x1a, l2=»0511 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x44d…45d Line {l1=0x0e, l2=»0512 PRINT " "«, l3=0x0e}
0x45d…479 Line {l1=0x1a, l2=»0513 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x479…486 Line {l1=0x0b, l2=»0514 PRINT «, l3=0x0b}
0x486…4a2 Line {l1=0x1a, l2=»0515 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x4a2…4b5 Line {l1=0x11, l2=»0516 FOR I=1 TO 3«, l3=0x11}
0x4b5…4c5 Line {l1=0x0e, l2=»0517 PRINT " "«, l3=0x0e}
0x4c5…4d2 Line {l1=0x0b, l2=»0518 NEXT I«, l3=0x0b}
0x4d2…4f3 Line {l1=0x1f, l2=»0520 PRINT TAB(39);"-";SIDE;"-"«, l3=0x1f}
0x4f3…505 Line {l1=0x10, l2=»0530 SIDE=SIDE+1«, l3=0x10}
0x505…515 Line {l1=0x0e, l2=»0540 PRINT " "«, l3=0x0e}
0x515…525 Line {l1=0x0e, l2=»0550 PRINT " "«, l3=0x0e}
0x525…535 Line {l1=0x0e, l2=»0560 PRINT " "«, l3=0x0e}
0x535…543 Line {l1=0x0c, l2=»0570 LINES=1«, l3=0x0c}
0x543…56b Line {l1=0x26, l2=»0580 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x56b…578 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x578…590 Line {l1=0x16, l2=»0592 REST=69-LEN(SYM$)«, l3=0x16}
0x590…59d Line {l1=0x0b, l2=»0593 REST=0«, l3=0x0b}
0x59d…5b9 Line {l1=0x1a, l2=»0594 IF REST>9 THEN REST=0«, l3=0x1a}
0x5b9…5cf Line {l1=0x14, l2=»0596 IF REST>0 THEN «, l3=0x14}
0x5cf…5ef Line {l1=0x1e, l2=»0598 PRINT "<S>";CHR(27);"Æ1w"«, l3=0x1e}
0x5ef…621 Line {l1=0x30, l2=»0600 PRINT "<S>";" ";SYM$(1,5*REST);CHR(13);«, l3=0x30}
0x621…63b Line {l1=0x18, l2=»0602 PRINT CHR(27);"Æ2w"«, l3=0x18}
0x63b…64a Line {l1=0x0d, l2=»0603 Q=6*REST«, l3=0x0d}
0x64a…66b Line {l1=0x1f, l2=»0604 BL$=CHR((Q MOD 10)+48)+"a"«, l3=0x1f}
0x66b…698 Line {l1=0x2b, l2=»0605 IF Q>9 THEN BL$=CHR((Q DIV 10)+48)+BL$«, l3=0x2b}
0x698…6aa Line {l1=0x10, l2=»0606 BL$="Æ"+BL$«, l3=0x10}
0x6aa…6c8 Line {l1=0x1c, l2=»0607 PRINT "<S>";CHR(27);BL$«, l3=0x1c}
0x6c8…6d5 Line {l1=0x0b, l2=»0608 ENDIF «, l3=0x0b}
0x6d5…6fc Line {l1=0x25, l2=»0609 PRINT " ";SYM$(1+5*REST,69)«, l3=0x25}
0x6fc…712 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x712…722 Line {l1=0x0e, l2=»0620 ENDWHILE «, l3=0x0e}
0x722…732 Line {l1=0x0e, l2=»0630 PRINT " "«, l3=0x0e}
0x732…742 Line {l1=0x0e, l2=»0640 PRINT " "«, l3=0x0e}
0x742…752 Line {l1=0x0e, l2=»0650 PRINT " "«, l3=0x0e}
0x752…766 Line {l1=0x12, l2=»0660 LINES=LINES+3«, l3=0x12}
0x766…779 Line {l1=0x11, l2=»0670 CLOSE UDFIL$«, l3=0x11}
0x779…788 Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x788…79b Line {l1=0x11, l2=»0682 DATA "HENT1"«, l3=0x11}
0x79b…7a0 00 00 30 31 34 ┆ 014┆
0x7a0…7c0 30 20 52 45 50 45 41 54 20 0c 0b 30 31 35 30 20 43 4c 45 41 52 20 0b 17 30 31 36 30 20 50 52 49 ┆0 REPEAT 0150 CLEAR 0160 PRI┆
0x7c0…7e0 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 ┆ ┆
[…0x2e…]
0xda0…dc0 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 63 ┆ c┆