|
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: 1760 (0x6e0)
Types: TextFile
Notes: Mikados_K
Names: »GR85OUT.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »GR85OUT.K«
0100 DIM OVER$(3,27) 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$(70),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(36);"-";SIDE;"-" 0320 SIDE=SIDE+1 0330 PRINT " " 0340 PRINT " " 0350 PRINT " " 0360 FOR II=1 TO 11 0370 READ KAP$ 0380 UDFIL$="DDE:"+KAP$ 0390 EXEC WRITE 0400 NEXT II 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(36);"-";SIDE;"-" 0530 SIDE=SIDE+1 0540 PRINT " " 0550 PRINT " " 0560 PRINT " " 0570 LINES=1 0580 IF SYM$="%P" THEN GET UDFIL$:SYM$ 0590 ENDIF 0600 PRINT TAB(10);SYM$ 0610 GET UDFIL$:SYM$ 0620 ENDWHILE 0630 PRINT " " 0640 PRINT " " 0650 PRINT " " 0660 LINES=LINES+3 0670 CLOSE UDFIL$ 0680 ENDPROC 0690 DATA "GR85INDH","GR85OPST","GR85FEJL","GR85MEDV","GR85PAPI","GR85VALG" 0700 DATA "GR85REGI","GR85SIKK","GR85SYS","GR85UDSK","GR85ÅRSL"
0x000…016 Line {l1=0x14, l2=»0100 DIM OVER$(3,27)«, l3=0x14}
0x016…043 Line {l1=0x2b, l2=»0110 OVER$(1)=" "«, l3=0x2b}
0x043…070 Line {l1=0x2b, l2=»0120 OVER$(2)=" "«, l3=0x2b}
0x070…09d Line {l1=0x2b, l2=»0130 OVER$(3)=" "«, l3=0x2b}
0x09d…0ab Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x0ab…0b8 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x0b8…0d1 Line {l1=0x17, l2=»0160 PRINT "Overskrift"«, l3=0x17}
0x0d1…0e5 Line {l1=0x12, l2=»0170 EDIT OVER$(1)«, l3=0x12}
0x0e5…0f9 Line {l1=0x12, l2=»0180 EDIT OVER$(2)«, l3=0x12}
0x0f9…10d Line {l1=0x12, l2=»0190 EDIT OVER$(3)«, l3=0x12}
0x10d…117 Line {l1=0x08, l2=»0200 I=0«, l3=0x08}
0x117…132 Line {l1=0x19, l2=»0210 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x132…142 Line {l1=0x0e, l2=»0220 UNTIL I=0«, l3=0x0e}
0x142…15d Line {l1=0x19, l2=»0230 DIM SYM$(70),KAP$(8)«, l3=0x19}
0x15d…172 Line {l1=0x13, l2=»0240 DIM UDFIL$(20)«, l3=0x13}
0x172…181 Line {l1=0x0d, l2=»0250 OUTPUT P«, l3=0x0d}
0x181…194 Line {l1=0x11, l2=»0260 FOR I=1 TO 9«, l3=0x11}
0x194…1a4 Line {l1=0x0e, l2=»0270 PRINT " "«, l3=0x0e}
0x1a4…1b1 Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x1b1…1cd Line {l1=0x1a, l2=»0281 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x1cd…1dd Line {l1=0x0e, l2=»0282 PRINT " "«, l3=0x0e}
0x1dd…1f9 Line {l1=0x1a, l2=»0283 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x1f9…206 Line {l1=0x0b, l2=»0284 PRINT «, l3=0x0b}
0x206…222 Line {l1=0x1a, l2=»0285 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x222…235 Line {l1=0x11, l2=»0286 FOR I=1 TO 3«, l3=0x11}
0x235…245 Line {l1=0x0e, l2=»0287 PRINT " "«, l3=0x0e}
0x245…252 Line {l1=0x0b, l2=»0288 NEXT I«, l3=0x0b}
0x252…260 Line {l1=0x0c, l2=»0290 LINES=0«, l3=0x0c}
0x260…26d Line {l1=0x0b, l2=»0300 SIDE=1«, l3=0x0b}
0x26d…28e Line {l1=0x1f, l2=»0310 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x28e…2a0 Line {l1=0x10, l2=»0320 SIDE=SIDE+1«, l3=0x10}
0x2a0…2b0 Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x2b0…2c0 Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2c0…2d0 Line {l1=0x0e, l2=»0350 PRINT " "«, l3=0x0e}
0x2d0…2e5 Line {l1=0x13, l2=»0360 FOR II=1 TO 11«, l3=0x13}
0x2e5…2f5 Line {l1=0x0e, l2=»0370 READ KAP$«, l3=0x0e}
0x2f5…30e Line {l1=0x17, l2=»0380 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x30e…31f Line {l1=0x0f, l2=»0390 EXEC WRITE«, l3=0x0f}
0x31f…32d Line {l1=0x0c, l2=»0400 NEXT II«, l3=0x0c}
0x32d…339 Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x339…34a Line {l1=0x0f, l2=»0420 PROC WRITE«, l3=0x0f}
0x34a…35e Line {l1=0x12, l2=»0430 OPEN UDFIL$,R«, l3=0x12}
0x35e…374 Line {l1=0x14, l2=»0440 GET UDFIL$:SYM$«, l3=0x14}
0x374…391 Line {l1=0x1b, l2=»0450 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x391…3a5 Line {l1=0x12, l2=»0460 LINES=LINES+1«, l3=0x12}
0x3a5…3ca Line {l1=0x23, l2=»0470 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x3ca…3d8 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x3d8…3e8 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x3e8…3fc Line {l1=0x12, l2=»0500 LINES=LINES+1«, l3=0x12}
0x3fc…411 Line {l1=0x13, l2=»0510 UNTIL LINES>60«, l3=0x13}
0x411…42d Line {l1=0x1a, l2=»0511 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x42d…43d Line {l1=0x0e, l2=»0512 PRINT " "«, l3=0x0e}
0x43d…459 Line {l1=0x1a, l2=»0513 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x459…466 Line {l1=0x0b, l2=»0514 PRINT «, l3=0x0b}
0x466…482 Line {l1=0x1a, l2=»0515 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x482…495 Line {l1=0x11, l2=»0516 FOR I=1 TO 3«, l3=0x11}
0x495…4a5 Line {l1=0x0e, l2=»0517 PRINT " "«, l3=0x0e}
0x4a5…4b2 Line {l1=0x0b, l2=»0518 NEXT I«, l3=0x0b}
0x4b2…4d3 Line {l1=0x1f, l2=»0520 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x4d3…4e5 Line {l1=0x10, l2=»0530 SIDE=SIDE+1«, l3=0x10}
0x4e5…4f5 Line {l1=0x0e, l2=»0540 PRINT " "«, l3=0x0e}
0x4f5…505 Line {l1=0x0e, l2=»0550 PRINT " "«, l3=0x0e}
0x505…515 Line {l1=0x0e, l2=»0560 PRINT " "«, l3=0x0e}
0x515…523 Line {l1=0x0c, l2=»0570 LINES=1«, l3=0x0c}
0x523…54b Line {l1=0x26, l2=»0580 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x54b…558 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x558…571 Line {l1=0x17, l2=»0600 PRINT TAB(10);SYM$«, l3=0x17}
0x571…587 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x587…597 Line {l1=0x0e, l2=»0620 ENDWHILE «, l3=0x0e}
0x597…5a7 Line {l1=0x0e, l2=»0630 PRINT " "«, l3=0x0e}
0x5a7…5b7 Line {l1=0x0e, l2=»0640 PRINT " "«, l3=0x0e}
0x5b7…5c7 Line {l1=0x0e, l2=»0650 PRINT " "«, l3=0x0e}
0x5c7…5db Line {l1=0x12, l2=»0660 LINES=LINES+3«, l3=0x12}
0x5db…5ee Line {l1=0x11, l2=»0670 CLOSE UDFIL$«, l3=0x11}
0x5ee…5fd Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x5fd…64a Line {l1=0x4b, l2=»0690 DATA "GR85INDH","GR85OPST","GR85FEJL","GR85MEDV","GR85PAPI","GR85VALG"«, l3=0x4b}
0x64a…68b Line {l1=0x3f, l2=»0700 DATA "GR85REGI","GR85SIKK","GR85SYS","GR85UDSK","GR85ÅRSL"«, l3=0x3f}
0x68b…6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x6a0…6c0 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 ┆ ┆
[…0x1…]