>9 THEN 1210
1210 PRINT "I DIDN'T UNDERSTAND THAT - TRY AGAIN ": GOTO 1080
1220 R=VAL(LEFT$(R$,1))
1230 C=ASC(RIGHT$(R$,1))-64
1240   FOR I= 1 TO 5
1250 IF R=R(I) AND C=C(I) THEN  1290
1260   NEXT I
1270 PRINT "THAT SPACE WAS NOT INCLUDED IN THE LIST..."
1280 GOTO 1080
1290 A1=M(R-1,C)
1300 A2=M(R+1,C)
1310 A3=M(R,C+1)
1320 A4=M(R,C-1)
1330 IF A1<=1 AND A2<=1 AND A3<=1 AND A4<=1 THEN M(R,C)=2 ELSE 1350
1340 GOTO 1880
1350 IF A1>3 AND A2>3 AND A2<>A1 THEN GOSUB 2240
1360 IF A1>3 AND A3>3 AND A3<>A1 THEN GOSUB 2240
1370 IF A1>3 AND A4>3 AND A4<>A1 THEN GOSUB 2240
1380 IF A2>3 AND A3>3 AND A3<>A2 THEN GOSUB 2240
1390 IF A2>3 AND A4>3 AND A4<>A2 THEN GOSUB 2240
1400 IF A3>3 AND A4>3 AND A4<>A3 THEN GOSUB 2240
1410 IF A1<4 AND A2<4 AND A3<4 AND A4<4 THEN 1510
1420 IF M(R,C)>3 THEN 1880
1430 IF A1>3 THEN I=A1-3
1440 IF A2>3 THEN I=A2-3
1450 IF A3>3 THEN I=A3-3
1460 IF A4>3 THEN I=A4-3
1470 Q(I)=Q(I)+1
1480 S1(I)=S1(I)+100
1490 M(R,C)=I+3
1500 GOTO 1680
1510   FOR I=1 TO 5
1520 IF Q(I)=0 THEN 1560
1530   NEXT I
1540 IF M(R,C)<3 THEN M(R,C)=2
1550 GOTO 1880
1560 PRINT Z1$
1570 GOSUB 3410
1580 PRINT "A NEW SHIPPING COMPANY HAS BEEN FORMED !"
1590 PRINT "IT'S NAME IS ",
1600 RESTORE
1610 READ N,C$
1620 IF I<>N THEN 1610
1630 PRINT C$
1640 S(I,P)=S(I,P)+5
1650 Q(I)=1
1670 FOR Y1=1 TO 500 : X9=SIN(X9):NEXT Y1
1680 IF A1=3 THEN S1(I)=S1(I)+500
1690 IF A2=3 THEN S1(I)=S1(I)+500
1700 IF A3=3 THEN S1(I)=S1(I)+500
1710 IF A4=3 THEN S1(I)=S1(I)+500
1720 IF A1=2 THEN S1(I)=S1(I)+100 ELSE 1750
1730 Q(I)=Q(I)+1
1740 M(R-1,C)=I+3
1750 IF A2=2 THEN S1(I)=S1(I)+100 ELSE 1780
1760 Q(I)=Q(I)+1
1770 M(R+1,C)=I+3
1780 IF A3=2 THEN S1(I)=S1(I)+100 ELSE 1810
1790 Q(I)=Q(I)+1
1800 M(R,C+1)=I+3
1810 IF A4=2 THEN S1(I)=S1(I)+100 ELSE 1840
1820 Q(I)=Q(I)+1
1830 M(R,C-1)=I+3
1840 IF S1(I)>=3000 THEN T1=I ELSE 1860
1850 GOSUB 3120
1860 M(R,C)=I+3
1870 T7=T7+1:T1(T7,1)=R:T1(T7,2)=C:T1(T7,3)=I
1880  FOR I=1 TO 5
1890 B(P)=B(P)+INT(.05*S(I,P)*S1(I))
1900  NEXT I
1910 GOSUB 2050
1920 PRINT P1$(P);"'S TURN. (C TO SEE LIST OF COMMANDS) COMMAND:";
1930 LINE INPUT R3$
1940 M1$=LEFT$(R3$,1)
1950 IF M1$ ="M" THEN GOSUB 2050:PRINT: GOTO 1920 
1960 IF M1$="S" THEN GOSUB 3260: PRINT: GOTO 1920
1970 IF M1$="B" THEN GOSUB 3730: PRINT: GOTO 1920
1980 IF M1$="D" THEN GOTO 640
1990 IF M1$="T" THEN GOSUB 6300
2000 IF M1$="H" THEN GOSUB 4020
2010 IF M1$="P" THEN GOSUB 3530
2020 IF M1$="C" THEN GOSUB 5550
2030 IF LEFT$(R3$,2)="QU" THEN GOTO 3500
2040 GOTO 1920
2050 PRINT Z1$: REM             SUBROUTINE - PRINT MAP
2060 PRINT TAB(18);"MAP OF THE GALAXY"
2070 PRINT TAB(17);"*******************"
2080 PRINT TAB(10);" A  B  C  D  E  F  G  H  I  J  K  L"
2090   FOR R2=1 TO 9
2100 PRINT"     ";R2;" ";
2110 FOR C2=1 TO 12
2120 PRINT" ";
2130 Z2=M(R2,C2)
2140 IF Z2=0 THEN Z2=Z2+1
2150 PRINT MID$(L$,Z2,1)" ";
2160 NEXT
2170 IF R2>5 THEN 2200
2180 IF Q(R2) = 0 THEN 2200
2190 PRINT "   ";N1$(R2);TAB(72);"$";S1(R2);
2200 PRINT
2210 NEXT
2220 GOSUB 3260
2230 RETURN
2240 F1=A1-3: IF F1<0 THEN F1=0:REM SUB - SURVIVOR OF MERGER
2250 F2=A2-3: IF F2<0 THEN F2=0
2260 F3=A3-3: IF F3<0 THEN F3=0
2270 F4=A4-3: IF F4<0 THEN F4=0
2280 T=Q(F1)
2290 T1=F1
2300 IF Q(F2)>Q(F1) THEN T=Q(F2) ELSE 2320
2310 T1=F2
2320 IF Q(F3)>T THEN T=Q(F3) ELSE 2340
2330 T1=F3
2340 IF Q(F4)>T THEN T=Q(F4) ELSE 2360
2350 T1=F4
2360 IF F1=T1 OR A1<4 THEN 2390
2370 X=F1
2380 GOSUB 2490
2390 IF F2=T1 OR A2<4 THEN 2420
2400 X=F2
2410 GOSUB 2490
2420 IF F3=T1 OR A3<4 THEN 2450
2430 X=F3
2440 GOSUB 2490
2450 IF F4=T1 OR A4<4 THEN 2480
2460 X=F4
2470 GOSUB 2490
2480 RETURN
2490 PRINT Z1$
2500 GOSUB 3410: REM  SUB FOR MERGERS
2510 RESTORE
2520 READ N,C$
2530 IF X<>N THEN 2520
2540 C1$=C$
2550 PRINT C1$;
2560 PRINT " HAS JUST BEEN MERGED INTO ";
2570 RESTORE
2580 READ N,C$
2590 IF T1<>N THEN 2580
2600 C2$=C$
2610 PRINT C2$;"!"
2620 PRINT "PLEASE NOTE THE FOLLOWING TRANSACTIONS."
2630 PRINT
2640 PRINT TAB(3);"OLD STOCK = ";C1$;"      NEW STOCK = ";
2650 PRINT C2$
2660 PRINT
2670 PRINT "PLAYER";TAB(10);"OLD STOCK";TAB(22);"NEW STOCK";
2680 PRINT TAB(34);"TOTAL HOLDINGS";TAB(53);"BONUS PAID"
2690   FOR I=1 TO P1
2700 GOSUB 560
2710 PRINT TAB(10);S(X,I);TAB(22);INT((.5*S(X,I))+.5);
2720 PRINT TAB(34);S(T1,I)+INT((.5*S(X,I))+.5);
2730 X1=0
2740    FOR I1=1 TO P1
2750 X1=X1+S(X,I1)
2760    NEXT 
2770 PRINT TAB(53);" $";INT(10*((S(X,I)/X1)*S1(X)))
2780   NEXT I
2790   FOR I=1 TO P1
2800 S(T1,I)=S(T1,I)+INT((.5*S(X,I))+.5)
2810 B(I)=B(I)+INT(10*((S(X,I)/X1)*S1(X)))
2820   NEXT I
2830   FOR I=1 TO 9
2840    FOR J=1 TO 12
2850 IF M(I,J)=X+3 THEN M(I,J)=T1+3
2860    NEXT J
2870   NEXT I
2880 A1=M(R-1,C)
2890 A2=M(R+1,C)
2900 A3=M(R,C+1)
2910 A4=M(R,C-1)
2920 F1=A3-3
2930 IF F1<0 THEN F1=0
2940 F2=A2-3
2950 IF F2<0 THEN F2=0
2960 Q(T1)=Q(T1)+Q(X)
2970 S1(T1)=S1(T1)+S1(X)
2980 IF S1(T1)=>3000 THEN GOSUB 3120
2990 F3=A3-3
3000 IF F3<0 THEN F3=0
3010 F4=A4-3
3020 IF F4<0 THEN F4=0
3030 S1(X)=100
3040 Q(X)=0
3050   FOR I=1 TO P1
3060 S(X,I)=0
3070   NEXT I
3080 PRINT
3090 M(R,C)=T1+3
3100 LINE INPUT "HIT RETURN TO CONTINUE";R3$
3110 RETURN
3120 GOSUB 3410: REM SUB - STOCK SPLITS
3130 PRINT "THE STOCK OF ",
3140 RESTORE
3150 READ N,C$
3160 IF T1<>N THEN 3150
3170 PRINT C$,
3180 PRINT " HAS SPLIT 2 FOR 1 !"
3190 S1(T1)=INT(S1(T1)/2)
3200 PRINT:PRINT
3210   FOR I1=1 TO P1
3220 S(T1,I1)=2*S(T1,I1)
3230   NEXT I1
3240 RETURN
3250 PRINT Z1$
3260 REM - SUBROUTINE TO PRINT OUT A PORTFOLIO
3270 PRINT P1$(P);"'S PORTFOLIO:"
3280 PRINT "STOCK";TAB(30);"PRICE PER SHARE";
3290 PRINT TAB(50);"YOUR HOLDINGS"
3300   FOR I3=1 TO 5
3310 IF S1(I3)=100 THEN 3370
3320 RESTORE
3330 READ N,C$
3340 IF I3<>N THEN 3330
3350 PRINT C$,
3360 PRINT TAB(30);S1(I3);TAB(50);S(I3,P)
3370   NEXT I3
3380 PRINT:PRINT "YOUR CURRENT CASH IS $";B(P)
3390 RESTORE
3400 RETURN
3410 PRINT CHR$(7)
3420 PRINT TAB(20);"!!! SPECIAL ANNOUNCEMENT !!!":PRINT
3430 FOR I2=1 TO 20
3440 PRINT CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7);
3450 NEXT I2
3460 PRINT
3470 RETURN
3480 PRINT *S(J,I))
3620    NEXT J
3630   NEXT I
3640 IF M1$="X" THEN RETURN
3650   FOR I=1 TO P1
3660 GOSUB 560
3670 PRINT TAB(10);"$";D1(I);TAB(33);"$";B(I);
3680 PRINT TAB(50);"$";D1(I)+B(I)
3690   NEXT I
3700 PRINT:IF M1$="P" THEN RETURN
3710 PRINT:PRINT:PRINT:PRINT
3720 STOP
3730 REM - SUBROUTINE TO BUY STOCK
3740 INPUT "WHICH STOCK";R3$
3750 IF LEN(R3$)=0 THEN RETURN
3760 M1$=LEFT$(R3$,1)
3770 IF M1$ = "A" OR M1$ = "B" OR M1$ = "C" OR M1$ = "D" OR M1$ = "E" GOTO 3810
3780    PRINT "THAT COMPANY DOES NOT EXIST"
3800    GOTO 1920
3810 REM
3820 X=ASC(M1$)-64
3830 IF Q(X) > 0 THEN 3860
3840 PRINT "THIS COMPANY HAS NOT YET BEEN FORMED."
3850 RETURN
3860 INPUT "HOW MANY SHARES";R3$
3870 IF LEN(R3$)=0 THEN RETURN
3880 R3=VAL(R3$)
3890 IF S1(X) <> 0 THEN 3900
3900 IF R3>0 THEN 3930
3910 PRINT "THE INTERSTELLAR COMMERCE COMMISION DOES NOT ALLOW YOU TO SELL SHORT."
3920 PRINT: GOTO 3860
3930 IF R3*S1(X)<=B(P) THEN 3980
3940 PRINT "YOU ONLY HAVE $";B(P);". THE INTERSTELLAR COMMERCE COMMISSION"
3950 PRINT "DOES NOT ALLOW YOU TO BUY LONG."
3960 PRINT
3970 GOTO 3860
3980 IF R3=0 THEN RETURN
3990 S(X,P)=S(X,P)+R3
4000 B(P)=B(P)-(R3*S1(X))
4010 RETURN
4020 INPUT "WHO'S PORTFOLIO DO YOU WISH TO EXAMINE";R3$
4030 IF LEN(R3$)=0 THEN RETURN
4040 FOR I=1 TO P1
4050 IF R3$=P1$(I) THEN X=I:GOTO 4090
4060 NEXT I
4070 PRINT "THERE IS NO ONE PLAYING BY THAT NAME."
4080 RETURN
4090 T1=P:P=X
4100 GOSUB 3260
4110 P=T1
4120 M1$=""
4130 PRINT
4140 RETURN
4150 M1$=LEFT$(R5$,1)
4160 X3=0
4170 X3=ASC(M1$)-64
4220 IF X3=0 THEN PRINT "THERE IS NO COMPANY BY THAT NAME."
4230 RETURN
4240 REM - SUBROUTINE FOR EVIL THINGS
4250  R2%=INT(5*RND(R1)+1)
4260  ON R2% GOSUB 4280,4580,4830,5070,5310
4270 RETURN
4280 REM - SPACE PIRATES
4290 T2=INT(T7*RND(R1)+1)
4300 IF S1(T1(T2,3)) <= 200 THEN RETURN
4310 PRINT Z1$
4320 PRINT:PRINT:PRINT
4330 PRINT TAB(22);
4340 PRINT "**********  FLASH!  **********":PRINT:PRINT
4350 PRINT "THE INTERSTELLAR NEWS SERVICE REPORTS THAT THE ";N1$(T1(T2,3))
4360 PRINT " SHIPPING LANE ";
4370 PRINT "AT GALACTIC COORDINATE";T1(T2,1);",";T1(T2,2);" IS BEING ATTACKED"
4380 PRINT "BY SPACE PIRATES!  THE INTERSTELLAR PATROL IS REPORTED TO BE"
4390  PRINT "RUSHING TO THE SCENE.  WE WILL REPORT FURTHER DETAILS AS THEY OCCUR."
4400 PRINT:PRINT
4410 FOR I9=1 TO 1000: X7=SIN(.5):NEXT I9
4420 T3=INT(3*RND(R1)+1)
4430 IF T3>2 THEN 4520
4440 S1(T1(T2,3))=S1(T1(T2,3))-INT(5*RND(R1)+1)*100
4450 IF S1(T1(T2,3))<=100 THEN S1(T1(T2,3))=200
4460 PRINT
4470 PRINT "THE I.N.S. REPORTS THAT THE SHIPPING LANE HAS BEEN RANSACKED "
4480 PRINT "BY THE PIRATES.  COMPANY STOCK HAS FALLEN TO $";S1(T1(T2,3));" IN RESPONSE"
4490 PRINT "TO THIS NEWS."
4500 PRINT
4510 RETURN
4520 PRINT
4530 PRINT "THE I.N.S REPORTS THAT THE PIRATES HAVE BEEN CAPTURED BEFORE"
4540 PRINT "ANY SERIOUS DAMAGE WAS INFLICTED ON THE SHIPPING LANE."
4550 PRINT "ATTEMPTED PIRACY IS PUNISHABLE BY 50 STANDARD YEARS HARD LABOR."
4560 PRINT
4570 RETURN
4580 REM - SUBROUTINE FOR GALACTIC DEPRESSION
4590 PRINT Z1$
4600 PRINT
4610 PRINT TAB(10);"I.N.S  IN DEPTH NEWS ANALYSIS"
4620 PRINT
4630 PRINT "SINCE THE ELECTION OF R. RAYGUN TO THE GALACTIC PRESIDENCY"
4640 PRINT "UNEMPLOYMENT HAS BEEN SWEPT THE INHABITED PLANETS OF THE "
4650 PRINT "MILKY WAY.  THE GALACTIC DEBT IS HIGHER THAN EVER, AND "
4660 PRINT "INFLATION HAS REDUCED THE STANDARD OF LIVING THROUGHOUT"
4670 PRINT "SPACE.  LEADING ECONOMIC ANALYSTS NOW ADMIT THAT WE ARE IN"
4680 PRINT "A DEPRESSION, ALTHOUGH NO ONE AGREES ON THE REASONS WHY."
4690 PRINT
4700 PRINT "AS A RESULT OF THESE ECONOMIC DEPRESSIONS THE STOCK MARKET"
4710 PRINT "HAS EXPERIENCED A GENERAL DOWNTURN.  IN FACT, STOCKS FOR"
4720 PRINT "THE FIVE LEADING SHIPPING COMPANIES HAVE FALLEN UP TO"
4730 PRINT "300 DOLLARS PER SHARE."
4740 FOR I9=1 TO 5
4750 IF S1(I9)<=200 THEN 4790
4760 I8=INT(3*RND(R1)+1)
4770 S1(I9)=S1(I9)-(I8*100)
4780 IF S1(I9)<=200 THEN S1(I9)=200
4790 NEXT I9
4800 PRINT
4820 RETURN
4830 REM - SUBROUTINE FOR THE TROUBLE WITH TRIBBLES
4840 T2=INT(T7*RND(R1)+1)
4850 PRINT Z1$
4860 PRINT "MESSAGE RECEIVED VIA SUB-ETHER RADIO LINK FROM STARLANE AT ";
4870 PRINT T1(T2,1);",";T1(T2,2)
4880 PRINT
4890 PRINT "SHIPPING FLEET OVER RUN WITH TRIBBLES."
4900 PRINT "MULTIPLYING OUT OF CONTROL."
4910 PRINT "REQUEST IMMEDIATE HELP."
4920 PRINT "CARGO DESTROYED AND RATIONS ARE BEING THREATENED."
4930 PRINT
4940 PRINT TAB(10);"I.N.S. STOCK MARKET ANALYSIS"
4950 PRINT 
4960 PRINT "THE ";N1$(T1(T2,3));" SHIPPING COMPANY DENIES ALL REPORTS OF"
4970 PRINT "A INVESTATION OF TRIBBLES AT ONE OF THEIR REMOTE SHIPPING LANES."
4980 PRINT "HOWEVER, A HIGH LEVEL SUB-ETHER MESSAGE WAS LEAKED TO THE PRESS"
4990 PRINT "INDICATING THAT TRIBBLES WERE INDEED A PROBLEM."
5000 PRINT
5010 I9=INT(4*RND(R1)+1):I9=I9*100
5020 PRINT "AS A RESULT, STOCK IN THE COMPANY HAS DROPPED $";I9;" A SHARE."
5030 PRINT
5040 S1(T1(T2,3))=S1(T1(T2,3))-I9
5050 IF S1(T1(T2,3)) <=100 THEN S1(T1(T2,3))=200
5060 RETURN
5070 REM - SMUGGLING
5080 PRINT Z1$
5090 PRINT "INTERSTELLAR PATROL, LOG ENTRY:"
5100 PRINT
5110 T2=INT(T7*RND(R1)+1)
5120 S1(T1(T2,3))=S1(T1(T2,3))-INT(5*RND(R1)+1)*100
5130 IF S1(T1(T2,3))<=100 THEN S1(T1(T2,3))=200
5140 PRINT "CREW MEMBERS OF A ";N1$(T1(T2,3));" VESSEL, OPERATING OUT OF THE"
5150 PRINT "SHIPPING LANE AT GALACTIC COORDINATE";T1(T2,1);",";T1(T2,2);
5160 PRINT "WERE INTERCEPTED AFTER"
5170 PRINT "AFTER FAILING TO ALLOW A ROUTINE CUSTOM'S INSPECTION."
5180 PRINT "EXAMINATION OF THE SHIP YIELDED 10,000 METRIC TONS OF"
5190 PRINT "ISBIZNIK JELAFNI.  IT IS BELIEVED THAT THE VESSEL WAS"
5200 PRINT "HEADING TO GALLAPINA II, WHERE JELAFNI IS REFINED FOR"
5210 PRINT "USAGE BY THE GASPORIA PEOPLE OF UTNIAK."
5220 PRINT
5230 PRINT "AS A PRECAUTION, ALL SHIPS REGISTERED TO ";N1$(T1(T2,3));
5240 PRINT " ARE TO BE "
5250 PRINT "DETAINED AND INSPECTED BY INTERSTELLAR PATROL AGENTS."
5260 PRINT
5270 PRINT "STOCK MARKET ANALYSIS:"
5280 PRINT N1$(T1(T2,3));" HAS FALLEN TO $";S1(T1(T2,3));"PER SHARE"
5290 PRINT
5300 RETURN
5310 REM - TERRORISTS
5320 PRINT Z1$
5350 PRINT "ALERT ALERT ALERT ALERT ALERT ALERT ALERT ALERT ALERT ALERT "
5360 PRINT
5370 PRINT "SECURITY VIOLATION, FINANCIAL COMPUTER SYSTEM"
5380 PRINT
5390 M1$="X"
5400 GOSUB 3590
5410 Y9=0
5420 FOR I9=1 TO P1
5430 IF D1(I9)+B(I9) > Y9 THEN Y9=D1(I9)+B(I9):T2=I9
5440 NEXT I9
5450 PRINT "NOTIFICATION TO ";P1$(T2)
5460 PRINT
5470 PRINT "DUE TO THE HIGH VALUE OF YOUR HOLDINGS, WE OF THE"
5480 PRINT "GLIBIX LIBERATION FRONT HAVE TAPPED YOUR FINANCIAL COMPUTER"
5490 PRINT "AND TRANSFERRED SHARES INTO OUR OWN SECRET ACCOUNT."
5500 PRINT 
5510 PRINT "CAPITALISTS OF THE GALAXY DIE, GLIBIX WILL LIVE FOREVER!"
5520 PRINT
5525 T3=P
5526 P=T2
5530 GOSUB 6210
5535 P=T3
5540 RETURN
5550 PRINT Z1$:PRINT
5560 PRINT "LEGAL COMMANDS ARE:"
5570 PRINT
5580 PRINT "BUY    - ALLOWS YOU TO BUY ANY STOCK FROM THE BANK"
5590 PRINT "TRADE  - ALLOWS YOU TO BUY SELL OR TRADE STOCK TO OTHER PLAYERS"
5600 PRINT "STOCK  - PRINTS YOUR PORTFOLIO"
5610 PRINT "HOLDINGS - PRINTS ANY PLAYER'S PORTFOLIO"
5620 PRINT "