EACH MEMBER OF A COLOR GROUP
WHEN YOU BUY HOUSES INPUT THE NUMBER YOU WANT PER LOT
TO ROLL DICE TYPE ROLL
IT IS FOR SALE FOR ONLY
IF YOU WISH TO BUY IT TYPE BUY
YOU ROLLED DOUBLES**ROLL AGAIN
YOU ROLLED 3 SETS OF DOUBLES**GO TO JAIL
IF YOU WANT TO QUIT TYPE QUIT
YOU ALREADY OWN THIS PIECE OF PROPERTY
IF THERE IS ANY PROPERTY YOU WISH TO SELL AND
YOUR OPPONENT WANTS TO BUY TYPE SELL
IF YOU NEED A LIST OF PROPERTY TYPE LIST
YOU CAN'T SELL THIS**YOU DON'T OWN IT
WHAT PROPERTY DO YOU WANT TO SELL
IF THERE IS ANY MORE PROPERTY YOU WISH TO SELL TYPE YES
IF YOU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE
YOU DON'T HAVE ENOUGH MONEY FOR THAT MANY HOUSES
PAY POOR TAX OF $15
ADVANCE TOKEN TO ILLINOIS AVENUE
GO BACK THREE SPACES
ADVANCE TO GO
BANK PAYS YOU DIVIDEND OF $50
TAKE A RIDE ON THE READING
GO TO JAIL
BUILDING AND LOAN MATURES**COLLECT $150
ADVANCE TO BOARDWALK
ADVANCE TO ST.CHARLES PLACE
XMAS FUND MATURES**COLLECT $100
LIFE INSURANCE MATURES**COLLECT $100
INCOME TAX REFUND**COLLECT $20
DOCTOR'S FEE**PAY $50
YOU INHERIT $100
ADVANCE TO GO
PAY HOSPITAL $100
GO TO JAIL
PAY SCHOOL TAX OF $50
BANK ERROR IN YOUR FAVOR**COLLECT $200
100     REM *** PROGRAM SIMULATES TV PROGRAM STARTREK
110     REM *** WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING
150 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
180     PRINT "                  * * *  STAR TREK  * * *"\PRINT
200 PRINT "DO YOU WANT INSTRUCTIONS (THEY ARE LONG!)";\INPUT A$
205 RANDOMIZE
210 IF A$<>"YES" THEN 235
230 CHAIN"DSK1:SPACWR.IN"
235 DIM Z$(72),R$(72),Q$(72),S$(48),A$(3),O1$(24),D$(72)
236 DIM E$(20)
240 Q$="                                                  "
245 Q$=Q$&"                      "
250 Z$=Q$\R$=Q$\S$=SEG$(Q$,1,48)
260DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8)
290 T=INT(RND(1)*20+20)*100\T0=T
300 T9=30\D0=0\E=3000\P=10\S9=200\S=0\H8=0\E0=3000\P0=10
360 DEF FND(D)=SQR((K(I,1)-S1)**2+(K(I,2)-S2)**2)
370Q1=INT(RND(1)*8+1)
380Q2=INT(RND(1)*8+1)
390S1=INT(RND(1)*8+1)
400S2=INT(RND(1)*8+1)
420 C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1
430 C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0
440 C(1,2)=1\C(2,2)=1\C(6,1)=1\C(7,1)=1\C(8,1)=1\C(8,2)=1\C(9,2)=1
460D$="WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL"
470 D$=D$&"PHOTON TUBESDAMAGE CNTRL"
480E$="S