|
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 - metrics - download
Length: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »BØDE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BØDE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BØDE«
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