Merchant Prince Trader Program

[Spinward Scout]

Hey Everybody!

Does anyone know of a copy of the old old old Trader program that you could order from the back of Merchant Princes? I saw the ad the other day in the reprint and started wondering if something like that could be updated to "modern" technology (I think it was for Apple II). I never got to buy it before, and though it was pretty neat reading through the advertisement again after all this time.

Later,

Scout

 

[FlightCommanderSolitude]

Does anyone know of a copy of the old old old Trader program that you could order from the back of Merchant Prince?

I found a disk image at:

http://ground.ecn.uiowa.edu/apple2/upl1998/Sep98/

It's in a format that I have not been able to use yet, however. I'm looking for a tool to convert from SDK format to something I can use in an Apple 2 emulator.

 

[Golan2072]

::Casts Ressurect Thread::

There is an ad in my Merchant Prince book speaking about a trade program written in BASIC - which should be usable on a PC "(or even converted to Visual Basic?)

 

[sid6.7]

marc miller himself sent me a link to this program
i have it somewhere, let me look....its free
now...you'll need an apple emulator to run it...


is there away to attach files here?...i could
zip it up for you if you want...its about 3 megs
and 23 files total..not real big...

 

[Golan2072]

Send it to omer-golan@edu.telhai.ac.il

I'll upload it to the FTP I usually use (it belongs to a friend of mine) tomorrow.

Isn't BASIC text-based (from my experience from PC Q-BASIC in the early 1990's), with BAS files editable in a text editor. and thus transportable between platforms?

 

[Merxiless]

If this cannot be located anywhere, I'm willing to write one from scratch, using Quick Basic, and/or Visual Basic. Perhaps a month, as I am setting up a new CT Campaign.

Some years ago, I wrote one of these from scratch in amiga basic in about a week, during holiday leave, when I was on active duty.

However, that being said, I am not one to plunge right into re-inventing the software wheel.

 

[whartung]

What does the program do?

