2bc0 4f9f 0000 B ... REISE           
10!PROGRAMM AUS COMMODORE WELT
20!7/87 S.88 (C)C.-D.HEINECK
30!AENDERUNGEN U.ANPASSUNG
40!DURCH MANFRED LIMBERG
50!OSTROWSKISTR.5B,GREIFSWALD
100 WINDOW:CLS:PRINT "~~~ DIE GROSSE HANDELSFAHRT ~~~":PRINT
110 PRINT:PRINT "DU HAST EIN SCHIFF AUF KREDIT"
120 PRINT:PRINT "GEKAUFT.DIESEN MUSSST DU AN DIE"
130 PRINT:PRINT "BANK IM HEIMATHAFEN ABERDEEN"
140 PRINT:PRINT "ZURUECKZAHLEN.GEWINN BRINGEN"
150 PRINT:PRINT "DIR DIE VERSCHIEDENEN PREISE"
160 PRINT:PRINT "IN DEN 5 VERSCHIEDENEN HAEFEN.
170 PRINT:PRINT "AN LAND UND AUF DEM MEER LAUERN"
180 PRINT:PRINT "GEFAHREN,DIE BANK KASSIERT"
190 PRINT:PRINT "ZINSEN.BEI 25000 PFUND SCHULDEN"
200 PRINT:PRINT "WIRD DEIN SCHIFF GEPFAENDET."
210 PRINT:PRINT "VIEL GLUECK !"
212 PRINT:PRINT "'?'=WEITER MIT 'ENTER'BZW.ZAHL"
213 PRINT:PRINT "EINGEBEN (WENN NOETIG)."
214 PRINT:INPUT A$
220 GOSUB 5540
230 G=10*INT(RND(1)*90):SC=100*INT(RND(1)*100)
240 IF SC<4000 OR SC>9000 THEN 230
250 A=0:W=0:K=0:R=0:E=0:RU=0:LP=50:KE=0:XG=0:SE$="A"
290 GOSUB 5450
300 GOSUB 5340
310 CLS
320 PRINT "WILLST DU"
330 PRINT:PRINT "KAUFEN     K"
340 PRINT:PRINT "VERKAUFEN  V"
350 PRINT:PRINT "SEGELN     S"
355 IF SE$<>"A"THEN 420
360 PRINT:PRINT "ZUR BANK   B"
420 PRINT AT(6,0);S$
430 PRINT AT(8,10);G
440 PRINT AT(10,10);SC
450 PRINT AT(12,10);LP
470 PRINT AT(4,29);D
480 PRINT AT(6,29);W
490 PRINT AT(8,29);K
500 PRINT AT(10,29);R
510 PRINT AT(12,29);J
520 PRINT AT(16,29);P1
530 PRINT AT(18,28);P2
540 PRINT AT(20,28);P3
550 PRINT AT(22,27);P4
560 PRINT AT(24,27);P5
670 D$=INKEY$
680 IF SE$<>"A"AND D$="B"THEN 670
690 IF D$="K"AND LP>0 GOTO 740
700 IF D$="V"AND LP<50 GOTO 1200
710 IF D$="S"GOTO 1660
720 IF D$="B"GOTO 1920
730 GOTO 670
740 CLS:PRINT:PRINT "WAS WILLST DU":PRINT:PRINT "KAUFEN?"
750 PRINT:PRINT "  D/W/K/R/J"
820 K$=INKEY$:IF K$="D"OR K$="W"OR K$="K"OR K$="R"OR K$="J" THEN 840 ELSE 820
840 IF K$="D"THEN P=P1
850 IF K$="W"THEN P=P2
860 IF K$="K"THEN P=P3
870 IF K$="R"THEN P=P4
880 IF K$="J"THEN P=P5         
910 PRINT:PRINT "WIEVIEL WILLST":PRINT:PRINT "DU KAUFEN?"
950 PRINT:INPUT KA
960 IF KA>50 THEN 910
970 IF KA>LP THEN 1130
980 IF(KA*P)>G THEN 1070
990 G=G-(KA*P)
1000 LP=LP-KA
1010 IF K$="D"THEN D=D+KA
1020 IF K$="W"THEN W=W+KA
1030 IF K$="K"THEN K=K+KA
1040 IF K$="R"THEN R=R+KA
1050 IF K$="J"THEN J=J+KA
1060 GOTO 310
1070 CLS
1090 PRINT:PRINT "DU HAST NICHT":PRINT:PRINT "GENUG GELD !"
1120 PAUSE(30):GOTO 910
1130 CLS:PRINT "DU HAST KEINEN":PRINT:PRINT "PLATZ FUER";KA;"!"
1140 PAUSE 30:GOTO 910
1200 CLS
1220 PRINT "WAS WILLST DU":PRINT:PRINT "VERKAUFEN ?"
1250 PRINT:PRINT "D/W/K/R/J"
1280 V$=INKEY$:IF V$="" THEN 1280
1300 IF V$="D"THEN P=P1:GOTO 1350
1310 IF V$="W"THEN P=P2:GOTO 1350
1320 IF V$="K"THEN P=P3:GOTO 1350
1330 IF V$="R"THEN P=P4:GOTO 1350
1340 IF V$="J"THEN P=P5
1350 PRINT
1370 PRINT "WIEVIEL WILLST DU":PRINT:PRINT "VERKAUFEN ?"
1410 INPUT VN
1420 IF VN>50 THEN 1350
1430 IF V$="D"AND VN>D THEN 1570
1440 IF V$="W"AND VN>W THEN 1570
1450 IF V$="K"AND VN>K THEN 1570
1460 IF V$="J"AND VN>J THEN 1570
1470 IF V$="R"AND VN>R THEN 1570
1480 G=G+(P*VN):LP=LP+VN
1500 IF V$="D"THEN D=D-VN
1510 IF V$="W"THEN W=W-VN
1520 IF V$="K"THEN K=K-VN
1530 IF V$="R"THEN R=R-VN
1540 IF V$="J"THEN J=J-VN
1550 IF G>800000 THEN 5130
1560 GOTO 310
1570 CLS:PRINT:PRINT "DU HAST KEINE":PRINT:PRINT VN;"AN BORD !"
1650 PAUSE(40):GOTO 1350
1660 RU=RU+1
1670 XG=0
1680 CLS
1700 PRINT:PRINT "*** STAEDTE ***"
1710 PRINT:PRINT "ABERDEEN     A"
1720 PRINT "PLYMOUTH     P"
1730 PRINT "LONDON       L"
1740 PRINT "NEWCASTLE    N"
1750 PRINT "CARDIFF      C"
1770 SE$=INKEY$
1780 IF SE$<>"A"AND SE$<>"P"AND SE$<>"L"AND SE$<>"N"AND SE$<>"C"THEN 1770
1790 IF S$="ABERDEEN     "AND SE$="A"THEN 1770
1800 GOSUB 5450
1810 IF RU=5 OR RU=10 OR RU=15 THEN 4860
1820 IF RND(1)>.22 AND RND(1)<.3 THEN 3520
1830 IF RND(1)<.15 THEN 4250
1840 IF RND(1)>.55 AND RND(1)<.65 THEN 4480
1850 IF RND(1)>.45 AND RND(1)<.55 THEN 2530
1860 IF RND(1)>.35 AND RND(1)<.45 THEN 3290
1870 IF RND(1)>.80 AND SC>0 THEN 4710:GOTO 1810
1880 GOSUB 5540
1890 SC=INT(1.12*SC)
1900 IF SC>25000 THEN 5650
1910 GOTO 300
1920 CLS:PRINT "WILLST DU DEN":PRINT:PRINT "KREDIT TILGEN   T"
1930 PRINT:PRINT "ODER LEIHEN     L":PRINT
2010 LZ$=INKEY$
2020 IF LZ$<>"L"AND LZ$<>"T"THEN 2010
2030 IF LZ$="L"AND XG>0 THEN 2160
2040 IF LZ$="L"THEN 2260
2050 CLS
2070 PRINT "WIEVIEL WILLST DU":PRINT:PRINT "ZURUECKZAHLEN"
2080 PRINT:INPUT ZU
2120 IF ZU>G OR ZU>SC THEN 2050
2130 SC=SC-ZU
2140 G=G-ZU
2150 GOTO 310
2160 CLS
2170 PRINT "DU KANNST PRO FAHRT":PRINT:PRINT "NUR EINMAL LEIHEN!"
2240 PAUSE(40)
2250 GOTO 310
2260 CLS
2270 PRINT "WIEVIEL WILLST DU":PRINT:PRINT "LEIHEN";:INPUT LE
2320 XG=XG+1
2340 LI=100*INT(RND(1)*50)+1000
2360 IF LE>LI THEN 2400
2370 SC=SC+LE:G=G+LE
2390 GOTO 310
2400 PRINT:PRINT "DAS LIMIT SIND":PRINT:PRINT LI;"PFUND !"
2410 PAUSE(40)
2490 SC=SC+LI:G=G+LI
2520 GOTO 310
2530 WINDOW:CLS:PRINT TAB(224)"    P I R A T E N !   ":PRINT:PRINT
2560 PAUSE(20)
2570 IF KE=1 THEN 2850
2580 IF RND(1)>.5 THEN 3210
2590 IF LP=50 THEN 2730
2600 PRINT:PRINT:PRINT
2620 PRINT "PIRATEN HABEN UNS UEBERFALLEN"
2640 PRINT:PRINT "UND DIE GANZE LADUNG ERBEUTET ."
2660 PAUSE(20)
2670 LP=50:D=0:W=0:R=0:K=0:J=0
2730 X=INT(RND(1)*10)+3
2750 PRINT:PRINT "WAEHREND DES KAMPFES SIND";X
2755 PRINT:PRINT "DEINER MAENNER VERWUNDET WORDEN."
2760 PRINT:PRINT "DIE BEHANDLUNG DURCH EINEN"
2770 PRINT:PRINT "ARZT KOSTET JE 75 PFUND."
2810 PRINT:INPUT A$
2820 G=G-75*X:IF G<0 THEN 3070
2840 GOTO 1880
2850 PRINT "DEINE MANNSCHAFT BENUTZT DIE"
2900 PRINT:PRINT "KANONE VON SCHWARZEN JACK .":PAUSE(20)
2910 IF RND(1)>.2 THEN 3000
2940 PRINT:PRINT "DIE KANONE IST LEIDER KAPUTT !"
2960 PAUSE(20)
2970 KE=0:GOTO 2600
3000 PRINT:PRINT "MIT DER KANONE KONNTE DAS"
3010 PRINT:PRINT "PIRATENSCHIFF VERSENKT WERDEN."
3020 PRINT:PRINT "GUT GEMACHT,JUNGS !"
3050 PAUSE(40)
3060 GOTO 1880
3070 PRINT:PRINT:PRINT "DA DU NICHT GENUG GELD FUER"
3080 PRINT:PRINT "DEN DOKTOR HATTEST,MEUTERTE":PRINT:PRINT "DEINE MANNSCHAFT."
3100 PRINT:PRINT "SIE HAT DAS SCHIFF VERKAUFT,"
3110 PRINT:PRINT "UM DIE RECHNUNG BEZAHLEN ZU"
3120 PRINT:PRINT "KOENNEN."
3160 PRINT:PRINT "NIMM'S LEICHT !"
3170 PRINT:INPUT A$
3180 CLS:PRINT TAB(224)"     E  N  D  E"
3190 PRINT
3200 GOTO 5270
3210 PRINT:PRINT:PRINT
3230 PRINT "DIE PIRATEN HABEN NICHT"
3240 PRINT:PRINT "ANGEGRIFFEN,DU KANNST DEINE"
3250 PRINT:PRINT "REISE FORTSETZEN."
3270 PAUSE(40)
3280 GOTO 1880
3290 WINDOW:CLS:PRINT TAB(224)"    S  T  U  R  M    ":PRINT:PRINT
3320 PAUSE(20)
3330 IF RND(1)>.5 OR LP=50 THEN 3450
3340 PRINT
3360 PRINT "EIN STURM IST AUFGEKOMMEN UND"
3370 PRINT:PRINT "WIR MUSSTEN DIE HALBE LADUNG"
3380 PRINT:PRINT "UEBER BORD WERFEN ! SCHADE !"
3410 D=D-INT(D/2):W=W-INT(W/2):K=K-INT(K/2):R=R-INT(R/2):J=J-INT(J/2)
3420 LP=50-D-W-K-R-J
3430 PRINT:INPUT A$
3440 GOTO 1880
3450 PRINT:PRINT "DER STURM HAT SOFORT AUFGEHOERT"
3460 PRINT:PRINT "UND DU KANNST WEITERFAHREN."
3500 PAUSE(40)
3510 GOTO 1880
3520 WINDOW:CLS:PRINT TAB(224)"*****   L A N D G A N G   *****"
3550 PAUSE(20)
3560 IF RND(1)>.2 THEN 3840
3570 IF R>0 AND RND(1)>.3 THEN 3750
3580 TR=INT(RND(1)*3100):IF TR<500 THEN 3580
3600 PRINT:PRINT "WAEHREND DES LANDGANGES HABEN"
3610 PRINT:PRINT "DIR TRICKBETRUEGER";TR;"PFUND":PRINT:PRINT "ABGENOMMEN!"
3620 PRINT:INPUT A$
3660 G=G-TR:IF G<0 THEN 3690
3680 GOTO 1880
3690 PRINT:PRINT:PRINT "DU BIST JETZT PLEITE":PRINT:PRINT "UND MUSST DIE REISE"
3700 PRINT:PRINT "BEENDEN !"
3730 PAUSE(20)
3740 GOTO 3160
3750 PRINT:PRINT:PRINT "WAEHREND DEINES LANDAUSFLUGES"
3760 PRINT:PRINT "HABEN DEINE LEUTE DEN GANZEN RUM"
3770 PRINT:PRINT "AUSGETRUNKEN!"
3800 PAUSE(40)
3810 LP=LP+R:R=0:GOTO 1880
3840 PRINT:PRINT:PRINT "WAEHREND EINES LANDAUSFLUGES"
3850 PRINT:PRINT "KOMMST DU AN EINER KNEIPE"
3860 PRINT:PRINT "VORBEI UND GEHST HINEIN."
3890 PAUSE(20)
3900 PRINT:PRINT "DU WIRST ZU EINEM GLUECKSSPIEL"
3910 PRINT:PRINT "AUFGEFORDERT.MACHST DU MIT ?":PRINT:PRINT "  (J/N)"
3950 MM$=INKEY$:IF MM$<>"J"AND MM$<>"N"THEN 3950
3970 IF MM$="N"THEN 1880
3980 GV=INT(RND(1)*10100):IF GV<1000 THEN 3980
4000 GZ=INT(RND(1)*6)-1:IF GZ<=0 THEN 4000
4010 PRINT:PRINT "WAEHLE ZWISCHEN DEN ZAHLEN":PRINT:PRINT "   1 UND 5 !"
4040 WN$=INKEY$:WN=VAL(WN$)
4090 IF WN< 1 OR WN > 5 THEN 4040
4100 IF WN<>GZ THEN 4170
4110 PRINT:PRINT "DU HAST RICHTIG GERATEN UND"
4120 PRINT:PRINT "SOMIT";GV;"PFUND GEWONNEN !"
4150 PAUSE(40)
4160 G=G+GV:GOTO 1880
4170 PRINT:PRINT "FALSCH !! DU HAST";INT(GV/5);"PFUND"
4180 PRINT:PRINT "VERLOREN."
4210 PRINT:INPUT A$
4220 G=G-INT(GV/5)
4230 IF G<0 GOTO 3690
4240 GOTO 1880
4250 PK=INT(RND(1)*10100)
4260 IF PK<1000 THEN 4250
4270 IF KE=1 THEN 1880
4280 WINDOW:CLS:PRINT TAB(224)
4290 PRINT "<<<   DER SCHWARZE JACK   >>>"
4300 PAUSE(20)
4310 PRINT:PRINT:PRINT:PRINT "DER SCHWARZE JACK BIETET DIR"
4320 PRINT:PRINT "EINE KANONE ZUM SCHUTZ VOR":PRINT:PRINT "PIRATEN AN."
4330 PRINT:PRINT "SIE KOSTET";PK;"PFUND."
4340 PRINT:PRINT "MOECHTEST DU ?(J/N)"
4380 KK$=INKEY$
4400 IF KK$="J"AND G<PK THEN 4450
4410 IF KK$="N"GOTO 1880
4415 IF KK$="J"GOTO 4420
4417 GOTO 4380
4420 KE=1:G=G-PK
4440 GOTO 1880
4450 PRINT:PRINT:PRINT:PRINT "DU HAST ZUWENIG GELD !"
4460 PAUSE(40)
4470 GOTO 1880
4480 WINDOW:CLS:PRINT TAB(224)"+++    SCHIFF IN SICHT    +++"
4510 PRINT:PRINT "WILLST DU NAEHER HERANFAHREN":PRINT:PRINT "(J/N)"
4550 HF$=INKEY$
4560 IF HF$<>"J"AND HF$<>"N"THEN 4550
4570 IF HF$="N"THEN 1880
4580 IF RND(1)>.5 THEN 2530
4590 VD=INT(RND(1)*10100)
4600 IF VD<1000 THEN 4590
4610 PRINT
4620 PRINT:PRINT "ES IST EIN ENGLISCHES HANDELS-"
4630 PRINT:PRINT "SCHIFF.DU MACHST MIT DEM"
4640 PRINT:PRINT "KAPITAEN EIN GESCHAEFT UND"
4650 PRINT:PRINT "VERDIENST DABEI";VD;"PFUND"
4680 PRINT:INPUT A$
4690 G=G+VD
4700 GOTO 1880
4710 WINDOW:CLS:PRINT:PRINT "=====    EIN GOENNER    ====="
4730 PAUSE(20)
4740 GR=100*INT(RND(1)*101)
4750 IF GR<1000 THEN 4740
4760 IF GR>SC THEN GR=SC
4770 PRINT:PRINT "EIN UNBEKANNTER HAT";GR;"PFUND"
4780 PRINT:PRINT "VON DEINEN SCHULDEN ABBEZAHLT !"
4820 PAUSE(40)
4830 IF SC<GR THEN 4850
4840 SC=SC-GR:GOTO 1880
4850 SC=0:GOTO 1880
4860 WINDOW:CLS:PRINT:PRINT:PRINT "-----  WERFTAUFENTHALT  -----"
4870 MR=INT(RND(1)*5100)
4880 IF MR<500 OR MR>2000 THEN 4870
4890 SR=INT(RND(1)*5100)
4900 IF SR<500 OR SR>2000 THEN 4890
4910 RR=INT(RND(1)*5100)
4920 IF RR<200 OR RR>2000 THEN 4910
4930 GR=MR+SR+RR
4940 PRINT:PRINT:PRINT "DEIN SCHIFF MUSS REPARIERT"
4945 PRINT:PRINT "WERDEN."
4950 PRINT:PRINT "MAST   ";MR
4960 PRINT:PRINT "SEGEL  ";SR
4970 PRINT:PRINT "RUMPF  ";RR:PRINT "------------"
4980 PRINT:PRINT "GESAMT ";GR
4990 PRINT:PRINT "============"
5000 PAUSE(40)
5030 G=G-GR
5040 IF G<0 THEN 5060
5050 GOTO 1880
5060 PRINT:PRINT "DA DU ZUWENIG GELD HAST,DIE"
5070 PRINT:PRINT "RECHNUNG ZU BEZAHLEN,MUSST DU"
5080 PRINT:PRINT "DIE REISE BEENDEN !!!"
5120 GOTO 3160
5130 WINDOW:CLS:PRINT STRING$(32,"")
5140 PRINT:PRINT:PRINT "    HERZLICHEN GLUECKWUNSCH !"
5150 PRINT:PRINT:PRINT STRING$(32,"")
5220 PRINT:PRINT "DA DU UEBER 800000 PFUND"
5230 PRINT:PRINT "VERDIENT HAST,KANNST DU DICH"
5240 PRINT:PRINT "ZUR RUHE SETZEN !"
5250 PRINT:PRINT "GENAUER SPIELSTAND:";G;"PFUND"
5270 PRINT:PRINT:PRINT "NOCH EIN SPIEL ? (J/N)":PRINT
5280 NS$=INKEY$
5300 IF NS$<>"J"AND NS$<>"N"THEN 5280
5310 IF NS$="J"THEN RUN
5320 PRINT:PRINT "AUF WIEDERSEHEN !"
5330 END
5340 P1=5*INT(RND(1)*16):IF P1<5 THEN 5340
5360 P2=10*INT(RND(1)*21):IF P2<50 THEN 5360
5380 P3=10*INT(RND(1)*100):IF P3<300 THEN 5380
5400 P4=100*INT(RND(1)*31):IF P4<500 THEN 5400
5420 P5=100*INT(RND(1)*100):IF P5<1000 THEN 5420
5440 RETURN
5450 IF SE$="A"THEN S$="ABERDEEN     "
5460 IF SE$="P"THEN S$="PLYMOUTH     "
5470 IF SE$="L"THEN S$="LONDON       "
5480 IF SE$="N"THEN S$="NEWCASTLE    "
5490 IF SE$="C"THEN S$="CARDIFF      "
5500 RETURN
5540 WINDOW:CLS:WINDOW 14,24,0,18
5550 PRINT AT(0,1);"Z-1013-SCHIFFAHRTSGESELLSCHAFT"
5552 PRINT AT(1,0);"--------------------------------"
5555 PRINT AT(4,0);"HAFEN:              DIVERSES  "
5560 PRINT AT(6,20);"WAFFEN"
5565 PRINT AT(8,0);"GUTHABEN:           KOHLE"
5570 PRINT AT(10,0);"SCHULDEN:           RUM"
5575 PRINT AT(12,0);"LADEPLATZ:          JUWELEN"
5580 PRINT AT(14,20);"***PREISE***"
5585 PRINT AT(16,20);"DIVERSES":PRINT AT(18,20);"WAFFEN"
5590 PRINT AT(20,20);"KOHLE":PRINT AT(22,20);"RUM" 
5595 PRINT AT(24,20);"JUWELEN"
5600 RETURN
5650 WINDOW:CLS:PRINT TAB(255)
5660 PRINT:PRINT "WEIL DU UEBER 25000 PFUND"
5670 PRINT:PRINT "SCHULDEN HAST, WIRD DEIN SCHIFF"
5680 PRINT:PRINT "GEPFAENDET.ENDE DER REISE"
5690 GOTO 5270