|
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: 3008 (0xbc0)
Types: TextFile
Notes: Mikados_K
Names: »BUHLOUT.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »BUHLOUT.K«
0100 DIM OVER$(3,27) 0110 OVER$(1)=" " 0120 OVER$(2)=" " 0130 OVER$(3)=" " 0140 CLEAR 0150 INPUT "Antal eksemplarer :",AE 0160 REPEAT 0170 CLEAR 0180 PRINT "Overskrift" 0190 EDIT OVER$(1) 0200 EDIT OVER$(2) 0210 EDIT OVER$(3) 0220 I=0 0230 EDIT "Tilfreds 0 ",I 0240 UNTIL I=0 0250 DIM SYM$(57),KAP$(8) 0260 DIM UDFIL$(20) 0270 OUTPUT P 0290 FOR I=1 TO 9 0300 PRINT " " 0310 NEXT I 0315 FOR FIT=1 TO AE 0320 PRINT TAB(7);OVER$(1) 0330 PRINT " " 0340 PRINT TAB(7);OVER$(2) 0350 PRINT 0360 PRINT TAB(7);OVER$(3) 0370 FOR I=1 TO 3 0380 PRINT " " 0390 NEXT I 0400 LINES=0 0410 SIDE=1 0420 PRINT TAB(36);"-";SIDE;"-" 0430 SIDE=SIDE+1 0440 PRINT " " 0450 PRINT " " 0460 PRINT " " 0470 FOR II=1 TO 1 0480 READ KAP$ 0490 UDFIL$="DDE:"+KAP$ 0500 EXEC WRITE 0510 NEXT II 0520 REPEAT 0530 PRINT " " 0540 LINES=LINES+1 0550 UNTIL LINES>60 0560 RESTORE 0570 NEXT FIT 0580 STOP 0590 PROC WRITE 0600 OPEN UDFIL$,R 0610 GET UDFIL$:SYM$ 0620 WHILE STATUS(UDFIL$)=0 0630 LINES=LINES+1 0640 IF SYM$="%P" OR LINES>45 THEN 0650 REPEAT 0660 PRINT " " 0670 LINES=LINES+1 0680 UNTIL LINES>60 0690 PRINT TAB(7);OVER$(1) 0700 PRINT " " 0710 PRINT TAB(7);OVER$(2) 0720 PRINT 0730 PRINT TAB(7);OVER$(3) 0740 FOR I=1 TO 3 0750 PRINT " " 0760 NEXT I 0770 PRINT TAB(36);"-";SIDE;"-" 0780 SIDE=SIDE+1 0790 PRINT " " 0800 PRINT " " 0810 PRINT " " 0820 LINES=1 0830 IF SYM$="%P" THEN GET UDFIL$:SYM$ 0840 ENDIF 0850 PRINT TAB(10);SYM$ 0860 GET UDFIL$:SYM$ 0870 ENDWHILE 0880 PRINT " " 0890 PRINT " " 0900 PRINT " " 0910 LINES=LINES+3 0920 CLOSE UDFIL$ 0930 ENDPROC 0940 DATA "TILBUHL","HARD" 0950 DATA "BUDINDH","BUDOPST","BUDBUD","BUDPRIS" 0960 DATA "BUDREG","BUDRUTE"
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…0aa Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x0aa…0cf Line {l1=0x23, l2=»0150 INPUT "Antal eksemplarer :",AE«, l3=0x23}
0x0cf…0dd Line {l1=0x0c, l2=»0160 REPEAT «, l3=0x0c}
0x0dd…0ea Line {l1=0x0b, l2=»0170 CLEAR «, l3=0x0b}
0x0ea…103 Line {l1=0x17, l2=»0180 PRINT "Overskrift"«, l3=0x17}
0x103…117 Line {l1=0x12, l2=»0190 EDIT OVER$(1)«, l3=0x12}
0x117…12b Line {l1=0x12, l2=»0200 EDIT OVER$(2)«, l3=0x12}
0x12b…13f Line {l1=0x12, l2=»0210 EDIT OVER$(3)«, l3=0x12}
0x13f…149 Line {l1=0x08, l2=»0220 I=0«, l3=0x08}
0x149…164 Line {l1=0x19, l2=»0230 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x164…174 Line {l1=0x0e, l2=»0240 UNTIL I=0«, l3=0x0e}
0x174…18f Line {l1=0x19, l2=»0250 DIM SYM$(57),KAP$(8)«, l3=0x19}
0x18f…1a4 Line {l1=0x13, l2=»0260 DIM UDFIL$(20)«, l3=0x13}
0x1a4…1b3 Line {l1=0x0d, l2=»0270 OUTPUT P«, l3=0x0d}
0x1b3…1c6 Line {l1=0x11, l2=»0290 FOR I=1 TO 9«, l3=0x11}
0x1c6…1d6 Line {l1=0x0e, l2=»0300 PRINT " "«, l3=0x0e}
0x1d6…1e3 Line {l1=0x0b, l2=»0310 NEXT I«, l3=0x0b}
0x1e3…1f9 Line {l1=0x14, l2=»0315 FOR FIT=1 TO AE«, l3=0x14}
0x1f9…215 Line {l1=0x1a, l2=»0320 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x215…225 Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x225…241 Line {l1=0x1a, l2=»0340 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x241…24e Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x24e…26a Line {l1=0x1a, l2=»0360 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x26a…27d Line {l1=0x11, l2=»0370 FOR I=1 TO 3«, l3=0x11}
0x27d…28d Line {l1=0x0e, l2=»0380 PRINT " "«, l3=0x0e}
0x28d…29a Line {l1=0x0b, l2=»0390 NEXT I«, l3=0x0b}
0x29a…2a8 Line {l1=0x0c, l2=»0400 LINES=0«, l3=0x0c}
0x2a8…2b5 Line {l1=0x0b, l2=»0410 SIDE=1«, l3=0x0b}
0x2b5…2d6 Line {l1=0x1f, l2=»0420 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x2d6…2e8 Line {l1=0x10, l2=»0430 SIDE=SIDE+1«, l3=0x10}
0x2e8…2f8 Line {l1=0x0e, l2=»0440 PRINT " "«, l3=0x0e}
0x2f8…308 Line {l1=0x0e, l2=»0450 PRINT " "«, l3=0x0e}
0x308…318 Line {l1=0x0e, l2=»0460 PRINT " "«, l3=0x0e}
0x318…32c Line {l1=0x12, l2=»0470 FOR II=1 TO 1«, l3=0x12}
0x32c…33c Line {l1=0x0e, l2=»0480 READ KAP$«, l3=0x0e}
0x33c…355 Line {l1=0x17, l2=»0490 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x355…366 Line {l1=0x0f, l2=»0500 EXEC WRITE«, l3=0x0f}
0x366…374 Line {l1=0x0c, l2=»0510 NEXT II«, l3=0x0c}
0x374…382 Line {l1=0x0c, l2=»0520 REPEAT «, l3=0x0c}
0x382…392 Line {l1=0x0e, l2=»0530 PRINT " "«, l3=0x0e}
0x392…3a6 Line {l1=0x12, l2=»0540 LINES=LINES+1«, l3=0x12}
0x3a6…3bb Line {l1=0x13, l2=»0550 UNTIL LINES>60«, l3=0x13}
0x3bb…3ca Line {l1=0x0d, l2=»0560 RESTORE «, l3=0x0d}
0x3ca…3d9 Line {l1=0x0d, l2=»0570 NEXT FIT«, l3=0x0d}
0x3d9…3e5 Line {l1=0x0a, l2=»0580 STOP «, l3=0x0a}
0x3e5…3f6 Line {l1=0x0f, l2=»0590 PROC WRITE«, l3=0x0f}
0x3f6…40a Line {l1=0x12, l2=»0600 OPEN UDFIL$,R«, l3=0x12}
0x40a…420 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x420…43d Line {l1=0x1b, l2=»0620 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x43d…451 Line {l1=0x12, l2=»0630 LINES=LINES+1«, l3=0x12}
0x451…476 Line {l1=0x23, l2=»0640 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x476…484 Line {l1=0x0c, l2=»0650 REPEAT «, l3=0x0c}
0x484…494 Line {l1=0x0e, l2=»0660 PRINT " "«, l3=0x0e}
0x494…4a8 Line {l1=0x12, l2=»0670 LINES=LINES+1«, l3=0x12}
0x4a8…4bd Line {l1=0x13, l2=»0680 UNTIL LINES>60«, l3=0x13}
0x4bd…4d9 Line {l1=0x1a, l2=»0690 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x4d9…4e9 Line {l1=0x0e, l2=»0700 PRINT " "«, l3=0x0e}
0x4e9…505 Line {l1=0x1a, l2=»0710 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x505…512 Line {l1=0x0b, l2=»0720 PRINT «, l3=0x0b}
0x512…52e Line {l1=0x1a, l2=»0730 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x52e…541 Line {l1=0x11, l2=»0740 FOR I=1 TO 3«, l3=0x11}
0x541…551 Line {l1=0x0e, l2=»0750 PRINT " "«, l3=0x0e}
0x551…55e Line {l1=0x0b, l2=»0760 NEXT I«, l3=0x0b}
0x55e…57f Line {l1=0x1f, l2=»0770 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x57f…591 Line {l1=0x10, l2=»0780 SIDE=SIDE+1«, l3=0x10}
0x591…5a1 Line {l1=0x0e, l2=»0790 PRINT " "«, l3=0x0e}
0x5a1…5b1 Line {l1=0x0e, l2=»0800 PRINT " "«, l3=0x0e}
0x5b1…5c1 Line {l1=0x0e, l2=»0810 PRINT " "«, l3=0x0e}
0x5c1…5cf Line {l1=0x0c, l2=»0820 LINES=1«, l3=0x0c}
0x5cf…5f7 Line {l1=0x26, l2=»0830 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x5f7…604 Line {l1=0x0b, l2=»0840 ENDIF «, l3=0x0b}
0x604…61d Line {l1=0x17, l2=»0850 PRINT TAB(10);SYM$«, l3=0x17}
0x61d…633 Line {l1=0x14, l2=»0860 GET UDFIL$:SYM$«, l3=0x14}
0x633…643 Line {l1=0x0e, l2=»0870 ENDWHILE «, l3=0x0e}
0x643…653 Line {l1=0x0e, l2=»0880 PRINT " "«, l3=0x0e}
0x653…663 Line {l1=0x0e, l2=»0890 PRINT " "«, l3=0x0e}
0x663…673 Line {l1=0x0e, l2=»0900 PRINT " "«, l3=0x0e}
0x673…687 Line {l1=0x12, l2=»0910 LINES=LINES+3«, l3=0x12}
0x687…69a Line {l1=0x11, l2=»0920 CLOSE UDFIL$«, l3=0x11}
0x69a…6a9 Line {l1=0x0d, l2=»0930 ENDPROC «, l3=0x0d}
0x6a9…6c5 Line {l1=0x1a, l2=»0940 DATA "TILBUHL","HARD"«, l3=0x1a}
0x6c5…6f7 Line {l1=0x30, l2=»0950 DATA "BUDINDH","BUDOPST","BUDBUD","BUDPRIS"«, l3=0x30}
0x6f7…715 Line {l1=0x1c, l2=»0960 DATA "BUDREG","BUDRUTE"«, l3=0x1c}
0x715…720 00 00 22 42 55 44 52 45 47 22 2c ┆ "BUDREG",┆
0x720…740 22 42 55 44 52 55 54 45 22 1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆"BUDRUTE" ┆
0x740…760 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 ┆ ┆
[…0x23…]