DataMuseum.dk

top - metrics - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »REJSEBUR«

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »REJSEBUR« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »REJSEBUR« 

Text

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