|
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: »REJSEBUR.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REJSEBUR.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REJSEBUR.K«
0010 // ----------------------- Rejsebureau ---------------------
0020 // Programmet udskriver pris og restantal for destinationer i
0030 // Europa.
0040 //
0042 INTEGER TRUE,FALSE,ANTALREJSEMÅL,I,ANTAL
0043 FALSE:=0;TRUE:=1
0050 DIM REJSEMÅL$ OF 30,DESTINATION$ OF 30,ØNSKE$ OF 3,S$ OF 1
0060 EXEC MENU
0070 //
0080 PROC MENU
0090 RESTORE
0110 CLEAR
0120 CURSOR 1,3
0130 PRINT " R E J S E B U R E A U 'Den gyldne sol' "
0140 CURSOR 1,4
0150 PRINT "-------------------------------------------------"
0160 CURSOR 1,10
0170 PRINT "Vi har følgende destinationer: "
0180 CURSOR 1,11
0190 PRINT "------------------------------ "
0200 CURSOR 1,13
0210 PRINT "London - Paris - Oslo - Stockholm - Madrid - Helsingfors"
0220 PRINT "Rom - Moskva - Bern - Amsterdam - Bruxelles - Lissabon "
0230 CURSOR 1,18
0240 INPUT "Hvorhen ønsker De at rejse? ":REJSEMÅL$
0250 //
0260 FUNDET:=FALSE
0270 RESTORE
0280 READ ANTALREJSEMÅL
0290 I:=1
0291 WHILE I<=ANTALREJSEMÅL DO
0300 READ DESTINATION$,PRIS,ANTAL
0310 IF DESTINATION$=REJSEMÅL$ THEN
0320 CLEAR
0330 EXEC UDSKRIFT
0340 EXEC PRINTER
0350 FUNDET:=TRUE
0360 ENDIF
0370 I:=I+1
0380 ENDWHILE
0400 IF NOT FUNDET THEN EXEC FEJLSKRIFT
0420 ENDPROC MENU
0430 //
0440 PROC FEJLSKRIFT
0450 CLEAR
0460 CURSOR 1,10
0470 PRINT "Vi har desværre ingen rejser til: ";REJSEMÅL$
0480 CURSOR 1,20
0490 INPUT "Har De ikke lyst til at rejse et andet sted hen? ":ØNSKE$
0500 IF ØNSKE$ IN "JA,ja" THEN
0510 EXEC MENU
0520 ELSE
0530 END
0540 ENDIF
0550 ENDPROC FEJLSKRIFT
0560 //
0570 PROC UDSKRIFT
0580 CURSOR 1,6
0590 PRINT " R e j d e b u r e a u 'Den gyldne sol' "
0600 CURSOR 1,7
0610 PRINT "-----------------------------------------------"
0620 CURSOR 1,10
0630 PRINT "Vi kan tilbyde Dem en rejse til: "
0640 CURSOR 1,12
0650 PRINT "Rejsemål: ";DESTINATION$
0660 CURSOR 1,13
0670 PRINT USING "Pris: ########.## kr.":PRIS
0680 CURSOR 1,14
0690 PRINT "Restpladser: ";ANTAL
0700 ENDPROC UDSKRIFT
0710 //
0720 PROC PRINTER
0730 SELECT OUTPUT "T"
0740 REPEAT
0750 CURSOR 1,22
0760 INPUT "Ønskes udskrift på printer? (j/n) ":S$
0800 IF S$="J" OR S$="j" THEN
0810 SELECT OUTPUT "P"
0811 IF STATUS("P")=1 THEN
0812 CURSOR 1,22
0813 PRINT "<Z>Printer er reserveret af anden bruger,"
0814 INPUT " Skal der ventes på at den bliver ledig? (j/n) ":S$
0815 IF S$="J" OR S$="j" THEN
0816 CURSOR 1,23
0817 PRINT "<Z>Der ventes på at printeren bliver ledig"
0818 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"
0819 ELSE
0820 SELECT OUTPUT "T"
0821 ENDIF
0822 ENDIF
0823 EXEC UDSKRIFT
0825 ENDIF
0830 SELECT OUTPUT "T"
0840 CURSOR 1,21
0850 PRINT " "
0860 PRINT "Så slutter vi for i dag . "
0870 END
0890 UNTIL S$ IN "nN"
0900 SELECT OUTPUT "T"
0910 ENDPROC PRINTER
0920 //
0925 // antalrejsemål = 12
0930 DATA 12
0940 DATA "London",2233,6
0950 DATA "Paris",2000,12
0960 DATA "Oslo",1200,5
0970 DATA "Stockholm",1400,7
0980 DATA "Madrid",3000,8
0990 DATA "Helsingfors",1600,14
1000 DATA "Rom",3000,15
1010 DATA "Moskva",2600,8
1020 DATA "Bern",1640,5
1030 DATA "Amsterdam",700,4
1040 DATA "Bruxelles",900,5
1050 DATA "Lissabon",3400,6
0x0000…0043 Line {l1=0x41, l2=»0010 // ----------------------- Rejsebureau ---------------------«, l3=0x41}
0x0043…0087 Line {l1=0x42, l2=»0020 // Programmet udskriver pris og restantal for destinationer i«, l3=0x42}
0x0087…0098 Line {l1=0x0f, l2=»0030 // Europa.«, l3=0x0f}
0x0098…00a2 Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x00a2…00d1 Line {l1=0x2d, l2=»0042 INTEGER TRUE,FALSE,ANTALREJSEMÅL,I,ANTAL«, l3=0x2d}
0x00d1…00e8 Line {l1=0x15, l2=»0043 FALSE:=0;TRUE:=1«, l3=0x15}
0x00e8…0129 Line {l1=0x3f, l2=»0050 DIM REJSEMÅL$ OF 30,DESTINATION$ OF 30,ØNSKE$ OF 3,S$ OF 1«, l3=0x3f}
0x0129…0139 Line {l1=0x0e, l2=»0060 EXEC MENU«, l3=0x0e}
0x0139…0143 Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x0143…0153 Line {l1=0x0e, l2=»0080 PROC MENU«, l3=0x0e}
0x0153…0162 Line {l1=0x0d, l2=»0090 RESTORE «, l3=0x0d}
0x0162…016f Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x016f…0180 Line {l1=0x0f, l2=»0120 CURSOR 1,3«, l3=0x0f}
0x0180…01c0 Line {l1=0x3e, l2=»0130 PRINT " R E J S E B U R E A U 'Den gyldne sol' "«, l3=0x3e}
0x01c0…01d1 Line {l1=0x0f, l2=»0140 CURSOR 1,4«, l3=0x0f}
0x01d1…0211 Line {l1=0x3e, l2=»0150 PRINT "-------------------------------------------------"«, l3=0x3e}
0x0211…0223 Line {l1=0x10, l2=»0160 CURSOR 1,10«, l3=0x10}
0x0223…0255 Line {l1=0x30, l2=»0170 PRINT "Vi har følgende destinationer: "«, l3=0x30}
0x0255…0267 Line {l1=0x10, l2=»0180 CURSOR 1,11«, l3=0x10}
0x0267…0299 Line {l1=0x30, l2=»0190 PRINT "------------------------------ "«, l3=0x30}
0x0299…02ab Line {l1=0x10, l2=»0200 CURSOR 1,13«, l3=0x10}
0x02ab…02f2 Line {l1=0x45, l2=»0210 PRINT "London - Paris - Oslo - Stockholm - Madrid - Helsingfors"«, l3=0x45}
0x02f2…0338 Line {l1=0x44, l2=»0220 PRINT "Rom - Moskva - Bern - Amsterdam - Bruxelles - Lissabon "«, l3=0x44}
0x0338…034a Line {l1=0x10, l2=»0230 CURSOR 1,18«, l3=0x10}
0x034a…0381 Line {l1=0x35, l2=»0240 INPUT "Hvorhen ønsker De at rejse? ":REJSEMÅL$«, l3=0x35}
0x0381…038b Line {l1=0x08, l2=»0250 // «, l3=0x08}
0x038b…039f Line {l1=0x12, l2=»0260 FUNDET:=FALSE«, l3=0x12}
0x039f…03ae Line {l1=0x0d, l2=»0270 RESTORE «, l3=0x0d}
0x03ae…03c7 Line {l1=0x17, l2=»0280 READ ANTALREJSEMÅL«, l3=0x17}
0x03c7…03d2 Line {l1=0x09, l2=»0290 I:=1«, l3=0x09}
0x03d2…03f3 Line {l1=0x1f, l2=»0291 WHILE I<=ANTALREJSEMÅL DO «, l3=0x1f}
0x03f3…0416 Line {l1=0x21, l2=»0300 READ DESTINATION$,PRIS,ANTAL«, l3=0x21}
0x0416…043c Line {l1=0x24, l2=»0310 IF DESTINATION$=REJSEMÅL$ THEN «, l3=0x24}
0x043c…0449 Line {l1=0x0b, l2=»0320 CLEAR «, l3=0x0b}
0x0449…045d Line {l1=0x12, l2=»0330 EXEC UDSKRIFT«, l3=0x12}
0x045d…0470 Line {l1=0x11, l2=»0340 EXEC PRINTER«, l3=0x11}
0x0470…0483 Line {l1=0x11, l2=»0350 FUNDET:=TRUE«, l3=0x11}
0x0483…0490 Line {l1=0x0b, l2=»0360 ENDIF «, l3=0x0b}
0x0490…049d Line {l1=0x0b, l2=»0370 I:=I+1«, l3=0x0b}
0x049d…04ad Line {l1=0x0e, l2=»0380 ENDWHILE «, l3=0x0e}
0x04ad…04d6 Line {l1=0x27, l2=»0400 IF NOT FUNDET THEN EXEC FEJLSKRIFT«, l3=0x27}
0x04d6…04e9 Line {l1=0x11, l2=»0420 ENDPROC MENU«, l3=0x11}
0x04e9…04f3 Line {l1=0x08, l2=»0430 // «, l3=0x08}
0x04f3…0509 Line {l1=0x14, l2=»0440 PROC FEJLSKRIFT«, l3=0x14}
0x0509…0516 Line {l1=0x0b, l2=»0450 CLEAR «, l3=0x0b}
0x0516…0528 Line {l1=0x10, l2=»0460 CURSOR 1,10«, l3=0x10}
0x0528…0564 Line {l1=0x3a, l2=»0470 PRINT "Vi har desværre ingen rejser til: ";REJSEMÅL$«, l3=0x3a}
0x0564…0576 Line {l1=0x10, l2=»0480 CURSOR 1,20«, l3=0x10}
0x0576…05bd Line {l1=0x45, l2=»0490 INPUT "Har De ikke lyst til at rejse et andet sted hen? ":ØNSKE$«, l3=0x45}
0x05bd…05de Line {l1=0x1f, l2=»0500 IF ØNSKE$ IN "JA,ja" THEN «, l3=0x1f}
0x05de…05ee Line {l1=0x0e, l2=»0510 EXEC MENU«, l3=0x0e}
0x05ee…05fa Line {l1=0x0a, l2=»0520 ELSE «, l3=0x0a}
0x05fa…0605 Line {l1=0x09, l2=»0530 END «, l3=0x09}
0x0605…0612 Line {l1=0x0b, l2=»0540 ENDIF «, l3=0x0b}
0x0612…062b Line {l1=0x17, l2=»0550 ENDPROC FEJLSKRIFT«, l3=0x17}
0x062b…0635 Line {l1=0x08, l2=»0560 // «, l3=0x08}
0x0635…0649 Line {l1=0x12, l2=»0570 PROC UDSKRIFT«, l3=0x12}
0x0649…065a Line {l1=0x0f, l2=»0580 CURSOR 1,6«, l3=0x0f}
0x065a…0698 Line {l1=0x3c, l2=»0590 PRINT " R e j d e b u r e a u 'Den gyldne sol' "«, l3=0x3c}
0x0698…06a9 Line {l1=0x0f, l2=»0600 CURSOR 1,7«, l3=0x0f}
0x06a9…06e7 Line {l1=0x3c, l2=»0610 PRINT "-----------------------------------------------"«, l3=0x3c}
0x06e7…06f9 Line {l1=0x10, l2=»0620 CURSOR 1,10«, l3=0x10}
0x06f9…0737 Line {l1=0x3c, l2=»0630 PRINT "Vi kan tilbyde Dem en rejse til: "«, l3=0x3c}
0x0737…0749 Line {l1=0x10, l2=»0640 CURSOR 1,12«, l3=0x10}
0x0749…0786 Line {l1=0x3b, l2=»0650 PRINT "Rejsemål: ";DESTINATION$«, l3=0x3b}
0x0786…0798 Line {l1=0x10, l2=»0660 CURSOR 1,13«, l3=0x10}
0x0798…07de Line {l1=0x44, l2=»0670 PRINT USING "Pris: ########.## kr.":PRIS«, l3=0x44}
0x07de…07f0 Line {l1=0x10, l2=»0680 CURSOR 1,14«, l3=0x10}
0x07f0…0826 Line {l1=0x34, l2=»0690 PRINT "Restpladser: ";ANTAL«, l3=0x34}
0x0826…083d Line {l1=0x15, l2=»0700 ENDPROC UDSKRIFT«, l3=0x15}
0x083d…0847 Line {l1=0x08, l2=»0710 // «, l3=0x08}
0x0847…085a Line {l1=0x11, l2=»0720 PROC PRINTER«, l3=0x11}
0x085a…0872 Line {l1=0x16, l2=»0730 SELECT OUTPUT "T"«, l3=0x16}
0x0872…0880 Line {l1=0x0c, l2=»0740 REPEAT «, l3=0x0c}
0x0880…0892 Line {l1=0x10, l2=»0750 CURSOR 1,22«, l3=0x10}
0x0892…08ca Line {l1=0x36, l2=»0760 INPUT "Ønskes udskrift på printer? (j/n) ":S$«, l3=0x36}
0x08ca…08ea Line {l1=0x1e, l2=»0800 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x08ea…0902 Line {l1=0x16, l2=»0810 SELECT OUTPUT "P"«, l3=0x16}
0x0902…091f Line {l1=0x1b, l2=»0811 IF STATUS("P")=1 THEN «, l3=0x1b}
0x091f…0931 Line {l1=0x10, l2=»0812 CURSOR 1,22«, l3=0x10}
0x0931…0969 Line {l1=0x36, l2=»0813 PRINT "<Z>Printer er reserveret af anden bruger,"«, l3=0x36}
0x0969…09ac Line {l1=0x41, l2=»0814 INPUT " Skal der ventes på at den bliver ledig? (j/n) ":S$«, l3=0x41}
0x09ac…09cc Line {l1=0x1e, l2=»0815 IF S$="J" OR S$="j" THEN «, l3=0x1e}
0x09cc…09de Line {l1=0x10, l2=»0816 CURSOR 1,23«, l3=0x10}
0x09de…0a17 Line {l1=0x37, l2=»0817 PRINT "<Z>Der ventes på at printeren bliver ledig"«, l3=0x37}
0x0a17…0a46 Line {l1=0x2d, l2=»0818 WHILE STATUS("P")=1 DO SELECT OUTPUT "P"«, l3=0x2d}
0x0a46…0a52 Line {l1=0x0a, l2=»0819 ELSE «, l3=0x0a}
0x0a52…0a6a Line {l1=0x16, l2=»0820 SELECT OUTPUT "T"«, l3=0x16}
0x0a6a…0a77 Line {l1=0x0b, l2=»0821 ENDIF «, l3=0x0b}
0x0a77…0a84 Line {l1=0x0b, l2=»0822 ENDIF «, l3=0x0b}
0x0a84…0a98 Line {l1=0x12, l2=»0823 EXEC UDSKRIFT«, l3=0x12}
0x0a98…0aa5 Line {l1=0x0b, l2=»0825 ENDIF «, l3=0x0b}
0x0aa5…0abd Line {l1=0x16, l2=»0830 SELECT OUTPUT "T"«, l3=0x16}
0x0abd…0acf Line {l1=0x10, l2=»0840 CURSOR 1,21«, l3=0x10}
0x0acf…0b05 Line {l1=0x34, l2=»0850 PRINT " "«, l3=0x34}
0x0b05…0b43 Line {l1=0x3c, l2=»0860 PRINT "Så slutter vi for i dag . "«, l3=0x3c}
0x0b43…0b4e Line {l1=0x09, l2=»0870 END «, l3=0x09}
0x0b4e…0b65 Line {l1=0x15, l2=»0890 UNTIL S$ IN "nN"«, l3=0x15}
0x0b65…0b7d Line {l1=0x16, l2=»0900 SELECT OUTPUT "T"«, l3=0x16}
0x0b7d…0b93 Line {l1=0x14, l2=»0910 ENDPROC PRINTER«, l3=0x14}
0x0b93…0b9d Line {l1=0x08, l2=»0920 // «, l3=0x08}
0x0b9d…0bb9 Line {l1=0x1a, l2=»0925 // antalrejsemål = 12«, l3=0x1a}
0x0bb9…0bc7 Line {l1=0x0c, l2=»0930 DATA 12«, l3=0x0c}
0x0bc7…0be2 Line {l1=0x19, l2=»0940 DATA "London",2233,6«, l3=0x19}
0x0be2…0bfd Line {l1=0x19, l2=»0950 DATA "Paris",2000,12«, l3=0x19}
0x0bfd…0c16 Line {l1=0x17, l2=»0960 DATA "Oslo",1200,5«, l3=0x17}
0x0c16…0c34 Line {l1=0x1c, l2=»0970 DATA "Stockholm",1400,7«, l3=0x1c}
0x0c34…0c4f Line {l1=0x19, l2=»0980 DATA "Madrid",3000,8«, l3=0x19}
0x0c4f…0c70 Line {l1=0x1f, l2=»0990 DATA "Helsingfors",1600,14«, l3=0x1f}
0x0c70…0c89 Line {l1=0x17, l2=»1000 DATA "Rom",3000,15«, l3=0x17}
0x0c89…0ca4 Line {l1=0x19, l2=»1010 DATA "Moskva",2600,8«, l3=0x19}
0x0ca4…0cbd Line {l1=0x17, l2=»1020 DATA "Bern",1640,5«, l3=0x17}
0x0cbd…0cda Line {l1=0x1b, l2=»1030 DATA "Amsterdam",700,4«, l3=0x1b}
0x0cda…0cf7 Line {l1=0x1b, l2=»1040 DATA "Bruxelles",900,5«, l3=0x1b}
0x0cf7…0d14 Line {l1=0x1b, l2=»1050 DATA "Lissabon",3400,6«, l3=0x1b}
0x0d14…0d20 00 00 00 00 63 63 63 63 63 63 63 63 ┆ cccccccc┆
0x0d20…0d40 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┆
[…0x34…]