|
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: 4032 (0xfc0)
Types: TextFile
Notes: Mikados_K
Names: »FLYBILLE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FLYBILLE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FLYBILLE.K«
0010 // ----------------------- flybillet ------------------------ 0020 // Programmet udregner flypriser med tre forskellige rabatsystemer. 0030 // Normalpris: Computertown tur/retur 900 kr. 0040 // Rabatpris ved grupper over 10 personer: 80% af billet. 0050 // Familiepris: Voksen: 100 %, ægtefælle: 50 %, efterfølgende børn: 10 % 0060 // --------------------------------------------------------------------- 0070 CLEAR 0080 CURSOR 5,5 0090 PRINT " F L Y B I L L E T : K Ø B E N H A V N "; 0095 PRINT "- C O M P U T E R T O W N ." 0100 PRINT "_________________________________________"; 0105 PRINT "___________________________" 0110 CURSOR 1,9 0120 INPUT "Indtast antallet af passagerer: ":ANTAL 0130 CURSOR 1,11 0140 INPUT "Indtast familieforhold: (Hvis familie: 1, ellers 0) ":FAMILIE 0150 IF ANTAL<=10 AND FAMILIE=0 THEN EXEC ENKELTBILLET 0160 IF ANTAL>10 AND FAMILIE=0 THEN EXEC GRUPPEBILLET 0170 IF ANTAL>1 AND FAMILIE=1 THEN EXEC FAMILEBILLET 0180 // --------------------------------------------------------------------- 0190 PROC ENKELTBILLET 0200 PRINT 0210 PRINT "Der skal betales 900 kr. tur/retur Computertown for hver billet." 0220 PRINT USING "Ialt: #######.## kr.":900*ANTAL 0230 ENDPROC ENKELTBILLET 0240 // --------------------------------------------------------------------- 0250 PROC GRUPPEBILLET 0260 PRINT 0270 PRIS:=900*0.8 0280 PRINT USING "Der skal betales ######.## kr.":PRIS; 0281 PRINT " tur/retur Computertown for hver billet" 0290 PRINT 0300 PRINT USING "Ialt: #######.## kr.":PRIS*ANTAL 0310 ENDPROC GRUPPEBILLET 0320 // --------------------------------------------------------------------- 0330 PROC FAMILEBILLET 0340 PRINT 0350 IF ANTAL>14 THEN PRINT "Familien skal overveje at leje sit eget fly." 0360 PRINT 0370 PRIS:=900+900*0.5+(ANTAL-2)*900*0.1 0380 PRINT USING "Voksen: #######.## kr.":900 0390 PRINT USING "Ægtefælle: #######.## kr.":900*0.5 0400 IF ANTAL>2 THEN 0401 PRINT USING "Hvert barn skal betale: #######.## kr. ":900*0.1 0402 ENDIF 0410 PRINT 0420 PRINT USING "Familen skal betale:######.## tur/retur Computertown.":PRIS 0430 ENDPROC FAMILEBILLET
0x000…044 Line {l1=0x42, l2=»0010 // ----------------------- flybillet ------------------------«, l3=0x42}
0x044…08e Line {l1=0x48, l2=»0020 // Programmet udregner flypriser med tre forskellige rabatsystemer.«, l3=0x48}
0x08e…0c2 Line {l1=0x32, l2=»0030 // Normalpris: Computertown tur/retur 900 kr.«, l3=0x32}
0x0c2…103 Line {l1=0x3f, l2=»0040 // Rabatpris ved grupper over 10 personer: 80% af billet.«, l3=0x3f}
0x103…152 Line {l1=0x4d, l2=»0050 // Familiepris: Voksen: 100 %, ægtefælle: 50 %, efterfølgende børn: 10 %«, l3=0x4d}
0x152…1a1 Line {l1=0x4d, l2=»0060 // ---------------------------------------------------------------------«, l3=0x4d}
0x1a1…1ae Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x1ae…1bf Line {l1=0x0f, l2=»0080 CURSOR 5,5«, l3=0x0f}
0x1bf…1f8 Line {l1=0x37, l2=»0090 PRINT " F L Y B I L L E T : K Ø B E N H A V N ";«, l3=0x37}
0x1f8…222 Line {l1=0x28, l2=»0095 PRINT "- C O M P U T E R T O W N ."«, l3=0x28}
0x222…25b Line {l1=0x37, l2=»0100 PRINT "_________________________________________";«, l3=0x37}
0x25b…285 Line {l1=0x28, l2=»0105 PRINT "___________________________"«, l3=0x28}
0x285…296 Line {l1=0x0f, l2=»0110 CURSOR 1,9«, l3=0x0f}
0x296…2e0 Line {l1=0x48, l2=»0120 INPUT "Indtast antallet af passagerer: ":ANTAL«, l3=0x48}
0x2e0…2f2 Line {l1=0x10, l2=»0130 CURSOR 1,11«, l3=0x10}
0x2f2…33e Line {l1=0x4a, l2=»0140 INPUT "Indtast familieforhold: (Hvis familie: 1, ellers 0) ":FAMILIE«, l3=0x4a}
0x33e…376 Line {l1=0x36, l2=»0150 IF ANTAL<=10 AND FAMILIE=0 THEN EXEC ENKELTBILLET«, l3=0x36}
0x376…3ad Line {l1=0x35, l2=»0160 IF ANTAL>10 AND FAMILIE=0 THEN EXEC GRUPPEBILLET«, l3=0x35}
0x3ad…3e3 Line {l1=0x34, l2=»0170 IF ANTAL>1 AND FAMILIE=1 THEN EXEC FAMILEBILLET«, l3=0x34}
0x3e3…432 Line {l1=0x4d, l2=»0180 // ---------------------------------------------------------------------«, l3=0x4d}
0x432…44a Line {l1=0x16, l2=»0190 PROC ENKELTBILLET«, l3=0x16}
0x44a…457 Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x457…4a6 Line {l1=0x4d, l2=»0210 PRINT "Der skal betales 900 kr. tur/retur Computertown for hver billet."«, l3=0x4d}
0x4a6…4db Line {l1=0x33, l2=»0220 PRINT USING "Ialt: #######.## kr.":900*ANTAL«, l3=0x33}
0x4db…4f6 Line {l1=0x19, l2=»0230 ENDPROC ENKELTBILLET«, l3=0x19}
0x4f6…545 Line {l1=0x4d, l2=»0240 // ---------------------------------------------------------------------«, l3=0x4d}
0x545…55d Line {l1=0x16, l2=»0250 PROC GRUPPEBILLET«, l3=0x16}
0x55d…56a Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x56a…57e Line {l1=0x12, l2=»0270 PRIS:=900*0.8«, l3=0x12}
0x57e…5b7 Line {l1=0x37, l2=»0280 PRINT USING "Der skal betales ######.## kr.":PRIS;«, l3=0x37}
0x5b7…5ed Line {l1=0x34, l2=»0281 PRINT " tur/retur Computertown for hver billet"«, l3=0x34}
0x5ed…5fa Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x5fa…62e Line {l1=0x32, l2=»0300 PRINT USING "Ialt: #######.## kr.":PRIS*ANTAL«, l3=0x32}
0x62e…649 Line {l1=0x19, l2=»0310 ENDPROC GRUPPEBILLET«, l3=0x19}
0x649…698 Line {l1=0x4d, l2=»0320 // ---------------------------------------------------------------------«, l3=0x4d}
0x698…6b0 Line {l1=0x16, l2=»0330 PROC FAMILEBILLET«, l3=0x16}
0x6b0…6bd Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x6bd…709 Line {l1=0x4a, l2=»0350 IF ANTAL>14 THEN PRINT "Familien skal overveje at leje sit eget fly."«, l3=0x4a}
0x709…716 Line {l1=0x0b, l2=»0360 PRINT «, l3=0x0b}
0x716…740 Line {l1=0x28, l2=»0370 PRIS:=900+900*0.5+(ANTAL-2)*900*0.1«, l3=0x28}
0x740…781 Line {l1=0x3f, l2=»0380 PRINT USING "Voksen: #######.## kr.":900«, l3=0x3f}
0x781…7c6 Line {l1=0x43, l2=»0390 PRINT USING "Ægtefælle: #######.## kr.":900*0.5«, l3=0x43}
0x7c6…7dd Line {l1=0x15, l2=»0400 IF ANTAL>2 THEN «, l3=0x15}
0x7dd…823 Line {l1=0x44, l2=»0401 PRINT USING "Hvert barn skal betale: #######.## kr. ":900*0.1«, l3=0x44}
0x823…830 Line {l1=0x0b, l2=»0402 ENDIF «, l3=0x0b}
0x830…83d Line {l1=0x0b, l2=»0410 PRINT «, l3=0x0b}
0x83d…88c Line {l1=0x4d, l2=»0420 PRINT USING "Familen skal betale:######.## tur/retur Computertown.":PRIS«, l3=0x4d}
0x88c…8a7 Line {l1=0x19, l2=»0430 ENDPROC FAMILEBILLET«, l3=0x19}
0x8a7…8c0 00 00 2f 20 52 61 62 61 74 70 72 69 73 20 76 65 64 20 67 72 75 70 70 65 72 ┆ / Rabatpris ved grupper┆
0x8c0…8e0 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┆
[…0x37…]