|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »BØDE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BØDE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BØDE.K«
0010 // -------------------------- fartbøde -------------------------- 0020 CLEAR 0030 DIM FORM$ OF 60 0040 INPUT "Indtast hastighedsgrænsen: ":GRÆNSE 0050 GRÆNSE:=(GRÆNSE+5) DIV 10*10 0060 FORM$:=" ##### -##### ####.# -####.# #####" 0070 CLEAR 0080 PRINT 0090 PRINT "Bødestørrelse ved overskridelse af hastighedsgrænsen: "; 0100 PRINT USING "####.# km/t":GRÆNSE 0110 PRINT 0120 PRINT " Hastighed Overskridelse i % Bøde i kr. " 0130 PRINT 0140 PRINT USING FORM$:GRÆNSE,GRÆNSE+20,0,20/GRÆNSE*100,250 0150 BØDE:=250 0160 FOR I:=GRÆNSE+20 TO 2*GRÆNSE-5 STEP 5 DO 0170 IF I MOD 10=0 THEN BØDE:=BØDE+150 0180 IF I MOD 10=5 THEN BØDE:=BØDE+125 0190 PCT1:=(I-GRÆNSE)/GRÆNSE*100 0200 PCT2:=(I+5-GRÆNSE)/GRÆNSE*100 0210 PRINT USING FORM$:I,I+5,PCT1,PCT2,BØDE 0220 NEXT I
0x000…048 Line {l1=0x46, l2=»0010 // -------------------------- fartbøde --------------------------«, l3=0x46}
0x048…055 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x055…06b Line {l1=0x14, l2=»0030 DIM FORM$ OF 60«, l3=0x14}
0x06b…09e Line {l1=0x31, l2=»0040 INPUT "Indtast hastighedsgrænsen: ":GRÆNSE«, l3=0x31}
0x09e…0c1 Line {l1=0x21, l2=»0050 GRÆNSE:=(GRÆNSE+5) DIV 10*10«, l3=0x21}
0x0c1…107 Line {l1=0x44, l2=»0060 FORM$:=" ##### -##### ####.# -####.# #####"«, l3=0x44}
0x107…114 Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x114…121 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x121…169 Line {l1=0x46, l2=»0090 PRINT "Bødestørrelse ved overskridelse af hastighedsgrænsen: ";«, l3=0x46}
0x169…190 Line {l1=0x25, l2=»0100 PRINT USING "####.# km/t":GRÆNSE«, l3=0x25}
0x190…19d Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x19d…1ea Line {l1=0x4b, l2=»0120 PRINT " Hastighed Overskridelse i % Bøde i kr. "«, l3=0x4b}
0x1ea…1f7 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x1f7…234 Line {l1=0x3b, l2=»0140 PRINT USING FORM$:GRÆNSE,GRÆNSE+20,0,20/GRÆNSE*100,250«, l3=0x3b}
0x234…244 Line {l1=0x0e, l2=»0150 BØDE:=250«, l3=0x0e}
0x244…274 Line {l1=0x2e, l2=»0160 FOR I:=GRÆNSE+20 TO 2*GRÆNSE-5 STEP 5 DO «, l3=0x2e}
0x274…29c Line {l1=0x26, l2=»0170 IF I MOD 10=0 THEN BØDE:=BØDE+150«, l3=0x26}
0x29c…2c4 Line {l1=0x26, l2=»0180 IF I MOD 10=5 THEN BØDE:=BØDE+125«, l3=0x26}
0x2c4…2e6 Line {l1=0x20, l2=»0190 PCT1:=(I-GRÆNSE)/GRÆNSE*100«, l3=0x20}
0x2e6…30a Line {l1=0x22, l2=»0200 PCT2:=(I+5-GRÆNSE)/GRÆNSE*100«, l3=0x22}
0x30a…337 Line {l1=0x2b, l2=»0210 PRINT USING FORM$:I,I+5,PCT1,PCT2,BØDE«, l3=0x2b}
0x337…344 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x344…360 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccc┆
0x360…380 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x33…]