350 PRINT
360 PRINT "     THE DATE IS JAN 1, 2070 AND INTERSTELLAR FLIGHT"
370 PRINT "HAS EXISTED FOR 70 YEARS.  THERE ARE SEVERAL STAR"
380 PRINT "SYSTEMS THAT HAVE BEEN COLONIZED.  SOME ARE ONLY"
390 PRINT "FRONTIER SYSTEMS, OTHERS ARE OLDER AND MORE DEVELOPED."
400 PRINT
410 PRINT "     EACH OF YOU IS THE CAPTAIN OF TWO INTERSTELLAR"
420 PRINT "TRADING SHIPS.  YOU WILL TRAVEL FROM STAR SYSTEM TO"
430 PRINT "STAR SYSTEM, BUYING AND SELLING MERCHANDISE.  IF YOU"
440 PRINT "DRIVE A GOOD BARGAIN YOU CAN MAKE LARGE PROFITS."
450 PRINT
460 PRINT "     AS TIME GOES ON, EACH STAR SYSTEM WILL SLOWLY"
470 PRINT "GROW, AND ITS NEEDS WILL CHANGE.  A STAR SYSTEM THAT"
480 PRINT "HOW IS SELLING MUCH URANIUM AND RAW METALS CHEAPLY"
490 PRINT "MAY NOT HAVE ENOUGH FOR EXPORT IN A FEW YEARS."
500 PRINT
510 PRINT "     YOUR SHIPS CAN TRAVEL ABOUT TWO LIGHTYEARS IN A"
520 PRINT "WEEK AND CAN CARRY UP TO";W;" TONS OF CARGO.  ONLY"
530 PRINT "CLASS I AND CLASS II STAR SYSTEMS HAVE BANKS ON THEM."
540 PRINT "THEY PAY 5% INTEREST AND ANY MONEY YOU DEPOSIT ON ONE"
550 PRINT "PLANET IS AVAILABLE ON ANOTHER - PROVIDED THERE'S A LOCAL"
560 PRINT "BANK."

overlay procedure holdxfer;

begin
if userr.fo <> 0 then
  begin
    cls;
    ttn := userr.fo;
    welldone := FALSE;
    repeat
      readin(ttn,userz);
      prompt('Exchange with '+userz.fa+' (Y/N) [N]? ');
      if yn then
        if ((userr.fr = userz.fr) and (userr.fr<>0)) then
        begin
          welldone := TRUE;
          prompt('Transfer To or From '+userz.fa+' (T/F) [T]? ');
          input(choices,1);
          if choices = '' then choices := 'T';
          print('You have '+cstr(userr.fh)+' holds, and '+userz.fa+' has '+cstr(userz.fh));
          if choices = 'T' then ij := 1 else ij := (-1);
          prompt('How many to transfer? ');