10 REM ORBIT.ECB
  100 REM ...ORBIT...from MECC H5R3010 Jun 78      3-7-81 R.E.H.
  110 PRINT "SOMEWHRE ABOVE YOUR PLANET IS A ROMULAN SPACESHIP."
  120 LET X=RND(0): PRINT
  130 PRINT "THIS SHIP IS IN CONSTANT POLAR ORBIT. IT'S"
  140 PRINT "DISTANCE FROM THE CENTER OF YOUR PLANET IS"
  150 REM : FORGET THE INSTRUCTIONS FOR AWILE
  160 LET A=INT(RND(0)*360)
  170 LET D=INT(RND(0)*200)+100
  180 LET R=INT(RND(0)*20)+10
  190 LET H=0
  200 IF H=7 THEN 410
  210 LET H=H+1
  220 PRINT
  230 PRINT "AT WHAT ANGLE DO YOU WISH TO FIRE YOUR PHOTON BOMB";
  240 INPUT A1
  250 PRINT "HOW FAR OUT DO YOU WISH TO DETONATE IT ---=>";
  260 INPUT D1
  270 PRINT
  280 LET A=A+R
  290 IF A<360 THEN 310
  300 LET A=A-360
  310 LET T=ABS(A-A1)
  320 IF T<180 THEN 340
  330 LET T=360-T
  340 LET C=SQR(D*D+D1*D1-2*D*D1*COS(T*3.14159265/180))
  350 PRINT "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE";
  360 PRINT " ROMULAN SHIP."
  370 IF C<=50 THEN 390
  380 GOTO 200
  390 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION."
  400 GOTO 420
  410 PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE."
  420 PRINT "ANOTHER ROMULAN SHIP HAS ENTERED ORBIT. DO YOU"
  430 PRINT "TRY TO DESTROY IT ---=>";
  440 INPUT (1,0)C$: LET C$=C$+"Y": PRINT
  450 IF C$(1,1)="Y" THEN 160
  460 END