100 PRINT"[147]"
215 POKE 53280,00: POKE 53281,00
265 BL$="                                        "
270 T=TI: PO$="[207][198][198][146][154].": DN=3: SA=0
275 DV=PEEK(186)
280 IF (TI-T)<60 THEN 280
290 PRINT "[147][153]      [212]RAIL [215]EST [201]NSTRUCTIONS [205]ENU"
300 PRINT "    1[152]) [154][199]ENERAL [208]RINCIPLES."
310 PRINT "    2[152])[154] [195]REATING AND [205]ERGING A [212]RAIL."
320 PRINT "    3[152])[154] [194]UYING [211]TOCK."
330 PRINT "    4[152])[154] [215]INNING THE [199]AME."
335 PRINT "    5[152])[154] [208]RINTER [207]PTION: ";PO$
345 PRINT "    6[152])[154] [210]ETURN TO [212]RAIL [215]EST MENU"
350 PRINT"[197]NTER [211]ELECTION :"
360 GET MN$: IF MN$="" THEN 360
370 MN=VAL(MN$): IF MN<1 OR MN>6 THEN 360
380 ON MN GOTO 400, 1000, 1500, 2000, 2500, 3000
390 PRINT "[208]RESS C[146] TO CONTINUE."
392 GET A$: IF A$<>"C" THEN 392
393 PRINT "[147]";: RETURN
400 GOSUB 2990
410 PRINT#4,LEFT$(BL$,11-20*(DN<>3));"[199]ENERAL [208]RINCIPLES"
420 PRINT#4
430 PRINT#4,"[212]HE OBJECT OF [212][210][193][201][204] [215][197][211][212] IS TO BECOME ";
440 IF DN=3 THEN PRINT#4
450 PRINT#4,"WEALTHIEST PLAYER BY THE END OF THE"
460 PRINT#4,"GAME. [212]HE WAY TO ACCUMULATE WEALTH IS ";
470 IF DN=3 THEN PRINT#4
480 PRINT#4,"TO ESTABLISH FREIGHT COMPANIES BETWEEN"
490 PRINT#4,"THE CITIES OF THE [207]LD [215]EST SHOWN ON ";
500 IF DN=3 THEN PRINT#4
510 PRINT#4,"THE SCREEN MAP. [201]F YOU SHREWDLY BUY"
520 PRINT#4,"THE RIGHT STOCK AT THE RIGHT TIME AND ";
530 IF DN=3 THEN PRINT#4
540 PRINT#4,"MERGE COMPANIES IN WHICH YOU THINK YOU"
550 PRINT#4,"HAVE A CONTROLLING INTEREST, YOU WILL ";
560 IF DN=3 THEN PRINT#4
570 PRINT#4,"FIND YOURSELF QUITE RICH INDEED."
590 PRINT#4
600 PRINT#4,"[212]HE GAME CAN BE PLAYED BY 2 TO 4 PLAY";
610 IF DN=3 THEN PRINT#4,"-"
620 PRINT#4,"ERS. [201]T IS A VERY ABSORBING STRATEGY"
630 PRINT#4,"GAME WHICH WILL TAKE ABOUT AN HOUR TO ";
640 IF DN=3 THEN PRINT#4
650 PRINT#4,"FINISH. [212]HE GAME REQUIRES A JOYSTICK"
660 PRINT#4,"PLUGGED INTO GAME PORT 2 OF YOUR ";
670 IF DN=3 THEN PRINT#4
680 PRINT#4,"[195]OMMODORE-64."
690 PRINT#4
700 IF DN=3 THEN GOSUB 390
710 PRINT#4,"[212]O BEGIN THE GAME, ENTER THE NAMES OF ";
720 IF DN=3 THEN PRINT#4
730 PRINT#4,"ALL PLAYERS INTO THE COMPUTER. [201]T WILL"
740 PRINT#4,"THEN SELECT WHICH PLAYER WILL HAVE THE ";
750 IF DN=3 THEN PRINT#4
760 PRINT#4,"FIRST TURN."
770 PRINT#4
780 PRINT#4,"[193] TURN CONSISTS OF PLACING A PLAYER'S ";
790 IF DN=3 THEN PRINT#4
800 PRINT#4,"PIECE ON THE MATCHING SQUARE ON THE"
810 PRINT#4,"GAME MAP. [201]F THIS CREATES A NEW TRAIL ";
820 IF DN=3 THEN PRINT#4
830 PRINT#4,"OR CAUSES A MERGER, THE COMPUTER WILL"
840 PRINT#4,"AUTOMATICALLY HANDLE THE DETAILS OF ";
850 IF DN=3 THEN PRINT#4
860 PRINT#4,"THESE ITEMS. [211]EE [195]REATING AND [205]ERGING"
870 PRINT#4,"A [212]RAIL."
880 PRINT#4
890 PRINT#4,"[212]HEN YOU MAY PURCHASE STOCK IN ANY OF ";
900 IF DN=3 THEN PRINT#4
910 PRINT#4,"THE ACTIVE TRAILS ON THE MAP. [212]HE ONLY"
920 PRINT#4,"LIMIT TO THE NUMBER OF STOCKS YOU MAY ";
930 IF DN=3 THEN PRINT#4
940 PRINT#4,"PURCHASE IS THE AMOUNT OF CASH YOU HAVE"
950 PRINT#4,"ON HAND. [211]EE [194]UYING [211]TOCK."
951 PRINT#4
955 IF DN=3 THEN GOSUB 390
960 PRINT#4,"[193]FTER PURCHASING STOCK, THE PLAY GOES ";
965 IF DN=3 THEN PRINT#4
970 PRINT#4,"TO THE NEXT PLAYER. [201]N THE MEANTIME"
971 PRINT#4,"THE COMPUTER WILL PAY YOU INTEREST ON ";
972 IF DN=3 THEN PRINT#4
973 PRINT#4,"YOUR ENTIRE HOLDINGS - CASH AND STOCK."
974 PRINT#4
975 PRINT#4,"[212]HERE ARE TWO MORE OPTIONS ON THE PLAY ";
976 IF DN=3 THEN PRINT#4
977 PRINT#4,"MENU: THE [211][212][203] AND [195][193][204] OPTIONS. [212]HE [211][212][203]"
978 PRINT#4,"OPTION WILL DISPLAY YOUR STOCK HOLD";
979 IF DN=3 THEN PRINT#4,"-"
980 PRINT#4,"INGS AND THE AMOUNT OF CASH YOU HAVE."
981 PRINT#4,"[212]HE [195][193][204] OPTION IS DESCRIBED IN [215]INNING ";
982 IF DN=3 THEN PRINT#4
983 PRINT#4,"THE [199]AME."
984 PRINT#4
985 PRINT#4,"[211]INCE THERE IS A LIMIT OF FIVE ACTIVE ";
986 IF DN=3 THEN PRINT#4
987 PRINT#4,"[212]RAIL [195]OMPANIES ON THE MAP, IT MAY BE"
988 PRINT#4,"POSSIBLE THAT YOU CANNOT PLAY ANY OF ";
989 IF DN=3 THEN PRINT#4
990 PRINT#4,"YOUR PIECES. [201]F, AFTER TRYING THEM ALL,"
991 PRINT#4,"YOU FIND NONE CAN BE PLAYED, A [208][193][211] ";
992 IF DN=3 THEN PRINT#4
993 PRINT#4,"OPTION IS ADDED TO THE PLAY MENU. [212]HIS"
994 PRINT#4,"PERMITS YOU TO DISCARD ONE PIECE, AND ";
995 IF DN=3 THEN PRINT#4
996 PRINT#4,"CONTINUE YOUR TURN."
997 PRINT#4
998 IF DN=3 THEN GOSUB 390
999 CLOSE 4: GOTO 290
1000 GOSUB 2990
1010 PRINT#4,LEFT$(BL$,6-20*(DN<>3));"[195]REATING AND [205]ERGING A [212]RAIL"
1020 PRINT#4
1030 PRINT#4,"[193][160][212]RAIL [195]OMPANY IS CREATED AT ANY TIME ";
1040 IF DN=3 THEN PRINT#4
1050 PRINT#4,"YOU PLAY A PIECE ON THE MAP THAT IS"
1060 PRINT#4,"ADJACENT TO ONE ALREADY ON THE MAP ";
1070 IF DN=3 THEN PRINT#4
1080 PRINT#4,"(VERTICAL OR HORIZONTAL [206][207][212] DIAGONAL)."
1090 PRINT#4,"[201]N ADDITION, PLACING A PIECE ADJACENT ";
1100 IF DN=3 THEN PRINT#4
1110 PRINT#4,"TO ONE OF THE CITIES (YELLOW DIAMONDS)"
1120 PRINT#4,"WILL CREATE A [212]RAIL [195]OMPANY. [195]REATING ";
1130 IF DN=3 THEN PRINT#4
1140 PRINT#4,"A NEW [212]RAIL [195]OMPANY BRINGS A BONUS OF"
1150 PRINT#4,"FIVE SHARES OF STOCK IN THAT COMPANY."
1160 PRINT#4
1170 PRINT#4,"[193] MAXIMUM OF 5 [212]RAIL [195]OMPANIES MAY BE ";
1180 IF DN=3 THEN PRINT#4
1190 PRINT#4,"ON THE MAP AT ANY GIVEN TIME. [193]NY PIECE"
1200 PRINT#4,"WHICH WOULD CREATE A SIXTH TRAIL MAY ";
1210 IF DN=3 THEN PRINT#4
1220 PRINT#4,"NOT BE PLACED ON THE MAP."
1230 PRINT#4
1240 PRINT#4,"[208]LAYING A PIECE ADJACENT TO ONE IN AN ";
1250 IF DN=3 THEN PRINT#4
1260 PRINT#4,"EXISTING TRAIL WILL EXPAND THE LENGTH"
1270 PRINT#4,"OF THAT TRAIL AND INCREASE THE VALUE ";
1280 IF DN=3 THEN PRINT#4
1290 PRINT#4,"OF ALL STOCK IN THAT [212]RAIL [195]OMPANY BY"
1300 PRINT#4,"$100 ($600 IF THE PIECE ADDS A CITY)."
1310 PRINT#4
1320 IF DN=3 THEN GOSUB 390
1330 PRINT#4,"[205]ERGING TWO OR MORE [212]RAIL [195]OMPANIES ";
1340 IF DN=3 THEN PRINT#4
1345 PRINT#4,"IS DONE WHEN A PIECE IS PLACED ON THE"
1350 PRINT#4,"MAP SO THAT IT IS ADJACENT TO ALL OF ";
1355 IF DN=3 THEN PRINT#4
1360 PRINT#4,"THE [212]RAILS. [212]HE [212]RAIL WITH THE GREATER"
1365 PRINT#4,"LENGTH BECOMES THE CONTROLLING [212]RAIL ";
1366 IF DN=3 THEN PRINT#4
1367 PRINT#4,"AND TAKES OVER THE NOW DEFUNCT [212]RAILS."
1370 PRINT#4
1375 PRINT#4,"[193]T MERGER TIME, THE STOCK MARKET WILL ";
1380 IF DN=3 THEN PRINT#4
1385 PRINT#4,"PAY A BONUS TO THE TWO SHAREHOLDERS"
1390 PRINT#4,"WITH THE LARGEST NUMBER OF SHARES IN ";
1395 IF DN=3 THEN PRINT#4
1400 PRINT#4,"THE DEFUNCT TRAIL. [212]HE COMPUTER WILL"
1405 PRINT#4,"CALCULATE THESE BONUSES WHICH ARE ";
1410 IF DN=3 THEN PRINT#4
1415 PRINT#4,"BASED ON THE PRICE OF THE STOCK, [206][207][212] ON"
1420 PRINT#4,"HOW MANY SHARES ARE HELD."
1425 PRINT#4
1430 PRINT#4,"[201]N ADDITION, THE STOCK IN THE DEFUNCT ";
1435 IF DN=3 THEN PRINT#4
1440 PRINT#4,"[212]RAIL [195]OMPANY IS TRADED AT THE RATE OF"
1445 PRINT#4,"TWO SHARES OF DEFUNCT STOCK FOR ONE ";
1450 IF DN=3 THEN PRINT#4
1475 PRINT#4,"SHARE OF THE CONTROLLING STOCK."
1480 PRINT#4
1485 IF DN=3 THEN GOSUB 390
1490 CLOSE 4: GOTO 290
1500 GOSUB 2990
1510 PRINT#4,LEFT$(BL$,14-20*(DN<>3));"[194]UYING [211]TOCK"
1520 PRINT#4
1530 PRINT#4,"[211]TOCK PURCHASES ARE MADE BY SELECTING ";
1540 IF DN=3 THEN PRINT#4
1550 PRINT#4,"ONE OF THE STOCK TYPES FROM THE STOCK"
1560 PRINT#4,"MENU. [205]OVE THE JOYSTICK UP OR DOWN TO ";
1570 IF DN=3 THEN PRINT#4
1580 PRINT#4,"CIRCLE THE NAME OF THE STOCK YOU WISH"
1590 PRINT#4,"TO PURCHASE. [217]OU MAY PURCHASE STOCK ";
1600 IF DN=3 THEN PRINT#4
1610 PRINT#4,"ONLY IN AN ACTIVE [212]RAIL [195]OMPANY. [212]O"
1612 PRINT#4,"BUY STOCK, PRESS THE FIRE BUTTON."
1620 PRINT#4
1630 PRINT#4,"[193] WINDOW OPENS AND YOU CAN SELECT THE ";
1640 IF DN=3 THEN PRINT#4
1650 PRINT#4,"NUMBER OF STOCKS TO PURCHASE. [212]HIS IS"
1660 PRINT#4,"ACCOMPLISHED BY AGAIN MOVING THE JOY";
1670 IF DN=3 THEN PRINT#4,"-"
1680 PRINT#4,"STICK UP OR DOWN TO SELECT THE NUMBER"
1690 PRINT#4,"OF STOCKS AND PRESSING THE FIRE BUTTON."
1700 IF DN=4 THEN PRINT#4
1704 PRINT#4,"[211]TOCK PRICES MAY BE CALCULATED BY MUL";
1705 IF DN=3 THEN PRINT#4,"-"
1706 PRINT#4,"TIPLYING THE NUMBER OF PIECES IN THE"
1707 PRINT#4,"[212]RAIL [195]OMPANY BY $100, THE NUMBER OF ";
1708 IF DN=3 THEN PRINT#4
1709 PRINT#4,"CITIES CONNECTED BY $500, AND ADDING"
1710 PRINT#4,"THE TWO NUMBERS. [215]HEN THE STOCK PRICE ";
1711 IF DN=3 THEN PRINT#4
1712 PRINT#4,"PASSES $3000, IT THEN SPLITS 2 FOR 1."
1713 PRINT#4
1714 IF DN=3 THEN GOSUB 390
1716 PRINT#4,"[201]F THIS STOCK PURCHASE WINDOW DOES NOT ";
1717 IF DN=3 THEN PRINT#4
1718 PRINT#4,"OPEN, THEN YOU HAVE REQUESTED TO MAKE"
1719 PRINT#4,"A STOCK PURCHASE IN AN INACTIVE [212]RAIL ";
1720 IF DN=3 THEN PRINT#4
1722 PRINT#4,"[195]OMPANY. [212]HIS IS AGAINST THE RULES."
1728 PRINT#4
1730 PRINT#4,"[212]HERE ARE TWO OPTIONS SHOWN BELOW THE ";
1740 IF DN=3 THEN PRINT#4
1750 PRINT#4,"STOCK NAMES. [212]HE FIRST, ABBREVIATED AS"
1760 PRINT#4,"[211][212][203], WILL SIMPLY OPEN A WINDOW TO SHOW ";
1770 IF DN=3 THEN PRINT#4
1780 PRINT#4,"YOUR CURRENT STOCK PORTFOLIO AND THE"
1790 PRINT#4,"AMOUNT OF CASH YOU HAVE."
1800 PRINT#4
1810 PRINT#4,"[212]HE OTHER IS THE [197][206][196] OPTION. [212]HIS WILL ";
1820 IF DN=3 THEN PRINT#4
1830 PRINT#4,"SIGNAL THE COMPUTER THAT YOUR TURN IS"
1840 PRINT#4,"COMPLETE."
1850 PRINT#4
1860 PRINT#4,"[212]HE STRATEGY FOR PURCHASING STOCK IS ";
1870 IF DN=3 THEN PRINT#4
1880 PRINT#4,"QUITE SIMPLE. [217]OU WISH TO HAVE MORE"
1890 PRINT#4,"STOCK IN A GIVEN [212]RAIL [195]OMPANY THAN ";
1900 IF DN=3 THEN PRINT#4
1910 PRINT#4,"ANY OTHER PLAYER IN THE GAME."
1920 PRINT#4
1925 IF DN=3 THEN GOSUB 390
1930 PRINT#4,"[212]HIS STOCK MAJORITY WILL PAY OFF WHEN ";
1940 IF DN=3 THEN PRINT#4
1950 PRINT#4,"A MERGER OCCURS IN THE FORM OF A CASH"
1960 PRINT#4,"BONUS PAID TO THE TOP TWO STOCK OWNERS.";
1965 IF DN=3 THEN PRINT#4
1967 IF DN<>3 THEN PRINT#4," ";
1970 PRINT#4,"[212]HUS YOU WILL WISH TO PURCHASE STOCK"
1975 PRINT#4,"IN THOSE SMALLER [212]RAIL [195]OMPANIES THAT ";
1977 IF DN=3 THEN PRINT#4
1980 PRINT#4,"SEEM CLOSE TO A TAKEOVER BY A LARGER"
1985 PRINT#4,"[212]RAIL [195]OMPANY."
1987 PRINT#4
1988 IF DN=3 THEN GOSUB 390
1990 CLOSE 4: GOTO 290
2000 GOSUB 2990
2010 PRINT#4,LEFT$(BL$,12-20*(DN<>3));"[215]INNING THE [199]AME"
2020 PRINT#4
2030 PRINT#4,"[212]HERE ARE TWO WAYS OF ENDING A GAME OF ";
2040 IF DN=3 THEN PRINT#4
2050 PRINT#4,"[212][210][193][201][204] [215][197][211][212]. [212]HE FIRST IS TO CALL THE"
2060 PRINT#4,"GAME USING THE [195][193][204] OPTION ON THE PLAY ";
2070 IF DN=3 THEN PRINT#4
2080 PRINT#4,"MENU. [212]HIS WILL ALLOW ANY PLAYER TO END"
2090 PRINT#4,"THE GAME IF IT IS TO HIS ADVANTAGE, ";
2100 IF DN=3 THEN PRINT#4
2110 PRINT#4,"BUT ONLY IF ANY TRAIL IS MORE THAN 41"
2120 PRINT#4,"SEGMENTS IN LENGTH."
2130 PRINT#4
2140 PRINT#4,"[212]HE SECOND WAY TO END A GAME IS TO LET ";
2150 IF DN=3 THEN PRINT#4
2160 PRINT#4,"THE COMPUTER DO SO AFTER ABOUT 80"
2170 PRINT#4,"PLAYS HAVE BEEN MADE. [212]HIS NUMBER ";
2175 IF DN=3 THEN PRINT#4
2180 PRINT#4,"APPEARS IN THE UPPER RIGHT CORNER OF"
2185 PRINT#4,"THE MAP."
2190 PRINT#4
2200 PRINT#4,"[193]FTER EITHER CONDITION HAS BEEN MET, ";
2210 IF DN=3 THEN PRINT#4
2220 PRINT#4,"THE COMPUTER WILL CALCULATE THE TOTAL"
2230 PRINT#4,"VALUE OF CASH AND STOCKS FOR EACH OF ";
2240 IF DN=3 THEN PRINT#4
2250 PRINT#4,"THE PLAYERS IN THE GAME. [212]HE PLAYER"
2260 PRINT#4,"WITH THE HIGHEST NET WORTH IS THE ";
2270 IF DN=3 THEN PRINT#4
2280 PRINT#4,"WINNER."
2290 PRINT#4
2480 IF DN=3 THEN GOSUB 390
2490 CLOSE 4: GOTO 290
2500 IF PO$="[207][206][146][154]. " THEN PO$="[207][198][198][146][154].": DN=3: SA=0:GOTO290
2510 PO$="[207][206][146][154]. ":DN=4:SA=7
2515 OPEN15,4,15:CLOSE15:IFST<>0THEN 2520
2517 GOTO 290
2520 PRINT"          [208][210][201][206][212][197][210] [206][207][212] [196][197][212][197][195][212][197][196] "
2530 FORD=1TO2000:NEXT
2590 GOTO 2500
2600 PRINT "[147]               [195]REDITS"
2610 PRINT
2620 PRINT "[212]RAIL [215]EST [195]REATED BY:"
2630 PRINT
2640 PRINT "     [210]ICHARD [198]. [196]ALEY, [208]H[196]"
2650 PRINT "     [197]ASY[215]ARE"
2660 PRINT "     [208].[207]. [194]OX 217"
2670 PRINT "     [195]OLLEGE [208]LACE, [215][193] 99324"
2680 PRINT
2690 END
2990 PRINT"[147]";
2991 IFDN<>3THENPRINT"[208]RINTING....[208]LEASE [215]AIT"
2992 OPEN4,DN,SA:RETURN
3000 CLOSE DN:
3020 PRINT"[147][208]LEASE WAIT WHILE LOADING..."
3030 PRINT "[144]LOAD "CHR$(34)"TRAIL WEST"CHR$(34)","DV
3040 PRINT"RUN":POKE631,ASC(""):POKE632,13:POKE633,13:POKE198,3:END
10000 D=PEEK(186):N$="TW.INST":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END