Is it related to, what, book 7? Book 7 is Merchants, right? (I don't even know if I ever got book 7).

If someone is willing to give a list of what the program does, and perhaps maybe the mechanics and tables it needs, I could hack something up that's usable.

Does TNE have a similar, usable Merchant system? I only mention that because I happen to have that rule book handy at the house, comapared to any other Traveller material. So, if I could use that instead of book 7, all the better.

Or, lets put this another way, what would you LIKE such a program to do?

Back In The Day (I'm talking, like 1979-80, WAY back), I used a programmable calculator, 4 planets, Book 3, and a 3000 ton freighter to trade my way to munchkin riches. All in an afternoon!

 

[Berg]

There is a Merchant prince App in the fLibrary

 

[aramis]

Given enough prompting, I might break out the IIGS and extract the basic files from it.

Applesoft basic, the one used, is text based. It should run almost unmodified in Chipmunk Basic (which is free) on Mac/Win. I've not tried it, however.

 

[Golan2072]

Could you try it, please?

 

[Merxiless]

Polite Prompt:

Aramis,

If you can get a basic listing in text, I am willing to clean it up and convert it into Quick Basic, and/or Visual Basic.

I'd do it, but I don't have a II GS, or an emulator.

In fact, as Whartung states, perhaps we could redesign it, and add new features, such as parsing GAL format sectors, etc etc.

I have long considered making a plugin for Jim V's Galactic, that handles trade a la Merchant Prince, and the original trade tables.

It might be worth the effort, just to rewrite it from the ground up, anyhow.

Would anyone else out there be interested in a newer version updated?

 

[aramis]

Merx: you'd be better off doing your own code from scratch. Converting applesoft to QB &/or VB is timme consuming, and requires a passing knowledge of Applesoft.

 

[aramis]

Here's the trader module source... note, it requires the character module's output to run.
</font><blockquote>code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> 2 POKE 32,0: POKE 34,0: POKE 33,40: NORMAL : SPEED= 255: TEXT : HOME
4 REM TRADER
5 REM VER 2.0.1 12-1-79
6 REM <C> COPYRIGHT 1979 STEVEN W. PEDERSON AND SHERWIN A. STEFFIN.
ALL RIGHTS RESERVED.
9 GOTO 1000
100 D$ = CHR$ (4)
105 PRINT D$;"NOMON C,I,O"
110 PRINT D$;"OPEN";NA$: PRINT D$;"READ";NA$
112 FOR I = 0 TO 40
113 INPUT SK(I)
114 NEXT I
115 INPUT SK$
120 PRINT D$;"CLOSE";NA$
149 RETURN
150 NORMAL
152 PRINT D$;"OPEN";NA$: PRINT D$;"UNLOCK";NA$: PRINT D$;"WRITE";NA$
155 FOR I = 0 TO 40
156 PRINT SK(I)
157 NEXT I
158 PRINT SK$
170 PRINT D$;"CLOSE";NA$: PRINT D$;"LOCK";NA$
199 END
250 NORMAL
251 PRINT D$;"UNLOCK";NA$: PRINT D$;"DELETE";NA$
252 RETURN
300 PRINT "---------------------------------------": RETURN
301 INVERSE : PRINT " ": NORMAL :
RETURN
302 PRINT "=======================================": RETURN
304 INVERSE : INPUT " HIT <RETURN> TO CONTINUE..... ";I$: NORMAL
: RETURN
1000 DIM SK(40)
1005 INVERSE : HTAB 17: PRINT "TRADER"
1010 INVERSE : VTAB 8: PRINT "ENTER CHARACTER NAME - 16 CHARACTERS OR":
VTAB 9: PRINT "LESS SHOULD BE INPUT ": PRINT : PRINT
"NAME: ----------------<//STOP///"
1012 VTAB 11: HTAB 6: INPUT NA$
1015 IF NA$ = "ADVERSARY" THEN RUN
1020 GOSUB 50000
1030 GOSUB 100
1200 GOSUB 2000
1300 HOME : GOSUB 3000
1400 GOSUB 4000
1500 GOSUB 5000
1600 GOSUB 6000
1700 GOTO 1300
1999 END
2000 L = LEN (SK$)
2001 REM SHIP ONE WAY OR ANOTHER
2002 FOR I = 1 TO L - 2: IF MID$ (SK$,I,3) = "SS-" THEN SH = 1
2004 IF MID$ (SK$,I,3) = "MS-" THEN SH = 2
2006 NEXT I
2008 CR = 7 * SK(36) + 10 * SK(0): IF CR > 100 THEN CR = 100
2010 IF SH > 0 THEN RETURN
2012 HOME : SPEED= 120: PRINT "BEFORE ENTERRING INTERSTELLAR COMMERCE":
PRINT "AS A TRADER, YOU MUST AQUIRE A STARSHIP.TWO VARIETIES ARE AV
AILABLE."
2014 INVERSE : PRINT : PRINT "SCOUT SHIP": NORMAL : PRINT " A SMALL
SHIP CARRING UP TO 10": PRINT "PASSENGERS AND 10 THOUSAND TONS OF":
PRINT "CARGO.": PRINT "** PRICE: 1 M GCR."
2016 INVERSE : PRINT : PRINT "MERCHANT VESSEL": NORMAL : PRINT " A
FULL-SIZED VESSEL EQUIPPED FOR": PRINT "70 PASSENGERS AND 100 TONS O
F CARGO.": PRINT "** PRICE: 8 M GCR."
2018 VTAB 21: INVERSE : INPUT "HIT <RETURN> FOR SHIP PURCHASE TERMS";I$
2019 SPEED= 255
2020 HOME : PRINT "SHIP AQUISITION TERMS": GOSUB 301
2022 PRINT : PRINT "PURCHASER: ";NA$: PRINT "CREDIT RATING:";CR
2024 GOSUB 300: PRINT " SCOUT MERCHANT"
2025 REM HTAB20/HTAB30
2026 IR = (240 - CR) / 10
2028 PRINT "PRICE": PRINT "AVAIL. CREDIT": PRINT "INTEREST RATE: ";IR;
"%": GOSUB 300: PRINT "MIN. DOWN PAYMENT": GOSUB 302
2030 FOR I = 1 TO 2
2031 VTAB 8
2032 II = 12 + 10 * I
2034 HTAB II: PRINT SA(I,10);"M": HTAB II: PRINT SA(I,10) * (CR / 100):
PRINT : PRINT : HTAB II: PRINT SA(I,10) + .01 - (SA(I,10) * (CR / 1
00));"M GCR"
2036 NEXT I
2040 VTAB 14: PRINT "CASH ON HAND:";SK(29)
2042 PRINT : INVERSE : INPUT "WHICH SHIP (S/M)?";I$: IF I$ < > "S" AND
I$ < > "M" THEN 2042
2044 INPUT "DOWN PAYMENT IN MILLIONS OF GCR:";IP
2050 IF I$ = "S" THEN SH = 1
2052 IF I$ = "M" THEN SH = 2
2054 IF IP > SA(SH,10) - (SA(SH,10) * (CR / 100)) AND IP < SK(29) / (10
^ 6) THEN 2070
2060 FLASH : SPEED= 150: HOME : PRINT "YOUR DOWN PAYMENT IS INADEQUATE"
: PRINT "OR IMPOSSIBLE."
2062 NORMAL : PRINT : PRINT "HIT <E> TO EXIT THE GAME....": PRINT "ANY
OTHER KEY TO CONTINUE.": GET G$
2063 SPEED= 255
2064 IF G$ = "E" THEN END
2066 GOTO 2020
2070 SK(29) = SK(29) - IP * (10 ^ 6):LP = (SA(SH,10) - IP) * (10 ^ 6)
2080 FLASH : PRINT "AWAITING SHIP DELIVERY": FOR I = 0 TO 2500: NEXT I:
HOME : FOR I = 0 TO 2000: NEXT I
2082 PRINT "YOUR ";SH$(SH);" IS READY!!"
2084 FOR I = 0 TO 2000: NEXT : NORMAL : GOSUB 304
2090 IF SH = 1 THEN SK$ = SK$ + "SS-"
2092 IF SH = 2 THEN SK$ = SK$ + "MS-"
2099 RETURN
3000 FOR I = 0 TO 1
3002 A(I) = G(2 * DR + I,DR,0):A(I) = A(I) + RND (1) * (G(2 * DR + I,DR
,1) - A(I))
3004 NEXT I
3006 IF DR = 1 THEN RD = 0: GOTO 3010
3008 RD = 1
3010 FOR I = 0 TO 1
3012 B(I) = G(2 * DR + I,RD,0):B(I) = B(I) + RND (1) * (G(2 * DR + I,RD
,1) - B(I))
3014 NEXT I
3016 FOR I = 0 TO 1:M(I) = GW(2 * DR + I):A$(I) = C$(2 * DR + I): NEXT
I
3020 FOR I = 0 TO 1
3022 A(I) = INT (A(I) * 100) / 100
3024 B(I) = INT (B(I))
3026 NEXT I
3100 INVERSE : PRINT P$(DR);" WHOLESALE MARKET": GOSUB 301
3102 POKE 34,2
3110 FOR I = 0 TO 1
3112 V = 8 + I * 2
3114 VTAB V: PRINT A$(I)
3116 VTAB V: HTAB 15: PRINT A(I)
3118 VTAB V: HTAB 25: PRINT B(I)
3120 VTAB V: HTAB 35: PRINT M(I)
3122 NEXT I
3130 VTAB 17: PRINT "VESSEL: ";SH$(SH)
3132 VTAB 19: PRINT "WEIGHT CAPACITY: ";SA(SH,0) * 1000
3134 VTAB 5: HTAB 14: PRINT P$(DR): VTAB 5: HTAB 24: PRINT P$(RD)
3136 VTAB 4: HTAB 26: PRINT "EST."
3140 : VTAB 6: PRINT "* GOOD ****** PRICE *** PRICE **WT/UNIT"
3142 VTAB 13: GOSUB 302
3150 VTAB 22: INVERSE : INPUT "** HIT <RETURN> TO AQUIRE CARGO.";I$: NORMAL
3160 LL = (SA(SH,10) * (10 ^ 6) - LP) * (CR / 100)
3200 U(0) = 0:U(1) = 0

3202 HOME
3210 FOR I = 0 TO 1:V = 5 + I * 2
3212 VTAB V: PRINT A$(I);"/";M(I)
3214 VTAB V: HTAB 16: PRINT U(I)
3216 VTAB V: HTAB 23: PRINT A(I)
3218 VTAB V: HTAB 32: PRINT INT (U(I) * A(I))
3220 NEXT I
3222 : VTAB 9: GOSUB 302
3228 Z = A(0) * U(0) + A(1) * U(1)
3230 VTAB 11: PRINT "CASH-ON-HAND: "; INT (SK(29)): PRINT "CREDIT AVAI
LABLE: ";LL: PRINT "CURRENT PURCHASES: ";Z
3240 : VTAB 4: PRINT " GOOD/WEIGHT * UNITS PRICE *** COST **"
3242 : VTAB 14: GOSUB 300: PRINT "AVAILABLE FUNDS LEFT: "; INT (SK(29) +
LL - Z): GOSUB 302
3244 PRINT "WEIGHT CAPACITY: ";SA(SH,0) * 1000: PRINT "WEIGHT OF GOODS
:"; INT (U(0) * M(0) + U(1) * M(1))
3246 GOSUB 301
3248 PRINT " <1> CHANGE PURCHASES FROM LIST.": PRINT " <2> LOCK IN TR
ANSACTIONS AS LISTED.": INVERSE : INPUT "** WHICH CHOICE (1-2)?";IP:
NORMAL
3250 IF IP = 2 THEN 3300
3252 IF IP < > 1 THEN 3248
3262 POKE 34,19: HOME
3270 VTAB 20: INVERSE : INPUT "** WHICH GOOD (1-2)?";IP: INPUT "** HOW
MANY UNITS?";UP
3272 NORMAL : IF (UP < > INT (UP)) OR (UP < 0) OR (IP < > 1 AND IP <
> 2) THEN 3262
3274 U(IP - 1) = UP
3280 POKE 34,2: GOTO 3202
3300 POKE 34,0
> 2) THEN 3262
3274 U(IP - 1) = UP
3280 POKE 34,2: GOTO 3202
3300 POKE 34,0
3310 IF (SK(29) + LL - Z) < 0 OR (M(0) * U(0) + M(1) * U(1)) > SA(SH,0)
* 1000 THEN 3350
3312 FOR I = 0 TO 3:C(I) = 0: NEXT I
3314 FOR I = 0 TO 1:C(I + DR * 2) = U(I): NEXT I
3320 IF SK(29) > Z THEN SK(29) = SK(29) - Z: GOTO 3400
3325 Z = Z - SK(29):SK(29) = 0:LP = LP + Z
3349 GOTO 3400
3350 FLASH : SPEED= 120: PRINT "FISCAL OR WEIGHT LIMITATION PROHIBIT
THE TRANSACTIONS YOU HAVE JUST MADE.": PRINT : PRINT "TRY AGAIN.": GOSUB
304
3352 SPEED= 255: HOME : GOTO 3000
3400 LL = 0: HOME : INVERSE
3402 PRINT P$(DR);" PASSENGER AQUISITION": GOSUB 301
3410 PH = RND (1) * SA(SH,1) + RND (1) * 2 * SK(18): IF PH > SA(SH,1) THEN
PH = SA(SH,1)
3412 PL = RND (1) * SA(SH,2) + RND (1) * 2 * SK(18): IF PL > SA(SH,2) THEN
PL = SA(SH,2)
3414 PH = INT (PH)L = INT (PL)
3420 PRINT : PRINT "HIGH PASSAGES SOLD @ 1000 GCR: ";PH
3422 PRINT : PRINT " LOW PASSAGES SOLD @ 100 GCR: ";PL
3423 GOSUB 300
3424 PRINT : PRINT "REVENUE FROM PASSAGES, GCR: ";(PH * 10 + PL) * 100
3425 VTAB 12: GOSUB 301: GOSUB 304
3430 SK(29) = SK(29) + (PH * 10 + PL) * 100
3500 HOME : INVERSE : PRINT P$(DR);" FUELING DOCK": GOSUB 301
3502 Z = 20 + RND (1) * 8 - 4:Z = ( INT (Z * 100)) / 100
3510 PRINT : PRINT "CURRENT PRICE (GCR/UNIT): ";Z
3512 VTAB 6: GOSUB 301
3520 PRINT : PRINT "AVERAGE/RECOMMENDED FUEL FOR TRIP:"
3522 PRINT : PRINT "SCOUT SHIP : 98 /122"
3524 PRINT "MERCHANT SHIP: 789 /850"
3530 PRINT : GOSUB 301
3540 VTAB 17: PRINT "UNITS OF FUEL IN SHIP: ";FU
3550 VTAB 19: INVERSE : INPUT "** FUEL PURCHASE: ";IP: NORMAL
3552 IF IP < 0 OR IP > 1000 THEN 3550
3554 FU = INT (FU + IP):SK(29) = SK(29) - IP * Z
3556 IF SK(29) < 0 THEN LP = LP - SK(29):SK(29) = 0
3560 GOSUB 302: PRINT : PRINT "FUEL FOR VOYAGE: ";FU
3600 GOSUB 304
3999 RETURN
4000 HOME : FOR I = 0 TO 2000
4001 VTAB 22: FLASH : PRINT "^^^^^^^^^^^^^^": PRINT "ESCAPING ORBIT": NORMAL

4002 FOR I = 0 TO 8: FOR J = 0 TO 1000 - (I * 120)
4004 NEXT J
4006 PRINT "": PRINT ""
4008 NEXT I: FOR I = 0 TO 15: PRINT : NEXT I
4010 GOSUB 9000
4015 VTAB 21
4020 INVERSE : PRINT "DESTINATION: ";P$(RD)
4025 FT = 0
4026 FOR I = 0 TO 3:R(I) = RND (1): NEXT I
4030 R(0) = R(0) * 40 - 20 + SA(SH,3)
4035 IF R(1) < SA(SH,7) THEN FT = 1
4037 IF R(2) < SA(SH,6) THEN FT = 2
4039 IF R(3) < SA(SH,5) THEN FT = 3
4041 R0 = INT (R0)
4090 R(0) = INT (R(0) / 7)
4100 FOR II = 1 TO R(0)
4105 VTAB 22: PRINT "FUEL REMAINING: "
4110 VTAB 22: HTAB 16: PRINT FU
4120 IF FT = 1 AND II > 75 AND RND (1) > .1 THEN GOSUB 4500
4130 IF FT = 2 AND II > 75 AND RND (1) > .1 THEN GOSUB 4600
4140 IF FT = 3 AND II > 75 AND RND (1) > .1 THEN 4700
4150 FU = FU - 7
4160 IF FU < = 0 THEN GOSUB 4900
4199 NEXT II
4200 HOME : PRINT "": FLASH : SPEED= 100: PRINT "SUCCESSFUL AQUISITION
OF ORBIT AROUND": PRINT P$(RD)
4210 IF DR = 1 THEN DR = 0: GOTO 4220
4215 DR = 1
4220 IF DR = 1 THEN RD = 0: GOTO 4290
4230 RD = 1
4290 VTAB 19
4299 FOR I = 0 TO 3000: GOSUB 304: RETURN
4300 REM 4500=ENCOUNTER;4600=HIJACKING;4700=DESTRUCTION
4400 PRINT "": RETURN
4402 SPEED= 120: FLASH : VTAB 5: PRINT "UNIDENTIFIED VEHICLE APPROACHIN
G": SPEED= 255: NORMAL : RETURN
4404 SPEED= 100: FLASH : VTAB 7: PRINT "UNDER FIRE!!": SPEED= 255: NORMAL
: RETURN
4406 SPEED= 100: INVERSE : VTAB 11: PRINT "CREW AND PASSENGERS HELD HOS
TAGE........CARGO BEING PIRATED. ": FOR I = 0 TO
3500: NEXT I: SPEED= 255: NORMAL : RETURN
4408 VTAB 20: FLASH : PRINT "*** >SEVERE DAMAGE<": FOR I = 0 TO 5000: NEXT
I: HOME : SPEED= 100: VTAB 10: PRINT "SHIP DESTROYED!!!!!": SPEED= 2
55: NORMAL : RETURN
4500 GOSUB 4400: GOSUB 4402: FOR I = 0 TO 2000: NEXT I: GOSUB 9000:FT =
0: RETURN
4500 GOSUB 4400: GOSUB 4402: FOR I = 0 TO 2000: NEXT I: GOSUB 9000:FT =
0: RETURN
4600 GOSUB 4400: GOSUB 4402: GOSUB 4404: FOR I = 0 TO 2500: NEXT I: GOSUB
9000: GOSUB 4406
4610 FOR I = 0 TO 3:C(I) = 0: NEXT I
4699 RETURN
4700 GOSUB 4400: GOSUB 4402: GOSUB 4404: FOR I = 0 TO 2000: NEXT I: GOSUB
4400: GOSUB 4408

4700 GOSUB 4400: GOSUB 4402: GOSUB 4404: FOR I = 0 TO 2000: NEXT I: GOSUB
4400: GOSUB 4408
4710 IF SK(9) = 0 AND SK(12) = 0 THEN 4750
4715 FOR I = 0 TO 2000: NEXT I: HOME : FOR I = 0 TO 3000: NEXT I
4720 SPEED= 100: NORMAL : PRINT NA$;" HAS SUCCESSFULLY ESCAPED FROM": PRINT
"HIS DISINTEGRATED SHIP...": PRINT " BUT HAS SUFFERED TREMENDOUS FIN
ANCIAL": PRINT "AND PHYSICAL CONSEQUENCES FROM ITS": PRINT "DEMISE."

4725 SK(40) = SK(40) - 111111:SK(29) = SK(29) - LP: IF SK(29) < 0 THEN S
K(29) = 0
4730 GOTO 150
4750 GOSUB 250
4755 GOSUB 4400: PRINT "HAVING NO SKILLS IN AIR/RAFT OR SHIP'S": PRINT
"BOAT, ";NA$;" FAILED TO ESCAPE": PRINT "THE INFERNO THAT WAS ONCE A
SHIP."
4760 FOR I = 0 TO 2000: NEXT I
4770 FLASH : SPEED= 50: PRINT "FEDERATION AUTHORITIES EXTEND THEIR
CONDOLENCES."
4799 END
4900 GOSUB 9000: SPEED= 100: PRINT "OUT OF FUEL."
4910 SPEED= 255
4920 FOR I = 0 TO 5000: NEXT I
4930 HOME
4940 FOR I = 0 TO 5000: NEXT I
4950 GOSUB 4600
4960 SK(29) = SK(29) = 100000
4970 FU = 800
4999 RETURN
5000 FOR I = 0 TO 2000: HOME
5010 SPEED= 120: FLASH : PRINT "GOODS NOW BEING SOLD THROUGH THE": PRINT
P$(DR);" COMMODITY EXCHANGE."
5020 NORMAL : SPEED= 255
5030 Z = 0
5040 FOR I = 0 TO 3:R(I) = G(I,DR,0):R(I) = R(I) + RND (1) * (G(I,DR,1
) - R(I)):R(I) = ( INT (R(I) * 100)) / 100: NEXT I
5050 FOR I = 0 TO 3:Z = Z + C(I) * R(I): NEXT I
5100 VTAB 8: PRINT "PROCEEDS FROM SALE, GCR: "; INT (Z)
5110 VTAB 10: PRINT "COST OF GOODS: ";A(0) * U(0) + A(1) * U(1)

5120 PRINT : GOSUB 300: PRINT "RETURN THIS TRIP.......";Z - (A(0) * U(0
) + A(1) * U(1))
5130 PRINT : PRINT : GOSUB 301
5140 PRINT : GOSUB 304
5999 RETURN
6000 HOME

6000 HOME
6010 INVERSE : PRINT "FINANCIAL STATUS": GOSUB 301
6020 A = (10 - SK(3)) * .11 * SA(SH,4): IF A < SA(SH,4) / 3 THEN A = SA(
SH,4) / 3
6025 A = INT (A)
6030 C = INT (LP * IR / 400):LP = LP + C
6035 LP = INT (LP)
6040 SK(29) = SK(29) - A + Z
6045 SK(29) = INT (SK(29) + .5)
6048 IF SK(29) < 0 THEN 8000
6050 D = SK(29) - LP
6055 D = INT (D)
6100 VTAB 4: PRINT "CREW EXPENSES:"

6102 VTAB 6: PRINT ">>NET CASH ON HAND:": GOSUB 302
6104 VTAB 10: PRINT "INTEREST:"
6106 VTAB 12: PRINT ">>TOTAL LOANS PAYABLE:"
6108 VTAB 14: GOSUB 300: PRINT ">>> NET WORTH:": GOSUB 301
6110 VTAB 4: HTAB 20: PRINT A
6112 VTAB 6: HTAB 30: PRINT SK(29)
6114 VTAB 10: HTAB 20: PRINT C
6116 VTAB 12: HTAB 30: PRINT LP
6118 VTAB 15: HTAB 30: PRINT D
6200 POKE 34,16: HOME

6210 INVERSE : PRINT "OPTIONS:": NORMAL
6212 PRINT " <1> PAYOFF SOME OUTSTANDING LOANS.": PRINT " <2> GO ONTO
ANOTHER VOYAGE.": PRINT " <3> EXIT GAME (PAY LOANS, KEEP SHIP)"
6220 INVERSE : VTAB 22: INPUT "** WHICH CHOICE (1-3) ?";IP: NORMAL
6222 IF IP < 1 OR IP > 3 THEN 6200
6230 ON IP GOTO 6300,6400,6500
6300 HOME
6302 PRINT "INTEREST RATE: ";IR;"%"
6310 PRINT : INVERSE : INPUT "** PAYMENT: ";IP: NORMAL
6320 IF IP > LP OR IP < 0 THEN 6300
6330 IP = INT (IP):LP = LP - IP:SK(29) = SK(29) - IP
6335 IF SK(29) < 0 THEN 8001
6399 GOTO 6200
6400 Q = Q + 1: IF Q = 4 THEN SK(39) = SK(39) + 1:Q = 0
6402 PRINT : FLASH : PRINT "EST. LENGTH OF TRIP = 3 EARTH MONTHS."
6410 FOR I = 0 TO 2000: NEXT I: PRINT "": FOR I = 0 TO 2000: NEXT I
6499 POKE 34,0: RETURN
6500 IF SK(29) < LP THEN 6600
6505 SK(29) = SK(29) - LP
6510 HOME : PRINT "AGE OF ";NA$;" = ";SK(39)
6550 POKE 34,0
6599 GOTO 150
6600 SPEED= 130: POKE 34,0: HOME



6610 PRINT " YOU HAVE INSUFFICIENT FUNDS TO PAY": PRINT "OFF THE LO
ANS OUTSTANDING ON YOUR SHIP."
6615 PRINT : INVERSE : PRINT ">> OPTIONS:"
6620 PRINT : NORMAL : PRINT " <1> ALLOW AUTHORITIES TO FORCLOSE ON": PRINT
"THE SHIP.": PRINT
6625 PRINT " <2> SKIP OFF TO ANOTHER STAR SYSTEM": PRINT "WITH THE SHI
P, AND HOPE TO ESCAPE FUTUREDETECTION."
6630 PRINT : PRINT : FLASH : PRINT "** WARNING. SEVERE PENALTIES APPLY
FOR SKIPPING TO AVOID PAYMENT ON A STARSHIP LOAN!!!!"
6632 PRINT : NORMAL : PRINT ">> ADDITIONAL NOTE: FORCLOSURE INVOLVESTH
E LOSS OF ALL POSSESSIONS... NOT JUST THE SHIP!"
6633 SPEED= 255: NORMAL
6635 PRINT : PRINT : INVERSE : INPUT "** WHICH CHOICE (1-2)?";IP
6640 IF IP < 1 OR IP > 2 THEN 6635
6650 ON IP GOTO 6700,6800
6700 SK$ = "": GOTO 150


6800 SK$ = SK$ + "XX-": GOTO 150
6999 POKE 34,0: RETURN
8000 SK(29) = - SK(29):LP = LP + 2 * SK(29): RETURN
8001 FLASH : SPEED= 120: HOME
8010 PRINT "YOU ARE OUT OF MONEY, AND UNABLE TO": PRINT "MEET YOUR OBLI
GATIONS."
8020 NORMAL : PRINT " AS PUNISHMENT, THE FEDERATION IS": PRINT "SEI
ZING ALL OF YOUR POSSESSIONS, INCLU-": PRINT "DING YOUR SHIP."
8030 SK$ = "":SK(29) = 0
8040 SPEED= 255: FOR I = 0 TO 2000: NEXT I
8050 HOME : FLASH : PRINT "GOOD-BYE"
8060 GOTO 150
9000 HOME : FOR V = 1 TO 22 STEP 2
9010 FOR H = 1 TO 38 STEP 2
9020 R0 = RND (1): IF R0 > .1 THEN 9050
9025 VTAB V: HTAB H: PRINT "*": GOTO 9080
9050 IF R0 > .3 THEN 9080
9060 VTAB V: HTAB H: PRINT "."
9080 NEXT H
9090 NEXT V
9999 RETURN
50000 C$(0) = "WEAPONS":C$(1) = "ELECTRONICS":C$(3) = "CRYSTALS":C$(2) =
"DRUGS"
50010 P$(0) = "XENON-12"$(1) = " Y732A"
50020 SH$(1) = "SCOUT SHIP":SH$(2) = "MERCHANT VESSEL"
50100 SA(1,0) = 10:SA(2,0) = 100:SA(1,1) = 10:SA(2,1) = 20:SA(1,2) = 0:S
A(2,2) = 50:SA(1,3) = 100:SA(2,3) = 800
50102 SA(1,4) = 1500:SA(2,4) = 10000:SA(1,5) = .01:SA(2,5) = .02:SA(1,6)
= .02:SA(2,6) = .05
50104 SA(1,7) = .2:SA(2,7) = .35:SA(1,8) = .3:SA(2,8) = .1:SA(1,9) = 100
:SA(2,9) = 2000:SA(1,10) = 1:SA(2,10) = 8
50110 G(0,0,0) = 3000:G(0,0,1) = 6000:G(0,1,0) = 5000:G(0,1,1) = 8000
50111 REM (GOOD, PLANET,L0-HI)
50112 G(1,0,0) = 10:G(1,0,1) = 14:G(1,1,0) = 15:G(1,1,1) = 17
50114 G(2,0,0) = 6:G(2,0,1) = 8:G(2,1,0) = 3:G(2,1,1) = 5
50116 G(3,0,0) = 150:G(3,0,1) = 250:G(3,1,0) = 120:G(3,1,1) = 155
50118 GW(0) = 100:GW(1) = 10:GW(2) = 2:GW(3) = 50
50999 RETURN
</pre>[/QUOTE]One other comment: I can't mount prodos disks to mac on my current machines; this was stripped by listing chunks at a time, then capturing the text, using an emulator.

 

[Merxiless]

Thanks for this, I will get to work on it!

 

[Berg]

<shudder> That brings back memories

 

[Merxiless]

Yeah, of TRS-80, and cassette tape storage and 8 K max file size, 15 mins to load.

Yeeks!

Okay, so that thing up there is a Trader game, written in '79. It seems we are looking for Something to do Merchant Prince, perhaps with the above functionality, also.

My attack plan:

Crack open The Traveller Book, Merchant Prince, Megatraveller, And GT: Far trader, and get something workable as a cohesive system, or switches to use 'em all. Perhaps also T20.

Work it as a stand-alone program first then do some testing.

Then work it with hooks into Gal 2.4, such that it samples Galactic Sector Data files, and perhaps also calculates routes.

I am not nearly as familiar with Heaven & Earth, so likely if someone else is, and feels motivated after I get some initial work done, perhaps something can be done there, I don't know if H&E is open source, but I have a solid understanding of Galactic 2.4's code and modules.

Once I have a beta, I'll post to this thread.

 

[Berg]

This sounds cool
I don't think H&E is open source...
In corporating SEC files would be great because then people could play in the OTU and ATU's and YTU!

What language are you using?

 

[sid6.7]

Originally posted by Employee 2-4601:
Send it to omer-golan@edu.telhai.ac.il

I'll upload it to the FTP I usually use (it belongs to a friend of mine) tomorrow.

Isn't BASIC text-based (from my experience from PC Q-BASIC in the early 1990's), with BAS files editable in a text editor. and thus transportable between platforms?

done, emailed it too you

do your FTP thing

i have a link here somewheres still cant find it
though....

there maybe be 2 related programs mixed in it..

this is the older basic i dont think you can
edit it like the qbasic and such...

 

[Merxiless]

Berg, I am using Quick Basic 4.5 (with the compiler, not the Qbasic that came with win95)

This is because I am both more familiar with it, and it's what Galactic 2.4 was written in, by Jim Vassilakos.

This is an old page of his:
http://www.cs.ucr.edu/~jimv/progs.html

The Elektra page has been down for some months.

 

[Berg]

I will be watching...