|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »REJSEB2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REJSEB2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REJSEB2.K«
0100 // ----------------------- Rejsebureau-2 ---------------------
0110 // Programmet udskriver pris og restantal for destinationer i
0120 // Europa.
0130 //
0140 INTEGER TRUE,FALSE,ANTALREJSEMÅL,I,ANTAL
0150 FALSE:=0;TRUE:=1
0160 DIM REJSEMÅL$ OF 30,DESTINATION$ OF 30,ØNSKE$ OF 3,S$ OF 1
0170 EXEC MENU
0180 //
0190 PROC MENU
0200 RESTORE
0210 CLEAR
0220 CURSOR 1,3
0230 PRINT " R E J S E B U R E A U 'Den gyldne sol' "
0240 CURSOR 1,4
0250 PRINT "-------------------------------------------------"
0260 CURSOR 1,10
0270 PRINT "Vi har følgende destinationer: "
0280 CURSOR 1,11
0290 PRINT "------------------------------ "
0300 CURSOR 1,13
0310 PRINT "London - Paris - Oslo - Stockholm - Madrid - Helsingfors"
0320 PRINT "Rom - Moskva - Bern - Amsterdam - Bruxelles - Lissabon "
0330 CURSOR 1,18
0340 INPUT "Hvorhen ønsker De at rejse? ":REJSEMÅL$
0350 //
0360 FUNDET:=FALSE
0370 OPEN "systime:rejsefil",W
0380 GET "systime:rejsefil":DESTINATION$,PRIS,ANTAL
0390 WHILE NOT EOF("systime:rejsefil") DO
0400 IF DESTINATION$=REJSEMÅL$ THEN
0410 CLEAR
0420 EXEC UDSKRIFT
0430 EXEC PRINTER
0440 FUNDET:=TRUE
0450 ENDIF
0460 GET "systime:rejsefil":DESTINATION$,PRIS,ANTAL
0470 ENDWHILE
0480 CLOSE
0490 IF NOT FUNDET THEN EXEC FEJLSKRIFT
0500 ENDPROC MENU
0510 //
0520 PROC FEJLSKRIFT
0530 CLEAR
0540 CURSOR 1,10
0550 PRINT "Vi har desværre ingen rejser til: ";REJSEMÅL$
0560 CURSOR 1,20
0570 INPUT "Har De ikke lyst til at rejse et andet sted hen? ":ØNSKE$
0580 IF ØNSKE$ IN "JA,ja" THEN
0590 EXEC MENU
0600 ELSE
0610 END
0620 ENDIF
0630 ENDPROC FEJLSKRIFT
0640 //
0650 PROC UDSKRIFT
0660 CURSOR 1,6
0670 PRINT " R e j d e b u r e a u 'Den gyldne sol' "
0680 CURSOR 1,7
0690 PRINT "-----------------------------------------------"
0700 CURSOR 1,10
0710 PRINT "Vi kan tilbyde Dem en rejse til: "
0720 CURSOR 1,12
0730 PRINT "Rejsemål: ";DESTINATION$
0740 CURSOR 1,13
0750 PRINT USING "Pris: ########.## kr.":PRIS
0760 CURSOR 1,14
0770 PRINT "Restpladser: ";ANTAL
0780 ENDPROC UDSKRIFT
0790 //
0800 PROC PRINTER
0810 SELECT OUTPUT "T"
0830 CURSOR 1,22
0840 INPUT "Ønskes udskrift på printer? (j/n) ":S$
0850 IF S$="J" OR S$="j" THEN
0860 SELECT OUTPUT "P"
0870 IF STATUS("P")=1 THEN
0880 CURSOR 1,22
0890 PRINT "<Z>Printer er reserveret af anden bruger,"
0900 INPUT " Skal der ventes på at den bliver ledig? (j/n) ":S$
0910 IF S$="J" OR S$="j" THEN
0920 CURSOR 1,23
0930 PRINT "<Z>Der ventes på at printeren bliver ledig"
0940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
0950 ELSE
0960 SELECT OUTPUT "T"
0970 ENDIF
0980 ENDIF
0990 EXEC UDSKRIFT
1000 ENDIF
1010 SELECT OUTPUT "T"
1020 CURSOR 1,21
1030 PRINT " "
1040 PRINT "Så slutter vi for i dag . "
1050 END
1080 ENDPROC PRINTER
1090 //
1100 PROC EOF(FNAVN$)
1110 EOF:=(STATUS(FNAVN$)=19)
1120 ENDPROC EOF
0x0000…0045 Line {l1=0x43, l2=»0100 // ----------------------- Rejsebureau-2 ---------------------«, l3=0x43}
0x0045…0089 Line {l1=0x42, l2=»0110 // Programmet udskriver pris og restantal for destinationer i«, l3=0x42}
0x0089…009a Line {l1=0x0f, l2=»0120 // Europa.«, l3=0x0f}
0x009a…00a4 Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x00a4…00d3 Line {l1=0x2d, l2=»0140 INTEGER TRUE,FALSE,ANTALREJSEMÅL,I,ANTAL«, l3=0x2d}
0x00d3…00ea Line {l1=0x15, l2=»0150 FALSE:=0;TRUE:=1«, l3=0x15}
0x00ea…012b Line {l1=0x3f, l2=»0160 DIM REJSEMÅL$ OF 30,DESTINATION$ OF 30,ØNSKE$ OF 3,S$ OF 1«, l3=0x3f}
0x012b…013b Line {l1=0x0e, l2=»0170 EXEC MENU«, l3=0x0e}
0x013b…0145 Line {l1=0x08, l2=»0180 // «, l3=0x08}
0x0145…0155 Line {l1=0x0e, l2=»0190 PROC MENU«, l3=0x0e}
0x0155…0164 Line {l1=0x0d, l2=»0200 RESTORE «, l3=0x0d}
0x0164…0171 Line {l1=0x0b, l2=»0210 CLEAR «, l3=0x0b}
0x0171…0182 Line {l1=0x0f, l2=»0220 CURSOR 1,3«, l3=0x0f}
0x0182…01c2 Line {l1=0x3e, l2=»0230 PRINT " R E J S E B U R E A U 'Den gyldne sol' "«, l3=0x3e}
0x01c2…01d3 Line {l1=0x0f, l2=»0240 CURSOR 1,4«, l3=0x0f}
0x01d3…0213 Line {l1=0x3e, l2=»0250 PRINT "-------------------------------------------------"«, l3=0x3e}
0x0213…0225 Line {l1=0x10, l2=»0260 CURSOR 1,10«, l3=0x10}
0x0225…0257 Line {l1=0x30, l2=»0270 PRINT "Vi har følgende destinationer: "«, l3=0x30}
0x0257…0269 Line {l1=0x10, l2=»0280 CURSOR 1,11«, l3=0x10}
0x0269…029b Line {l1=0x30, l2=»0290 PRINT "------------------------------ "«, l3=0x30}
0x029b…02ad Line {l1=0x10, l2=»0300 CURSOR 1,13«, l3=0x10}
0x02ad…02f4 Line {l1=0x45, l2=»0310 PRINT "London - Paris - Oslo - Stockholm - Madrid - Helsingfors"«, l3=0x45}
0x02f4…033a Line {l1=0x44, l2=»0320 PRINT "Rom - Moskva - Bern - Amsterdam - Bruxelles - Lissabon "«, l3=0x44}
0x033a…034c Line {l1=0x10, l2=»0330 CURSOR 1,18«, l3=0x10}
0x034c…0383 Line {l1=0x35, l2=»0340 INPUT "Hvorhen ønsker De at rejse? ":REJSEMÅL$«, l3=0x35}
0x0383…038d Line {l1=0x08, l2=»0350 // «, l3=0x08}
0x038d…03a1 Line {l1=0x12, l2=»0360 FUNDET:=FALSE«, l3=0x12}
0x03a1…03c1 Line {l1=0x1e, l2=»0370 OPEN "systime:rejsefil",W«, l3=0x1e}
0x03c1…03f6 Line {l1=0x33, l2=»0380 GET "systime:rejsefil":DESTINATION$,PRIS,ANTAL«, l3=0x33}
0x03f6…0422 Line {l1=0x2a, l2=»0390 WHILE NOT EOF("systime:rejsefil") DO «, l3=0x2a}
0x0422…0448 Line {l1=0x24, l2=»0400 IF DESTINATION$=REJSEMÅL$ THEN «, l3=0x24}
0x0448…0455 Line {l1=0x0b, l2=»0410 CLEAR «, l3=0x0b}
0x0455…0469 Line {l1=0x12, l2=»0420 EXEC UDSKRIFT«, l3=0x12}
0x0469…047c Line {l1=0x11, l2=»0430 EXEC PRINTER«, l3=0x11}
0x047c…048f Line {l1=0x11, l2=»0440 FUNDET:=TRUE«, l3=0x11}
0x048f…049c Line {l1=0x0b, l2=»0450 ENDIF «, l3=0x0b}
0x049c…04d1 Line {l1=0x33, l2=»0460 GET "systime:rejsefil":DESTINATION$,PRIS,ANTAL«, l3=0x33}
0x04d1…04e1 Line {l1=0x0e, l2=»0470 ENDWHILE «, l3=0x0e}
0x04e1…04ee Line {l1=0x0b, l2=»0480 CLOSE «, l3=0x0b}
0x04ee…0517 Line {l1=0x27, l2=»0490 IF NOT FUNDET THEN EXEC FEJLSKRIFT«, l3=0x27}
0x0517…052a Line {l1=0x11, l2=»0500 ENDPROC MENU«, l3=0x11}
0x052a…0534 Line {l1=0x08, l2=»0510 // «, l3=0x08}
0x0534…054a Line {l1=0x14, l2=»0520 PROC FEJLSKRIFT«, l3=0x14}
0x054a…0557 Line {l1=0x0b, l2=»0530 CLEAR «, l3=0x0b}
0x0557…0569 Line {l1=0x10, l2=»0540 CURSOR 1,10«, l3=0x10}
0x0569…05a5 Line {l1=0x3a, l2=»0550 PRINT "Vi har desværre ingen rejser til: ";REJSEMÅL$«, l3=0x3a}
0x05a5…05b7 Line {l1=0x10, l2=»0560 CURSOR 1,20«, l3=0x10}
0x05b7…05fe Line {l1=0x45, l2=»0570 INPUT "Har De ikke lyst til at rejse et andet sted hen? ":ØNSKE$«, l3=0x45}
0x05fe…061f Line {l1=0x1f, l2=»0580 IF ØNSKE$ IN "JA,ja" THEN «, l3=0x1f}
0x061f…062f Line {l1=0x0e, l2=»0590 EXEC MENU«, l3=0x0e}
0x062f…063b Line {l1=0x0a, l2=»0600 ELSE «, l3=0x0a}
0x063b…0646 Line {l1=0x09, l2=»0610 END «, l3=0x09}
0x0646…0653 Line {l1=0x0b, l2=»0620 ENDIF «, l3=0x0b}
0x0653…066c Line {l1=0x17, l2=»0630 ENDPROC FEJLSKRIFT«, l3=0x17}
0x066c…0676 Line {l1=0x08, l2=»0640 // «, l3=0x08}
0x0676…068a Line {l1=0x12, l2=»0650 PROC UDSKRIFT«, l3=0x12}
0x068a…069b Line {l1=0x0f, l2=»0660 CURSOR 1,6«, l3=0x0f}
0x069b…06d9 Line {l1=0x3c, l2=»0670 PRINT " R e j d e b u r e a u 'Den gyldne sol' "«, l3=0x3c}
0x06d9…06ea Line {l1=0x0f, l2=»0680 CURSOR 1,7«, l3=0x0f}
0x06ea…0728 Line {l1=0x3c, l2=»0690 PRINT "-----------------------------------------------"«, l3=0x3c}
0x0728…073a Line {l1=0x10, l2=»0700 CURSOR 1,10«, l3=0x10}
0x073a…0778 Line {l1=0x3c, l2=»0710 PRINT "Vi kan tilbyde Dem en rejse til: "«, l3=0x3c}
0x0778…078a Line {l1=0x10, l2=»0720 CURSOR 1,12«, l3=0x10}
0x078a…07c7 Line {l1=0x3b, l2=»0730 PRINT "Rejsemål: ";DESTINATION$«, l3=0x3b}
0x07c7…07d9 Line {l1=0x10, l2=»0740 CURSOR 1,13«, l3=0x10}
0x07d9…081f Line {l1=0x44, l2=»0750 PRINT USING "Pris: ########.## kr.":PRIS«, l3=0x44}
0x081f…0831 Line {l1=0x10, l2=»0760 CURSOR 1,14«, l3=0x10}
0x0831…0867 Line {l1=0x34, l2=»0770 PRINT "Restpladser: ";ANTAL«, l3=0x34}
0x0867…087e Line {l1=0x15, l2=»0780 ENDPROC UDSKRIFT«, l3=0x15}
0x087e…0888 Line {l1=0x08, l2=»0790 // «, l3=0x08}
0x0888…089b Line {l1=0x11, l2=»0800 PROC PRINTER«, l3=0x11}
0x089b…08b3 Line {l1=0x16, l2=»0810 SELECT OUTPUT "T"«, l3=0x16}
0x08b3…08c5 Line {l1=0x10, l2=»0830 CURSOR 1,22«, l3=0x10}
0x08c5…08fd Line {l1=0x36, l2=»0840 INPUT "Ønskes udskrift på printer? (j/n) ":S$«, l3=0x36}
0x08fd…091d Line {l1=0x1e, l2=»0850 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x091d…0935 Line {l1=0x16, l2=»0860 SELECT OUTPUT "P"«, l3=0x16}
0x0935…0952 Line {l1=0x1b, l2=»0870 IF STATUS("P")=1 THEN «, l3=0x1b}
0x0952…0964 Line {l1=0x10, l2=»0880 CURSOR 1,22«, l3=0x10}
0x0964…099c Line {l1=0x36, l2=»0890 PRINT "<Z>Printer er reserveret af anden bruger,"«, l3=0x36}
0x099c…09df Line {l1=0x41, l2=»0900 INPUT " Skal der ventes på at den bliver ledig? (j/n) ":S$«, l3=0x41}
0x09df…09ff Line {l1=0x1e, l2=»0910 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x09ff…0a11 Line {l1=0x10, l2=»0920 CURSOR 1,23«, l3=0x10}
0x0a11…0a4a Line {l1=0x37, l2=»0930 PRINT "<Z>Der ventes på at printeren bliver ledig"«, l3=0x37}
0x0a4a…0a79 Line {l1=0x2d, l2=»0940 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x0a79…0a85 Line {l1=0x0a, l2=»0950 ELSE «, l3=0x0a}
0x0a85…0a9d Line {l1=0x16, l2=»0960 SELECT OUTPUT "T"«, l3=0x16}
0x0a9d…0aaa Line {l1=0x0b, l2=»0970 ENDIF «, l3=0x0b}
0x0aaa…0ab7 Line {l1=0x0b, l2=»0980 ENDIF «, l3=0x0b}
0x0ab7…0acb Line {l1=0x12, l2=»0990 EXEC UDSKRIFT«, l3=0x12}
0x0acb…0ad8 Line {l1=0x0b, l2=»1000 ENDIF «, l3=0x0b}
0x0ad8…0af0 Line {l1=0x16, l2=»1010 SELECT OUTPUT "T"«, l3=0x16}
0x0af0…0b02 Line {l1=0x10, l2=»1020 CURSOR 1,21«, l3=0x10}
0x0b02…0b38 Line {l1=0x34, l2=»1030 PRINT " "«, l3=0x34}
0x0b38…0b76 Line {l1=0x3c, l2=»1040 PRINT "Så slutter vi for i dag . "«, l3=0x3c}
0x0b76…0b81 Line {l1=0x09, l2=»1050 END «, l3=0x09}
0x0b81…0b97 Line {l1=0x14, l2=»1080 ENDPROC PRINTER«, l3=0x14}
0x0b97…0ba1 Line {l1=0x08, l2=»1090 // «, l3=0x08}
0x0ba1…0bb8 Line {l1=0x15, l2=»1100 PROC EOF(FNAVN$)«, l3=0x15}
0x0bb8…0bd7 Line {l1=0x1d, l2=»1110 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x0bd7…0be9 Line {l1=0x10, l2=»1120 ENDPROC EOF«, l3=0x10}
0x0be9…0c00 00 00 2f 2f 20 08 08 30 39 33 30 20 2f 2f 20 08 19 30 39 34 30 20 44 ┆ // 0930 // 0940 D┆
0x0c00…0c20 41 54 41 20 22 4c 6f 6e 64 6f 6e 22 2c 32 32 33 33 2c 36 19 19 30 39 35 30 20 44 41 54 41 20 22 ┆ATA "London",2233,6 0950 DATA "┆
0x0c20…0c40 50 61 72 69 73 22 2c 32 30 30 30 2c 31 32 19 17 30 39 36 30 20 44 41 54 41 20 22 4f 73 6c 6f 22 ┆Paris",2000,12 0960 DATA "Oslo"┆
0x0c40…0c60 2c 31 32 30 30 2c 35 17 1c 30 39 37 30 20 44 41 54 41 20 22 53 74 6f 63 6b 68 6f 6c 6d 22 2c 31 ┆,1200,5 0970 DATA "Stockholm",1┆
0x0c60…0c80 34 30 30 2c 37 1c 19 30 39 38 30 20 44 41 54 41 20 22 4d 61 64 72 69 64 22 2c 33 30 30 30 2c 38 ┆400,7 0980 DATA "Madrid",3000,8┆
0x0c80…0ca0 19 1f 30 39 39 30 20 44 41 54 41 20 22 48 65 6c 73 69 6e 67 66 6f 72 73 22 2c 31 36 30 30 2c 31 ┆ 0990 DATA "Helsingfors",1600,1┆
0x0ca0…0cc0 34 1f 17 31 30 30 30 20 44 41 54 41 20 22 52 6f 6d 22 2c 33 30 30 30 2c 31 35 17 19 31 30 31 30 ┆4 1000 DATA "Rom",3000,15 1010┆
0x0cc0…0ce0 20 44 41 54 41 20 22 4d 6f 73 6b 76 61 22 2c 32 36 30 30 2c 38 19 17 31 30 32 30 20 44 41 54 41 ┆ DATA "Moskva",2600,8 1020 DATA┆
0x0ce0…0d00 20 22 42 65 72 6e 22 2c 31 36 34 30 2c 35 17 1b 31 30 33 30 20 44 41 54 41 20 22 41 6d 73 74 65 ┆ "Bern",1640,5 1030 DATA "Amste┆
0x0d00…0d20 72 64 61 6d 22 2c 37 30 30 2c 34 1b 1b 31 30 34 30 20 44 41 54 41 20 22 42 72 75 78 65 6c 6c 65 ┆rdam",700,4 1040 DATA "Bruxelle┆
0x0d20…0d40 73 22 2c 39 30 30 2c 35 1b 1b 31 30 35 30 20 44 41 54 41 20 22 4c 69 73 73 61 62 6f 6e 22 2c 33 ┆s",900,5 1050 DATA "Lissabon",3┆
0x0d40…0d60 34 30 30 2c 36 1b 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 ┆400,6 cccccccccccccccccccccccc┆
0x0d60…0d80 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┆
[…0x32…]